Kopf oder Zahl

[Peter16]

Wir müssen ein Programm für die Schule schreiben was wenn man auf Muenze werfen drückt zufällig Kopf oder zahl anzeit und über dem Label das entsprechende Bild. Kann mir jemand helfen ich weiß echt nicht mehr weiter. BITTE

[edit=SirThornberry]Titel korrigiert da alle Themen gleich wichtig sind - Mfg, SirThornberry[/edit]

[Die Muhkuh]

Da Dein Post so aussagekräftig sind, wie zwei Cornflakes in einer Schüssel Milch: Nö. :zwinker:

[Peter16]

ich hab echt keine idee wie ich das machen könnte

[Klaus01]

Hallo,

wo hakt es denn?

Einen Zufallswert zu bestimmen? 0 = Kopf 1 = Zahl?

Ein Bild (jpg, bmp) in ein TImage zu laden.

Beschreibe Dein Probelm etwas präzieser.

Grüße
Klaus

[Die Muhkuh]

Zitat:

Zitat von Peter16

ich hab echt keine idee wie ich das machen könnte

Ich hab echt keine Idee, wie man Dir helfen soll, wenn man nicht weiß, wo es klemmt. Siehe Klaus.

[lbccaleb]

ZB folgende Stichworte bei der Suche benutzen:

TLabel
TImage
Random
Randomize


das ist alles ;)


OK Google Bildersuche noch nach deinen Bildchen ;)

[Peter16]

genau so soll es sein:
Einen Zufallswert zu bestimmen? 0 = Kopf 1 = Zahl!

Ein Bild (jpg, bmp) in ein TImage zu laden.
DAs ma praktisch auf Muenze werfen drückt und es erscheint per Zufall ein Label mit Kopf und Zahl und dem dazu gehörigen Bild.

[Die Muhkuh]

Und was hast Du bisher gemacht? Nichts?

[Peter16]

doch bin die ganze zeit an case ... of verzweifelt

[lbccaleb]

Wofür ein Case??

[Peter16]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    LKopftoderZahl: TLabel;
    BBeenden: TButton;
    BMuenzewerfen: TButton;
    LKopf: TLabel;
    procedure BBeendenClick(Sender: TObject);
    procedure BMuenzewerfenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  operation: integer;

implementation

{$R *.dfm}

procedure TForm1.BBeendenClick(Sender: TObject);
begin
  close
end;

procedure TForm1.BMuenzewerfenClick(Sender: TObject);
begin
//zufällige Operation
  operation := random(2) + 1;
  case operation of
    1 : LKopf.Caption := 'Kopf';
    2 : LKopf.Caption := 'Zahl';
  end;
end;

initialization
  Randomize;
end.

[edit=alzaimar] Randomize nur 1x aufrufen lassen, Delphi-Tags hinzugefügt und Code formatiert. Mfg, alzaimar[/edit]

[Peter16]

*das hab ich bis jetzt geschafft

[jfheins]

Ich hab da unter Zuhilfenahme von Quantenphysik eine Datei generiert, die das gewünschte Verhalten zeigt:

Doch Vorsicht: In der Datei ist eine Superposition dieser beiden Zustände enthalten - eine Betrachtung führt unweigerlich zum irreversiblen Kollaps der Wellenfunktion durch welchen das Ergebnis festgelegt wird :!:

Jede weitere Betrachtung wird nur das Ergebnis der ersten Betrachtung erbringen, da die Wellenfunktion kollabiert ist.

MfG

[DP-Maintenance]

Dieses Thema wurde von "alzaimar" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Is ne Delphi-Frage

[Peter16]

kann mir jemand den entsprechenden Quellcode mal geben den ich bräuchte wenn ich alles richtig mache.

[Peter16]

ich weiß ein fach nicht mehr weiter! bitte helft mir

[Die Muhkuh]

Die Abgabe scheint wohl übermorgen zu sein?

[Peter16]

genau :-D

[DeddyH]

Die halbe Aufgabe hast Du doch schon gemeistert, jetzt musst Du doch nur noch das entsprechende Bild in ein TImage laden. Das kannst Du gleich im case mit erledigen.

[Peter16]

aber da ist noch ein problem dirn wenn ich auf play gehe dann kan ich 3 mal auf münze werfen gehen beim 4 mal passiert nichts und dann geht's wieder ein paar mal??????

[Klaus01]

Zitat:

Zitat von Peter16

aber da ist noch ein problem dirn wenn ich auf play gehe dann kan ich 3 mal auf münze werfen gehen beim 4 mal passiert nichts und dann geht's wieder ein paar mal??????

Was meinst Du denn mit "ein paar mal geht es dann wieder"?

Du kanst doch nicht erwarten, das wenn Du aus zwei Werten einen zufälligen auswählst
das dieser immer vom vorherigen Wert abweicht.

Grüße
Klaus

[DeddyH]

Vielleicht wirfst Du halt ein paar Mal nacheinander dasselbe (die Alternativen sind schließlich recht begrenzt) und siehst nur deshalb nichts? Ein Breakpoint oder zum Testen ein ShowMessage sollten hier Klarheit schaffen.

[Peter16]

danke und ich hab die ganze zeit gedacht ich hab ein programmierfehler. danke danke
jetzt muss ich das nur noch mit den bildern hinbekommen kann mir jemand helfen?

[DeddyH]

Wo hängt es denn?

[Klaus01]

wenn es denn eine Bitmap (bmp) ist,

Delphi-Quellcode:

Image1.Picture.Bitmap.loadfromFile(FileName);

Grüße
Klaus

[Peter16]

mit den bildern das ich die in das case irgendwie mit reinbekomme. ich schaff es einfach nicht.
wie lass ich es gleichzeitig mit dem label anziegen?

[DeddyH]

Delphi-Quellcode:

case bla of
  blubb: 
    begin
      Anweisung1;
      Anweisung2;
    end;
  blabber: 
    begin
      Anweisung1;
      Anweisung2;
    end;
end;

[Klaus01]

Grundlagen!

Delphi-Quellcode:

procedure TForm1.BMuenzewerfenClick(Sender: TObject);
begin
//zufällige Operation
  operation := random(2) + 1;
  case operation of
    1 : begin
          LKopf.Caption := 'Kopf';
          // Bild laden
        end;
    2 : begin
          LKopf.Caption := 'Zahl';
          // anderes Bild laden
        end;
  end;
end;

[Peter16]

:-D :-D danke danke für eure hilfe bin froh das jetzt alle funktioniert :-D
weiter so!

[DeddyH]

Zitat:

Zitat von Peter16

weiter so!

Wir geben uns Mühe :lol:

[Angel4585]

Man aus dem Kopf oder Zahl hätte man was schönes wie mit dem "Zahl negieren" machen können :lol:

[Luckie]

Was willst du denn jetzt noch mehr? Du musst doch jetzt nur noch bei den zwei Fällen das Anzeigen der Bilder hinzufügen?

[Die Muhkuh]

Zitat:

Zitat von Luckie

Was willst du denn jetzt noch mehr? Du musst doch jetzt nur noch bei den zwei Fällen das Anzeigen der Bilder hinzufügen?

Es funktioniert doch jetzt alles? :gruebel:

[Matze]

Zitat:

Zitat von Peter16

:-D :-D danke danke für eure hilfe bin froh das jetzt alle funktioniert :-D
weiter so!

Er will nicht noch mehr, Michael. ;)

[DeddyH]

[OT] Irgendwie ist der Luckie heute voll neben der Spur :roll: [/OT]

[Luckie]

Äh, nun ja, ich glaube, ich habe da eine ganze Threadseite übersehen. :duck:

[DeddyH]

Schon zum 2. Mal heute :zwinker:

[Luckie]

Was? Wo denn schon mal?

[DeddyH]

Hier

[Matze]

Da. Aber ist doch egal, jeder wird älter.

Edit: Und ich werde immer langsamer. Das 3. Mal heute, dass ich zu spät war...