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 Gerd - 6.01.2006 21:50)
 Als Antwort auf Re: Ergänzung von Windt H.J. - 6.01.2006 20:56
Gerd nutzt:  CC1-M-Unit V1.1, CC1-M-Unit V1.2/2.0
Habe den Fehler nun gefunden.

Die Latch´s werden über Port 14-16 generell on geschaltet. Wenn mann die Daten anfordert, muß der jeweilige Port Off geschaltet werden, nicht ON.

define Bus byteport[1]
define Latch1 port[16]
define Latch2 port[15]
define Latch3 port[14]
define Daten byte

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

Latch1 = ON
Latch2 = ON
Latch3 = ON

#Loop
  gosub In1
  print "Adresse 0: ", Daten
  gosub In2
  print "Adresse 1: ", Daten
  gosub In3
  print "Adresse 2: ", Daten
  pause 30
goto Loop              'Endlosschleife

#In1
  deact Bus
  Latch1 = Off        ******************************************hier war das falsch herum**************************
  Daten = Bus
  Latch1 = on        ******************************************hier war das falsch herum**************************
  return

#In2
  deact Bus
  Latch2 = off       ******************************************hier war das falsch herum**************************
  Daten = Bus
  Latch2 = on     ******************************************hier war das falsch herum**************************
  return

#In3
  deact Bus
  Latch3 = OFF   ******************************************hier war das falsch herum**************************
  Daten = Bus
  Latch3 = ON      ******************************************hier war das falsch herum**************************
  return

end



Alle Lacht´s waren am reden, nur das was sollte wurde abgestellt.
So das WE ist gerettet ;-)

Danke Dir!!

Gruß Georg

> 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 Windt H.J. - 6.01.2006 22:06)