Aktyw Forum

Zarejestruj się na forum.ep.com.pl i zgłoś swój akces do Aktywu Forum. Jeśli jesteś już zarejestrowany wystarczy, że się zalogujesz.

Sprawdź punkty Zarejestruj się

Bascom, mikorokontrolery i to wszystko

salvationofblade
-
-
Posty:32
Rejestracja:17 gru 2003, o 21:11
Kontaktowanie:

Postautor: salvationofblade » 24 sty 2004, o 17:59

je sova terz zrobiłem ten programator i powiedz czy ci dobrze działa bo ja narazie nie próbowałem

Awatar użytkownika
Sova
-
-
Posty:510
Rejestracja:10 lis 2003, o 21:43
Lokalizacja:Ostrołęka
Kontaktowanie:

Postautor: Sova » 24 sty 2004, o 19:53

No ja zrobiłem programator maxymalnie uproszczony, ten co podawałem już pare razy, ale nie mam do niego programu, pisze do ludzi z www.pe.com.pl, bo tam jest źródło w pascalu, ale z 27 rerrorami, no wieć pisze zeby je naprawili i przysłali, ale milczą, tak można polegać :), a remo powiedz mi ile ciebie wyniósł ten programator? i gdzie te programy można dostac, które osluguja go, no bo jak tak, to musze coś innego wykombinować, i prawdopodobnie będe składał właśnie ten. Co prawda dałem do elektronika wykaz elementów, ale sprzedwaca nie miał czasu zerknąć na to, wiec :) nie mam, napisz ile to ciebie wyniosło. Jak ktoś z PE przyśle mi naprawione programy, to opublikuje je tutaj, ale poza PE nie mogę ich nigdzie znaleść, jeśli ktoś je ma (prog2051) niech zamieści na forum.

Awatar użytkownika
Wojtek
-
-
Posty:868
Rejestracja:21 lut 2003, o 18:21

Postautor: Wojtek » 25 sty 2004, o 07:25

(...) pisze do ludzi z www.pe.com.pl, bo tam jest źródło w pascalu, ale z 27 rerrorami, no wieć pisze zeby je naprawili i przysłali, ale milczą, tak można polegać :), (...) Jak ktoś z PE przyśle mi naprawione programy, to opublikuje je tutaj, ale poza PE nie mogę ich nigdzie znaleść, jeśli ktoś je ma (prog2051) niech zamieści na forum.
Na PE to nie licz gdyż pismo już daweno się nie ukazuje, tylko jakimś cudem witryna istnieje nie aktualizowana już od roku.

salvationofblade
-
-
Posty:32
Rejestracja:17 gru 2003, o 21:11
Kontaktowanie:

Postautor: salvationofblade » 25 sty 2004, o 08:52

ten który ja robiłem programator (schemat, program, opis) możesz ściągnąć z tąd: salvationofblade.webpark.pl/szybki_atmel.zip Mnie koszt tego programatorka wyniósł ok 3zł bez kabla

salvationofblade
-
-
Posty:32
Rejestracja:17 gru 2003, o 21:11
Kontaktowanie:

Postautor: salvationofblade » 25 sty 2004, o 09:00

jak by miał ktoś ten programik skompilowany oraz dobrze działający to niech mi prześle na maila: salvationofblade.wp.pl bo nie mam pascala i nie chce mi sie go instalować

Awatar użytkownika
Sova
-
-
Posty:510
Rejestracja:10 lis 2003, o 21:43
Lokalizacja:Ostrołęka
Kontaktowanie:

Postautor: Sova » 26 sty 2004, o 20:13

słuchajcie potrzebny mi ten program, ale nikt mi nie może pomóc bo nie ma kompilatora, podobno tam jest 27 errorów, ale to jest ściagniete z oficjalnej strony PE. wiec nie wiem, jak ktos potrafi pascala, to niech mi skompiluje i przysle na miala sov@o2.pl z góry dzięki

Program prog2051;
{ AT89C1051, 2051, 4051 - kasowanie i programowanie bez weryfikacji }
uses crt;
const lpt1 :word = $378; { lub $278, lub $3bc - HERCULES }
var bajt :byte;
adres,i :word;
f :file of byte;

begin
if paramcount<>1 then Halt;
assign(f,paramstr(1));
reset(f);

Port[lpt1+2]:=Port[lpt1+2] or $D; { tryb kasowania }
Port[lpt1+2]:=Port[lpt1+2] and $FD;

writeln('Nacisnij teraz przycisk RESET w programatorze,');
writeln('a nastepnie nacisnij dowolny klawisz na klawiaturze.');
while keypressed do readkey;
readkey;
while keypressed do readkey;

writeln(' Kasowanie pamieci FLASH w AT89');
Port[lpt1+2]:=Port[lpt1+2] or 2; { prog - ERASE }
delay(10);
Port[lpt1+2]:=Port[lpt1+2] and $FD;
writeln(' Koniec kasowania');

Port[lpt1+2]:=Port[lpt1+2] and $F3; { tryb programowania }
adres:=0;
write('Programowanie pamieci FLASH w AT89 ');
repeat
read(f,bajt);
Port[lpt1]:=bajt;
Port[lpt1+2]:=Port[lpt1+2] or 2; { impuls prog }
{ for i:=1 to 100 do begin end; { krotkie opoznienie }
Port[lpt1+2]:=Port[lpt1+2] and $FD;
delay(3); { trwa programowanie bajtu }
Port[lpt1+2]:=Port[lpt1+2] and $FE; { inc adres w AT89 }
Port[lpt1+2]:=Port[lpt1+2] or 1;
inc(adres);
gotoxy(40,WhereY);
write(adres);
until (adres=FileSize(f)) or (keypressed);
close(f);
writeln;
writeln('KONIEC PROGRAMOWANIA !!!');
while keypressed do readkey;
end.

Awatar użytkownika
gawel
-
-
Posty:683
Rejestracja:24 lis 2003, o 11:19
Lokalizacja:Białystok

Postautor: gawel » 27 sty 2004, o 10:20

Spróbuję skompilować go na jutro, ale widzę, że jest on bardzo żle. napisany. Funkcjonalność też pozostawia wiele do rzyczenia.

Awatar użytkownika
Sova
-
-
Posty:510
Rejestracja:10 lis 2003, o 21:43
Lokalizacja:Ostrołęka
Kontaktowanie:

Postautor: Sova » 27 sty 2004, o 18:29

Jak chesz to zmodyfikuj to maxymalnie, tyko żeby działało i dało sie zkompilować. Wiesz nie zmieniaj tego wg ciebie bo do tego jest ten programator już robiony, więc jak byś mógł przepisac to tak, aby w ten sam sposób wysyłało i programowało, tylko żeby poprostu było, bez errorów

salvationofblade
-
-
Posty:32
Rejestracja:17 gru 2003, o 21:11
Kontaktowanie:

Postautor: salvationofblade » 27 sty 2004, o 19:08

ja też bym chciał ten skompilowany program, jak go już skompilujesz i będzie bez errorów to wyślij mi go na maila: salvationofblade.wp.pl

Remo
-
-
Posty:32
Rejestracja:22 lis 2003, o 21:00
Lokalizacja:Szczecin
Kontaktowanie:

Postautor: Remo » 27 sty 2004, o 21:15

Koszt elementów to ok.30zł.
Programy go obsługujące są darmowe i udostępnione na stronie Atmela (działa z AVRStudio i AVRprogiem). Po odpowiednim skonfigurowaniu BascomAVR może współpracować również z tym kompilatorem.
Możesz go obejżeć na mojej stronie (jest tam też link do AVRStudio4):

http://remo.asternet.pl/avrisp.html

Awatar użytkownika
gawel
-
-
Posty:683
Rejestracja:24 lis 2003, o 11:19
Lokalizacja:Białystok

Postautor: gawel » 28 sty 2004, o 11:57

Skompilowałem. Poprawiłem elementarne błędy (by mógł sie skompilować). Po poprawce wygląda tak:

Program prog2051;
{ AT89C1051, 2051, 4051 - kasowanie i programowanie bez weryfikacji }
uses crt;
const lpt1 :word = $378; { lub $278, lub $3bc - HERCULES }
var bajt :byte;
adres,i :word;
f :file of byte;
ch:char;

begin
if paramcount<>1 then Halt;
assign(f,paramstr(1));
reset(f);

Port[lpt1+2]:=Port[lpt1+2] or $D; { tryb kasowania }
Port[lpt1+2]:=Port[lpt1+2] and $FD;

writeln('Nacisnij teraz przycisk RESET w programatorze,');
writeln('a nastepnie nacisnij dowolny klawisz na klawiaturze.');
while keypressed do ch:=readkey;
ch:=readkey;
while keypressed do ch:=readkey;

writeln(' Kasowanie pamieci FLASH w AT89');
Port[lpt1+2]:=Port[lpt1+2] or 2; { prog - ERASE }
delay(10);
Port[lpt1+2]:=Port[lpt1+2] and $FD;
writeln(' Koniec kasowania');

Port[lpt1+2]:=Port[lpt1+2] and $F3; { tryb programowania }
adres:=0;
write('Programowanie pamieci FLASH w AT89 ');
repeat
read(f,bajt);
Port[lpt1]:=bajt;
Port[lpt1+2]:=Port[lpt1+2] or 2; { impuls prog }
{ for i:=1 to 100 do begin end; { krotkie opoznienie }
Port[lpt1+2]:=Port[lpt1+2] and $FD;
delay(3); { trwa programowanie bajtu }
Port[lpt1+2]:=Port[lpt1+2] and $FE; { inc adres w AT89 }
Port[lpt1+2]:=Port[lpt1+2] or 1;
inc(adres);
gotoxy(40,WhereY);
write(adres);
until (adres=FileSize(f)) or (keypressed);
close(f);
writeln;
writeln('KONIEC PROGRAMOWANIA !!!');
while keypressed do ch:=readkey;
end.


Swoja drogą:
-program trzeba wywołać z parametrem będącym nazwą pliku
- wywołanie bez parametrów nie robi nic
- jeżeli nazwa pliku best błędna (nia ma takiego), to program wali w glebę.

Awatar użytkownika
gawel
-
-
Posty:683
Rejestracja:24 lis 2003, o 11:19
Lokalizacja:Białystok

Postautor: gawel » 28 sty 2004, o 11:59

Kontakt do mnie to: an177@poczta.fm

Awatar użytkownika
Sova
-
-
Posty:510
Rejestracja:10 lis 2003, o 21:43
Lokalizacja:Ostrołęka
Kontaktowanie:

Postautor: Sova » 28 sty 2004, o 21:04

Szczerze dziekuje(ej macie proglemy na tym forum z polskimi znakami, wsedzi mi dobrze chodzi tylko tu cos tak nie tak :? )

Wróć do „Projektowanie PCB, programy EDA, CAD, narzędziowe”

Kto jest online

Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 8 gości