Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Очень нужно это сделать помогите (Delphi)!!!
Очень нужно это сделать помогите (Delphi)!!!
raf-byДата: Четверг, 16.10.2008, 20:13 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
Люди добрые помогите!!!
Нужно на форме разметисть компанент TstringGrid (ну в примеру 5 строк и 5 столбцов)
создать на форме 4 кнопки которые будут выполнять действия:
1 кнопка - заполнить талицу случайными числами от -50 до 50
2 кнопка - все положительные числа сделать отрицательными
3 кнопка - числа выше центральной диагонали поделить на два (с
округлением)
4 кнопка - ячейки в таблице должны закрашиваться
1. меньше нуля синими
2. от 0 до 20 красными
3. от 21 до 50 зелеными

за ранее СПАСИБО!
thumb

 
AdminДата: Четверг, 16.10.2008, 20:41 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
И что предлагаете за вас все это сделать? Что не получается?

Не оказываю помощь через личные сообщения и ICQ
 
EkzДата: Четверг, 16.10.2008, 22:07 | Сообщение # 3
Ранг 10
Группа: Пользователи
Сообщений: 164
Награды: 2
Репутация: 1
Статус: Offline
И чему сейчас только молодежь учат....
 
raf-byДата: Пятница, 17.10.2008, 05:07 | Сообщение # 4
Ранг 1
Группа: Пользователи
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
Да я самоучка! блин но не знаю допустим как случайный порядок сделать!
 
AdminДата: Пятница, 17.10.2008, 09:50 | Сообщение # 5
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
raf-by, все очень просто! Нужно пробежать в цикле каждую ячейку массива и присвоить ей случайное число! Например, я описывал как загадать случайное число в этой статье: Урок 8 - Игра "Угадайка".
math
Случайное число можно получить с помощю функции:
Code
Random(x);

Где вместо x пишите число. Если написать 10 то случайным образом выберется число от 0 до 9, т.е. 10 не выберется никогда.
Раньше, если мне нужно было загадать от, например, -10 до 10 я от загаданного числа отнимал другое число, высчитывая, что будет загаданно это число в нужном диапазоне, например:
Code
Random(21)-10;

Здесь максимальное число которое может загадаться будет 20 и от него отнимется 10 - получится 10. А елси загадаеся минимальное число - 0, то от него также отнимится 10 и получится число -10.

Чтобы не мучиться со всякими отниманиями и т.д. есть функция:

Code
RandomRange(x, y);

Чтобы она работала нужно подключить модуль math. Тут уже x - нижний диапазон у - верхний.

Обе функции возвращают НЕ строковое значение, т.е. чтобы присвоить его в StringGrid нужно будет его преобразовать в String. Делается это так:

Code
IntToStr(x);

где x - целочисленное значение. Эта функция возвратит строку.

Что не понятно? Пишите.


Не оказываю помощь через личные сообщения и ICQ
 
raf-byДата: Суббота, 18.10.2008, 12:35 | Сообщение # 6
Ранг 1
Группа: Пользователи
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
codelab огромное тебе спасибо! Я все сделал, все работает!
 
ModeRzzzДата: Пятница, 21.11.2008, 22:57 | Сообщение # 7
Ранг 1
Группа: Проверенные
Сообщений: 12
Награды: 0
Репутация: 1
Статус: Offline
raf-by, а то))) если codelab не помог, считай жизнь прожита зря xD
 
AvelДата: Пятница, 16.01.2009, 23:17 | Сообщение # 8
Ранг 1
Группа: Пользователи
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
я хотел бы узнать как создатель программы Изи ЮБ вставляет в список юзербаров в прграмму?
через чо и как?
я может и ни чо незнаюно схватываю на литу...


[img]http://s43.radikal.ru/i101/0901/73/237042ea2e1f.gif[/img]
[img]http://i021.radikal.ru/0901/f4/2361720a351a.gif[/img]
 
AdminДата: Суббота, 17.01.2009, 11:49 | Сообщение # 9
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Avel, 1 тема одни вопрос. А создатель Easy UserBar я smile И подробно рассказывать как и че я в программе делал не собираюсь.

Не оказываю помощь через личные сообщения и ICQ
 
Форум » Все о Delphi » Начинающим » Очень нужно это сделать помогите (Delphi)!!!
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2018
Хостинг от uCoz