Помогите с Delphi 7

HoZeY написал(а):
Прикрути исходник, хочу взглянуть. Если не жалко :)
Нажмите для раскрытия...

Не жалко, только с исходником будут небольшие проблемы. Дело в том, что когда я писал прогу, то в процессе решил её немного изменить и создал другую папку, чтобы можно было вернуться к старому варианту если что, но делфи почему-то странно сохранила исходники. Теперь они раскиданы по нескольким папкам, а в новую папку добавились только те изменения, что я сделал. Придется посидеть чтобы их собрать в единое целое. Попозже скину. ;)

Я так понял все балы суммируются, а потом сравниваются с конечным результатом. Например если набрали до N балов - вы сова, если больше - Жаворонок
Нажмите для раскрытия...

именно так и есть

может лучше для каждого вопроса создать свою переменную :integer

В конце их Суммировать и сравнить
Нажмите для раскрытия...

хотел проще, думал справлюсь с одной переменной, но тоже неплохой вариант.
 
disker написал(а):
Не жалко, только с исходником будут небольшие проблемы. Дело в том, что когда я писал прогу, то в процессе решил её немного изменить и создал другую папку, чтобы можно было вернуться к старому варианту если что, но делфи почему-то странно сохранила исходники. Теперь они раскиданы по нескольким папкам, а в новую папку добавились только те изменения, что я сделал. Придется посидеть чтобы их собрать в единое целое. Попозже скину. ;)
именно так и есть
хотел проще, думал справлюсь с одной переменной, но тоже неплохой вариант.
Нажмите для раскрытия...

Не, с одной переменной не получится. Можно попробовать с двумя, но нужно данные из "o" после каждого вопроса приплюсовывать к другой переменной "N". Должно получиться. :)

А проект попробуй сохранить так: "Save project as..."
 
HoZeY написал(а):
нужно данные из "o" после каждого вопроса приплюсовывать к другой переменной "N". Должно получиться. :)
Нажмите для раскрытия...

собственно так и делал :) а точнее так: o:=o+x (где х менялось 0 или 1,2,3)

А проект попробуй сохранить так: "Save project as...
Нажмите для раскрытия...

ок сейчас попробую, только там ещё почти ничего нет и лучше если дашь мне свой ящик напиши в личку, не хочу тут кидать исходники )) там мои контакты и фото ..

Добавлено через 35 минут
Вот пока что что есть, но что делать не знаю, вот смотрю видеоуроки может придет что в голову ;) :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, XPMAN, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Button1: TButton;
N5: TMenuItem;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
RadioButton19: TRadioButton;
RadioButton20: TRadioButton;
RadioButton21: TRadioButton;
RadioButton22: TRadioButton;
RadioButton23: TRadioButton;
RadioButton24: TRadioButton;
RadioButton25: TRadioButton;
RadioButton26: TRadioButton;
procedure N5Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton11Click(Sender: TObject);
procedure RadioButton12Click(Sender: TObject);
procedure RadioButton13Click(Sender: TObject);
procedure RadioButton14Click(Sender: TObject);
procedure RadioButton15Click(Sender: TObject);
procedure RadioButton16Click(Sender: TObject);
procedure RadioButton17Click(Sender: TObject);
procedure RadioButton18Click(Sender: TObject);
procedure RadioButton19Click(Sender: TObject);
procedure RadioButton20Click(Sender: TObject);
procedure RadioButton21Click(Sender: TObject);
procedure RadioButton22Click(Sender: TObject);
procedure RadioButton23Click(Sender: TObject);
procedure RadioButton24Click(Sender: TObject);
procedure RadioButton25Click(Sender: TObject);
procedure RadioButton26Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
o: integer;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
o:=3;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
o:=2;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
o:=1;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
o:=0;
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
o:=o+3;
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
o:=o+2;
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
o:=o+1;
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton9Click(Sender: TObject);
begin
o:=o+3;
end;
procedure TForm1.RadioButton10Click(Sender: TObject);
begin
o:=o+2;
end;
procedure TForm1.RadioButton11Click(Sender: TObject);
begin
o:=o+1;
end;
procedure TForm1.RadioButton12Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton13Click(Sender: TObject);
begin
o:=o+1;
end;
procedure TForm1.RadioButton14Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton15Click(Sender: TObject);
begin
o:=o+2;
end;
procedure TForm1.RadioButton16Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton17Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton18Click(Sender: TObject);
begin
o:=o+1;
end;
procedure TForm1.RadioButton19Click(Sender: TObject);
begin
o:=o+2;
end;
procedure TForm1.RadioButton20Click(Sender: TObject);
begin
o:=o+3;
end;
procedure TForm1.RadioButton21Click(Sender: TObject);
begin
o:=o+3;
end;
procedure TForm1.RadioButton22Click(Sender: TObject);
begin
o:=o+2;
end;
procedure TForm1.RadioButton23Click(Sender: TObject);
begin
o:=o+1;
end;
procedure TForm1.RadioButton24Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton25Click(Sender: TObject);
begin
o:=o+0;
end;
procedure TForm1.RadioButton26Click(Sender: TObject);
begin
o:=o+2;
end;
{
case o of
0..7:
begin
end;
8..13:
begin
end;
14..20:
begin
end;
end; }
procedure TForm1.N1Click(Sender: TObject);
begin
form2.showmodal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form3.showmodal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form4.showmodal;
end;
end.
Нажмите для раскрытия...
 
Прикрепи сам тест в текстовом формате, я попробую написать прогу
 
Вот как в одном видеоуроке описано как правильно нужно прописывать RadioButton (n1,n2,n3...). Попробую попозже под свою прогу подогнать:
 

Вложения

  • test.JPG
    test.JPG
    92,6 KB · Просмотры: 5
Набросал тест. Вроде работает нормально. :)
 

Вложения

  • SovaTest.zip
    584,8 KB · Просмотры: 3
А у меня вот что получилось, только сильно не бейте - первый раз пишу на делфи прогу :yahoo:
правда там ещё напильником работать и работать, но уже что-то ;)


(удалено, несколькими сообщениями ниже улучшенный вариант проги)
 
disker написал(а):
А у меня вот что получилось, только сильно не бейте - первый раз пишу на делфи прогу :yahoo:
правда там ещё напильником работать и работать, но уже что-то ;)
Нажмите для раскрытия...

для первого раза неплохо :)
 
HoZeY написал(а):
для первого раза неплохо :)
Нажмите для раскрытия...

Спасибо. Доработанная версия с картинками, что объясняют как себя ведут в течение дня сова, Жаворонок и аритмик. Теперь более наглядно. Еще если не секрет как сделать чтобы при появлении результатов в конце проигрывался звук , как это сделано у тебя?
 

Вложения

  • TESTSZ.zip
    826 KB · Просмотры: 3
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху