КУТАК ЗА ПРОГРАМЕРЕ

На овом блогу имате прилику да пратите рад додатне наставе из техничког и информатичког образовања. Блог је тематски усмерен на програмирање VBasic-ом.
Старије постове везане за програмирање можете наћи на
http://tehnickoinformaticko.blogspot.com/

PROGRAM LIČNI ALARM
Izgled obrasca 1

 Podesiti svojstva        Timer1 - interval - 15000
                                  enabled - False
Kod za Timer1
 CurrentTime = Format(Time, "hh:mm")
    If CurrentTime = Text1.Text Then
        Beep
        MsgBox (Text2.Text), , "Personal Alarm"
        Timer1.Enabled = False
                                                              Form1.WindowState = 0 'Restore form
                                                          End If


Kod za komandno dugme (Set Alarm and Minimaze) Command1  
Form1.WindowState = 1           'Minimize form 
Timer1.Enabled = True           'Start timer

Aplikacija služi kao lični podsetnik sa zvučnim signalom  i porukom kada dođe vreme za sledeći sastanak ili zadatak. Program alarm proverava trenutno vreme u sistemskom satu. 
Minimizovanje obrazaca postiže se svojstvom WindowState=1. Maksimizovanje sa WindowState=2. Vraćanje obrasca na normalan podrazumevani prikaz koristimo WindowState=0.