home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_3_94
/
vbwin
/
comm
/
vbcomm1.frm
< prev
next >
Wrap
Text File
|
1994-05-03
|
2KB
|
54 lines
VERSION 2.00
Begin Form Form1
Caption = "MSComm Demo 1 "
ClientHeight = 810
ClientLeft = 1065
ClientTop = 1395
ClientWidth = 3675
Height = 1215
Left = 1005
LinkTopic = "Form1"
ScaleHeight = 810
ScaleWidth = 3675
Top = 1050
Width = 3795
Begin MSComm Comm1
Interval = 55
Left = 90
RTSEnable = -1 'True
Settings = "19200,n,8,1"
Top = 180
End
End
'MSComm-Beispiel 1
'Basic Professionell 3/94
Sub Form_Load ()
Form1.Show
Comm1.CommPort = 2 'COM2 verwenden (MUSS vorm ╓ffnen angegeben werden)
Comm1.Settings = "1200,N,8,1" '1200 Baud, keine ParitΣt, 8 Datenbits, 1 Stopbit
Comm1.InputLen = 0 'Mit Input den kompletten Puffer lesen.
Comm1.PortOpen = True 'COM-Port ÷ffnen
MsgBox Ein$ + "Fertig zum Senden zu COM" + Str$(Comm1.CommPort)
Comm1.Output = Time$ + Chr$(13) + Chr$(10)'Fⁿr Modem: AT-Befehl senden
'Comm1.Output = Time$ + Chr$(13)+chr$(10 'Fⁿr PC/PC-Verbindung: Uhrzeit ausgeben
Do 'Auf serielle Empfangsdaten warten
DoEvents
Loop Until Comm1.InBufferCount >= 2 'Mehr als 2 Zeichen im Puffer --> Modem
'hat mit "OK" geantwortet
'PC/PC: Am anderen PC "OK" tippen
Ein$ = Comm1.Input 'COM-Port lesen/leeren
Comm1.PortOpen = False 'COM-Port schlie▀en
'Mitteilung zur Kontrolle
MsgBox Ein$ + " empfangen. Port geschlossen."
End
End Sub