107 lines
2.9 KiB
Plaintext
107 lines
2.9 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmDurchflussanzeige
|
|
Caption = "Pruef2000 Durchflussanzeige"
|
|
ClientHeight = 10485
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 12030
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 10485
|
|
ScaleWidth = 12030
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.Timer Timer1
|
|
Left = 8730
|
|
Top = 1050
|
|
End
|
|
Begin VB.CommandButton cmdClose
|
|
Caption = "Schliessen"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 660
|
|
Left = 9945
|
|
TabIndex = 1
|
|
Top = 9660
|
|
Width = 1815
|
|
End
|
|
Begin VB.Label lblDurchfluss
|
|
Alignment = 2 'Zentriert
|
|
AutoSize = -1 'True
|
|
BorderStyle = 1 'Fest Einfach
|
|
Caption = "500.123"
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 140.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 3180
|
|
Left = 915
|
|
TabIndex = 0
|
|
Top = 2460
|
|
Width = 10215
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmDurchflussanzeige"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim m_SPS As CSPS
|
|
|
|
Private Sub cmdClose_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Me.Width = TwipsPerPixelX(800)
|
|
Me.Height = TwipsPerPixelY(600)
|
|
Me.Top = 0
|
|
Me.Left = 0
|
|
|
|
Timer1.Interval = 500
|
|
Timer1.Enabled = True
|
|
|
|
If Not g_ohneSPS Then
|
|
Set m_SPS = g_App.getSPS
|
|
Else
|
|
lblDurchfluss.Caption = "NO.SPS!"
|
|
Timer1.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Resize()
|
|
|
|
lblDurchfluss.Top = (Me.ScaleHeight - lblDurchfluss.Height) / 2
|
|
lblDurchfluss.Left = (Me.ScaleWidth - lblDurchfluss.Width) / 2
|
|
|
|
|
|
cmdClose.Left = Me.ScaleWidth - cmdClose.Width * 1.5
|
|
cmdClose.Top = Me.ScaleHeight - cmdClose.Height * 1.5
|
|
If cmdClose.Top < 0 Then cmdClose.Top = 0
|
|
If cmdClose.Left < 0 Then cmdClose.Left = 0
|
|
|
|
If Me.Width < cmdClose.Width Then Me.Width = cmdClose.Width
|
|
If Me.ScaleHeight < cmdClose.Height Then Me.Height = cmdClose.Height * 1.5
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Timer1_Timer()
|
|
If Not m_SPS Is Nothing Then
|
|
lblDurchfluss.Caption = Format(m_SPS.getQIst, "0.###")
|
|
Else
|
|
lblDurchfluss.Caption = "???.??"
|
|
End If
|
|
End Sub
|