Multimediale Speisekarte

[uthred]

Hi,
Ich bin gerade dabei für mein Praktikum eine auditive bis multimediale Speisekarte mit Lazarus zu schreiben.
Das Grundgerüst ist fertig da ich allerdings noch nicht all zu lange programmiere( 5 Wochen) weiß ich nicht wie ich das ganze verbinde.
Also lautet meine Frage wie verbinde ich das gesprochene in einzelnen Aufnahmen gespeicherte Essen mit den Individuellen Auswahlpunkten ( Ich benutze TCheckgroups, TRadiogroups, Toggleboxes.
Ich habe vor das zu erst ein einleitungsmusik("Hallo ich hätte gerne ...") gespielt wird und dann das ausgewählte Essen (... Schnitzel...), die Extras ( ...mit Pommes, Salat,etc. ...) Die Größe (... XXL ...) und am Ende ein Danke Satz (... Danke)
Ich habe schon das Grundgerüst und den Abbreche button.

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckGroup1: TCheckGroup;
    RadioButton1: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    ToggleBox1: TToggleBox;
    ToggleBox2: TToggleBox;
    ToggleBox3: TToggleBox;
    ToggleBox4: TToggleBox;
    ToggleBox5: TToggleBox;
    ToggleBox6: TToggleBox;
    ToggleBox7: TToggleBox;
    procedure reset(Sender: TObject);
    procedure send(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.reset(Sender: TObject);
begin
  CheckBox1.Checked := false;
  CheckBox2.Checked := false;
  CheckBox3.Checked := false;
  CheckBox4.Checked := false;
  CheckBox5.Checked := false;
  CheckBox6.Checked := false;
  CheckBox7.Checked := false;
  CheckBox8.Checked := false;
  CheckBox9.Checked := false;
  CheckBox10.Checked := false;
  CheckBox11.Checked := false;
  CheckBox12.Checked := false;
  ToggleBox1.Checked := false;
  ToggleBox2.Checked := false;
  ToggleBox3.Checked := false;
  ToggleBox4.Checked := false;
  ToggleBox5.Checked := false;
  ToggleBox6.Checked := false;
  ToggleBox7.Checked := false;
  RadioButton1.Checked := false;
  RadioButton2.Checked := false;
  RadioButton3.Checked := false;
  RadioButton4.Checked := false;
  RadioButton5.Checked := false;
  RadioButton6.Checked := false;
  RadioButton7.Checked := false;
  RadioButton8.Checked := false;
  RadioButton9.Checked := false;
  RadioButton10.Checked := false;
  RadioButton11.Checked := false;
  RadioButton12.Checked := false;
  RadioButton13.Checked := false;
  RadioButton14.Checked := false;
  RadioButton15.Checked := false;
  RadioButton16.Checked := false;
  RadioButton17.Checked := false;
  RadioButton18.Checked := false;
  RadioButton19.Checked := false;
  RadioButton10.Checked := false;
end;
 
procedure TForm1.send(Sender: TObject);
begin
 
end;
 
initialization
  {$I unit1.lrs}
 
end.

[theo]

Verstehe die Frage nicht so ganz. Arbeitest du mit einer Datenbank?

Vllt. solltest du auch erst einmal ein bisschen Grundlagen lernen.
Hier gibt's ein paar Delphi Tutorials für Einsteiger:
http://www.delphi-treff.de/tutorials/grundlagen/

[uthred]

Grundlagen sind immer gut aber Delphi verwendet eine DLL die in Lazarus nicht funktioniert

[theo]

Grundlagen sind immer gut aber Delphi verwendet eine DLL die in Lazarus nicht funktioniert

Ich weiss zwar nicht was du meinst, aber was hat das mit dem Tutorial zu tun?
Die Sprache ist ja fast identisch, viele Komponenten auch.

[Teekeks]

Abspielen kannst du deine Töne z.B. mit dem PLXINE-Player (suche mal hier im Forum danach).
Ich vermute das die dll die du meinst die bass.dll ist. Die geht auch unter Lazarus, allerdings nicht unter Linux, Mac usw.

[LexXis]

[...] Die geht auch unter Lazarus, allerdings nicht unter Linux, Mac usw.

Kurze Korrektur: Unter Linux geht die sehr wohl

[pluto]

Ich vermute das die dll die du meinst die bass.dll ist. Die geht auch unter Lazarus, allerdings nicht unter Linux, Mac usw.

Ich habe damit auch gute Erfahrung gemacht unter Linux.... Sogar der Midi Bereich geht, Problemlos.

[Teekeks]

Gut. Ich wusste nicht das es eine bass.so gibt

Dann habt ihr natürlich recht

[pluto]

@uthred
Kleiner Tipp noch am Rande:

Code: Alles auswählen

CheckBox1.Checked := false;
CheckBox2.Checked := false;
CheckBox3.Checked := false;
CheckBox4.Checked := false;
CheckBox5.Checked := false;
CheckBox6.Checked := false;
CheckBox7.Checked := false;
CheckBox8.Checked := false;

Geht auch einfacher. Z.B. könntest du in mehren Schleife mit FindComponent, die Entsprechenden Komponenten auf False stellen. Z.B. alle CheckBoxen, RadioBoxen und so weiter.
Einfacher geht es mit der RTTI. Hier könntest du Prüfen ob es die Eigenschaft gibt. Wenn ja, setzte sie auf False oder True.
Wie das geht wird z.b. hier gezeigt: http://www.swissdelphicenter.ch/de/showcode.php?id=366 Meiner Meinung nach müsste der Code ohne Größere Probleme laufen.
(Musst nur die Entsprechende Unit einbinden, welche das sind verrate ich mal nicht *G*) Müsstest du vielleicht noch für deinen Zweck anpassen.