Po 4h studiowania helpa od bascoma,i innego kodu do innej tablicy z diodami bez transmisji doszłęm jak ma być jak narażie znaki wyświetlają się w odbiciu lustrzanym ale to już nie problem. Poniżej kod: $regfile = "attiny2313.dat" $crystal = 8000000 $include "my6_8.font" Dim A As Byte Dim B As Byte D...

Po zmianach wybija taki błąd w liniach I2cwbyte My6_8(offset) ' Element 390 ' ty, a nie I2cwbyte My6_8(offset + 1) ' element 391'szy a nie wartość 391 I2cwbyte My6_8(offset + 2) ' itd I2cwbyte My6_8(offset + 3) I2cwbyte My6_8(offset + 4) I2cwbyte My6_8(offset + 5) Ta zmienna nie jest zmienną tablico...

według polskiej instrukcji My6_8 = Generator wywala że ma błędne przypisanie A My6_8(offset) nieznana instrukcja teraz kod wygląda tak $regfile = "attiny2313.dat" $crystal = 8000000 $include "my6_8.font" Dim A As Byte Dim B As Byte Dim Offset As Integer Dim Znak As Byte Config Scl = Portb.0 Config S...

Chyba się podam tera bascom wywala błędy

Plik znalazłem w samplach bascoma tak on wygląda My6_8: $asm .db 1,6,6,0 .db 0,0,0,0,0,0 ; .db 0,0,0,95,0,0 ; ! .db 0,3,7,0,3,7 ; " .db 0,36,126,36,126,36 ; # .db 0,36,43,106,18,0 ; $ .db 0,99,19,8,100,99 ; % .db 0,54,73,86,32,80 ; & .db 0,0,3,7,0,0 ; ' .db 0,0,62,65,0,0 .db 0,0,65,62,0,0 .db 0,8,62...

Znalazłem plik "my6_8.font" wpisałem
$include "my6_8.font"
A jak zastąpić teraz słowo generator jakąż zmienną czy co.
Pewnie myślisz że chce gotowca NIE tylko muszę wykonać tę tablice na czwartek.

Napisalem taki kod $regfile = "attiny2313.dat" $crystal = 8000000 Dim A As Byte Dim B As Word Dim C As Byte Dim D As Byte Dim E As Byte Dim F As Byte Dim G As Byte Dim H As Byte Dim I As Byte Config Scl = Portb.0 Config Sda = Portb.1 Config Portd.7 = Input Portd.7 = 1 I2cinit A = 16 I2cstart I2cwbyt...

No niestety nie chodzi tak jak ty powiedziałeś a za tą stronę dzieki

Witam Jestem nowy na forum i właśnie zakupiłem sobie kit avt 5226 ale niestety ni mogę rozgryżć sposobu jego sterowania jak narażię napisałem taki kod w bascomie ale jest on pewnie źle. $regfile = "attiny2313.dat" $crystal = 8000000 Dim A As Byte Config Scl = Portb.0 Config Sda = Portb.1 I2cinit A =...