Private Sub Command_Click() beim klicken auf den Button wird folgendes Programm abgearbeitet
MSCom.CommPort = 1 definieren, welches COM Port verwendet wird
MSCom.Settings = "9600,N,8,1" COM Einstellungen - 9600bit/s, keine Parität, 8 Datenbits, 1 Stoppbit
MSCom.Handshaking = comRTS Art des Handshakes
MSCom.PortOpen = True Portkommunikation "öffnen"
For i = 0 To 628 For Schleife, wird 629x abgearbeitet
MSCom.Output = Chr(100 * Sin(i / 100#) + 100) Das Ergebnis der Rechnung wird als Character am COM Port ausgegeben
Next das müsste next i heißen - erhöht den Zähler um 1
MSCom.Output = Chr(255) ein Leerzeichen wird übertragen
MSCom.PortOpen = False Port "schließen"
MsgBox ("Daten geschickt") in einem Popup- Fenster wird die Meldung ausgegeben
End Sub Ende des Programmes
Private Sub List1_Click() die beiden Zeilen kannst löschen, weil ja kein Code drinnen steht
End Sub
Empfänger:
Private Sub Command_Click() Die ersten 5 Zeilen siehe oben
MSCom.CommPort = 1
MSCom.Settings = "9600,N,8,1"
MSCom.Handshaking = comRTS
MSCom.PortOpen = True
Do Beginn einer Do- Schleife
DoEvents alle Events, die möglicherweise noch in der Queue sind abarbeiten -> ohne der Zeile geht das Programm nicht!!
flo$ = flo$ & MSCom.Input Jeder empfangene Charakter wird der Variable angehängt
Loop Until InStr(flo$, Chr(255))Bis ein Leerzeichen folgt
MsgBox (" daten erhalten") Popup Fenster mit der Bestätigung
MSCom.PortOpen = False Port wird wieder geschlossen
Picture.Line (0, 125)-(0, 125) In die Picture Box wird ein Punkt gezeichnet [Linie mit den gleichen Anfangs- & Endkoordinaten]
For i = 1 To 629 Wieder eine Schleife mit 630 Durchläufen
Picture.Line -(i, 250 - (Asc(Mid(flo$, i, 1)) + 25)) Eine Linie wird gezeichnet, Anfangskoordinate mit x=Zähler, y=250 minus der Ascii- Wert, der an der Stelle i in der Variable flo$ steht plus 25 (damit du die richtige Zahl bekommst)
Next erhöhen des Zählers
End Sub Programmende
Erklärung OK?
|