marekf/laatzen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
265c534d2ba5aa81e95dcafe8276fc60f1418022
laatzen/Pruef2000/source/frmInitFM85.frm
T
Rowlander 70e2645059 Initial commit 3
2021-10-01 11:11:04 +02:00

799 lines
25 KiB
Plaintext
Raw Blame History

VERSION 5.00
Begin VB.Form frmInitFM85
BorderStyle = 0 'Kein
Caption = "Pruef2000"
ClientHeight = 9105
ClientLeft = 0
ClientTop = 0
ClientWidth = 12105
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9105
ScaleWidth = 12105
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows-Standard
Begin VB.Frame frMain
Height = 7815
Left = 360
TabIndex = 2
Top = 780
Width = 6855
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 16
Left = 1680
TabIndex = 19
Top = 6000
Visible = 0 'False
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 15
Left = 1680
TabIndex = 18
Top = 5640
Visible = 0 'False
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 14
Left = 1680
TabIndex = 17
Top = 5280
Visible = 0 'False
Width = 4095
End
Begin VB.CommandButton cmdStart
Caption = "Start"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 16
Top = 6360
Width = 1935
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 13
Left = 1680
TabIndex = 15
Top = 4920
Visible = 0 'False
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 12
Left = 1680
TabIndex = 14
Top = 4560
Visible = 0 'False
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 11
Left = 1680
TabIndex = 13
Top = 4200
Visible = 0 'False
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 10
Left = 1680
TabIndex = 12
Top = 3840
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 9
Left = 1680
TabIndex = 11
Top = 3480
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 8
Left = 1680
TabIndex = 10
Top = 3120
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 7
Left = 1680
TabIndex = 9
Top = 2760
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 6
Left = 1680
TabIndex = 8
Top = 2400
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 5
Left = 1680
TabIndex = 7
Top = 2040
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 1680
TabIndex = 6
Top = 1680
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 1680
TabIndex = 5
Top = 1320
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 1680
TabIndex = 4
Top = 960
Width = 4095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 1680
TabIndex = 3
Top = 600
Width = 4095
End
Begin VB.Label lblStatus
BorderStyle = 1 'Fest Einfach
Height = 255
Left = 240
TabIndex = 37
Top = 7440
Width = 6435
End
Begin VB.Label lblCOMMSettings
BorderStyle = 1 'Fest Einfach
Height = 315
Left = 2220
TabIndex = 36
Top = 6960
Width = 2955
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 16
Left = 120
TabIndex = 35
Top = 6000
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 15
Left = 120
TabIndex = 34
Top = 5640
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 14
Left = 120
TabIndex = 33
Top = 5280
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 13
Left = 120
TabIndex = 32
Top = 4920
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 12
Left = 120
TabIndex = 31
Top = 4560
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 120
TabIndex = 30
Top = 4200
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 120
TabIndex = 29
Top = 3840
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 120
TabIndex = 28
Top = 3480
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 120
TabIndex = 27
Top = 3120
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 120
TabIndex = 26
Top = 2760
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 120
TabIndex = 25
Top = 2400
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 120
TabIndex = 24
Top = 2040
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 120
TabIndex = 23
Top = 1680
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 120
TabIndex = 22
Top = 1320
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 120
TabIndex = 21
Top = 960
Width = 1500
End
Begin VB.Label Label1
Alignment = 1 'Rechts
Caption = "00"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 120
TabIndex = 20
Top = 600
Width = 1500
End
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Zur�ck"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 7080
TabIndex = 1
Top = 0
Width = 1935
End
Begin VB.Label lblTitle
Caption = "Initialisierung der FM Ger�te"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 0
Top = 120
Width = 4215
End
End
Attribute VB_Name = "frmInitFM85"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Private Member
' --------------
Private m_nRet As Integer
Private m_FM85Bus As CFMBus
' @return Code, mit dem endDialog aufgerufen wurde
'
Public Function getExitCode() As Integer
getExitCode = m_nRet
End Function
'------------------------------------------------------------------------------
' Private Funktionalit�t
'------------------------------------------------------------------------------
' Dialog beenden
'
' @param nRet Returncode des Dialogs
'
Private Sub endDialog(nRet As Integer)
m_nRet = nRet
Unload Me
End Sub
'------------------------------------------------------------------------------
' Event-Handling
'------------------------------------------------------------------------------
Private Sub Form_Load()
Dim i As Integer
Call setupStdDlg(Me)
Set m_FM85Bus = g_App.getFMBus()
OpenComPort
For i = 1 To 16
Label1(i).Caption = Str(i)
Text1(i).Enabled = False
Next i
End Sub
Private Sub OpenComPort()
On Error Resume Next
m_FM85Bus.GetMSComm.PortOpen = True
End Sub
Private Sub cmdStart_Click()
Dim i As Integer
Dim oFM85 As CFM85P
Dim oWaage As CWaage
cmdCancel.Enabled = False
cmdStart.Enabled = False
Screen.MousePointer = vbHourglass
' Todo: aktivieren
' Set oWaage = g_App.getWaage
' txtWaage.Text = "testing..."
' If oWaage.Reset Then
' txtWaage.Text = "OK: " & oWaage.getData
' Else
' txtWaage.Text = "Fehler: " & oWaage.getErrorCode & "," & oWaage.getErrorDesc
' End If
' oWaage.releaseMScomm
' Set oWaage = Nothing
For i = 1 To 10
Label1(i).Caption = Str(i)
Text1(i).text = ""
Text1(i).Enabled = False
Next i
DoEvents
lblCOMMSettings.Caption = m_FM85Bus.GetMSComm.Settings
lblStatus.Caption = "Resetten aller FM85: **0@"
DoEvents
m_FM85Bus.send "**0@"
Sleep 100, True
lblStatus.Caption = "Resetten aller FM85: R"
DoEvents
m_FM85Bus.send "R"
m_FM85Bus.receive 2000
Sleep 4000, True
For i = 1 To 10
Text1(i).text = "Anwahl..."
Set oFM85 = m_FM85Bus.getFM85P(i)
lblStatus.Caption = "Anwahl " & i
oFM85.sendAttention
Text1(i).text = oFM85.getLastAnswer
Debug.Print m_FM85Bus.getErrorDesc
If oFM85.getErrorCode > 0 Then
Text1(i).text = oFM85.getErrorDesc
End If
Sleep 100, True
Next i
cmdStart.Enabled = True
Screen.MousePointer = vbDefault
cmdCancel.Enabled = True
End Sub
Private Sub cmdCancel_Click()
Call endDialog(IDOK)
End Sub
Reference in New Issue View Git Blame Copy Permalink