slashslash2009
سه شنبه 30 آبان 1391, 21:31 عصر
من این کد را دارم کارش اینه که از پورت سریال یک دستگاه کارت خوان (smart card) میخونه و مینویسه یعنی اطلاعات کارت رو هم میگیره و هم درون کارت درج میکنه
Dim i2 AsByte
Dim readcard AsString
Dim cr AsString
Dim cr2 AsString
Dim bufcard AsString * 1
Dim con AsByte
Dim i AsByte
Dim i5 AsByte
Dim MAN AsString
Dim cheker AsByte
Dim M AsByte
MSComm1.CommPort = Text1.Text
MSComm1.PortOpen = True
MSComm1.InputLen = 1
MSComm1.Output = Chr$(24)
MSComm1.Output = "180!1@"
MSComm1.Output = "182!1@"
MSComm1.Output = "184!1@"
MSComm1.Output = "186!1@"
MSComm1.Output = "188!1@"
MSComm1.Output = "190!1@"
MSComm1.Output = "192!1@"
MSComm1.Output = "194!1@"
MSComm1.Output = "196!1@"
MSComm1.Output = "198!1@"
MSComm1.Output = "#?"
Sleep 800
For i = 1 To 250
bufcard = MSComm1.Input
If bufcard = "$"Then'
Text121.Text = readcard
readcard = ""
bufcard = ""
ExitFor
EndIf
readcard = readcard + bufcard
Next i
البته این فکر کنم این تیکه کد واسه خوندن از کارت باشه دوستان اگر کسی میدونه چطوری به سی شارپ تبدیلش کنم مرسی با سریال پورت تا حالا کار نکردم
Dim i2 AsByte
Dim readcard AsString
Dim cr AsString
Dim cr2 AsString
Dim bufcard AsString * 1
Dim con AsByte
Dim i AsByte
Dim i5 AsByte
Dim MAN AsString
Dim cheker AsByte
Dim M AsByte
MSComm1.CommPort = Text1.Text
MSComm1.PortOpen = True
MSComm1.InputLen = 1
MSComm1.Output = Chr$(24)
MSComm1.Output = "180!1@"
MSComm1.Output = "182!1@"
MSComm1.Output = "184!1@"
MSComm1.Output = "186!1@"
MSComm1.Output = "188!1@"
MSComm1.Output = "190!1@"
MSComm1.Output = "192!1@"
MSComm1.Output = "194!1@"
MSComm1.Output = "196!1@"
MSComm1.Output = "198!1@"
MSComm1.Output = "#?"
Sleep 800
For i = 1 To 250
bufcard = MSComm1.Input
If bufcard = "$"Then'
Text121.Text = readcard
readcard = ""
bufcard = ""
ExitFor
EndIf
readcard = readcard + bufcard
Next i
البته این فکر کنم این تیکه کد واسه خوندن از کارت باشه دوستان اگر کسی میدونه چطوری به سی شارپ تبدیلش کنم مرسی با سریال پورت تا حالا کار نکردم