StringGrid1->Cells[j][i]=InputBox("Reihe "+IntToStr(i+1)+", Spalte "+IntToStr(j+1),"Zahl eingeben:","");
Für ein (kleineres) Sommertheater soll ein Kartenverkaufssystem programmiert werden.
Das Theater hat 18 Reihen zu je 10 Plätzen.
Für Reihe 1 - 6 zahlt man 30€.
Für Reihe 7 - 12 zahlt man 20€.
Für Reihe 13 - 18 zahlt man 10€.
Das Programm soll folgende Punkte umfassen:
Button „Neue Vorstellung“ (Feld wird neu initialisiert)
Button „Kartenverkauf“ (Nach Eingabe des gewünschten Platzes (Reihe, Sitz) soll dieser gebucht werden. Wenn er schon verkauft ist, soll eine entsprechende Meldung ausgegeben werden.
Button „Storno“ (Nach Eingabe des gewünschten Platzes (Reihe, Sitz) soll der gebuchte Platz wieder storniert werden. Wenn der Platz noch nicht verkauft wurde, soll eine entsprechende Meldung ausgegeben werden.
Button „Einnahmen“ (Die bisherigen Einnahmen sollen berechnet werden.)
Im StringGrid sollen entsprechende Zeichen (z.B. X oder 0 oder ähnliches) für „verkauft“ bzw. „frei“ eingegeben werden.
Bonus: