Jeg har heller ikke set et sådant program til download nogen steder - men hvis der er tale om et simpelt program, der kun skal bruges til det formål, så kan jeg da evt. også lave et...
prgrammet skal kunne: Sådan at den viser hele den lille tabel i en tabel, altså fra 1*1 til 10*10 (uden resultaterne fra starten)og så går den vilkårligt rundt og spørger om svaret. svarer man rigtigt skriver den svaret ind på det's plads og efterhånden får man så fyldt hele tabellen ud. hvis man svarer forkert på et spørgsmål springer den videre til et andet og tar dem så indtil man har udfyldt hele tabellen.
børneprogram? der skal ihvertfald ikke være porno i det og det skal kun bruges af 1-2 personer. P.S. hvordan er det nu lige man giver flere point. hvor mane points skal du have??
De andre kan eller vil åbenbart ikke, så jeg har lavet et lille program til dig.
Du kan vælge fra 1-10 tabellen og fra 1-20 tabellen.
Svarene bliver summeret op i en statistik for hver gang man bruger programmet og hvert gangestykke med svar og resultat vises i en listboks sådan at man kan gå tilbage og se hvilke der var rigtige og hvilke der var forkerte.
Og man kan vælge mellem at vente 3, 6 elle 9 sekunder mellem gangestykkerne.
Så nu mangler jeg bare en mailadresse jeg kan sende det til. Jeg har skrevet programmet i Delphi og vil gerne vise hele programmer her som svar, men det kan du vel ikke bruge til noget.
Og til andre der evt. måtte være interesseret, skriv en mailid, så sender jeg en kopi til jer også.
NB! Skriv også lige om du/I vil have programmet som en exe-fil (ca. 357 kb) eller i zippet-format (ca. 184kb).
nu hvor jeg har læst dine svar til de andre kan jeg se at det lille program jeg har lavet ikke er helt som du beskriver du gerne vil have det. Jeg laver lige et andet så kan du få det også.
Hvis jeg nogenside får mig snøvlet sammen til at lave min hjemmeside færdig kan jeg lægge det der, til download (Med credits selvføjelig) men kun hvis du er interesseret....
Delphi er ikke sværere at lære end alle andre programmeringssprog. Og fordelen ved netop Delphi er at der er så mange der kan og bruger det så man er aldrig helt alene. Se bare på Delphi kategorien herinde.
For at alle andre også kan se koden kommer den her, men hvis nogen vil have den tilsendt, så bare sig til. Koden er i D3 og gælder det andet program jeg lavede og som thoeger25 som det "sidste":
dpr-filen: program GangeTabel;
uses Forms, Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
var Form1 : TForm1; t_brug : array[1..10,1..10] of boolean; antal_svar : integer; antal_rigt : integer; antal_fork : integer; pct_rigt : integer; pct_fork : integer; tabel, tal : integer;
implementation
{$R *.DFM}
procedure TForm1.saet_spm(j, x, y : integer); var i : integer; n : string; begin n := 'l'+inttostr(x)+'_'+inttostr(y); for i := 1 to form1.componentcount -1 do begin if form1.components[i].name = n then begin if j = 0 then (form1.components[i] as TLabel).color := clBtnFace else (form1.components[i] as TLabel).color := clWhite; end; end; end;
procedure TForm1.init_felter; var i,x,y : integer; n,m : string; begin for x := 1 to 10 do begin for y := 1 to 10 do begin n := 'l'+inttostr(x)+'_'+inttostr(y); m := 'r'+inttostr(x)+'_'+inttostr(y); for i := 1 to form1.componentcount -1 do begin if (form1.components[i].name = n) then begin (form1.components[i] as TLabel).color := clBtnFace; (form1.components[i] as TLabel).font.color := clWindowText; end; if (form1.components[i].name = m) then begin (form1.components[i] as TLabel).color := clBtnFace; (form1.components[i] as TLabel).font.color := clWindowText; (form1.components[i] as TLabel).caption := ''; end; end; end; end; end;
procedure TForm1.saet_svar(j, x, y : integer); var i : integer; n : string; begin n := 'r'+inttostr(x)+'_'+inttostr(y);
for i := 1 to form1.componentcount -1 do begin if form1.components[i].name = n then begin (form1.components[i] as TLabel).caption := inttostr(j); if (j = x*y) then begin (form1.components[i] as TLabel).color := clLime; antal_rigt := antal_rigt + 1; Lrig.caption := inttostr(antal_rigt); end else begin (form1.components[i] as TLabel).color := clred; (form1.components[i] as TLabel).font.color := clwhite; antal_fork := antal_fork+ 1; Lfor.caption := inttostr(antal_fork); end; prig.caption := inttostr(trunc((antal_rigt / antal_svar) * 100)); pfor.caption := inttostr(trunc((antal_fork / antal_svar) * 100)); end; end; edit1.text := ''; end;
procedure TForm1.find_spm; begin repeat repeat tabel := random(11); until (tabel <> 0) and (tabel <> 11); repeat tal := random(11); until (tal <> 0) and (tal <> 11); label13.caption := inttostr(tabel); label14.caption := inttostr(tal); until not t_brug[tabel,tal]; saet_spm(1, tabel, tal); t_brug[tabel,tal] := true; edit1.setfocus; end;
procedure TForm1.init_skrm; var x,y : integer; begin randomize; for x := 1 to 10 do begin for y := 1 to 10 do begin t_brug[x,y] := false; end; end; init_felter; antal_svar := 0; antal_rigt := 0; antal_fork := 0; pct_rigt := 0; pct_fork := 0; tabel := 0; tal := 0; lsvar.caption := ''; lrig.caption := ''; lfor.caption := ''; prig.caption := ''; pfor.caption := ''; end;
procedure TForm1.FormCreate(Sender: TObject); begin top := 0; left := 0; end;
procedure TForm1.FormShow(Sender: TObject); begin init_skrm; find_spm; end;
procedure TForm1.slutbtnClick(Sender: TObject); begin close; end;
procedure TForm1.svarbtnClick(Sender: TObject); var c : integer; begin try c := strtoint(edit1.text); except on exception do c := 0; end; antal_svar := antal_svar + 1; saet_svar(c, tabel, tal); Lsvar.Caption := inttostr(antal_svar); saet_spm(0, tabel, tal); if antal_svar = 100 then begin edit1.Enabled := false; svarbtn.enabled := false; end else begin find_spm; end; end;
end.
dfm-filen: object Form1: TForm1 Left = 248 Top = 132 Width = 705 Height = 546 Caption = 'Gangetabel Program, version 0.1b - 19.03.2000 - by sjensen' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = ' 1-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l1_1: TLabel Left = 16 Top = 80 Width = 80 Height = 13 Caption = ' 1 * 1 = ' end object r1_1: TLabel Left = 104 Top = 80 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_2: TLabel Left = 16 Top = 96 Width = 80 Height = 13 Caption = ' 1 * 2 = ' end object r1_2: TLabel Left = 104 Top = 96 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_3: TLabel Left = 16 Top = 112 Width = 80 Height = 13 Caption = ' 1 * 3 = ' end object r1_3: TLabel Left = 104 Top = 112 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_4: TLabel Left = 16 Top = 128 Width = 80 Height = 13 Caption = ' 1 * 4 = ' end object r1_4: TLabel Left = 104 Top = 128 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_5: TLabel Left = 16 Top = 144 Width = 80 Height = 13 Caption = ' 1 * 5 = ' end object r1_5: TLabel Left = 104 Top = 144 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_6: TLabel Left = 16 Top = 160 Width = 80 Height = 13 Caption = ' 1 * 6 = ' end object r1_6: TLabel Left = 104 Top = 160 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_7: TLabel Left = 16 Top = 176 Width = 80 Height = 13 Caption = ' 1 * 7 = ' end object r1_7: TLabel Left = 104 Top = 176 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_8: TLabel Left = 16 Top = 192 Width = 80 Height = 13 Caption = ' 1 * 8 = ' end object r1_8: TLabel Left = 104 Top = 192 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_9: TLabel Left = 16 Top = 208 Width = 80 Height = 13 Caption = ' 1 * 9 = ' end object r1_9: TLabel Left = 104 Top = 208 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l1_10: TLabel Left = 16 Top = 224 Width = 80 Height = 13 Caption = ' 1 * 10 = ' end object r1_10: TLabel Left = 104 Top = 224 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label2: TLabel Left = 16 Top = 256 Width = 121 Height = 13 AutoSize = False Caption = ' 6-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l6_1: TLabel Left = 16 Top = 280 Width = 80 Height = 13 Caption = ' 6 * 1 = ' end object r6_1: TLabel Left = 104 Top = 280 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_2: TLabel Left = 16 Top = 296 Width = 80 Height = 13 Caption = ' 6 * 2 = ' end object r6_2: TLabel Left = 104 Top = 296 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_3: TLabel Left = 16 Top = 312 Width = 80 Height = 13 Caption = ' 6 * 3 = ' end object r6_3: TLabel Left = 104 Top = 312 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_4: TLabel Left = 16 Top = 328 Width = 80 Height = 13 Caption = ' 6 * 4 = ' end object r6_4: TLabel Left = 104 Top = 328 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_5: TLabel Left = 16 Top = 344 Width = 80 Height = 13 Caption = ' 6 * 5 = ' end object r6_5: TLabel Left = 104 Top = 344 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_6: TLabel Left = 16 Top = 360 Width = 80 Height = 13 Caption = ' 6 * 6 = ' end object r6_6: TLabel Left = 104 Top = 360 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_7: TLabel Left = 16 Top = 376 Width = 80 Height = 13 Caption = ' 6 * 7 = ' end object r6_7: TLabel Left = 104 Top = 376 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_8: TLabel Left = 16 Top = 392 Width = 80 Height = 13 Caption = ' 6 * 8 = ' end object r6_8: TLabel Left = 104 Top = 392 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_9: TLabel Left = 16 Top = 408 Width = 80 Height = 13 Caption = ' 6 * 9 = ' end object r6_9: TLabel Left = 104 Top = 408 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l6_10: TLabel Left = 16 Top = 424 Width = 80 Height = 13 Caption = ' 6 * 10 = ' end object r6_10: TLabel Left = 104 Top = 424 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label23: TLabel Left = 152 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = ' 2-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l2_1: TLabel Left = 152 Top = 80 Width = 80 Height = 13 Caption = ' 2 * 1 = ' end object r2_1: TLabel Left = 240 Top = 80 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_2: TLabel Left = 152 Top = 96 Width = 80 Height = 13 Caption = ' 2 * 2 = ' end object r2_2: TLabel Left = 240 Top = 96 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_3: TLabel Left = 152 Top = 112 Width = 80 Height = 13 Caption = ' 2 * 3 = ' end object r2_3: TLabel Left = 240 Top = 112 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_4: TLabel Left = 152 Top = 128 Width = 80 Height = 13 Caption = ' 2 * 4 = ' end object r2_4: TLabel Left = 240 Top = 128 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_5: TLabel Left = 152 Top = 144 Width = 80 Height = 13 Caption = ' 2 * 5 = ' end object r2_5: TLabel Left = 240 Top = 144 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_6: TLabel Left = 152 Top = 160 Width = 80 Height = 13 Caption = ' 2 * 6 = ' end object r2_6: TLabel Left = 240 Top = 160 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_7: TLabel Left = 152 Top = 176 Width = 80 Height = 13 Caption = ' 2 * 7 = ' end object r2_7: TLabel Left = 240 Top = 176 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_8: TLabel Left = 152 Top = 192 Width = 80 Height = 13 Caption = ' 2 * 8 = ' end object r2_8: TLabel Left = 240 Top = 192 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_9: TLabel Left = 152 Top = 208 Width = 80 Height = 13 Caption = ' 2 * 9 = ' end object r2_9: TLabel Left = 240 Top = 208 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l2_10: TLabel Left = 152 Top = 224 Width = 80 Height = 13 Caption = ' 2 * 10 = ' end object r2_10: TLabel Left = 240 Top = 224 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label44: TLabel Left = 288 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = ' 3-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l3_1: TLabel Left = 288 Top = 80 Width = 80 Height = 13 Caption = ' 3 * 1 = ' end object r3_1: TLabel Left = 376 Top = 80 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_2: TLabel Left = 288 Top = 96 Width = 80 Height = 13 Caption = ' 3 * 2 = ' end object r3_2: TLabel Left = 376 Top = 96 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_3: TLabel Left = 288 Top = 112 Width = 80 Height = 13 Caption = ' 3 * 3 = ' end object r3_3: TLabel Left = 376 Top = 112 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_4: TLabel Left = 288 Top = 128 Width = 80 Height = 13 Caption = ' 3 * 4 = ' end object r3_4: TLabel Left = 376 Top = 128 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_5: TLabel Left = 288 Top = 144 Width = 80 Height = 13 Caption = ' 3 * 5 = ' end object r3_5: TLabel Left = 376 Top = 144 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_6: TLabel Left = 288 Top = 160 Width = 80 Height = 13 Caption = ' 3 * 6 = ' end object r3_6: TLabel Left = 376 Top = 160 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_7: TLabel Left = 288 Top = 176 Width = 80 Height = 13 Caption = ' 3 * 7 = ' end object r3_7: TLabel Left = 376 Top = 176 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_8: TLabel Left = 288 Top = 192 Width = 80 Height = 13 Caption = ' 3 * 8 = ' end object r3_8: TLabel Left = 376 Top = 192 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_9: TLabel Left = 288 Top = 208 Width = 80 Height = 13 Caption = ' 3 * 9 = ' end object r3_9: TLabel Left = 376 Top = 208 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l3_10: TLabel Left = 288 Top = 224 Width = 80 Height = 13 Caption = ' 3 * 10 = ' end object r3_10: TLabel Left = 376 Top = 224 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label65: TLabel Left = 424 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = ' 4-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l4_1: TLabel Left = 424 Top = 80 Width = 80 Height = 13 Caption = ' 4 * 1 = ' end object r4_1: TLabel Left = 512 Top = 80 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_2: TLabel Left = 424 Top = 96 Width = 80 Height = 13 Caption = ' 4 * 2 = ' end object r4_2: TLabel Left = 512 Top = 96 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_3: TLabel Left = 424 Top = 112 Width = 80 Height = 13 Caption = ' 4 * 3 = ' end object r4_3: TLabel Left = 512 Top = 112 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_4: TLabel Left = 424 Top = 128 Width = 80 Height = 13 Caption = ' 4 * 4 = ' end object r4_4: TLabel Left = 512 Top = 128 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_5: TLabel Left = 424 Top = 144 Width = 80 Height = 13 Caption = ' 4 * 5 = ' end object r4_5: TLabel Left = 512 Top = 144 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_6: TLabel Left = 424 Top = 160 Width = 80 Height = 13 Caption = ' 4 * 6 = ' end object r4_6: TLabel Left = 512 Top = 160 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_7: TLabel Left = 424 Top = 176 Width = 80 Height = 13 Caption = ' 4 * 7 = ' end object r4_7: TLabel Left = 512 Top = 176 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_8: TLabel Left = 424 Top = 192 Width = 80 Height = 13 Caption = ' 4 * 8 = ' end object r4_8: TLabel Left = 512 Top = 192 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_9: TLabel Left = 424 Top = 208 Width = 80 Height = 13 Caption = ' 4 * 9 = ' end object r4_9: TLabel Left = 512 Top = 208 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l4_10: TLabel Left = 424 Top = 224 Width = 80 Height = 13 Caption = ' 4 * 10 = ' end object r4_10: TLabel Left = 512 Top = 224 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label86: TLabel Left = 560 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = ' 5-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l5_1: TLabel Left = 560 Top = 80 Width = 80 Height = 13 Caption = ' 5 * 1 = ' end object r5_1: TLabel Left = 648 Top = 80 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_2: TLabel Left = 560 Top = 96 Width = 80 Height = 13 Caption = ' 5 * 2 = ' end object r5_2: TLabel Left = 648 Top = 96 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_3: TLabel Left = 560 Top = 112 Width = 80 Height = 13 Caption = ' 5 * 3 = ' end object r5_3: TLabel Left = 648 Top = 112 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_4: TLabel Left = 560 Top = 128 Width = 80 Height = 13 Caption = ' 5 * 4 = ' end object r5_4: TLabel Left = 648 Top = 128 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_5: TLabel Left = 560 Top = 144 Width = 80 Height = 13 Caption = ' 5 * 5 = ' end object r5_5: TLabel Left = 648 Top = 144 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_6: TLabel Left = 560 Top = 160 Width = 80 Height = 13 Caption = ' 5 * 6 = ' end object r5_6: TLabel Left = 648 Top = 160 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_7: TLabel Left = 560 Top = 176 Width = 80 Height = 13 Caption = ' 5 * 7 = ' end object r5_7: TLabel Left = 648 Top = 176 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_8: TLabel Left = 560 Top = 192 Width = 80 Height = 13 Caption = ' 5 * 8 = ' end object r5_8: TLabel Left = 648 Top = 192 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_9: TLabel Left = 560 Top = 208 Width = 80 Height = 13 Caption = ' 5 * 9 = ' end object r5_9: TLabel Left = 648 Top = 208 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l5_10: TLabel Left = 560 Top = 224 Width = 80 Height = 13 Caption = ' 5 * 10 = ' end object r5_10: TLabel Left = 648 Top = 224 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label107: TLabel Left = 152 Top = 256 Width = 121 Height = 13 AutoSize = False Caption = ' 7-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l7_1: TLabel Left = 152 Top = 280 Width = 80 Height = 13 Caption = ' 7 * 1 = ' end object r7_1: TLabel Left = 240 Top = 280 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_2: TLabel Left = 152 Top = 296 Width = 80 Height = 13 Caption = ' 7 * 2 = ' end object r7_2: TLabel Left = 240 Top = 296 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_3: TLabel Left = 152 Top = 312 Width = 80 Height = 13 Caption = ' 7 * 3 = ' end object r7_3: TLabel Left = 240 Top = 312 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_4: TLabel Left = 152 Top = 328 Width = 80 Height = 13 Caption = ' 7 * 4 = ' end object r7_4: TLabel Left = 240 Top = 328 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_5: TLabel Left = 152 Top = 344 Width = 80 Height = 13 Caption = ' 7 * 5 = ' end object r7_5: TLabel Left = 240 Top = 344 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_6: TLabel Left = 152 Top = 360 Width = 80 Height = 13 Caption = ' 7 * 6 = ' end object r7_6: TLabel Left = 240 Top = 360 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_7: TLabel Left = 152 Top = 376 Width = 80 Height = 13 Caption = ' 7 * 7 = ' end object r7_7: TLabel Left = 240 Top = 376 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_8: TLabel Left = 152 Top = 392 Width = 80 Height = 13 Caption = ' 7 * 8 = ' end object r7_8: TLabel Left = 240 Top = 392 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_9: TLabel Left = 152 Top = 408 Width = 80 Height = 13 Caption = ' 7 * 9 = ' end object r7_9: TLabel Left = 240 Top = 408 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l7_10: TLabel Left = 152 Top = 424 Width = 80 Height = 13 Caption = ' 7 * 10 = ' end object r7_10: TLabel Left = 240 Top = 424 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label128: TLabel Left = 288 Top = 256 Width = 121 Height = 13 AutoSize = False Caption = ' 8-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l8_1: TLabel Left = 288 Top = 280 Width = 80 Height = 13 Caption = ' 8 * 1 = ' end object r8_1: TLabel Left = 376 Top = 280 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_2: TLabel Left = 288 Top = 296 Width = 80 Height = 13 Caption = ' 8 * 2 = ' end object r8_2: TLabel Left = 376 Top = 296 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_3: TLabel Left = 288 Top = 312 Width = 80 Height = 13 Caption = ' 8 * 3 = ' end object r8_3: TLabel Left = 376 Top = 312 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_4: TLabel Left = 288 Top = 328 Width = 80 Height = 13 Caption = ' 8 * 4 = ' end object r8_4: TLabel Left = 376 Top = 328 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_5: TLabel Left = 288 Top = 344 Width = 80 Height = 13 Caption = ' 8 * 5 = ' end object r8_5: TLabel Left = 376 Top = 344 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_6: TLabel Left = 288 Top = 360 Width = 80 Height = 13 Caption = ' 8 * 6 = ' end object r8_6: TLabel Left = 376 Top = 360 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_7: TLabel Left = 288 Top = 376 Width = 80 Height = 13 Caption = ' 8 * 7 = ' end object r8_7: TLabel Left = 376 Top = 376 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_8: TLabel Left = 288 Top = 392 Width = 80 Height = 13 Caption = ' 8 * 8 = ' end object r8_8: TLabel Left = 376 Top = 392 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_9: TLabel Left = 288 Top = 408 Width = 80 Height = 13 Caption = ' 8 * 9 = ' end object r8_9: TLabel Left = 376 Top = 408 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l8_10: TLabel Left = 288 Top = 424 Width = 80 Height = 13 Caption = ' 8 * 10 = ' end object r8_10: TLabel Left = 376 Top = 424 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label149: TLabel Left = 424 Top = 256 Width = 121 Height = 13 AutoSize = False Caption = ' 9-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l9_1: TLabel Left = 424 Top = 280 Width = 80 Height = 13 Caption = ' 9 * 1 = ' end object r9_1: TLabel Left = 512 Top = 280 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_2: TLabel Left = 424 Top = 296 Width = 80 Height = 13 Caption = ' 9 * 2 = ' end object r9_2: TLabel Left = 512 Top = 296 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_3: TLabel Left = 424 Top = 312 Width = 80 Height = 13 Caption = ' 9 * 3 = ' end object r9_3: TLabel Left = 512 Top = 312 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_4: TLabel Left = 424 Top = 328 Width = 80 Height = 13 Caption = ' 9 * 4 = ' end object r9_4: TLabel Left = 512 Top = 328 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_5: TLabel Left = 424 Top = 344 Width = 80 Height = 13 Caption = ' 9 * 5 = ' end object r9_5: TLabel Left = 512 Top = 344 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_6: TLabel Left = 424 Top = 360 Width = 80 Height = 13 Caption = ' 9 * 6 = ' end object r9_6: TLabel Left = 512 Top = 360 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_7: TLabel Left = 424 Top = 376 Width = 80 Height = 13 Caption = ' 9 * 7 = ' end object r9_7: TLabel Left = 512 Top = 376 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_8: TLabel Left = 424 Top = 392 Width = 80 Height = 13 Caption = ' 9 * 8 = ' end object r9_8: TLabel Left = 512 Top = 392 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_9: TLabel Left = 424 Top = 408 Width = 80 Height = 13 Caption = ' 9 * 9 = ' end object r9_9: TLabel Left = 512 Top = 408 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l9_10: TLabel Left = 424 Top = 424 Width = 80 Height = 13 Caption = ' 9 * 10 = ' end object r9_10: TLabel Left = 512 Top = 424 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label170: TLabel Left = 560 Top = 256 Width = 121 Height = 13 AutoSize = False Caption = '10-tabellen ' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [fsUnderline] ParentColor = False ParentFont = False end object l10_1: TLabel Left = 560 Top = 280 Width = 80 Height = 13 Caption = '10 * 1 = ' end object r10_1: TLabel Left = 648 Top = 280 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_2: TLabel Left = 560 Top = 296 Width = 80 Height = 13 Caption = '10 * 2 = ' end object r10_2: TLabel Left = 648 Top = 296 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_3: TLabel Left = 560 Top = 312 Width = 80 Height = 13 Caption = '10 * 3 = ' end object r10_3: TLabel Left = 648 Top = 312 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_4: TLabel Left = 560 Top = 328 Width = 80 Height = 13 Caption = '10 * 4 = ' end object r10_4: TLabel Left = 648 Top = 328 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_5: TLabel Left = 560 Top = 344 Width = 80 Height = 13 Caption = '10 * 5 = ' end object r10_5: TLabel Left = 648 Top = 344 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_6: TLabel Left = 560 Top = 360 Width = 80 Height = 13 Caption = '10 * 6 = ' end object r10_6: TLabel Left = 648 Top = 360 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_7: TLabel Left = 560 Top = 376 Width = 80 Height = 13 Caption = '10 * 7 = ' end object r10_7: TLabel Left = 648 Top = 376 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_8: TLabel Left = 560 Top = 392 Width = 80 Height = 13 Caption = '10 * 8 = ' end object r10_8: TLabel Left = 648 Top = 392 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_9: TLabel Left = 560 Top = 408 Width = 80 Height = 13 Caption = '10 * 9 = ' end object r10_9: TLabel Left = 648 Top = 408 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object l10_10: TLabel Left = 560 Top = 424 Width = 80 Height = 13 Caption = '10 * 10 = ' end object r10_10: TLabel Left = 648 Top = 424 Width = 33 Height = 13 Alignment = taRightJustify AutoSize = False Color = clBtnFace ParentColor = False end object Label3: TLabel Left = 24 Top = 485 Width = 50 Height = 15 Caption = 'Resultat: ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 296 Top = 456 Width = 24 Height = 15 Caption = 'Svar' Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label5: TLabel Left = 296 Top = 472 Width = 38 Height = 15 Caption = 'Rigtige' Color = clLime Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label6: TLabel Left = 296 Top = 488 Width = 44 Height = 15 Caption = 'Forkerte' Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Lrig: TLabel Left = 344 Top = 472 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Color = clLime Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Lfor: TLabel Left = 344 Top = 488 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Lsvar: TLabel Left = 344 Top = 456 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label10: TLabel Left = 384 Top = 456 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Caption = '%' Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Prig: TLabel Left = 384 Top = 472 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Color = clLime Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Pfor: TLabel Left = 384 Top = 488 Width = 35 Height = 15 Alignment = taRightJustify AutoSize = False Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label13: TLabel Left = 88 Top = 456 Width = 25 Height = 15 Alignment = taRightJustify AutoSize = False Color = clAqua Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label14: TLabel Left = 136 Top = 456 Width = 25 Height = 15 Alignment = taRightJustify AutoSize = False Color = clAqua Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label16: TLabel Left = 120 Top = 456 Width = 5 Height = 15 Caption = 'x' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 24 Top = 456 Width = 37 Height = 15 Caption = 'Gange:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Panel1: TPanel Left = 0 Top = 0 Width = 697 Height = 41 Align = alTop Caption = 'Gangetabel Program' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 0 end object slutbtn: TBitBtn Left = 584 Top = 480 Width = 99 Height = 25 Caption = 'Slut' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = slutbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 end object Edit1: TEdit Left = 88 Top = 481 Width = 73 Height = 23 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 2 end object forfrabtn: TBitBtn Left = 472 Top = 480 Width = 99 Height = 25 Caption = 'Forfra' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = forfrabtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B555555555555555755555555} NumGlyphs = 2 end object svarbtn: TBitBtn Left = 168 Top = 480 Width = 81 Height = 25 Caption = 'Svar' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = svarbtnClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333388F3333333333000033334224333333333333 338338F3333333330000333422224333333333333833338F3333333300003342 222224333333333383333338F3333333000034222A22224333333338F338F333 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 0000333333333A222433333333333338F338F33300003333333333A222433333 333333338F338F33000033333333333A222433333333333338F338F300003333 33333333A222433333333333338F338F00003333333333333A22433333333333 3338F38F000033333333333333A223333333333333338F830000333333333333 333A333333333333333338330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end end
Det er godt nok en længere kommentar, men så er der vel ingen tvivl om at det er hjemmelavet og point er fortjent ;-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
