home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_3_94 / vbwin / comm / vbcomm4.frm < prev    next >
Text File  |  1994-05-10  |  2KB  |  58 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   8445
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   8445
  13.    Top             =   1140
  14.    Width           =   8565
  15.    Begin MSComm Comm1 
  16.       Interval        =   55
  17.       Left            =   465
  18.       RTSEnable       =   -1  'True
  19.       Top             =   1020
  20.    End
  21. End
  22.  
  23. Sub Form_Load ()
  24.   Comm1.CommPort = 2              'COM2 verwenden (VOR dem ╓ffnen angeben!)
  25.   Comm1.Settings = "1200,N,8,1"  '1200 Baud, keine ParitΣt, 8 Datenbits, 1 Stopbit
  26.   Comm1.InputLen = 1              'Mit Input je 1 Zeichen lesen
  27.   Comm1.OutBufferSize = 512       'Sendepuffer
  28.   Comm1.InBufferSize = 1024       'Empfangspuffer
  29.   Comm1.PortOpen = True           'COM-Port ÷ffnen
  30.   Form1.Show
  31.   
  32.   FileNum% = FreeFile    ' NΣchste Dateinummer
  33.   Open "Download.txt" For Binary As FileNum%
  34.  
  35.   Do
  36.      DoEvents
  37.      If Comm1.InBufferCount > 0 Then
  38.         Form1.Caption = "Im Empfangspuffer: " + Str$(Comm1.InBufferCount)
  39.         Ein$ = Comm1.Input
  40.         Select Case Asc(Ein$)
  41.         Case 26   'hier kann auch Dateiende (EOF) abgefragt werden
  42.            'Close 1   **
  43.            Comm1.PortOpen = False
  44.            MsgBox "Dateiende", 16, "Download"
  45.            Close FileNum%
  46.            End
  47.         Case 13   'CR
  48.            Ein$ = Ein$ + Chr$(10)
  49.            Put FileNum%, , Ein$
  50.         Case Else
  51.            Put FileNum%, , Ein$
  52.         End Select
  53.      End If
  54.   Loop
  55.  
  56. End Sub
  57.  
  58.