RS232 PORTUNDAN GELEN DATA

[red_lion_72]

SELAM,

BİR BARKOD OKUYUCU CİHAZIM VAR, BİLGİSAYARIN COM(RS232) PORTUNA BAÐLI. BURADAN GELEN DATAYI OKUYUP EXCEL'DE BARKODLA İLGİLİ BİR ÇALIÞMA YAPACAÐIM.

TEÞEKKÜRLER...

 

[ALPEN]

Private Sub dinle ()
MSComm1.CommPort = 1
' 9600 baud, no parity, 8 data, 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Do
DoEvents
textbox1 = textbox1 & MSComm1.Input
Loop Until commandbutton1.caption = "dinle"
MSComm1.PortOpen = False

End Sub


1 mscomm nesnesi
1 text box
1. command button

command buttona her basıldığında caption özelliğini "dinle" , "bitir" olacak şekilde ayarlaman gerekiyor.

son olarak

' 9600 baud, no parity, 8 data, 1 stop bit.
MSComm1.Settings = "9600,N,8,1"

satırlarındaki parametreler rs232 portuna seri bağladığın cihaza göre değişir. bunu cihazın manualinden öğrenebilirsin.