Nie bój się VFD i co dalej?

[Ertew]

M@rek napisał/a:
Po 1 tasza mogła byś nie publikować takich szerokich zdięć.

Ale przecież ładnie wygląda .

No ładnie ale forum się poszeża i muszę pszesuwać się w lewo i w prawo żeby pszeczytać posta (zwłaszcza w 800x600).

[ Dodano: 06-08-2005, 12:08 ]
zdjęcie się zmniejszyło dzięki tasza jeśli to twoja sprawa, a jeśli nie twa to i tak dzięki tobie za :

aby przetestować moduł trzeba tak:
1. weź i tego bascoma... odłóż na chwilę na bok...
2. ten program-terminal sobie zciągnij ze stronki Braya
http://edw.com.pl/modules.php?op=modloa ... ink&cid=59
3. z kawałka max232 zrób sobie konwerter rs232 ttl, tylko tor nadawczy, znaczy się, PC-et będzie nadawał, ma wylatywać w standardzie TTL
4. podłącz moduł
5. Brayowy terminal ustaw tak:
19200, 8-bit, even, 1-stop, handshaking = none
6. napisz coś w edit-box-ie do wysłania i klapnij enter, powinno się pokazać na matrycy....
7. wciśnij guzik [Script] i w okno edycyjne wklej to
Kod:

// art by tasza
program sebax_lcd_test;
// transmisja rs232: 19200,8,E,1
// elementarne operacje na szkiełku w/g opisu w pdf-ie

procedure VFD_clear;
begin
comsendchr( $0E );
end;

procedure VFD_home;
begin
comsendchr( $0C );
end;

procedure VFD_cursor_left;
begin
comsendchr( $08 );
end;

procedure VFD_cursor_right;
begin
comsendchr( $09 );
end;

procedure VFD_cursor_pos ( n : byte );
begin
comsendchr( $1B );
comsendchr( $48 );
comsendchr( n );
end;

procedure VFD_set_luminance ( n : byte );
begin
comsendchr( $1B );
comsendchr( $4c );
comsendchr( n * $40 ); // w pdf pisze dlaczego
end;

var i : integer;
begin

VFD_clear;

delay(500);

comsendstr('Ala ma kota...');

delay(500);

for i := 0 to 20 do
begin
VFD_cursor_pos ( i );
delay(200);
end;

for i := 20 downto 0 do
begin
VFD_cursor_pos ( i );
delay(200);
end;

VFD_set_luminance ( 0 );
delay(500);

VFD_set_luminance ( 1 );
delay(500);

VFD_set_luminance ( 2 );
delay(500);

VFD_set_luminance ( 3 );
delay(500);

end.



i uruchom....
to jest taki pascalo-podobny język, masz podstawowe operacje na VFD,
szczególnie kicanie kursorem po lampie i zmianę jasności....
i naprawdę nie wiem, dlaczego wam to nie działa....

głuwnie za pascalo-podobny język bo pascala już studiowałem (właściwie to turbo pascal 7.0) bo to podobno najłatwiejczy język programowania tylko timerów mu brakuje i jedynymi WE jest klawiatura i zegarek-kalędaż systemowy.