poprawiłem pisownię ,myślę że teraz będzie lepiej javascript:emoticon('
')
witam ,jestem nowy na forum
chciałbym opisać problem,jestem początkującym w zakresie bascoma,mam taką sprawę odnośnie tej mojej matrycki,zbudowanej z diod tzn. 5 kolumn i 5 wierszy
chciałbym spróbować swych sił w tej budowie:)) zarazem prosząc o jakieś wskazówki i rady . więc tk napisałem taki krótki programik za którego pomocą mogę wyświetlić jakiś znak.ok. chodzi teraz o toco powinienem zrobić aby móc zmienić coś
co wyświetlane będzie na matrycy.tzn. czego użyć ewen. jak to zrobić jakich poleceń można użyć.
Zakładając że:
- mam 5 słupków po 5 ledów na każdym słupku
- słupki zapalane są na porcie D, (anody diód)
- ledy (wiersze) sterowane są na porcie B, (katody)
- użyte piny na portach są od 0 do 4
to przykładowy program wygląda tak jak poniżej, powinna narysować się
koperta
dziękuję za odpowiedzi i pozdrawiam.
zamieszczam kod programu:
witam ,jestem nowy na forum
chciałbym opisać problem,jestem początkującym w zakresie bascoma,mam taką sprawę odnośnie tej mojej matrycki,zbudowanej z diod tzn. 5 kolumn i 5 wierszy
chciałbym spróbować swych sił w tej budowie:)) zarazem prosząc o jakieś wskazówki i rady . więc tk napisałem taki krótki programik za którego pomocą mogę wyświetlić jakiś znak.ok. chodzi teraz o toco powinienem zrobić aby móc zmienić coś
co wyświetlane będzie na matrycy.tzn. czego użyć ewen. jak to zrobić jakich poleceń można użyć.
Zakładając że:
- mam 5 słupków po 5 ledów na każdym słupku
- słupki zapalane są na porcie D, (anody diód)
- ledy (wiersze) sterowane są na porcie B, (katody)
- użyte piny na portach są od 0 do 4
to przykładowy program wygląda tak jak poniżej, powinna narysować się
koperta
dziękuję za odpowiedzi i pozdrawiam.
zamieszczam kod programu:
$regfile="m8def.dat"
$crystal = 8000000
Config Portd = Output : Portd = 0
Config Portb = Output : Portb = 0
Dim D As Byte : D = 0
Dim B As Byte : B = 0
Do
Portd = 0
Incr B
If B = 5 Then B = 0
Portb = Lookup(B , Tabela)
Incr D
If D = 5 Then D = 0
Portd = Lookup(D , Slupki)
Waitms 5
Loop
Tabela
Data 031 , 027 , 021 , 027 , 031
Slupki:
Data 001 , 002 , 004 , 008 , 016