Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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

Weckersoftware

Uploader:MitgliedBull-T07
Datum/Zeit:13.02.2008 18:51:51

#include "vbcompat.bi"
Print "ICH BIN DEIN WECKER"
Sleep 5000
DIM zeit AS DOUBLE
DIM WECKZEIT AS STRING
Dim JETZT As DOUBLE
Dim EUZ As Double
Dim UZOD As DOUBLE
Input "wann möchtest du geweckt werden :", WECKZEIT
JETZT = Now()
uzod = jetzt-int(jetzt)
EUZ = TIMEVALUE(WECKZEIT+":00")
IF UZOD < EUZ  then zeit=int(jetzt)+euz else zeit=int(jetzt)+1+euz
WHILE(zeit<NOW)
SLEEP 0
WEND
SHELL "start wmplayer.exe C:/Wikipedia.mp3"
Sleep