من این کد را دارم کارش اینه که از پورت سریال یک دستگاه کارت خوان (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
البته این فکر کنم این تیکه کد واسه خوندن از کارت باشه دوستان اگر کسی میدونه چطوری به سی شارپ تبدیلش کنم مرسی با سریال پورت تا حالا کار نکردم