Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Ergänzung Kategorie: Programmierung Basic (von Windt H.J. - 6.01.2006 20:56)
 Als Antwort auf Re: Ergänzung von Gerd - 6.01.2006 20:34
Hello,
try this out...


define Bus byteport[1]
define Output_control1 port[14]
define Output_control2 port[15]
define Output_control3 port[16]
define Daten byte[1]

' --- Programmoperationen -------------

Output_control1 = 1 : Output_control2 = 1 : Output_control3 = 1 'Puts all 74hc573 in high impedance state'
#Loop
gosub In1
print "Adresse 1:"; Daten
gosub In2
print "Adresse 2:"; Daten
gosub In3
print "Adresse 3:"; Daten
pause 20
goto Loop              'Endlosschleife


#In1
Output_control1 = 0 'Open #1 74hc573 output'
pause 20
Daten = Bus         'Read data'
Output_control1 = 1 'Puts 74hc573 #1 in high impedance state'
return

#In2
Output_control2 = 0 'Open #2 74hc573 output'
pause 20
Daten = Bus         'Read data'
Output_control2 = 1 'Puts 74hc573 #2 in high impedance state'
return

#In3
Output_control3 = 0 'Open #3 74hc573 output'
pause 20
Daten = Bus         'Read data'
Output_control3 = 1 'Puts 74hc573 #3 in high impedance state'
return

 Antwort schreiben

Bisherige Antworten:

Re: Ergänzung (von Gerd - 6.01.2006 21:50)
    Re: Ergänzung (von Windt H.J. - 6.01.2006 22:06)