Public Class Hauptbildschirm
 
    Dim a As String = 0
    Dim x1 As String = 0 
    Dim y1 As String = 0 
    Dim automation As Byte = 0
 
 
    Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal _
      PortAddress As Integer) As Integer
    Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress _
    As Integer, ByVal Value As Integer)
    'Impulszähler Allgemein
    Dim impz As Int32                       
    Dim impz2 As Int32                      
    Dim impz3 As Int32                      
    Dim spannung As Int32 = 1
    Dim spannung2 As Int32 = 1
 
    'Impulszähler für Wegstrecke
    Private Sub Timer1_Sensor_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'Dim test As Int32 = Inp(889) And 8                   'Pin 15-Test  ( _
        jeweils 1 durch 8 ers.)
        Dim test As Int32 = Inp(888) And 1                    'D0 Test
        If spannung = 1 And test = 0 Then
            impz += 1                                         'Zähler erhöhen
            Label_Sensor.Text = impz                          'Wert anzeigen
            spannung = 0
        End If
        If spannung = 0 And test = 1 Then spannung = 1
    End Sub
 
    Private Sub Timer1_2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim test3 As Int32 = Inp(889) And 8   'Pin 15-Test
        If test3 = 8 Then
            Out(888, Inp(888) And 250)       'Led D0 ist Aus
            Button1.BackColor = Color.Red
        Else
            Out(888, Inp(888) Or 1)          'Led D0 ist An
            Button1.BackColor = Color.WhiteSmoke
        End If
    End Sub
 
    'Private Sub Timer1_Markierstrecke_Tick(ByVal sender As System.Object, 
    ' ByVal e As System.EventArgs) Handles Timer1.Tick
    '    'Dim test As Int32 = Inp(889) And 8                   'Pin 15-Test  ( 
    ' jeweils 1 durch 8 ers.)
    '    Dim test2 As Int32 = Inp(888) And 1                    'D0 Test
    '    If spannung2 = 1 And test2 = 0 Then
    '        impz2 += 1                                         'Zähler erhöhen
    '        Label_impz2.Text = impz2                          'Wert anzeigen
    '        spannung2 = 0
    '    End If
    '    If spannung2 = 0 And test2 = 1 Then spannung2 = 1
    'End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Dim test_start As Int32 = Inp(889) And 16
        Dim test2 As Int32 = Inp(888) And 1
        Select Case automation
            Case 0
                If test_start <> 16 Then
                    If spannung2 = 1 And test2 = 0 Then
                        impz2 += 1                                         _
                          'Zähler erhöhen
                        impz3 += 1
                        Label_impz2.Text = impz2                          _
                          'Werte anzeigen
                        Label_impz3.Text = impz3
                        spannung2 = 0
                    End If
                    If spannung2 = 0 And test2 = 1 Then spannung2 = 1
                    Out(888, Inp(888) Or 128) 'Led D7 ist An
                    Button8.BackColor = Color.Red
                    Label1_meter.Text = impz2 / 100
                Else
                    Out(888, Inp(888) And 126)
                    Button8.BackColor = Color.WhiteSmoke
                End If
 
            Case 1
                If test_start <> 16 Then
                    Do Until impz3 = x1
 
                        If spannung2 = 1 And test2 = 0 Then
                            impz2 += 1                                         _
                              'Zähler erhöhen
                            impz3 += 1
                            Label_impz2.Text = impz2                          _
                              'Werte anzeigen
                            Label_impz3.Text = impz3
                            spannung2 = 0
                        End If
                        If spannung2 = 0 And test2 = 1 Then spannung2 = 1
                        Out(888, Inp(888) Or 128) 'Led D7 ist An
                        Button8.BackColor = Color.Red
                        Label1_meter.Text = impz2 / 100
 
                    Loop
                Else
                    Out(888, Inp(888) And 126)
                    Button8.BackColor = Color.WhiteSmoke
                End If
 
 
 
        End Select
 
    End Sub
 
Private Sub Button1_50_50_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1_50_50.Click
        x1 = 50
        y1 = 50
 
    End Sub