home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_3_94 / vbwin / comm / vbcomm1.frm < prev    next >
Text File  |  1994-05-03  |  2KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "MSComm Demo 1 "
  4.    ClientHeight    =   810
  5.    ClientLeft      =   1065
  6.    ClientTop       =   1395
  7.    ClientWidth     =   3675
  8.    Height          =   1215
  9.    Left            =   1005
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   810
  12.    ScaleWidth      =   3675
  13.    Top             =   1050
  14.    Width           =   3795
  15.    Begin MSComm Comm1 
  16.       Interval        =   55
  17.       Left            =   90
  18.       RTSEnable       =   -1  'True
  19.       Settings        =   "19200,n,8,1"
  20.       Top             =   180
  21.    End
  22. End
  23. 'MSComm-Beispiel 1
  24. 'Basic Professionell 3/94
  25.  
  26. Sub Form_Load ()
  27.   Form1.Show
  28.   Comm1.CommPort = 2              'COM2 verwenden (MUSS vorm ╓ffnen angegeben werden)
  29.   Comm1.Settings = "1200,N,8,1"   '1200 Baud, keine ParitΣt, 8 Datenbits, 1 Stopbit
  30.   Comm1.InputLen = 0              'Mit Input den kompletten Puffer lesen.
  31.   Comm1.PortOpen = True                     'COM-Port ÷ffnen
  32.   
  33.   MsgBox Ein$ + "Fertig zum Senden zu COM" + Str$(Comm1.CommPort)
  34.  
  35.  
  36.   Comm1.Output = Time$ + Chr$(13) + Chr$(10)'Fⁿr Modem: AT-Befehl senden
  37.   'Comm1.Output = Time$ + Chr$(13)+chr$(10  'Fⁿr PC/PC-Verbindung: Uhrzeit ausgeben
  38.   
  39.   Do                              'Auf serielle Empfangsdaten warten
  40.     DoEvents
  41.   Loop Until Comm1.InBufferCount >= 2  'Mehr als 2 Zeichen im Puffer --> Modem
  42.                        'hat mit "OK" geantwortet
  43.                        'PC/PC: Am anderen PC "OK" tippen
  44.   Ein$ = Comm1.Input              'COM-Port lesen/leeren
  45.  
  46.   Comm1.PortOpen = False          'COM-Port schlie▀en
  47.                   
  48.                   'Mitteilung zur Kontrolle
  49.   MsgBox Ein$ + " empfangen. Port geschlossen."
  50.   End
  51.  
  52. End Sub
  53.  
  54.