Gut, dann wäre das geklärt.
Habe deinen Rat befolgt und das Ganze mal durchgemessen. Bei diesem Programm (wie es auch oben steht)
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
' =============================================================================
' Variablendeklaration
' =============================================================================
Dim I As Integer 'Zählvariable
Dim Servodevice As Byte 'Servoansteuerung
Dim Servocommand As Byte
Dim Servonummer As Byte
Dim Servodata As Byte
Dim Greifer As Integer 'Greiferposition
Dim Greifergelenk As Integer
Dim Mittelgelenk As Integer
Dim Hauptgelenk1 As Integer
Dim Hauptgelenk2 As Integer
' =============================================================================
' Konfiguration
' =============================================================================
Config Portb = Input 'Input1 für Taster
Config Portc = Output 'Output für LEDs
Config Portd = Input 'Input2 für Taster
Config Pind.7 = Output 'Output für Sounds
'Config Scl = Portc.0 'Ports fuer I2C-Bus
'Config Sda = Portc.1
Config Pina.0 = Output 'Kommunikation
Stepper_enable Alias Pina.0 'mit MOTCTRL
Config Pina.1 = Output
Stepper_richtung Alias Pina.1
Config Pina.2 = Output
Stepper_takt Alias Pina.2
' =============================================================================
' Statusmeldung "OK"
' =============================================================================
Sound Portd.7 , 400 , 200
Waitms 100
Sound Portd.7 , 400 , 300
Waitms 100
Sound Portd.7 , 400 , 400
Waitms 100
Sound Portd.7 , 400 , 500
Waitms 100
Sound Portd.7 , 400 , 600
Waitms 100
Sound Portd.7 , 400 , 700
Waitms 100
Sound Portd.7 , 400 , 800
Waitms 100
Sound Portd.7 , 600 , 900
Waitms 100
' =============================================================================
' Initialisierung
' =============================================================================
Portc.0 = 0 'Alle LEDs an
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portc.4 = 0
Portc.5 = 0
Portc.6 = 0
Portc.7 = 0
Portb.0 = 1 'Pullup-Widerstände
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portb.5 = 1
Portb.6 = 1
Portb.7 = 1
Portd.0 = 1
Portd.2 = 1
Portd.4 = 1
Portd.6 = 1
Stepper_enable = 0 'Motor aus
' =============================================================================
' Eigentliches Programm als Endlosschleife
' =============================================================================
Do
' =============================================================================
' Taster 1 nach links schwenken
' =============================================================================
If Pinb.0 = 1 Then
Portc.0 = 0
Else
Portc.0 = 1
End If
' =============================================================================
' Taster 2 nach rechts schwenken
' =============================================================================
If Pinb.2 = 1 Then
Portc.1 = 0
Else
Portc.1 = 1
End If
' =============================================================================
' Taster 3 Element 1 heben
' =============================================================================
If Pinb.4 = 1 Then
Portc.2 = 0
Else
Portc.2 = 1
End If
' =============================================================================
' Taster 4 Element 1 senken
' =============================================================================
If Pinb.6 = 1 Then
Portc.3 = 0
Else
Portc.3 = 1
End If
' =============================================================================
' Taster 5 Greifer öffnen
' =============================================================================
If Pinb.1 = 1 Then
Portc.4 = 0
Else
Portc.4 = 1
End If
' =============================================================================
' Taster 6 Greifer schließen
' =============================================================================
If Pinb.3 = 1 Then
Portc.5 = 0
Else
Portc.5 = 1
End If
' =============================================================================
' Taster 7 Element 2 heben
' =============================================================================
If Pinb.5 = 1 Then
Portc.6 = 0
Else
Portc.6 = 1
End If
' =============================================================================
' Taster 8 Element 2 senken
' =============================================================================
If Pinb.7 = 1 Then
Portc.7 = 0
Else
Portc.7 = 1
End If
' =============================================================================
' Taster 9 Greifer heben
' =============================================================================
If Pind.0 = 1 Then
'Portc.0 = 0
Else
Sound Portd.7 , 400 , 200
End If
' =============================================================================
' Taster 10 Greifer senken
' =============================================================================
If Pind.2 = 1 Then
'Portc.0 = 0
Else
Sound Portd.7 , 400 , 200
End If
' =============================================================================
' Taster 11 UNBELEGT
' =============================================================================
If Pind.4 = 1 Then
'Portc.0 = 0
Else
Sound Portd.7 , 400 , 200
End If
' =============================================================================
' Taster 12 UNBELEGT
' =============================================================================
If Pind.6 = 1 Then
'Portc.0 = 0
Else
Sound Portd.7 , 400 , 200
End If
Loop
End
bleibt
also das Sorgenkind, als einziger Pin Low. Es wird also korrekt eingelesen und die LED ausgeschaltet.
Übertrage ich diese Software auf das Board
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Portb = Output
Do
Portb.6 = 0
Portb.4 = 0
Waitms 5000
Portb.6 = 1
Portb.4 = 1
Waitms 5000
Loop
lässt sich zwar auch Pin 6 toggeln, er springt aber nur auf 2,74V statt, wie Pin 4 und auch alle anderen, auf 5V.
Kannst du dir einen Reim darauf machen?
Zitieren
Lesezeichen