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: systreiber für LED Kategorie: Programmierung ASM (von Michael - 11.01.2005 9:31)
 Als Antwort auf Re: systreiber für LED von Kay - 11.01.2005 9:06

hallo Kay,

hier ist das kompl. basicprog

define out       byte[3]
define tab       byte[4]
define dummy byte[5]

define led_clk    port[3]
define led_en     port[2]
define led_data  port[1]


hour      = 18
minute  = 31
second  = 11


define LEDDIGIT &H187          


led_clk  =0
led_en   =0
led_data =0


#loop
  if second <> dummy then gosub zeit
loop


#zeit
led_en = ON  
dummy = second
tab = second mod 10
looktab numbercode, tab, out
sys leddigit out
tab = second / 10
looktab numbercode, tab, out
sys leddigit out
tab = minute mod 10
looktab numbercode, tab, out
sys leddigit out
tab = minute / 10
looktab numbercode, tab, out
sys leddigit out
tab = hour mod 10
looktab numbercode, tab, out
sys leddigit out
tab = hour / 10
looktab numbercode, tab, out
sys leddigit out
led_en = OFF  
return

Table numbercode 130 207 145 133 204 164 160 143 128 132
tabend

'syscode "led.s19"
     


 Antwort schreiben

Bisherige Antworten:

Re: systreiber für LED (von Michael - 11.01.2005 9:58)
    Re: systreiber für LED (von Michael - 11.01.2005 10:13)