INFO - FAQ - CC2-Forum - CCPro-Forum |
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 |