Gast
#146147
Hallo,
Ich war mir nicht sicher in welches Forum ich meinen Beitrag posten
soll, darum hab ichs einfach mal hier versucht...
Also nun zu meinem Problem: Ich möchte Daten in ganz geringer Menge von
einem PC zum anderen übertragen und dies ohne Kabel (und ich möchte
weder Blauzahn noch WLan verwenden).
Mit einem einzigen dünnen Drähtchen ist alles kein Problem, ich klemme
es an dem einen PC am COM-Port an TXD und am anderen PC an RXD, lasse
ein kleines Programm laufen und es funktioniert.
Doch wie mache ich das per Funk?
Ich hoffe mir kann jemand helfen.
Gruß Florian
PS hier mein Prog:
*****
Dim PortOpen As Boolean
Private Sub ClosePort_Click()
End Sub
Private Sub Form_Load()
PortOpen = False
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive: INTXT = MSComm1.Input
Text1.Text = Text1.Text & INTXT
End Select
End Sub
Private Sub OpenPort_Click()
End Sub
Private Sub OUTTXT_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MSComm1.Output = OUTTXT + vbCr
OUTTXT = ""
End If
End Sub
*****