Otprilike ovako bi trebalo da pocnes taj program.
Treba da se doda 2-3 reda za bazu i isto toliko za alarm da bi program bio potpuno funkcionalan.
Za konekcije i upis u bazu pogledaj top teme ili zakaci bazu ovde.
Nije mi jasno odakle se ocitavaju vrednosti al imas funkciju pa promeni je da radi sta treba
Code:
Const MAX = 3 ' konstanta za maksimalnu dozvoljenu vrednost
'
Private Sub Form_Load()
'ovde kod za pravljenje konekcije sa bazom
Timer1.Interval = 1000 ' timer na 1 sec
Timer1.Enabled = True '
End Sub
'timer procedura koja se poziva u intervalima od 1 sec
Private Sub Timer1_Timer()
Dim n As Integer
n = getValue
'ovde kod za upis u bazu
If n > MAX Then ' ako je vrednost veca od dozvoljenog maksimuma
MsgBox "Vrednost je " & CStr(n), vbCritical ' ovo zameniti sa nekim boljim kodom
End If
End Sub
'prava funkcija treba da vrati trenutnu vrednost ... ova vraca random number
Private Function getValue() As Integer
Dim n As Integer
n = Int(Rnd(1) * 10)
getValue = n
End Function