tamamam samsung telefon cd sinde buldum dll. yi
2 satırda hata verdi.
Rem porttan gelen bilgiyi okuma
Private Sub Komut0_Click()
Dim strInput As String
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
strInput = .Input
Metin1.SelText = strInput
End Select
End With 'MSComm1
End Sub
Rem portu açma
Private Sub Komut4_Click()
With MSComm1
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 2
'set the badurate,parity,databits,stopbits for the connection
.Settings = "9600,N,8,1"
'set the DRT and RTS flags
.DTREnable = True
.RTSEnable = True
'enable the oncomm event for every reveived character
.RThreshold = 1
'disable the oncomm event for send characters
.SThreshold = 0
'open the serial port
.PortOpen = True
End With 'MSComm1
End Sub
nasıl halledebilirim.
ufak programda yaptım şimdilik yardımlarınız için teşekkür ederim.
