AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Brauche dringend Hilfe

Ein Thema von LDProgrammierer · begonnen am 24. Aug 2010 · letzter Beitrag vom 27. Aug 2010
 
LDProgrammierer

Registriert seit: 16. Aug 2010
10 Beiträge
 
Delphi 7 Enterprise
 
#1

Brauche dringend Hilfe

  Alt 24. Aug 2010, 14:00
Hallo Leute, ich möchte ein Programm schreiben bei dem der Computer zwei zufällige Zahlen generieren soll, und man dan z.B über ein Edit-Feld die Summe der beiden Zahlen eingeben muss, wobei dann entsprechend eine Antowrt RICHTIG, oder FALSCH angezeigt wird.

Delphi-Quellcode:
unit AUFGABEN;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    XPManifest1: TXPManifest;
    Label3: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a, b, c : Integer;
implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
randomize;
a := random(100);
b := random(100);
Label2.Caption := IntToStr(a);
Label5.Caption := IntToStr(b);
Label1.Caption := ' Hol dir eine neue Aufgabe oder wähle die Rechenart';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
edit1.Text:=IntToStr(c);
if (c = (a+b)) then Label3.Caption := 'RICHTIG !!!else Label3.Caption := 'FALSCH !!!';
except
Label3.Caption := 'Gib nur Zahlen ein !!!';
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
try
edit1.Text:= IntToStr(c);
if (c = (a-b)) then Label3.Caption := 'RICHTIG !!!else Label3.Caption:= 'FALSCH !!!';
except
Label3.Caption:= 'Gib nur Zahlen ein';
end;
end;
end.
also wenn man auf Label1 klickt werden die Zahlen generiert, so weit klappt es , wenn ich jedoch das Ergebnis eingbe und auf z.b + klicke , dann wird die Eingabe zu null und FALSCH wir angezeigt. Beim ersten Bild habe ich das Programm gestartet beim zweiten habe ich die Zahlen generieren lassen, und in 3 habe ich die Summe eingegeben, im vierten Bild habe ich bereits auf + geklickt, und das geschah dann so. Bitte ich brauche dringend Hilfe, was mache ich falsch, ich denke schon seit über einer Stunde nach was ich tun kann aber nichts klappt mfg.
Angehängte Grafiken
Dateityp: jpg 1.jpg (20,4 KB, 24x aufgerufen)
Dateityp: jpg 2.jpg (24,3 KB, 19x aufgerufen)
Dateityp: jpg 3.jpg (24,2 KB, 17x aufgerufen)
Dateityp: jpg 4.jpg (27,2 KB, 20x aufgerufen)

Geändert von LDProgrammierer (24. Aug 2010 um 14:16 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz