|
Вопрос # 5 389/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
вот у меня тест,там просто перечень вопросов идёт и если подходит,то человек должен галочку поставить на против этого вопроса.галочка ставится с помощью checkbox.я каждому вопросу присвоила единицу,и когда ставится галочка,что всё суммируется.я даже смогла это вывести на экран,но мне надо дальше работать с этой суммой(её надо разделить,сложить).я не знаю как мне сделать её переменной и чтобы потом пользоваться этой суммой.
в общем,мне надо написать тест,определяющий темперамент чнловека по формуле Белова.
подскажите пожалуйста)
 |
Вопрос задала: Футболистка (статус: Посетитель)
Вопрос отправлен: 8 июня 2011, 18:13
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 8 июня 2011, 22:28; участников в обсуждении: 5.
|
Вадим К (статус: Академик), 8 июня 2011, 18:16 [#1]:
а где Ваш код?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
bugmenot (статус: 3-ий класс), 8 июня 2011, 18:42 [#2]:
вы в курсе что психология это лженаука и что-то математически обсчитывать не имеет смысла?
а так:
Sum := 0;
for I := 0 to ControlCount - 1 do
if Controls[I] is TCheckBox then
if TCheckBox(Controls[I]).Checked then
Inc(Sum);
if Sum > 0 then ShowMessage('Вы - легковерны');
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Футболистка (статус: Посетитель), 8 июня 2011, 18:45 [#3]:
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm12 = class(TForm)
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Button1: TButton;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
lb_Sum: TLabel;
Edit1: TEdit;
ScrollBar1: TScrollBar;
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
l:integer;
implementation
{$R *.dfm}
procedure TForm12.Button1Click(Sender: TObject);
begin
lb_Sum.Visible:=True;
lb_Sum.Caption:=IntToStr(l);
end;
procedure TForm12.CheckBox1Click(Sender: TObject);
begin
l:=l+1
end;
procedure TForm12.CheckBox2Click(Sender: TObject);
begin
l:=l+1;
end;
procedure TForm12.CheckBox3Click(Sender: TObject);
begin
l:=l+1
end;
procedure TForm12.CheckBox4Click(Sender: TObject);
begin
l:=l+1
end;
end.
это просто пробная програмка.по аналогии у меня начат тест
|
|
|
bugmenot (статус: 3-ий класс), 8 июня 2011, 19:37 [#4]:
Чжун Ма
а если чекбоксов будет 400?
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Футболистка (статус: Посетитель), 8 июня 2011, 19:48 [#5]:
но у меня их не 400)
я вот и не знаю как быть
|
|
min@y™ (статус: Доктор наук), 8 июня 2011, 20:00 [#6]:
А почему на всех чекбоксах одинаковая реакция? Сделай один обработчик на всех.
И почему не учитывается их состояние (Checked)?
Цитата (Футболистка):
я не знаю как мне сделать её переменной и чтобы потом пользоваться этой суммой.
Ну так твоя глобальная переменная l - это и есть сумма. Вот и дели её, умножай, и т.д. В чём проблема-то?
З.Ы. Ну почему задания по программированию дают людям, которые по сабжу ни одной книжки не прочитали, а?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
nar (статус: Посетитель), 8 июня 2011, 20:37 [#7]:
аналогично, что-то вообще не догнал что за проблема,  L: integer;
в чем проблема её то поделить или умножить?
|
|
|
bugmenot (статус: 3-ий класс), 8 июня 2011, 21:04 [#8]:
Цитата (min@y™):
Ну почему задания по программированию дают людям, которые...
Потому, что некоторые делают за них лабы :-Р
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 8 июня 2011, 21:10 [#9]:
Цитата (bugmenot):
Потому, что некоторые делают за них лабы
Не вижу связи.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 8 июня 2011, 21:34 [#10]:
Цитата (min@y™):
Не вижу связи.
Потому, что прошлый зачёт был получем точно таким же образом, а учебник так и остался нераскрытым. И так далее до получения диплома.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Футболистка (статус: Посетитель), 8 июня 2011, 21:57 [#12]:
я читала учебник,честно)
может потому что я блонди и мне поэтому так тяжело)
спасибо)
|
|
|
min@y™ (статус: Доктор наук), 8 июня 2011, 22:04 [#13]:
Цитата (Футболистка):
может потому что я блонди
А, может, не тот ВУЗ?
Советую педагогический.
Ну, или ККиШ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Футболистка (статус: Посетитель), 8 июня 2011, 22:28 [#14]:
нет,я всего лишь 1-й курс.я буду стараться.это в этом семестре меня что-то кидает из стороны в сторону(
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
