Chciałem się zając programowaniem bascom i nie tylko.Wiec kupiłem kilka rzeczy płytkę testowa i prg avr USB. Mam program który chciałem wgrać na m32.
Z konfigurowałem bascom avr pod skt500_v2 dopasowałem zworki mam nawet 2 rożne m32 na wszelki wypadek jakby 1 padła(tutaj instrukcja
Loophttp://www.sibit.pl/download/avr_prog/instrukcja.pdf ) .Wczoraj wieczorem programator mi działał mógł odczytać kontroler ( np mogłem wejść na fusebity ) ale z wgraniem nie było mowy wiec zmieniłem ustawienia w bascomie chip na mega32def.dat i po tej zmianie w ogóle nie widzi kontrolera.Zobaczę dzisiaj jeszcze na innym kompie,mimo że na tym zmieniałem usb. Sprawdzę jeszcze w avrdude chociaż ciężko mi się widzi.Może to przez versie 11.9.5 bascom avr ?płytke testową zasilam osobno z v12.
Macie jakie porady co mogę zrobić żeby w końcu coś wgrać ?
nie wiem czy będę inwestował już w coś nowego przynajmniej na najbliższe 2-3tyg.
Jakie mogą być tego problemy ?
Proszę o zrobienie filmiku jak powinien zachować się bascom i chip podczas wgrywania programu.Instrukcja avrdude też mile widziana
Pozdrawiam
o to jest kod
$regfile = "m32def.DAT" 'deklaracja procesora, w tym wypadku Atmega32
$crystal = 8000000 'deklaracja cześtotlwiości pracy
'Deklaracja portów od wyświetlacza LCD
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Cursor Off
'**** Termometr ****
Config 1wire = Portb.0
Dim I1 As Integer , Ss As String * 6
Dim Dsid1(8) As Byte 'deklaracja zmiennej do odczytu kodów ID
Dim W As Byte
Dim B As Byte 'deklaracja zmiennej do odczytu ilośc czujników
W = 1wirecount()
Cls
Locate 1 , 1
Lcd W
Wait 1
Cls
Dsid1(1) = 1wsearchfirst() 'Znajdź kolejny czujnik podpięty do portu
'Znajdź kolejny czujnik podpięty do portu
'*******************Odczyt numerów ID czujników temperatury*********************
If Dsid1(8) = Crc8(dsid1(1) , 7) Then
Cls
Lcd " Czujnik 1 OK "
Wait 2
Locate 1 , 1
For B = 1 To 8
Lcd Hex(dsid1(b))
Next
Wait 2
End If
Cls
Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32 'znak stopnia Celsjusza
Do
1wreset
1wwrite &H55
1wverify Dsid1(1) 'wysyłamy adres pierwszego czujnika
1wwrite &HBE
I1 = 1wread(2)
Wait 1
I1 = I1 * 10
I1 = I1 / 16
'If I1 > 0 Then Cls 'korekta przesuniecia znaku st C przy przejściu z temp ujemnej na dodatnią
Ss = Str(i1)
Ss = Format(ss , " 0.0") 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Locate 2 , 1
Lcd "1" ; Chr(7) ; ": " ; Ss ; Chr(0)
)