fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

for up final version of my weckersoftware

Uploader:	Bull-T07
Datum/Zeit:	15.02.2008 14:36:46

#include "vbcompat.bi"

Screen 18

Print "WeckerSoftware   BY:Bull-T07"

Sleep 5000

CLS

DIM zeit AS DOUBLE

DIM WECKZEIT AS STRING

Dim JETZT As DOUBLE

Dim EUZ As Double

Dim UZOD As Double

Dim MUSIK As String

Dim MUSIK2 As String

Dim MUSIK3 As String

Dim WAHL As Integer

MUSIK = "start wmplayer.exe C:/Weckmusik.mp3"

MUSIK2 = "start wmplayer.exe C:/Weckmusik2.mp3"

MUSIK3 = "start wmplayer.exe C:/Weckmusik3.mp3"

Input "Nimm ein Lied(1-3): ", wahl

if wahl = 1 Then Print "Du hast dich für Lied 1 entschieden!"

if wahl = 2 Then Print "Du hast dich für Lied 2 entschieden!"

if wahl = 3 Then Print "du hast dich für Lied 3 entschieden!"

Sleep 5000

CLS

Input "wann moechtest du geweckt werden :", WECKZEIT

print "Der wecker wurde gestartet um: "; Time; " Weckzeit ist "; 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

if wahl = 1 Then Shell MUSIK

if wahl = 2 Then Shell MUSIK2

if wahl = 3 Then Shell MUSIK3

if wahl < 1 or wahl > 3 Then

    Print "Falsche Eingabe"

    Sleep 3000

    End

EndIf

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.