Ansteuerung Getriebemotor

[Mike3012]

Declare Sub Motortest()
$regfile = "m32def.dat"

Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pind.4 = Output

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.5 = Output

Header --> richtig

Sub Motortest()

Portc.6 = 1
Portc.7 = 0
Portd.4 = 1

Portb.0 = 1
Portb.1 = 0
Portd.5 = 1


End Sub

Sub --> richtig

Es gibt keinen Fehler, du hast nur vergessen, den Sub aufzurufen. Versuche es damit:

Declare Sub Motortest()
$regfile = "m32def.dat"

Config Pinc.6 = Output                                     
Config Pinc.7 = Output                                      
Config Pind.4 = Output                                    

Config Pinb.0 = Output                                     
Config Pinb.1 = Output                                     
Config Pind.5 = Output                                      

Call Motortest() '### vergessen :P ###

Portc.6 = 0       'vergiss nicht, die Motoren wieder auf
Portc.7 = 0       '0 zu schalten, damit die Restspannung
Portc.4 = 0       'rausgeht (hat schon akkus leergemacht)

Portb.0 = 0
Portb.1 = 0
Portd.5 = 0

Sub Motortest()
   
   Portc.6 = 1                                              
   Portc.7 = 0                                            
   Portd.4 = 1                                              
   
   Portb.0 = 1                                             
   Portb.1 = 0                                              
   Portd.5 = 1                                              


End Sub

Ich hoffe ich konnte dir helfen, gruß Mike