Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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

Für Emporea

Uploader:RedakteurMOD
Datum/Zeit:04.09.2011 19:07:51

Dim text As String
Dim wert As String

Declare Sub Schreibe (variable As String)

Open "test.txt" For Input Access Read As #1
    Line Input #1 , text
    wert = Left(text,3)
    Schreibe wert
Close #1


Sub Schreibe (variable As String)
    Draw String (30,30)," Der Wert ist " & variable
End Sub