home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_3_94 / vbwin / comm / vbcomm2.frm < prev    next >
Text File  |  1994-05-03  |  2KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "BP 3/94  ** Comm-Tester 2 (mit Do...Loop) **"
  5.    ClientHeight    =   4110
  6.    ClientLeft      =   930
  7.    ClientTop       =   1500
  8.    ClientWidth     =   6945
  9.    Height          =   4515
  10.    Left            =   870
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4110
  13.    ScaleWidth      =   6945
  14.    Top             =   1155
  15.    Width           =   7065
  16.    Begin TextBox Text1 
  17.       Height          =   3570
  18.       Left            =   105
  19.       MultiLine       =   -1  'True
  20.       ScrollBars      =   3  'Beide
  21.       TabIndex        =   0
  22.       Top             =   105
  23.       Width           =   6705
  24.    End
  25.    Begin MSComm Comm1 
  26.       Interval        =   55
  27.       Left            =   6375
  28.       RTSEnable       =   -1  'True
  29.       Top             =   3540
  30.    End
  31.    Begin Label lblStatus 
  32.       BackColor       =   &H00C0C0C0&
  33.       BorderStyle     =   1  'nicht Σnderbar, einfach
  34.       Height          =   360
  35.       Left            =   90
  36.       TabIndex        =   1
  37.       Top             =   3735
  38.       Width           =   6810
  39.    End
  40. End
  41. DefInt A-Z
  42.  
  43. Sub Form_Load ()
  44.   Comm1.CommPort = 2              'COM2 verwenden (VOR dem ╓ffnen angeben!)
  45.   Comm1.Settings = "1200,N,8,1"  '1200 Baud, keine ParitΣt, 8 Datenbits, 1 Stopbit
  46.   Comm1.InputLen = 1              'Mit Input je 1 Zeichen lesen
  47.   Comm1.OutBufferSize = 512       'Sendepuffer
  48.   Comm1.InBufferSize = 1024       'Empfangspuffer
  49.   Comm1.PortOpen = True           'COM-Port ÷ffnen
  50.   Form1.Show
  51.   
  52.   Do
  53.      DoEvents
  54.      If Comm1.InBufferCount > 0 Then
  55.     Form1.Caption = "Im Empfangspuffer: " + Str$(Comm1.InBufferCount)
  56.     Ein$ = Comm1.Input
  57.     Select Case Asc(Ein$)
  58.     Case 26   'hier kann auch Dateiende (EOF) abgefragt werden
  59.        Comm1.PortOpen = False
  60.        MsgBox "Dateiende", 16, "▄bertragung"
  61.        End
  62.     Case 13   'CR
  63.        Ein$ = Ein$ + Chr$(10)
  64.        Text1.Text = Text1.Text + Ein$
  65.     Case Else
  66.        Text1.Text = Text1.Text + Ein$
  67.     End Select
  68.     Text1.SelStart = Len(Text1.Text)
  69.     Text1.SelText = ""
  70.      End If
  71.   Loop
  72.  
  73. End Sub
  74.  
  75. Sub Form_Unload (Cancel As Integer)
  76.   Comm1.PortOpen = False          'COM-Port schlie▀en
  77. End Sub
  78.  
  79. Sub Text1_KeyPress (KeyAnsi As Integer)
  80.   Comm1.Output = Chr$(KeyAnsi)
  81. End Sub
  82.  
  83.