46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form Form2
|
|
Caption = "Form2"
|
|
ClientHeight = 3195
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 4680
|
|
LinkTopic = "Form2"
|
|
ScaleHeight = 3195
|
|
ScaleWidth = 4680
|
|
StartUpPosition = 3 'Windows-Standard
|
|
End
|
|
Attribute VB_Name = "Form2"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private Sub Form_Load()
|
|
Dim timestamp As Date
|
|
Dim RefZ As CRefzaehler
|
|
Dim m_ColRefZaehler As Collection
|
|
Dim m_RefezaehlerStrang As Integer
|
|
Dim Einbauplatz As Integer
|
|
Dim m_ReferenzzaehlerA As CRefzaehler
|
|
Dim m_ReferenzzaehlerB As CRefzaehler
|
|
|
|
timestamp = CDate("30.09.00 12:45:58")
|
|
Set m_ColRefZaehler = New Collection
|
|
For m_RefezaehlerStrang = 1 To 4
|
|
Einbauplatz = (m_RefezaehlerStrang - 1) * 2 + 1
|
|
|
|
Set m_ReferenzzaehlerA = New CRefzaehler
|
|
m_ReferenzzaehlerA.LoadForRefzaehlerpruefung (Einbauplatz)
|
|
Set m_ReferenzzaehlerB = New CRefzaehler
|
|
m_ReferenzzaehlerB.LoadForRefzaehlerpruefung (Einbauplatz + 1)
|
|
|
|
m_ColRefZaehler.Add m_ReferenzzaehlerA
|
|
m_ColRefZaehler.Add m_ReferenzzaehlerB
|
|
Next
|
|
|
|
Call RefZDruck(timestamp, m_ColRefZaehler)
|
|
|
|
End Sub
|