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: Programmierhilfe Kategorie: Verschiedenes (von ReinhardB - 28.04.2005 10:53)
 Als Antwort auf Programmierhilfe von Max - 25.04.2005 20:10
ReinhardB nutzt:  CC1-M-Unit V1.2/2.0
Tach Max...
Neu hier ? Das Proble ist, das sich hier niemand so richtig mit absoluten Anfängerfragen abgeben mag.
Aber wie soll man da nicht gleich den Mut verlieren ?
Hier dein Code (in Basic++).
Ansonsten: In Basic einarbeiten - Hilfen und Links gibt es hier genug, die Programme, die bei der Unit mitgeliefert werden oder hier zum Download stehen ausprobieren und analysieren. Hab ich auch so gemacht...

define KEYCODE as byte
define ADC8 as ad[8]
define Relais1       port[5]
define Relais2       port[6]
Relais1 = OFF
Relais2 = OFF
LCD.init
#main
KEYCODE=255
if ADC8<10 then GOTO EXIT
KEYCODE=1
if abs(33-ADC8)<5 then GOTO EXIT
KEYCODE=2
if abs(50-ADC8)<5 then GOTO EXIT
KEYCODE=4
if abs(82-ADC8)<5 then GOTO EXIT
KEYCODE=5
if abs(98-ADC8)<5 then GOTO EXIT
KEYCODE=255
#EXIT
 if KEYCODE = 1 then Relais1 = ON
 if KEYCODE = 2 then Relais1= OFF
 if KEYCODE = 4 then Relais2 = ON
 if KEYCODE = 5 then Relais2= OFF
 lcd.pos 1,1
 if Relais1 = ON then
 lcd.print "Relais1 ist AN "
 else
 LCD.Print "Relais1 ist AUS"
 end if
 lcd.pos 2,1
 if Relais2 = ON then
 lcd.print "Relais2 ist AN "
 else
 LCD.Print "Relais2 ist AUS"
 end if
 goto main


Reinhard

 Antwort schreiben

Bisherige Antworten:

Re: Programmierhilfe (von Max - 28.04.2005 16:55)