aminlv
جمعه 06 شهریور 1394, 18:45 عصر
سلام دوستان
یه مشکلی برخوردم ممنون میشم اگر کسی راه حل داره براش کمک کنه من که به هر دری زدم رفت تو دیوار :اشتباه:
من برای ورود و خروج می خوام از کارت RFID استفاده کنم یه دستگاه Prolific PL2303 خردیدم که USB هست وقتی درایور نصب میشه یه Comport مجازی میسازه توی CD همراهش یه برنامه هست که به راحتی وصل میشه و کارت رو می خونه
ولی من هرچقدر با mscomm سعی می کنم این اتفاق نمیوفته پورت رو باز میکنم و ظاهرا وصل هم هست چون برنامه دیگه ای نمیتونه از پورتش استفاده کنه ولی هیچ event ای انگار اتفاق نمیوفته...:گریه: خلاصه پاک کلافه شدم فروشنده هم که کلا فروشندست و هیچ کمک نتونست بکنه ممنون میشم اگر کسی راه حلی به نظرش میرسه.
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.CommPort = 4
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim strInput, rfidString As String
Dim intI As Integer
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
MsgBox ""
Text1.Text = ""
'display incoming event data to displaying textbox
strInput = .Input
For intI = 1 To Len(strInput)
rfidString = rfidString & Hex(Asc(Mid$(strInput, intI, 1))) & " "
Text1.Text = rfidString
Next intI
rfidString = ""
End Select
End With
End Sub
یه مشکلی برخوردم ممنون میشم اگر کسی راه حل داره براش کمک کنه من که به هر دری زدم رفت تو دیوار :اشتباه:
من برای ورود و خروج می خوام از کارت RFID استفاده کنم یه دستگاه Prolific PL2303 خردیدم که USB هست وقتی درایور نصب میشه یه Comport مجازی میسازه توی CD همراهش یه برنامه هست که به راحتی وصل میشه و کارت رو می خونه
ولی من هرچقدر با mscomm سعی می کنم این اتفاق نمیوفته پورت رو باز میکنم و ظاهرا وصل هم هست چون برنامه دیگه ای نمیتونه از پورتش استفاده کنه ولی هیچ event ای انگار اتفاق نمیوفته...:گریه: خلاصه پاک کلافه شدم فروشنده هم که کلا فروشندست و هیچ کمک نتونست بکنه ممنون میشم اگر کسی راه حلی به نظرش میرسه.
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.CommPort = 4
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim strInput, rfidString As String
Dim intI As Integer
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
MsgBox ""
Text1.Text = ""
'display incoming event data to displaying textbox
strInput = .Input
For intI = 1 To Len(strInput)
rfidString = rfidString & Hex(Asc(Mid$(strInput, intI, 1))) & " "
Text1.Text = rfidString
Next intI
rfidString = ""
End Select
End With
End Sub