Imam jednu velicinu, koja ima poznatu donju i gornju granicu (prizvoljna vrednost), sad treba da pratim njeno ponasanje (u njenim granicama), u slucaju da izadje iz granica da aktivira alarm... Napravila sam neku bazu u access-u. Tajmer prati stanje te velicine i pakuje u bazu podataka svakih 1s, ako dodje do greske tj vrednost te velicine izadje iz zadatog opsega ukljuci alarm... Jako mi je hitna pomoc, hvala vam unapred.
pocetnica, mali zadacic...
Zaključano
Zakačeno
I?! Neki konkretan problem?
Jel problem sto neznas kako se pusta zvuk / tonki fajl u VB6 ?
By the way vidim da ti je ovo prva poruka ... pa Welcome to ES :)
By the way vidim da ti je ovo prva poruka ... pa Welcome to ES :)
Potpis
HomePage http://www.eurora3d.com
Pa, na primer treba da pratim brzinu nekog fluida koji ima zadate granice, nije bitno koje samo da ima donju i gornju. Tajmer prati stanje svake 1s i smesta u bazu, koju sam vec napravila u access-u. Ako, vrednost fluida nije u granicama, treba da se ukljuci alarm... Ako neko ima ideju kako bi to izgledalo u kodu...
Hvala, jako je dobar sajt, ovo mi je prvi put...
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
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
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
Potpis
HomePage http://www.eurora3d.com
Hvala ti puno!