Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Testprogramm für Forenbenutzer "Kantan"

Uploader:AdministratorSebastian
Datum/Zeit:28.06.2008 20:27:36

'Antwort auf http://forum.qbasic.at/viewtopic.php?t=5754

'Der Übersichtlichkeit wegen habe ich die Deklarationen alle an den
'Anfang vorgezogen.
Dim wahl As String
Dim Benutzereingabe As Integer
Dim Preise(1 To 10) As Single

Preise(1) = 8.50
Preise(2) = 0.96
Preise(3) = 7.96
Preise(4) = 3.45
Preise(5) = 4.77
Preise(6) = 4.02
Preise(7) = 5.64
Preise(8) = 9.99
Preise(9) = 4.55
Preise(10) = 1.01

Width 50, 50
Color 14, 4
Cls
Locate 5, 22
Print "->Kasse<-"

Locate 8, 8
Input "Vorname des Kassierers: ", wahl

'Korrigierte IF-Verzweigung:

If wahl = "Heinz" Then
    Locate 8, 8
    Input "Welchen Preis moechten sie abrufen? ", Benutzereingabe
    Locate 10, 8
    Print "Das Produkt mit der Nummer "; Benutzereingabe
    Locate 12, 8
    Print "kostet "; Preise(Benutzereingabe); " Euro."
Else
    Locate 8,8
    Print "Falscher Benutzername!             "
End If

Sleep
End