Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


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 

 keyboard, A/D ports, ect. Kategorie: Programmierung Basic (von Markus - 29.04.2008 14:33)
Markus nutzt:  CC1-Unit V1.1
Hi, beschäftige mich jetzt wieder mit dem nervenzerfezenden c-control.

zu erst, bin blutiger anfänger.

wer kann mir ein beispiel geben, wie ich mit der 10er tastatur ein programm aufrufe,zb:

taste "1"
relais 1,2,4,6,8 zieht an,

taste "2"
relais 1,3,5,7, zieht an


und irgendwie kann ich die A/D ports nicht mehr abfragen, hat da einer ne idee, wie ich mit zb A/D 6 n relais geschaltet bekomme ??

zu oben genanntem beispiel, ich würde mir gerne n programm schreiben, besser gesagt, 4 programme, die ich über die tastatur ansteuern kann, zb program1 und nach ner halben stunde über die tastatur auf programm 2 umzuschalten

unten hängt ein program an, was ich in 9 stunden zum laufen gebracht habe..

danke euch.
-----------------------------------------------------------------------------

define sequenzer port[9]
define kanal1  port[1]
define kanal2  port[2]
define kanal3  port[3]
define kanal4  port[4]
define kanal5  port[5]
define kanal6  port[6]
define kanal7  port[7]
define kanal8  port[8]




define einschalt on
define ausschalt off




wait sequenzer
if sequenzer = einschalt then kanal1 =on
if sequenzer = einschalt then kanal2 =on
if sequenzer = einschalt then kanal3 =on
if sequenzer = einschalt then kanal4 =on
if sequenzer = einschalt then kanal5 =on
if sequenzer = einschalt then kanal6 =on
if sequenzer = einschalt then kanal7 =on
if sequenzer = einschalt then kanal8 =on

pause 60

if sequenzer = einschalt then kanal1 =off
if sequenzer = einschalt then kanal2 =off
if sequenzer = einschalt then kanal3 =off
if sequenzer = einschalt then kanal4 =off
if sequenzer = einschalt then kanal5 =off
if sequenzer = einschalt then kanal6 =off
if sequenzer = einschalt then kanal7 =off
if sequenzer = einschalt then kanal8 =off







#proc
pause 10
if sequenzer = einschalt then kanal2 =on
pause 10
if sequenzer = einschalt then kanal1 =off
if sequenzer = einschalt then kanal3 =on
pause 10
if sequenzer = einschalt then kanal2 =off
if sequenzer = einschalt then kanal4 =on
pause 10
if sequenzer = einschalt then kanal3 =off
if sequenzer = einschalt then kanal5 =on
pause 10
if sequenzer = einschalt then kanal4 =off
if sequenzer = einschalt then kanal6 =on
pause 10
if sequenzer = einschalt then kanal5 =off
if sequenzer = einschalt then kanal7 =on
pause 10
if sequenzer = einschalt then kanal6 =off
if sequenzer = einschalt then kanal8 =on
if sequenzer = einschalt then kanal7 =off
pause 10

if sequenzer = einschalt then kanal7 =on
pause 10
if sequenzer = einschalt then kanal8 =off
if sequenzer = einschalt then kanal6 =on
pause 10
if sequenzer = einschalt then kanal7 =off
if sequenzer = einschalt then kanal5 =on
pause 10
if sequenzer = einschalt then kanal6 =off
if sequenzer = einschalt then kanal4 =on
pause 10
if sequenzer = einschalt then kanal5 =off
if sequenzer = einschalt then kanal3 =on
pause 10
if sequenzer = einschalt then kanal4 =off
if sequenzer = einschalt then kanal2 =on
pause 10
if sequenzer = einschalt then kanal3 =off
if sequenzer = einschalt then kanal1 =on
if sequenzer = einschalt then kanal2 =off
gosub proc

 Antwort schreiben

Bisherige Antworten:

Re: keyboard, A/D ports, ect. (von Peter Grzeschik - 30.04.2008 8:23)
    Re: keyboard, A/D ports, ect. (von Markus - 2.05.2008 19:30)
        Re: keyboard, A/D ports, ect. (von Markus - 6.05.2008 15:46)
            Re: keyboard, A/D ports, ect. (von ManfredW - 6.05.2008 21:20)