چگونه در یک سوال چهار گزینه تعریف که اگر جواب درست بود این رویداد و اگر نبود این ...

[Valadi]

چگونه در یک سوال چهار گزینه تعریف که اگر جواب درست بود این رویداد و اگر نبود این رویداد اتفاق بیفتد
البته این کلیه سوالات و گزینه ها در یک دیتا بیس است و نمی دونم چه جوری باید شروع کرد ؟

[Mahyaa]

من منظورتون رو درست متوجه نشدم !

دو تا Procedure یا Function متفاوت مینوسید و با توجه به درست یا غلط بودن یکیش رو Call میکنید !

.

[Mojgan110]

با یک DBRadioGroup مشکل حل نمیشه آیا ؟

و گرفتن رویداد on_click و داخلش تست کردن که مقدارش که از دیتابیس میاد ، True هستش یا False ??

[ali_divsalar]

چگونه در یک سوال چهار گزینه تعریف که اگر جواب درست بود این رویداد و اگر نبود این رویداد اتفاق بیفتد


هر کدام از گزینه ها را با یک شماره (1و2و3و4)متناظر کنید بعبارتی گزینه انتخابی شما معادل یک عدد خواهد بود و شما هر پاسخ را با معادلش تو پاسخنامه مقایسه و براساس درستی یا نادرستی آن تابع مورد نظرتون رو فراخوانی کنید.



البته این کلیه سوالات و گزینه ها در یک دیتا بیس است و نمی دونم چه جوری باید شروع کرد ؟

باید دید شما به چه شکل سوالات و گزینه ها را تو table تون ثبت کردید.و چطور پاسخ سوالات رو می گیرید (با توجه به تعداد زیاد شرکت کنندگان آزمون )
بعبارتی طراحی شما به چه صورتی بوده است

[Valadi]

تشکر از شما دوستان عزیز
راستش من نمیدونم از کجا شروع کنم و هنوز هم table ایجاد نکردم و از شما درخواست کمک دارم که چه جوری و از کجا شروع کنم اگر امکان دارد یک نمونه سورس که مشکلات احتمالی حل شود .

[vesal]

این یک مثال البته اگه غیر متعارفه لطفا ایراد نگیرید.

این مال فرم

object Form1: TForm1
Left = 194
Top = 114
Width = 513
Height = 491
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object RadioGroup1: TRadioGroup
Left = 312
Top = 8
Width = 185
Height = 105
BiDiMode = bdRightToLeft
Caption = 'RadioGroup1'
Font.Charset = ARABIC_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Items.Strings = (
'Òíäå Çæá'
'Òíäå Ïæã'
'Òíäå Óæã'
'Òíäå åÇÑã')
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
OnClick = RadioGroup1Click
end
object RadioGroup2: TRadioGroup
Left = 312
Top = 120
Width = 185
Height = 105
BiDiMode = bdRightToLeft
Caption = 'RadioGroup2'
Font.Charset = ARABIC_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Items.Strings = (
'Òíäå Çæá'
'Òíäå Ïæã'
'Òíäå Óæã'
'Òíäå åÇÑã')
ParentBiDiMode = False
ParentFont = False
TabOrder = 1
OnClick = RadioGroup2Click
end
object RadioGroup3: TRadioGroup
Left = 312
Top = 232
Width = 185
Height = 105
BiDiMode = bdRightToLeft
Caption = 'RadioGroup3'
Font.Charset = ARABIC_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Items.Strings = (
'Òíäå Çæá'
'Òíäå Ïæã'
'Òíäå Óæã'
'Òíäå åÇÑã')
ParentBiDiMode = False
ParentFont = False
TabOrder = 2
OnClick = RadioGroup3Click
end
object RadioGroup4: TRadioGroup
Left = 312
Top = 344
Width = 185
Height = 105
BiDiMode = bdRightToLeft
Caption = 'RadioGroup4'
Font.Charset = ARABIC_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Items.Strings = (
'Òíäå Çæá'
'Òíäå Ïæã'
'Òíäå Óæã'
'Òíäå åÇÑã')
ParentBiDiMode = False
ParentFont = False
TabOrder = 3
OnClick = RadioGroup4Click
end
object ListBox1: TListBox
Left = 8
Top = 8
Width = 193
Height = 65
ItemHeight = 13
Items.Strings = (
'2'
'4'
'2'
'1')
TabOrder = 4
end
object ListBox2: TListBox
Left = 8
Top = 80
Width = 193
Height = 217
ItemHeight = 13
TabOrder = 5
end
object Button1: TButton
Left = 8
Top = 304
Width = 75
Height = 25
Caption = 'Test'
TabOrder = 6
OnClick = Button1Click
end
end

این هم کد برنامه

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
RadioGroup4: TRadioGroup;
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure RadioGroup4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
a: array [0..3] of Boolean; { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = strtoint(ListBox1.Items.Strings[0])-1 then a[0]:=true else a[0]:=false;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex = strtoint(ListBox1.Items.Strings[1])-1 then a[1]:=true else a[1]:=false;
end;

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
if RadioGroup3.ItemIndex = strtoint(ListBox1.Items.Strings[2])-1 then a[2]:=true else a[2]:=false;
end;

procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
if RadioGroup4.ItemIndex = strtoint(ListBox1.Items.Strings[3])-1 then a[3]:=true else a[3]:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox2.Items.Clear;
for i:=0 to 3 do
begin
if a[i]=true then ListBox2.Items.Add('Question '+IntToStr(i+1)+' is True')
else
ListBox2.Items.Add('Question '+IntToStr(i+1)+' is false')
end
end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.