1444 lines
42 KiB
Plaintext
1444 lines
42 KiB
Plaintext
VERSION 5.00
|
|
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
|
|
Begin VB.Form frmSPSTest
|
|
Caption = "SPS Test"
|
|
ClientHeight = 8655
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 12330
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 8655
|
|
ScaleWidth = 12330
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.TextBox txtStellwertSoll
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 480
|
|
Left = 7680
|
|
TabIndex = 53
|
|
Top = 3000
|
|
Width = 495
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = "Ablass Durchfluss Messung"
|
|
Height = 2085
|
|
Left = 3480
|
|
TabIndex = 45
|
|
Top = 6000
|
|
Width = 5775
|
|
Begin VB.CommandButton cmdAblassStop
|
|
Caption = "Ablass STOP"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 1980
|
|
TabIndex = 50
|
|
Top = 300
|
|
Width = 1620
|
|
End
|
|
Begin VB.TextBox txtIntervall
|
|
Alignment = 1 'Rechts
|
|
Height = 285
|
|
Left = 960
|
|
TabIndex = 47
|
|
Text = "1000"
|
|
Top = 840
|
|
Width = 615
|
|
End
|
|
Begin VB.CommandButton cmdAktuellenBehaelterLeeren
|
|
Caption = "Ablass START"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 270
|
|
TabIndex = 46
|
|
Top = 300
|
|
Width = 1620
|
|
End
|
|
Begin MSForms.Label Label24
|
|
Height = 255
|
|
Left = 1680
|
|
TabIndex = 54
|
|
Top = 960
|
|
Width = 495
|
|
Caption = "ms"
|
|
Size = "873;450"
|
|
FontHeight = 165
|
|
FontCharSet = 0
|
|
FontPitchAndFamily= 2
|
|
End
|
|
Begin MSForms.Label Label23
|
|
Height = 285
|
|
Left = 2970
|
|
TabIndex = 52
|
|
Top = 870
|
|
Width = 585
|
|
Caption = "Abfluss"
|
|
Size = "1032;503"
|
|
FontHeight = 165
|
|
FontCharSet = 0
|
|
FontPitchAndFamily= 2
|
|
End
|
|
Begin MSForms.Label Label22
|
|
Height = 405
|
|
Left = 4680
|
|
TabIndex = 51
|
|
Top = 900
|
|
Width = 975
|
|
Caption = "Liter / min"
|
|
Size = "1720;714"
|
|
FontHeight = 165
|
|
FontCharSet = 0
|
|
FontPitchAndFamily= 2
|
|
End
|
|
Begin VB.Label lblAbflussDurchfluss
|
|
BorderStyle = 1 'Fest Einfach
|
|
Height = 315
|
|
Left = 3600
|
|
TabIndex = 49
|
|
Top = 840
|
|
Width = 1035
|
|
End
|
|
Begin VB.Label Label21
|
|
Caption = "intervall"
|
|
Height = 285
|
|
Left = 240
|
|
TabIndex = 48
|
|
Top = 960
|
|
Width = 615
|
|
End
|
|
End
|
|
Begin VB.Frame Frame2
|
|
Height = 2295
|
|
Left = 9000
|
|
TabIndex = 34
|
|
Top = 3570
|
|
Width = 3255
|
|
Begin VB.CheckBox chkLoggen
|
|
Caption = "Ist Werte Loggen"
|
|
Height = 285
|
|
Left = 240
|
|
TabIndex = 41
|
|
Top = 1860
|
|
Value = 1 'Aktiviert
|
|
Width = 2385
|
|
End
|
|
Begin VB.Label Label20
|
|
Caption = "Stellwert ist"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 360
|
|
TabIndex = 44
|
|
Top = 1200
|
|
Width = 1455
|
|
End
|
|
Begin VB.Label Label19
|
|
Caption = "%"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 2640
|
|
TabIndex = 43
|
|
Top = 1200
|
|
Width = 285
|
|
End
|
|
Begin VB.Label lblStellwert
|
|
Alignment = 1 'Rechts
|
|
BorderStyle = 1 'Fest Einfach
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 1920
|
|
TabIndex = 42
|
|
Top = 1200
|
|
Width = 615
|
|
End
|
|
Begin VB.Label Label18
|
|
Caption = "m³/h"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 2580
|
|
TabIndex = 40
|
|
Top = 330
|
|
Width = 525
|
|
End
|
|
Begin VB.Label Label17
|
|
Caption = "Liter"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 2640
|
|
TabIndex = 39
|
|
Top = 750
|
|
Width = 525
|
|
End
|
|
Begin VB.Label lblVist
|
|
Alignment = 1 'Rechts
|
|
BorderStyle = 1 'Fest Einfach
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 1320
|
|
TabIndex = 38
|
|
Top = 750
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label16
|
|
Caption = "V ist"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 600
|
|
TabIndex = 37
|
|
Top = 750
|
|
Width = 585
|
|
End
|
|
Begin VB.Label lblQist
|
|
Alignment = 1 'Rechts
|
|
BorderStyle = 1 'Fest Einfach
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 1320
|
|
TabIndex = 36
|
|
Top = 270
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label15
|
|
Caption = "Q ist"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 600
|
|
TabIndex = 35
|
|
Top = 270
|
|
Width = 615
|
|
End
|
|
End
|
|
Begin VB.CommandButton cmdStrangWählen
|
|
Caption = "Strang für Q auswählen"
|
|
Height = 285
|
|
Left = 5610
|
|
TabIndex = 29
|
|
Top = 1650
|
|
Width = 1935
|
|
End
|
|
Begin MSComctlLib.StatusBar StatusBar1
|
|
Align = 2 'Unten ausrichten
|
|
Height = 435
|
|
Left = 0
|
|
TabIndex = 28
|
|
Top = 8220
|
|
Width = 12330
|
|
_ExtentX = 21749
|
|
_ExtentY = 767
|
|
Style = 1
|
|
_Version = 393216
|
|
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
|
|
NumPanels = 1
|
|
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
EndProperty
|
|
EndProperty
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Caption = "intermittierender Betrieb"
|
|
Height = 2295
|
|
Left = 1590
|
|
TabIndex = 17
|
|
Top = 3600
|
|
Width = 7305
|
|
Begin VB.TextBox txtLaufzeitLiter
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 4080
|
|
TabIndex = 30
|
|
Top = 330
|
|
Width = 765
|
|
End
|
|
Begin VB.CommandButton cmdAbbruchIntermit
|
|
Caption = "Abbruch"
|
|
Height = 525
|
|
Left = 5790
|
|
TabIndex = 27
|
|
Top = 1230
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton cmdStartIntermet
|
|
Caption = "Start"
|
|
Height = 525
|
|
Left = 5760
|
|
TabIndex = 26
|
|
Top = 360
|
|
Width = 1095
|
|
End
|
|
Begin VB.TextBox txtWdh
|
|
Alignment = 1 'Rechts
|
|
BeginProperty DataFormat
|
|
Type = 0
|
|
Format = "0"
|
|
HaveTrueFalseNull= 0
|
|
FirstDayOfWeek = 0
|
|
FirstWeekOfYear = 0
|
|
LCID = 1033
|
|
SubFormatType = 0
|
|
EndProperty
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2010
|
|
TabIndex = 24
|
|
Text = "10"
|
|
Top = 1470
|
|
Width = 975
|
|
End
|
|
Begin VB.TextBox txtWarteSek
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2040
|
|
TabIndex = 21
|
|
Text = "60"
|
|
Top = 870
|
|
Width = 975
|
|
End
|
|
Begin VB.TextBox txtLaufzeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 2040
|
|
TabIndex = 18
|
|
Text = "300"
|
|
Top = 300
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label Label14
|
|
Caption = "oder "
|
|
Height = 255
|
|
Left = 3420
|
|
TabIndex = 33
|
|
Top = 420
|
|
Width = 495
|
|
End
|
|
Begin VB.Label Label13
|
|
Caption = "Liter"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 4920
|
|
TabIndex = 31
|
|
Top = 390
|
|
Width = 645
|
|
End
|
|
Begin VB.Label Label11
|
|
Caption = "Wiederholungen"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 120
|
|
TabIndex = 25
|
|
Top = 1470
|
|
Width = 1755
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "Pausenzeit"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 150
|
|
TabIndex = 23
|
|
Top = 900
|
|
Width = 1515
|
|
End
|
|
Begin VB.Label Label9
|
|
Caption = "s"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 3180
|
|
TabIndex = 22
|
|
Top = 930
|
|
Width = 375
|
|
End
|
|
Begin VB.Label Label8
|
|
Caption = "s"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 3180
|
|
TabIndex = 20
|
|
Top = 360
|
|
Width = 195
|
|
End
|
|
Begin VB.Label Label7
|
|
Caption = "Laufzeit"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 120
|
|
TabIndex = 19
|
|
Top = 390
|
|
Width = 1005
|
|
End
|
|
End
|
|
Begin VB.CommandButton cmdGrenzwertSetzen
|
|
Caption = "Setzen"
|
|
Height = 375
|
|
Left = 7680
|
|
TabIndex = 16
|
|
Top = 120
|
|
Width = 1215
|
|
End
|
|
Begin VB.ComboBox cmbStrang
|
|
Height = 315
|
|
Left = 5580
|
|
Style = 2 'Dropdown-Liste
|
|
TabIndex = 12
|
|
Top = 1200
|
|
Width = 6165
|
|
End
|
|
Begin VB.CommandButton cmdGetRuheGewicht
|
|
Caption = "Ruhegewicht lesen"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 555
|
|
Left = 210
|
|
TabIndex = 11
|
|
Top = 7470
|
|
Width = 2880
|
|
End
|
|
Begin VB.CommandButton cmdRohrFuellen
|
|
Caption = "Rohr füllen"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 555
|
|
Left = 210
|
|
TabIndex = 10
|
|
Top = 6840
|
|
Width = 2880
|
|
End
|
|
Begin VB.CommandButton cmdBehaelterLeeren
|
|
Caption = "Alle Behälter Leeren"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 555
|
|
Left = 210
|
|
TabIndex = 9
|
|
Top = 6180
|
|
Width = 2880
|
|
End
|
|
Begin VB.TextBox txtGrenzwert
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 5760
|
|
TabIndex = 7
|
|
Top = 120
|
|
Width = 1260
|
|
End
|
|
Begin VB.TextBox txtSolldurchfluss
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 2280
|
|
TabIndex = 4
|
|
Text = "1"
|
|
Top = 2430
|
|
Width = 1980
|
|
End
|
|
Begin VB.CommandButton cmdStop
|
|
Caption = "STOP"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 990
|
|
Left = 90
|
|
TabIndex = 1
|
|
Top = 4650
|
|
Width = 1320
|
|
End
|
|
Begin VB.CommandButton cmdStart
|
|
Caption = "START"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 990
|
|
Left = 120
|
|
TabIndex = 0
|
|
Top = 3420
|
|
Width = 1305
|
|
End
|
|
Begin VB.ListBox lstBehaelterAuswahl
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 2220
|
|
Left = 0
|
|
TabIndex = 2
|
|
Top = 0
|
|
Width = 4245
|
|
End
|
|
Begin VB.Label Label12
|
|
Caption = "%"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 18
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 8400
|
|
TabIndex = 32
|
|
Top = 3000
|
|
Width = 405
|
|
End
|
|
Begin VB.Label Label6
|
|
Caption = "Stellwert soll"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 18
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 5400
|
|
TabIndex = 15
|
|
Top = 3000
|
|
Width = 2295
|
|
End
|
|
Begin MSForms.ScrollBar ScrollBar1
|
|
Height = 315
|
|
Left = 5520
|
|
TabIndex = 14
|
|
Top = 2490
|
|
Width = 6405
|
|
Size = "11298;556"
|
|
End
|
|
Begin VB.Label Label5
|
|
Caption = "Strang"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 4620
|
|
TabIndex = 13
|
|
Top = 1080
|
|
Width = 855
|
|
End
|
|
Begin VB.Label Label4
|
|
Caption = "kg"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 7080
|
|
TabIndex = 8
|
|
Top = 120
|
|
Width = 600
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "Grenzwert"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 4350
|
|
TabIndex = 6
|
|
Top = 180
|
|
Width = 1665
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "m³/h"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 4410
|
|
TabIndex = 5
|
|
Top = 2460
|
|
Width = 720
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Soll-Durchfluss"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 90
|
|
TabIndex = 3
|
|
Top = 2400
|
|
Width = 2115
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmSPSTest"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private m_ArrayBehaelter(4) As CBehaelter
|
|
Private m_Behaelter As CBehaelter
|
|
|
|
Const TXT_DURCHLAUF = "Durchlauf"
|
|
|
|
Private m_SPS As CSPS
|
|
Private m_Referenzzaehler As CRefzaehler
|
|
Private m_RefezaehlerStrang As Integer
|
|
Private m_Pumpe As CPumpe
|
|
Private m_Waage As CWaage
|
|
Private m_dblDurchflussSoll As Double
|
|
Private m_ColPumpen As Collection
|
|
Private m_lngStartzeit As Long
|
|
|
|
Private m_Logfile As String
|
|
|
|
|
|
Private m_bolAbbruchIntermit As Boolean
|
|
Private m_bolAbbruchAblass As Boolean
|
|
|
|
Private Sub cmbStrang_Click()
|
|
cmbStrang_Change
|
|
End Sub
|
|
|
|
Private Sub cmdAbbruchIntermit_Click()
|
|
m_bolAbbruchIntermit = True
|
|
m_SPS.setBetrieb 0
|
|
m_SPS.WassserAblassen 0
|
|
ClearStatus
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub cmdBehaelterLeeren_Click()
|
|
cmdBehaelterLeeren.Enabled = False
|
|
m_bolAbbruchIntermit = False
|
|
m_SPS.WassserAblassen 1 + 2 + 4 + 8
|
|
|
|
Do While Not m_bolAbbruchIntermit
|
|
UpdateStatus
|
|
DoEvents
|
|
Loop
|
|
m_SPS.WassserAblassen 0
|
|
|
|
cmdBehaelterLeeren.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub cmdGrenzwertSetzen_Click()
|
|
m_Waage.SetNettoGrenzwert1 CDbl(txtGrenzwert.text)
|
|
End Sub
|
|
|
|
Private Sub cmdStart_Click()
|
|
cmdStart.Enabled = False
|
|
cmdStop.Enabled = True
|
|
|
|
StartBetrieb
|
|
End Sub
|
|
|
|
|
|
Private Sub StartBetrieb()
|
|
Dim dummy As Variant
|
|
Dim m_RefZaehlerPruefpunkt As CRefZaehlerPruefpunkt
|
|
Dim Servostellwert As Integer
|
|
|
|
m_SPS.setBetrieb 0
|
|
m_SPS.WassserAblassen 0
|
|
|
|
TestAutomatik:
|
|
If Not m_SPS.IstAutomatik Then
|
|
dummy = MsgBox("Bitte SPS auf Automatik stellen", vbOKCancel)
|
|
If dummy = vbCancel Then
|
|
Exit Sub
|
|
End If
|
|
GoTo TestAutomatik
|
|
End If
|
|
|
|
m_dblDurchflussSoll = CDbl(txtSolldurchfluss.text)
|
|
Set m_Referenzzaehler = New CRefzaehler
|
|
If m_Referenzzaehler.loadForDurchfluss(m_dblDurchflussSoll, 1) Then
|
|
If cmbStrang.ListIndex = -1 Then
|
|
FillCmbStrang
|
|
End If
|
|
Else
|
|
MsgBox ("RefZ für Durchfluss konnte nocht geladen werden")
|
|
Exit Sub
|
|
End If
|
|
|
|
m_SPS.SetMID m_Referenzzaehler.EinbauplatzNr
|
|
|
|
If Not m_Behaelter Is Nothing Then
|
|
m_SPS.setBehaelter m_Behaelter.m_BehaelterAnwahl
|
|
txtGrenzwert.text = m_Behaelter.m_OVolumen
|
|
|
|
m_Waage.Initialize m_Behaelter.m_Nr
|
|
m_Waage.Nullstellen
|
|
m_Waage.Tara
|
|
|
|
m_Waage.SoftTara
|
|
Else
|
|
m_SPS.setBehaelter 1 ' Durchlauf
|
|
End If
|
|
|
|
m_SPS.SetQSoll m_dblDurchflussSoll
|
|
|
|
|
|
m_SPS.AllePumpenAbwaehlen
|
|
Set m_ColPumpen = g_App.Settings.getPumpen
|
|
|
|
Set m_Pumpe = Pumpenwahl(m_dblDurchflussSoll, m_ColPumpen)
|
|
If m_Pumpe Is Nothing Then
|
|
Exit Sub
|
|
Else
|
|
m_SPS.AnwahlPumpe m_Pumpe.getNr
|
|
|
|
Set m_RefZaehlerPruefpunkt = New CRefZaehlerPruefpunkt
|
|
|
|
|
|
Servostellwert = lookupFUServoStellwert(m_dblDurchflussSoll, m_Pumpe.GetRegelart)
|
|
|
|
txtStellwertSoll.text = Servostellwert
|
|
|
|
Select Case m_Pumpe.GetRegelart
|
|
' Servo Vorgeschrieben
|
|
Case "Servo"
|
|
m_SPS.SetRegelart ("Servo")
|
|
m_SPS.SetServoStellung Servostellwert
|
|
Case "FU"
|
|
' FU vorgeschrieben
|
|
m_SPS.SetRegelart ("FU")
|
|
m_SPS.SetServoStellung Servostellwert
|
|
Case Else
|
|
MsgBox "Es ist keine Regelart für die Pumpe " & m_Pumpe.getNr & " in der ini-Datei definiert."
|
|
Exit Sub
|
|
End Select
|
|
End If
|
|
|
|
m_SPS.setBetrieb 0
|
|
Sleep 500
|
|
m_SPS.setBetrieb 2
|
|
|
|
|
|
m_Logfile = "C:\intermitt_" & Format(Now, "yyyy-mm-dd_hh-mm") & ".txt"
|
|
m_lngStartzeit = GetTickCount()
|
|
End Sub
|
|
|
|
|
|
Private Sub cmdStop_Click()
|
|
cmdStop.Enabled = False
|
|
m_SPS.setBetrieb 0
|
|
cmdStart.Enabled = True
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Form_Load()
|
|
Dim Behaelter As CBehaelter
|
|
Dim i As Integer
|
|
Dim Einbauplatz As Integer
|
|
|
|
|
|
Set m_SPS = g_App.getSPS
|
|
Set m_Waage = g_App.getWaage
|
|
|
|
lstBehaelterAuswahl.Clear
|
|
lstBehaelterAuswahl.AddItem TXT_DURCHLAUF, 0
|
|
|
|
For i = 1 To 5
|
|
Set Behaelter = New CBehaelter
|
|
If Behaelter.LoadFromIni(i) Then
|
|
lstBehaelterAuswahl.AddItem Behaelter.m_OVolumen & " Liter Behälter", i
|
|
End If
|
|
Next
|
|
|
|
|
|
Call FillCmbStrang
|
|
|
|
txtLaufzeit_Change
|
|
|
|
cmdStart.Enabled = True
|
|
cmdStop.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub FillCmbStrang()
|
|
Dim EinbauplatzNr As Integer
|
|
cmbStrang.Clear
|
|
For m_RefezaehlerStrang = 1 To 5
|
|
EinbauplatzNr = (m_RefezaehlerStrang - 1) * 2 + 1
|
|
Set m_Referenzzaehler = New CRefzaehler
|
|
If m_Referenzzaehler.LoadForRefzaehlerpruefung(EinbauplatzNr) = 0 Then
|
|
cmbStrang.AddItem EinbauplatzNr & " : " & "NW " & m_Referenzzaehler.Nennweite & " (" & Round(m_Referenzzaehler.UDurchfluss, 5) & " - " & Round(m_Referenzzaehler.ODurchfluss, 5) & ")"
|
|
If m_dblDurchflussSoll > 0 Then
|
|
If m_Referenzzaehler.IstOkFuerDurchfluss(m_dblDurchflussSoll) Then
|
|
cmbStrang.Enabled = False
|
|
cmbStrang.ListIndex = cmbStrang.ListCount - 1
|
|
DoEvents
|
|
cmbStrang.Enabled = True
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub lstBehaelterAuswahl_Click()
|
|
Me.MousePointer = vbHourglass
|
|
|
|
On Error GoTo Errorhandler
|
|
If lstBehaelterAuswahl.List(lstBehaelterAuswahl.ListIndex) = TXT_DURCHLAUF Then
|
|
txtGrenzwert.Enabled = False
|
|
txtGrenzwert.text = ""
|
|
Else
|
|
txtGrenzwert.Enabled = True
|
|
|
|
Set m_Behaelter = New CBehaelter
|
|
m_Behaelter.LoadFromIni (lstBehaelterAuswahl.ListIndex)
|
|
txtGrenzwert.text = m_Behaelter.m_OVolumen
|
|
|
|
Set m_Waage = g_App.getWaage
|
|
m_Waage.Initialize m_Behaelter.m_Nr
|
|
If m_Behaelter.m_WaageAnwahl > 0 Then
|
|
m_Waage.Anwahl m_Behaelter.m_WaageAnwahl
|
|
End If
|
|
|
|
|
|
End If
|
|
Me.MousePointer = vbNormal
|
|
Exit Sub
|
|
Errorhandler:
|
|
MsgBox "Fehler " & Err.Number & " in lstBehaelterAuswahl_Click(): " & Err.Description
|
|
Me.MousePointer = vbNormal
|
|
Exit Sub
|
|
Resume
|
|
End Sub
|
|
|
|
|
|
Private Sub cmbStrang_Change()
|
|
Dim ODurchfluss As Double
|
|
Dim UDurchfluss As Double
|
|
|
|
If cmbStrang.Enabled = True Then
|
|
If m_Referenzzaehler.LoadForRefzaehlerpruefung(Val(cmbStrang.text)) = 0 Then
|
|
|
|
ScrollBar1.Min = 0
|
|
ScrollBar1.Max = 100
|
|
|
|
ScrollBar1_Change
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ScrollBar1_Change()
|
|
txtSolldurchfluss.text = Round(Round(m_Referenzzaehler.UDurchfluss, 5) + ScrollBar1.value * (Round(m_Referenzzaehler.ODurchfluss, 5) - Round(m_Referenzzaehler.UDurchfluss, 5)) / 100, 5)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub intermittierendenBetrieb()
|
|
|
|
'''Hallo Reinhard, ist es möglich ein kl. Programm zu schreiben,
|
|
'''mit Hilfe dessen, man einen intermittierenden Betrieb laufen lassen kann?
|
|
'''Soll heißen,
|
|
'''man bräuchte:
|
|
'''1) Durchfluss (m³/h)
|
|
'''2) Laufzeit (entweder nach Litern oder Zeit)
|
|
'''3) Pausenzeit (sek. bzw. min.)
|
|
'''4) Wiederholungen
|
|
'''z.B.
|
|
'''5 m³/h -> 200 Liter -> 1 Min. Pause -> 10 Wiederholungen
|
|
'''Bzw.
|
|
'''5 m³/h -> 144 sek -> 60 sek Pause -> 10 Wiederholungen
|
|
'''Mit freundlichen Grüßen Karsten Nettemann
|
|
|
|
Dim intWdh As Integer
|
|
|
|
Call StartBetrieb
|
|
' läuft
|
|
For intWdh = 1 To Val(txtWdh.text)
|
|
If m_bolAbbruchIntermit Then Exit For
|
|
|
|
m_SPS.SetServoStellung Val(txtStellwertSoll.text)
|
|
|
|
m_SPS.setBetrieb 2
|
|
WarteSekunden Val(txtLaufzeit.text), "Wdh=" & intWdh & ", Betrieb, "
|
|
|
|
If m_bolAbbruchIntermit Then Exit For
|
|
m_SPS.setBetrieb 0
|
|
|
|
m_SPS.SetServoStellung Val(txtStellwertSoll.text)
|
|
|
|
WarteSekunden Val(txtWarteSek.text), "Wdh=" & intWdh & ", Pause, "
|
|
Next
|
|
|
|
StatusBar1.SimpleText = "fertig"
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ClearStatus()
|
|
lblQIst.caption = ""
|
|
lblVist.caption = ""
|
|
lblQIst.BackColor = &H8000000F
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdStartIntermet_Click()
|
|
cmdStartIntermet.Enabled = False
|
|
m_bolAbbruchIntermit = False
|
|
|
|
Call intermittierendenBetrieb
|
|
ClearStatus
|
|
|
|
cmdStartIntermet.Enabled = True
|
|
End Sub
|
|
|
|
|
|
Private Sub WarteSekunden(lngWarteSek As Long, Optional strDebugText As String = "")
|
|
Dim lngSekunden As Long
|
|
For lngSekunden = 1 To lngWarteSek
|
|
If m_bolAbbruchIntermit Then Exit For
|
|
|
|
Call UpdateStatus
|
|
|
|
StatusBar1.SimpleText = strDebugText & " " & lngWarteSek - lngSekunden + 1 & " / " & lngWarteSek
|
|
Sleep 1000, True
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub UpdateStatus()
|
|
lblQIst.caption = Round(m_SPS.getQIst, 3)
|
|
lblStellwert.caption = m_SPS.GetStellwert
|
|
|
|
If Not m_Waage Is Nothing Then
|
|
lblVist.caption = Round(Errechne_Volumen_Von_Wasser_in_m3(1000 * m_Waage.GetGewicht, m_SPS.GetEinlaufTemperatur), 3)
|
|
End If
|
|
|
|
If chkLoggen.value = vbChecked Then
|
|
AppendToFile m_Logfile, GetTickCount() - m_lngStartzeit & vbTab & lblQIst.caption & vbTab & lblVist.caption
|
|
End If
|
|
|
|
If m_SPS.SolldurchflussErreicht Then
|
|
lblQIst.BackColor = RGB(220, 255, 220)
|
|
Else
|
|
lblQIst.BackColor = RGB(255, 220, 220)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub UpdateStatusAblass()
|
|
Dim dblGewichtVorher As Double
|
|
Dim dblGewichtNachher As Double
|
|
Dim dblAbfluss As Double
|
|
Dim lngIntervall As Long
|
|
|
|
|
|
lngIntervall = Val(txtIntervall.text)
|
|
|
|
' Messung
|
|
dblGewichtVorher = m_Waage.GetGewicht
|
|
lblVist.caption = Round(Errechne_Volumen_Von_Wasser_in_m3(1000 * dblGewichtVorher, m_SPS.GetEinlaufTemperatur), 3)
|
|
Sleep lngIntervall, True
|
|
dblGewichtNachher = m_Waage.GetGewicht
|
|
lblVist.caption = Round(Errechne_Volumen_Von_Wasser_in_m3(1000 * dblGewichtNachher, m_SPS.GetEinlaufTemperatur), 3)
|
|
|
|
dblAbfluss = 60000 * (dblGewichtVorher - dblGewichtNachher) / lngIntervall ' kg / min
|
|
lblAbflussDurchfluss.caption = Round(dblAbfluss, 3)
|
|
|
|
If chkLoggen.value = vbChecked And m_Logfile <> "" Then
|
|
AppendToFile m_Logfile, GetTickCount() - m_lngStartzeit & vbTab & -Round(dblAbfluss, 3) & vbTab & lblVist.caption
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdStrangWählen_Click()
|
|
m_dblDurchflussSoll = CDbl(txtSolldurchfluss.text)
|
|
FillCmbStrang
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub txtLaufzeit_Change()
|
|
Dim dblQlsec As Double
|
|
Dim dblTsec As Double
|
|
|
|
If txtLaufzeit.Enabled = False Then Exit Sub
|
|
|
|
|
|
|
|
If IsNumeric(txtLaufzeit.text) And IsNumeric(txtSolldurchfluss.text) Then
|
|
dblQlsec = CDbl(txtSolldurchfluss.text) * 1000 / 3600
|
|
dblTsec = CDbl(txtLaufzeit.text)
|
|
txtLaufzeitLiter.Enabled = False
|
|
txtLaufzeitLiter.text = Round(dblQlsec * dblTsec)
|
|
txtLaufzeitLiter.Enabled = True
|
|
Else
|
|
txtLaufzeitLiter.text = ""
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub txtLaufzeitLiter_GotFocus()
|
|
txtLaufzeit.BackColor = RGB(220, 220, 220)
|
|
txtLaufzeitLiter.BackColor = RGB(255, 255, 255)
|
|
End Sub
|
|
|
|
Private Sub txtLaufzeit_GotFocus()
|
|
txtLaufzeit.BackColor = RGB(255, 255, 255)
|
|
txtLaufzeitLiter.BackColor = RGB(220, 220, 220)
|
|
End Sub
|
|
|
|
Private Sub txtLaufzeit_KeyPress(KeyAscii As Integer)
|
|
' nur numerische Werte mit Komma zulassen
|
|
Select Case KeyAscii
|
|
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
|
|
Case 44
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
End If
|
|
Case 46
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
Else
|
|
KeyAscii = 44
|
|
End If
|
|
Case 3, 22, 24, 8
|
|
' cut copy Paste Backspace
|
|
|
|
Case 13
|
|
Call txtSolldurchfluss_Validate(False)
|
|
Case Else
|
|
KeyAscii = 0
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub txtLaufzeitLiter_Change()
|
|
Dim dblQlsec As Double
|
|
Dim dblVolLiter As Double
|
|
|
|
If txtLaufzeitLiter.Enabled = False Then Exit Sub
|
|
If IsNumeric(txtLaufzeitLiter.text) And IsNumeric(txtSolldurchfluss.text) Then
|
|
dblQlsec = CDbl(txtSolldurchfluss.text) * 1000 / 3600
|
|
dblVolLiter = CDbl(txtLaufzeitLiter.text)
|
|
|
|
txtLaufzeit.Enabled = False
|
|
txtLaufzeit.text = Round(dblVolLiter / dblQlsec, 0)
|
|
txtLaufzeit.Enabled = True
|
|
Else
|
|
txtLaufzeit.text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtLaufzeitLiter_KeyPress(KeyAscii As Integer)
|
|
' nur numerische Werte mit Komma zulassen
|
|
Select Case KeyAscii
|
|
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
|
|
Case 44
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
End If
|
|
Case 46
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
Else
|
|
KeyAscii = 44
|
|
End If
|
|
Case 3, 22, 24, 8
|
|
' cut copy Paste Backspace
|
|
|
|
Case 13
|
|
Call txtSolldurchfluss_Validate(False)
|
|
Case Else
|
|
KeyAscii = 0
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub txtSolldurchfluss_Change()
|
|
|
|
If IsNumeric(txtSolldurchfluss.text) Then
|
|
|
|
If CDbl(txtSolldurchfluss.text) = 0 Then
|
|
txtLaufzeitLiter.Enabled = False
|
|
Else
|
|
txtLaufzeitLiter.Enabled = True
|
|
End If
|
|
|
|
If txtLaufzeitLiter.BackColor = RGB(255, 255, 255) Then
|
|
Call txtLaufzeitLiter_Change
|
|
Else
|
|
Call txtLaufzeit_Change
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub txtSolldurchfluss_KeyPress(KeyAscii As Integer)
|
|
' nur numerische Werte mit Komma zulassen
|
|
Select Case KeyAscii
|
|
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
|
|
Case 44
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
End If
|
|
Case 46
|
|
If InStr(1, txtSolldurchfluss, ",") > 0 Then
|
|
KeyAscii = 0
|
|
Else
|
|
KeyAscii = 44
|
|
End If
|
|
Case 3, 22, 24, 8
|
|
' cut copy Paste Backspace
|
|
|
|
Case 13
|
|
Call txtSolldurchfluss_Validate(False)
|
|
Case Else
|
|
KeyAscii = 0
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub txtSolldurchfluss_Validate(Cancel As Boolean)
|
|
On Error GoTo Errorhandler
|
|
m_dblDurchflussSoll = CDbl(txtSolldurchfluss.text)
|
|
FillCmbStrang
|
|
Exit Sub
|
|
Errorhandler:
|
|
MsgBox "Fehler: " & Err.Description
|
|
End Sub
|
|
|
|
|
|
Private Sub AppendToFile(strFile As String, sText As String)
|
|
On Error Resume Next
|
|
Debug.Print sText
|
|
LogFileHandle = FreeFile()
|
|
Open strFile For Append As LogFileHandle
|
|
Print #LogFileHandle, sText
|
|
Close #LogFileHandle
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
' ' Alle Ablassventile öffnen
|
|
' For i = 1 To 5
|
|
' Set Behaelter = New CBehaelter
|
|
' If Behaelter.LoadFromIni(i) Then
|
|
' AblassAnwahlGes = AblassAnwahlGes Or Behaelter.m_AblassAnwahl
|
|
' End If
|
|
' Next
|
|
' m_SPS.WassserAblassen AblassAnwahlGes
|
|
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
|
|
|
|
Private Sub cmdAktuellenBehaelterLeeren_Click()
|
|
|
|
m_Logfile = "C:\ablass_" & Format(Now, "yyyy-mm-dd_hh-mm") & ".txt"
|
|
|
|
|
|
If m_Behaelter Is Nothing Then
|
|
MsgBox "bitte Behälter auswählen"
|
|
Exit Sub
|
|
End If
|
|
|
|
m_bolAbbruchAblass = False
|
|
|
|
cmdAktuellenBehaelterLeeren.Enabled = False
|
|
cmdAblassStop.Enabled = True
|
|
|
|
' AblassDurchflussGrenzwert z.B. beim grossen Behälter: -2 Liter/s
|
|
|
|
' Ablass öffnen
|
|
' AblassDurchfluss_pro_sekunde berechnen
|
|
' Warten, solange AblassDurchfluss_pro_sekunde > AblassDurchflussGrenzwert
|
|
' Ablass schliessen
|
|
|
|
|
|
m_Waage.Initialize (m_Behaelter.m_Nr)
|
|
m_Waage.Anwahl m_Behaelter.m_WaageAnwahl
|
|
m_Waage.TaraReset
|
|
m_Waage.SoftTaraReset
|
|
|
|
m_SPS.WassserAblassen m_Behaelter.m_AblassAnwahl
|
|
|
|
Do
|
|
If m_bolAbbruchAblass Then Exit Do
|
|
UpdateStatusAblass
|
|
Loop While True
|
|
|
|
m_SPS.WassserAblassen 0
|
|
cmdAktuellenBehaelterLeeren.Enabled = True
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdAblassStop_Click()
|
|
m_bolAbbruchAblass = True
|
|
cmdAblassStop.Enabled = False
|
|
End Sub
|