Hallo
Ich bin ein noch recht blutiger ANfänger und habe
ein Problem mir MSComm.
Es geht um folgendes ich würde gerne den Text den ich von einem anderen PC empfange in einer TextBox ausgeben/anzeigen lassen.
Die beiden PCs sind mit NullmodemKabel verbunden (Com1)
Ich sende einen Text per HyperTerminal an den Pc , und dieser soll dan in einer textBox angezeigt werden.
Ich habe zahlreiche Tutorials darüber gelesen und habe auch schon hinbekommen Texte zu Senden.
Nur das Empfangen macht noch Probleme bzw das Anzeigen in einer TextBox.
Bis jetz habe ich Folgenden Code geschrieben.
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Settings = " 9600,N,8,1"
.PortOpen = True
End With
MSComm1.Output = "Test"
End Sub
Private Sub MSComm1_OnComm()
Dim Eingang As String
Select Case MSComm1.CommEvent
Case comOverrun: MsgBox "Datenverlust!"
Case comRxOver: MsgBox "Datenverlust!"
Case comEvReceive: Eingang = Eingang + MSComm1.Input
End Select
End Sub
Wie kann ich nun den Text den ich empfange und in "Eingang" ablege in einer TextBox ausgeben.
Und ist der Code zum Emfangen überhaubt richtig?
Habt ihr vieleicht besser Vorschläge.
Also ich hoffe das mir einer weiter helfen kann den ich blicke nicht so ganz durch.
Danke vielmass im vorraus Pablo
| Betreff |
Von |
Datum |
|
|
  |
Re: Problem mit MSComm !!!
| Hallo<br><br>Private Sub MSComm1_OnComm()<br><br>Dim Eingang As String<br>' Das hilft so nichts. Die Variable ist nicht initialisiert <br>' Daher <br><br>Eingang = TextBox.Text<br><br>Select Case MSComm1.CommEvent<br>Case... |
|
|
|
|
|
Wolfgang
Uhr
|
23.05.2006 14:25 |
|
|
|
|
G.
Guest
|
02.06.2006 07:06 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
