Public Class Hauptbildschirm
 
    Dim a As String = 0
    Dim x1 As String = 0.0
    Dim y1 As String = 0.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)
    Dim impz As Int32                    'Impulszähler
    Dim spannung As Int32 = 1
 
 
    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 Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim test_sensor As Int32 = Inp(889) And 16    'Pin 13 (Select) testen
        If test_sensor <> 16 Then
            Select Case automation
                Case 0
                    Dim test2 As Int32 = Inp(889) And 8   'Pin 15-Test
                    If test2 = 8 Then
                        Out(888, Inp(888) And 250)       'Led D0 ist Aus
                        Button1.BackColor = Color.WhiteSmoke
                    Else
                        Out(888, Inp(888) Or 1)          'Led D0 ist An
                        Button1.BackColor = Color.Red
                    End If
                    Button8.BackColor = Color.Red
                    Label1_meter.Text = impz / 50
                Case 1
                    Button8.BackColor = Color.Yellow
 
                Case 2
                    Button8.BackColor = Color.Blue
 
 
            End Select
            Out(888, Inp(888) Or 128)                        'Led D7 ist An
        Else
            Out(888, Inp(888) And 127)                       'Led D7 ist Aus
            Button8.BackColor = Color.WhiteSmoke
        End If
    End Sub
end class