ЗДРАВСТВУЙТЕ!
Вот на днях решил написать на Блитце будильник(сессия началась), и вот что вышло:
AppTitle "будильник v.0.0.1"
Graphics 400,300,16,2
Color 110,110,150
Global snd=LoadSound("Bon Jovi-It's my life.mp3")
SoundPitch snd, 44100
LoopSound snd
Global gfxPlayer=LoadImage("fon.bmp")
DrawImage gfxPlayer,0,0
Global font=LoadFont("arial",17)
Global font2=LoadFont("arial",25)
SetFont font
Global time$=Input$("input timer (HH:MM:SS) ")
Repeat
DrawImage gfxPlayer,0,0
SetFont font
Text 10,10,"time: "+CurrentTime$()
Text 10,30,"podyom: "+time$
If time$=CurrentTime$() chn=PlaySound (snd)
If time$<CurrentTime$() Then
SetFont font2
Text 20,100,"I`I O D `e' M"
If KeyHit (57)=1 Then
time$=Input$("input new timer (HH:MM:SS) ")
StopChannel(chn)
EndIf
EndIf
Cls
Until KeyHit(1)
FreeSound snd
FreeFont font
FreeFont font2
End
|
просто вводим время и ложимся спать.
вот что хотелось бы добавить:
1) сворачивание в трей(спасибо ИМПЕРУ за ссылку на ВинБ3Д но разобратся неудалось);
2) поблема со звуком(происходит искажение);
3) если виндовс уходит в заставку то программа неработает(незнаю что и сказать);
кто сможет плизз
с треем, остальное не так критично.
p.s. ВОТ те файлы которые я использую
ссылка 2