طلب رسم دائرة الكترونية

اخي قم بوضع ما تقول انك قمت به ونجحت الفكرة بالرسم ثم اطلب ماتريد به المساعدة قد تجد ردا من الاخوة لسؤالك

السلام عليكم

هذا الكود الى كنت بستخدمة

كنت ستخدم مكتبة MSCOMM32.OCX

الكود بى VB

Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
	MSComm1.PortOpen = True
End If
End Sub
Private Sub Command2_Click()
If MSComm1.PortOpen = True Then
	MSComm1.PortOpen = flase
End If
End Sub

Private Sub Command3_Click()
Do
If MSComm1.PortOpen = False Then
	MSComm1.PortOpen = True
End If
For i = 1 To 1000000
Next
DoEvents
If MSComm1.PortOpen = True Then
	MSComm1.PortOpen = flase
End If
DoEvents
For i = 1 To 1000000
Next
Loop
End Sub

Private Sub Exit_Click()
	End
End Sub