[ MiljanaPeric @ 16.12.2008. 22:21 ] @
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.
[ stefanpn @ 16.12.2008. 23:45 ] @
I?! Neki konkretan problem?
[ Eurora3D Team @ 16.12.2008. 23:56 ] @
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 :)
[ MiljanaPeric @ 17.12.2008. 10:48 ] @
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...
[ MiljanaPeric @ 17.12.2008. 10:50 ] @
Hvala, jako je dobar sajt, ovo mi je prvi put...
[ Eurora3D Team @ 17.12.2008. 11:51 ] @
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
[ MiljanaPeric @ 17.12.2008. 12:47 ] @
Hvala ti puno!