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

Wecksoftware funzende latest version

Uploader:MitgliedBull-T07
Datum/Zeit:14.02.2008 21:49:00

#include "vbcompat.bi"
Screen 18
Print "WeckerSoftware   BY:Bull-T07"
Sleep 5000
DIM zeit AS DOUBLE
DIM WECKZEIT AS STRING
Dim JETZT As DOUBLE
Dim EUZ As Double
Dim UZOD As DOUBLE
Input "wann moechtest 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:/Weckmusik.mp3"
Sleep