Programowanie w języku Bascom

[Mysza]

Witam, jestem poczatkującym w tej dziedzinie. Zakupiłem książkę "Programowanie w języku Bascom" , zestaw uruchomieniowy ZL2AVR i programator ZL2PRG . Mam pewien problem z programem Bascom-Avr a mianowicie : po wklepaniu prostego programu z zapalaniem LED czy to innego sprawdzam go poleceniem Syntax check i wyskakuje mi za każdym razem "File not found" z opisu w książce wynika że nic się nie powinno pokazać jeśli nie będzie błędów , errorów żadnych na dole okna nie ma. Po przeprowadzeniu kompilacji okno raport jest puste ! Jak włączam symulacje to mam okno że nie znalazł pliku z rozsz.obj . Kolejny problem to identyczna sytuacja jak chcę przeprowadzić symulację sprzętową: program z monitorem do symulacji ładuję z pliku samples , ustawiam dane mikrokontolera i znow to samo "file not found" .Qrde co robię nie tak że to ustrojstwo nie chodzi:)? Jeśli ma ktoś jakieś materiały z "oślej łąki" to plis mysza26@o2.pl Z góry dzięki

[Wojtek]

Nic takiego się nie powinno dziać jeśli ustawiłeś wszystko jak jest zalecane w książce, na dobrą sprawę domyślne ustawienia powinny wystarczyć. Sprawdź spokojnie czy coś nie pozmieniałeś.

[Mysza]

Zainstalowałem jeszcze raz Bascom Avr i dalej to samo a ustawiam tylko chip mikrokontrolera, szybkość transmisji danych i rodzaj wyświetlacza.W opcji symulator mam zaznaczone tak jak jest automatycznie. Dalej nie wiem co jest nie tak.Co jeszcze może mieć wpływ na to że program przy sprawdzaniu pokazuje mi błąd file not found. Mam wersję demo 1.11.7.7. Pomóżcie bo jestem w martwym punkcie, może napiszcie dokładnei co muszę ustawić dla Atmega8

[Wojtek]

umieść dokładnie to co napisałeś na forum.

[Mysza]

Program monitora z samples:

$regfile = "m8def.dat"

$crystal = 8000000

$baud = 19200

Dim Krk As Byte
Dim Adr As Word
Dim Adrl As Byte , Adrh As Byte

Dim Vl As Byte

Do
Krk = Inkey()
If Krk = "T" Then
Print Chr(13);
Elseif Krk = "W" Then
Adr = Waitkey()
Vl = Waitkey()
Out Adr , Vl
Print Chr(13);
Elseif Krk = "R" Then
Adr = Waitkey()
Vl = Inp(adr)
Print Chr(vl);
Elseif Krk = "O" Then
Adrl = Waitkey()
Adrh = Waitkey()
Vl = Waitkey()
Adr = Adrh * 256
Adr = Adr + Adrl
Out Adr , Vl
Print Chr(13);
End If
Loop
End



inny program :

$sim

$regfile = "m8def.dat"

$crystal = 8000000


Config Portd = Output

Config Pinb.0 = Input

Dim Kierunek As Bit

Przycisk Alias Pinb.0


Set Portb.0.0

Portd = &B11111110
Reset Kierunek

Do
If Przycisk = 0 Then
Waitms 50
Toggle Kierunek
Do
Loop Until Przycisk = 1
End If
If Kierunek = 1 Then
Rotate Portd , Left
Else
Rotate Portd , Right
End If
Waitms 100
Loop
End


Nie wiem co jest grane ruszył mi tylko jeden programik:

Config Portb = &B11111111
Portb = &B11111111
Config Portd = &B1111100
Portd = &B1111111
Do
If Pind.0 = 0 Then Portb.0 = 0

If Pind.1 = 0 Then Portb.0 = 1

Loop
End


Czekam na jakieś propozycje co robić

[Wojtek]

Wkleiłem dokładnie to co napisałeś do siebie i zarówno sprawdzanie składni jak i kompilacja przeszły bez problemu, coś musiałeś chyba w ustawieniach pozmieniać

[Mysza]

Hmmm , wywale wszystko i zainstaluje od nowa, a mógłbyś napisać co muszę zmienić w ustawieniach ze standartowych? Ewentl screeny.

[Wojtek]

Jaki masz system i czy robisz instalację w domyślnym katalogu ?

[Mysza]

Mam XP i instaluje w domyślnym katalogu , niczego nie zmieniam.

[jasmin]

Mam takie same objawy ja Ty.
Niestety wszystko sprawdziłem i nic nie pomaga.
jedynie wymiana wersji na wcześniejszą daje dobre wyniki.
Zresztą w czasie instalacji 1.1.7.7 pod jej koniec jest nagłe przyspieszenie procesu instalacji. Myślę że oryginał jest kopnięty.
Pozdrawiam
Janusz.S

[Mysza]

No dokładnie , zminiłem na wersję 7.4 i wszystko działa