Beispielprogramm Für Die Anfrage Vegalog (Visual Basic 4.0) - VEGA VEGACOM 557 Betriebsanleitung

Inbetriebnahme
5.5 Beispielprogramm für die Anfrage VEGALOG (VISUAL BASIC 4.0)
VEGAASCII.VBP
Form=vegaascii.frm
Object={648A5603-2C6E-101B-82B6-
000000000014}#1.1#0; MSCOMM32.OCX
ProjWinSize=168,207,248,215
ProjWinShow=2
IconForm="ASCDEMO"
HelpFile=""
Command=""
Name="ASCII"
HelpContextID="0"
StartMode=0
VersionCompatible32="0"
VersionCompatible="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=" "
VERSION 4.00
Begin VB.Form ASCDEMO
Caption =
ClientHeight =
ClientLeft =
ClientTop =
ClientWidth =
Height =
Left =
LinkTopic =
ScaleHeight =
ScaleMode =
ScaleWidth =
Top =
Width =
Begin VB.ListBox List1
Height
Left
TabIndex
Top
Width
End
Begin VB.Timer Timer
Enabled
Interval
Left
Top
End
Begin VB.CommandButton Ende
Cancel
Caption
Height
Left
TabIndex
Top
Width
End
VEGACOM 557 VEGA ASCII
"VEGA ASCII DEMO"
7095
60
345
9480
7500
0
"Form2"
473
3 'Pixel
632
0
9600
= 6105
= 150
= 2
= 270
= 8985
= 0 'False
= 100
= 720
= 6510
= -1 'True
= "Exit"
= 405
= 2520
= 1
= 6570
= 1395
Begin VB.CommandButton Run
Caption
Default
Height
Left
TabIndex
Tag
Top
Width
End
Begin VB.Shape Led
FillColor
FillStyle
Height
Left
Top
Width
End
Begin MSCommLib.MSComm MSComm
Left
Top
_ExtentX
_ExtentY
_Version
DTREnable
InBufferSize
InputLen
OutBufferSize
RThreshold
SThreshold
EOFEnable
End
End
Attribute VB_Name = "ASCDEMO"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
'-------------------------------------------
' ASCDEMO.FRM
' Copyright (c) 1999 VEGA
' by Gros Thoms
'-------------------------------------------
Option Explicit
' Speicher fuer den Empfang
Dim ReceiveBuffer As String
' Fehlerzaehler
Dim InAction As Integer
' Speicher fuer die Werte und den Status
Dim Status(255) As Integer
Dim PLS(255) As Long
' Start und Ende
Dim StartIndex As Integer
Dim LenIndex As Integer
Private Sub Ende_Click()
' Programm beenden
Unload Me
End Sub
= "&Start"
= -1 'True
= 405
= 4350
= 0
= "0"
= 6570
= 1425
= &H0000FF00&
= 0 'Solid
= 165
= 390
= 6570
= 135
= 1200
= 6510
= 1005
= 1005
= 327680
= 0 'False
= 512
= 200
= 100
= 1
= 1
= -1 'True
53