Upis sa Com-porta u bazu podataka

[ Vladimir Djuric @ 21.08.2010. 01:34 ] @

Prvo da kazem da sam procitao sve sto sam nasao na searchu, a to su 2-3 teme koje na kraju nisu dovele do korisnog zakljucka.

Interesuje me na koji nachin mogu informacije dobijene preko com porta da upisujem u bazu, i da ih dalje koristim.
Radi se o uredjaju koji salje podatke serijskom vezom, i ja imam objasnjenje sta koji njegov red znachi. Dakle treba mi nachin na koji mogu da hvatam podatke i da ih svrstavam u odgovarajuca polja.

Ima li ideja?? :)

[ Gjoreski 001 @ 21.08.2010. 13:46 ] @

eve nesto sto imam praveno jas pred nekoja godina .
Za da raboti programot treba da Imas MSCOMM32.OCX registrirana vo Sistem32

[ izonic @ 22.08.2010. 01:34 ] @

Code:
Private Sub Form_Load()

   com1.CommPort = 1  ' comm port no.
   com1.Settings = "9600,N,8,1"
   'com1.Settings = ""
   com1.RThreshold = 24    'no. of chr to recive
   com1.InputLen = 0  '  no. of chr on which oncomm  event fires
    com1.InputMode = comInputModeText
   com1.PortOpen = True  'open comm port

End Sub

Private Sub Form_Resize()
Dim sInput As String

While (True)
    DoEvents
    sInput = com1.Input

    Me.Text1 = sInput

Wend
End Sub

Ovo ce ti iscitati podatke sa porta u text1 polja ukoliko ti taj tvoj aparat ili ne znam sta ima sledece postavke:
com1.Settings = "9600,N,8,1";
U referencama ucitaj ocx Microsoft common control i dodaj ga iz talboxa na tvoju formu.
View--->Toolbar--->Cusromize
Kartica Commands
U lijevom prozoru odameri ActivX control.
Naci ces ga u desnom prozoru.
Ikona telefona.
Opcijom vuc-sputi postavi ga na neki tvoj Tool bar a poslije na formu i daj mu ime com1.

Poslije iscitavanja podataka imate ces more peripetija.
Moja preporuka prvo prouci taj aparat ili mozda stavi na forum ime i tip pa cemo pomoci.