Hallo!
Ich hab ein kleines bzw. groes Problem. Sprache VB.net

Also ich mu fr ein Projekt inder schule eine Ampelanlage Programmieren mit zwei K8055 Karten !Das die Ampeln leuchten und in einen Rythmus durchlaufen war das kleinste Problem.


Nun habe ich folgendes:

1. eine fussgngerampel die natrlich nach tasten druck (eingang 3 Karte 0) nach dem durchlauf eines schrittes von rot auf grn springen soll!ich weis nur nicht wie man es programmiert das der eingang nach dem er bettigt wurde (nur druck nicht halten) gesetzt bleibt!

2. Habe ich noch zwei eingnge wo ich die Autoszhlen mchte und der counter soll dann hochzhlen wenn der eingang bettigt wurde!


Ich hoffe ihr knnt mir helfen! Danke im vorraus

Kleiner auszug eines schrittes des automatikbetriebes.

Code:
zeit = 0 
Timer1.Enabled = True 'Timer ist an 


SetDigitalChannel(1) 'eingnge karte 0 schalten (Digital) 
ClearDigitalChannel(2) 
SetDigitalChannel(3) 
ClearDigitalChannel(4) 
SetDigitalChannel(5) 
ClearDigitalChannel(6) 
SetDigitalChannel(7) 
ClearDigitalChannel(8 ) 
SetAnalogChannel(1) 'eingnge karte 0 schalten (Analog) 
ClearAnalogChannel(2) 

CloseDevice(0) 
OpenDevice(1) 


SetDigitalChannel(1) 'eingnge karte 1 schalten (Digital) 
ClearDigitalChannel(2) 
SetDigitalChannel(3) 
ClearDigitalChannel(4) 
SetDigitalChannel(5) 
ClearDigitalChannel(6) 
SetDigitalChannel(7) 
ClearDigitalChannel(8 ) 
SetAnalogChannel(1) 'eingnge karte 1 schalten (Analog) 
ClearAnalogChannel(2) 

CloseDevice(1) 
OpenDevice(0) 


zeit = 1000 * 5 

Timer1.Interval = zeit 




End Sub