Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [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

Text zeilenweise ausgeben (mit Mausabfrage)

Uploader:AdministratorSebastian
Datum/Zeit:25.04.2009 14:23:23

'Beispielprogramm für Forenthread
' http://forum.qbasic.at/viewtopic.php?t=6445
'Getestet mit FreeBASIC 0.20.0 (Windows)
'Erstellt am 25.04.2009

DIM Zeile(1 To 8) As String

Zeile(1) = "Fest gemauert in der Erden"
Zeile(2) = "Steht die Form aus Lehm gebrannt."
Zeile(3) = "Heute muss die Glocke werden!"
Zeile(4) = "Frisch, Gesellen, seid zur Hand!"
Zeile(5) = "Von der Stirne hei"+chr(225)
Zeile(6) = "Rinnen muss der Schwei"+chr(225)+","
Zeile(7) = "Soll das Werk den Meister loben;"
Zeile(8) = "Doch der Segen kommt von oben."

Dim As Integer i, x, y, t

For i = 1 To 8
    PRINT Zeile(i)
    Do
        SLEEP 1 'Programm für 1ms warten lassen => CPU-Auslastung senken
        GetMouse x,y,,t 'Maus abfragen
        If (t And 1) Then 'Linke Maustaste wird gedrückt!
            Do 'Warten, bis die Taste wieder losgelassen wurde
                Sleep 1
                GetMouse x,y,,t
                if t = 0 then exit do
            Loop
            Exit Do 'Warteschleife verlassen
        End If
        If Inkey <> "" Then End
    Loop
Next i

End