505 lines
15 KiB
Plaintext
505 lines
15 KiB
Plaintext
VERSION 5.00
|
||
Begin VB.Form frmPruefgangVorgaben
|
||
BorderStyle = 0 'Kein
|
||
Caption = "Pruef2000"
|
||
ClientHeight = 4350
|
||
ClientLeft = 0
|
||
ClientTop = 0
|
||
ClientWidth = 7695
|
||
LinkTopic = "Form1"
|
||
ScaleHeight = 4350
|
||
ScaleWidth = 7695
|
||
ShowInTaskbar = 0 'False
|
||
StartUpPosition = 3 'Windows-Standard
|
||
Begin VB.Frame frMain
|
||
Height = 3195
|
||
Left = 0
|
||
TabIndex = 2
|
||
Top = 420
|
||
Width = 5835
|
||
Begin VB.TextBox txtSollwertRegulierung
|
||
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 = 2880
|
||
TabIndex = 9
|
||
Top = 1860
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtDaempfung
|
||
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
|
||
Index = 2
|
||
Left = 4800
|
||
TabIndex = 8
|
||
Top = 1380
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtSteigung
|
||
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
|
||
Index = 2
|
||
Left = 4800
|
||
TabIndex = 7
|
||
Top = 900
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtDaempfung
|
||
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 = 435
|
||
Index = 1
|
||
Left = 3840
|
||
TabIndex = 6
|
||
Top = 1380
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtSteigung
|
||
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
|
||
Index = 1
|
||
Left = 3840
|
||
TabIndex = 5
|
||
Top = 900
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtDaempfung
|
||
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
|
||
Index = 0
|
||
Left = 2880
|
||
TabIndex = 4
|
||
Top = 1380
|
||
Width = 800
|
||
End
|
||
Begin VB.TextBox txtSteigung
|
||
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
|
||
Index = 0
|
||
Left = 2880
|
||
TabIndex = 3
|
||
Top = 900
|
||
Width = 800
|
||
End
|
||
Begin VB.Line Line3
|
||
X1 = 120
|
||
X2 = 5580
|
||
Y1 = 720
|
||
Y2 = 720
|
||
End
|
||
Begin VB.Label lblRegulierungTitel
|
||
Caption = "Regulier-Daten:"
|
||
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 = 120
|
||
TabIndex = 16
|
||
Top = 300
|
||
Width = 2475
|
||
End
|
||
Begin VB.Label Label11
|
||
Alignment = 2 'Zentriert
|
||
Caption = "3"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 12
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 375
|
||
Index = 2
|
||
Left = 4800
|
||
TabIndex = 15
|
||
Top = 300
|
||
Width = 795
|
||
End
|
||
Begin VB.Label Label11
|
||
Alignment = 2 'Zentriert
|
||
Caption = "2"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 12
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 375
|
||
Index = 1
|
||
Left = 3840
|
||
TabIndex = 14
|
||
Top = 300
|
||
Width = 795
|
||
End
|
||
Begin VB.Label Label11
|
||
Alignment = 2 'Zentriert
|
||
Caption = "1"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 12
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 375
|
||
Index = 0
|
||
Left = 2880
|
||
TabIndex = 13
|
||
Top = 300
|
||
Width = 795
|
||
End
|
||
Begin VB.Label lblRSollwert
|
||
Caption = "Voreinstellwert %"
|
||
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 = 120
|
||
TabIndex = 12
|
||
Top = 1920
|
||
Width = 2715
|
||
End
|
||
Begin VB.Label Label9
|
||
Caption = "D<>mpfung"
|
||
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 = 120
|
||
TabIndex = 11
|
||
Top = 1440
|
||
Width = 2715
|
||
End
|
||
Begin VB.Label Label8
|
||
Caption = "Steigung"
|
||
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 = 120
|
||
TabIndex = 10
|
||
Top = 960
|
||
Width = 2715
|
||
End
|
||
End
|
||
Begin VB.CommandButton cmdOK
|
||
Caption = "OK"
|
||
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 = 495
|
||
Left = 1560
|
||
TabIndex = 1
|
||
Top = 0
|
||
Width = 1455
|
||
End
|
||
Begin VB.CommandButton cmdCancel
|
||
Cancel = -1 'True
|
||
Caption = "Abbrechen"
|
||
BeginProperty Font
|
||
Name = "MS Sans Serif"
|
||
Size = 9.75
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 495
|
||
Left = 0
|
||
TabIndex = 0
|
||
Top = 0
|
||
Width = 1455
|
||
End
|
||
Begin VB.Label lblTitle
|
||
Caption = "lblTitle"
|
||
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 = 3120
|
||
TabIndex = 17
|
||
Top = 0
|
||
Width = 2475
|
||
End
|
||
End
|
||
Attribute VB_Name = "frmPruefgangVorgaben"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = False
|
||
Attribute VB_PredeclaredId = True
|
||
Attribute VB_Exposed = False
|
||
'==============================================================================
|
||
'
|
||
' File : PruefgangVorgaben.frm
|
||
' Date : 14.05.1999
|
||
' Version: 0.01
|
||
' Author : Andreas Schmidt, lindner&partner
|
||
'
|
||
'==============================================================================
|
||
'
|
||
' Formular zur Vorgabe der Regulierwerte
|
||
'
|
||
'==============================================================================
|
||
'
|
||
' History:
|
||
'
|
||
' Date : 14.05.1999
|
||
' Version: 0.01
|
||
' Author : Andreas Schmidt, lindner&partner
|
||
'
|
||
' Erste dokumentierte Version.
|
||
'
|
||
'==============================================================================
|
||
|
||
Option Explicit
|
||
|
||
' Private Member
|
||
' --------------
|
||
Private Const MAX_REGULIERUNG% = 3
|
||
|
||
Private Const FORMAT_Daempfung = "####0"
|
||
Private Const FORMAT_Steigung = "####0.00"
|
||
Private Const FORMAT_RSollwert = "#0.00"
|
||
|
||
Private m_nRet As Integer
|
||
Private m_bInLoad As Boolean
|
||
Private m_Regulierdaten As CRegulierdaten
|
||
|
||
|
||
' @return Code, mit dem endDialog aufgerufen wurde
|
||
'
|
||
Public Function getExitCode() As Integer
|
||
getExitCode = m_nRet
|
||
End Function
|
||
|
||
' Dialog beenden
|
||
'
|
||
' @param nRet Returncode des Dialogs
|
||
'
|
||
Private Sub endDialog(nRet As Integer)
|
||
m_nRet = nRet
|
||
Unload Me
|
||
End Sub
|
||
|
||
' @param Pruefpunkte zu bearbeitendes Pr<50>fpunkte-Objekt
|
||
'
|
||
Public Sub setRegulierdaten(Regulierdaten As CRegulierdaten)
|
||
Set m_Regulierdaten = Regulierdaten
|
||
End Sub
|
||
|
||
|
||
' @param bSave true = Daten in Member speichern,
|
||
' false = Daten in GUI-Elemente schreiben
|
||
'
|
||
Private Function updateData(bSave) As Boolean
|
||
On Error Resume Next
|
||
|
||
Dim i As Integer
|
||
|
||
If (bSave) Then
|
||
' Steigung und D<>mpfung 1-3 speichern bzw. clearen
|
||
For i = 1 To MAX_REGULIERUNG
|
||
If Trim$(txtSteigung(i - 1)) <> "" Then
|
||
Call m_Regulierdaten.setSteigung(i, stringToLong(txtSteigung(i - 1)))
|
||
Else
|
||
Call m_Regulierdaten.clearSteigung(i)
|
||
End If
|
||
|
||
If Trim$(txtDaempfung(i - 1)) <> "" Then
|
||
Call m_Regulierdaten.setDaempfung(i, stringToLong(txtDaempfung(i - 1)))
|
||
Else
|
||
Call m_Regulierdaten.clearDaempfung(i)
|
||
End If
|
||
Next i
|
||
|
||
If Trim$(txtSollwertRegulierung) <> "" Then
|
||
Call m_Regulierdaten.setSPSSollwertRegulierung(stringToDouble(txtSollwertRegulierung.text))
|
||
Else
|
||
Call m_Regulierdaten.clearSPSSollwertRegulierung
|
||
End If
|
||
Else
|
||
' Felder mit den Werten aus dem Pruefpunkte-Objekt laden
|
||
' ------------------------------------------------------
|
||
For i = 1 To MAX_REGULIERUNG
|
||
txtSteigung(i - 1).text = doubleToString(m_Regulierdaten.getSteigung(i), FORMAT_Steigung)
|
||
txtDaempfung(i - 1).text = longToString(m_Regulierdaten.getDaempfung(i), FORMAT_Daempfung)
|
||
Next i
|
||
|
||
txtSollwertRegulierung.text = doubleToString(m_Regulierdaten.getSPSSollwertRegulierung(), FORMAT_RSollwert)
|
||
End If
|
||
|
||
updateData = True
|
||
End Function
|
||
|
||
|
||
'------------------------------------------------------------------------------
|
||
' Event-Handling
|
||
'------------------------------------------------------------------------------
|
||
|
||
Private Sub Form_Load()
|
||
m_bInLoad = True
|
||
lblTitle.Caption = "Bearbeitung der Pr<50>fgangvorgaben"
|
||
|
||
Call setupStdDlg(Me)
|
||
Call updateData(False)
|
||
|
||
cmdOK.Enabled = False
|
||
m_bInLoad = False
|
||
End Sub
|
||
|
||
Private Sub cmdOK_Click()
|
||
If updateData(True) Then
|
||
Call endDialog(IDOK)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub cmdCancel_Click()
|
||
Call endDialog(IDCANCEL)
|
||
End Sub
|
||
|
||
'
|
||
' Ver<65>nderung von Eingabewerten
|
||
'
|
||
|
||
Private Sub txtSollwertRegulierung_Change()
|
||
cmdOK.Enabled = True
|
||
End Sub
|
||
|
||
Private Sub txtSteigung_Change(Index As Integer)
|
||
cmdOK.Enabled = True
|
||
End Sub
|
||
|
||
Private Sub txtDaempfung_Change(Index As Integer)
|
||
cmdOK.Enabled = True
|
||
End Sub
|
||
|
||
'
|
||
' Focusverlust bei Eingabefeldern
|
||
'
|
||
|
||
Private Sub txtSteigung_LostFocus(Index As Integer)
|
||
If Trim$(txtSteigung(Index).text) <> "" Then
|
||
txtSteigung(Index).text = doubleToString(stringToDouble(txtSteigung(Index)), FORMAT_Steigung)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub txtDaempfung_LostFocus(Index As Integer)
|
||
If Trim$(txtDaempfung(Index).text) <> "" Then
|
||
txtDaempfung(Index).text = doubleToString(stringToDouble(txtDaempfung(Index)), FORMAT_Daempfung)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub txtSollwertRegulierung_LostFocus()
|
||
If Trim$(txtSollwertRegulierung.text) <> "" Then
|
||
txtSollwertRegulierung.text = doubleToString(stringToDouble(txtSollwertRegulierung), FORMAT_RSollwert)
|
||
End If
|
||
End Sub
|
||
|
||
|
||
|