ATNEL tech-forum

Re: Wyświetlacz graficzny invert text

2014-08-21T17:43:51+01:00

Mam error 249 ISR already defined[Timer2_ISR]

Statystyki: Napisane przez slawek3000 — 21 sie 2014, o 17:43

Re: Wyświetlacz graficzny invert text

2014-08-21T17:12:31+01:00

Mam problem z tym timerem co mam dokładnie zmienić w pliku config_timer jak otworzę 644def.dat ?

Statystyki: Napisane przez slawek3000 — 21 sie 2014, o 17:12

Re: Wyświetlacz graficzny invert text

2014-08-21T04:56:58+01:00

Cześć,
na razie mam problem z prawidłowym wyświetlaniem na LCD graficznym
zamieniłem locate , lcd na lcdat i menu jest w jednym wierszu nie przewija się
[syntax=basic4gl]Do
Lcdat 3 , Adres_linii(numer_linii) , 1
If Numer_linii = Pozycja_menu Then
Setfont My6_8 : Lcdat 3 , Adres_linii(numer_linii) , ">" ; Menu_string(help) ; "< "
Else
Setfont My6_8 : Lcdat 3 , Adres_linii(numer_linii) , " " ; Menu_string(help) ; " "
End If
Incr Help
Incr Numer_linii
Loop Until Numer_linii > Ilosc_linii[/syntax]

Sławek

Statystyki: Napisane przez slawek3000 — 21 sie 2014, o 04:56

Re: Wyświetlacz graficzny invert text

2014-08-20T18:34:48+01:00

Ok sorki , już znalazłem , ogólnie wyrzuca mi błąd związany Compare2

Statystyki: Napisane przez slawek3000 — 20 sie 2014, o 18:34

Re: Wyświetlacz graficzny invert text

2014-08-20T18:33:48+01:00

Hmm.. zobaczę czy wyjdzie

Statystyki: Napisane przez slawek3000 — 20 sie 2014, o 18:30

Re: Wyświetlacz graficzny invert text

2014-08-20T18:17:25+01:00

O w pętli głównej w obsłudze encodera masz dwa razy użyte DECR tak ma być , czy raczej INCR ?

Statystyki: Napisane przez slawek3000 — 20 sie 2014, o 18:17

Re: Wyświetlacz graficzny invert text

2014-08-20T17:49:12+01:00

Cześć,
próbuje zamienić encoder w przyciski jak się domyślam,że będę potrzebne trzy coś takiego wyskrobałem albo inaczej pozamieniałem

[syntax=basic4gl]If Pind.7 = 0 Then
Decr Encoder_turn_left
Stan_enc = Enc_prev
End If

If Pind.6 = 0 Then
Decr Encoder_turn_right
Stan_enc = Enc_next
End If[/syntax]

teraz nie umie rozgryźdź trzeciego SW jak się domyślam wszystkie zmienne do obsługi encodera są AS Byte ?

Statystyki: Napisane przez slawek3000 — 20 sie 2014, o 17:49

Re: Wyświetlacz graficzny invert text

2014-08-20T05:04:57+01:00

Witam,

Bartku na początku wielkie dziękuje , za przykład owszem pod każdym menu będzie coś ukryte do ustawiania
Ps.Jeżeli możesz to podrzuć mi program tego zegara

Jeszcze raz dziękuje
Sławek

Statystyki: Napisane przez slawek3000 — 20 sie 2014, o 05:04

Re: Wyświetlacz graficzny invert text

2014-08-18T18:54:03+01:00

O to też jest rozwiązanie całkiem dobre , a jak by można było np. w pozycji 5 wyświetlić aktualną godzinę lub zrobić jej nastawy coś w stylu 20:10:52 w jednej linii ?

Statystyki: Napisane przez slawek3000 — 18 sie 2014, o 18:54

Re: Wyświetlacz graficzny invert text

2014-08-17T13:54:51+01:00

A może wiesz jak poprawić kod tak aby scroll się scrollował na razie tylko po 4 pozycjach menu

iframe

zmieniłem nieco pętlę for aby chodziło tak jak na filmie
[syntax=basic4gl]For Petla = 1 To 4
Pomoc = Petla + Menu_offset
Offset_y = Petla + 4
If Pomoc = 1 Then 'przesuniecie poczatku wyswietlania
Setfont My6_8 : Lcdat Offset_y , 1 , Menu(petla) , 1
Else
Setfont My6_8 : Lcdat Offset_y , 1 , Menu(petla)
End If
'Lcd Menu(petla)
Next Petla[/syntax]

Statystyki: Napisane przez slawek3000 — 17 sie 2014, o 12:27

Wyświetlacz graficzny invert text

2014-08-17T06:20:11+01:00

Witam,

nie wiem jak napisać kod tak aby jedna linia , tą którą chcę była tzw.invercie
normalnie za pomocą instrukcji lcdat wygląda to tak LCD 1,1"TEST",1
w tym kodzie są dwie zmienne dynamiczne Lcdat Offset_y , 1 , Menu(petla) ... po wpisaniu 1 wyświetla mi się tylko ona sama nie wiem jak uzyskać taki efekt jak przy zwykłej instrukcji LCDAT ?

[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "glcdKS108.lbx"

'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
'-----------------------------------------------------------------
'konfiguracja lini I2C
Config Sda = Portc.1 'konfiguracja sprzętowa I2C
Config Scl = Portc.0
Config I2cdelay = 10

Dim Menu(20) As String * 16 'poszczegolne pozycje menu
Dim Pozycja_menu As Byte 'aktualnie podswietlana pozycja menu
Dim Menu_offset As Byte 'zmienna do scrollowania
Dim Petla As Byte
Dim Pomoc As Byte
Dim Offset_y As Byte
Config Portd.6 = Input 'przycisk menu
Set Portd.6
Config Portd.7 = Input 'przycisk plus
Set Portd.7
Declare Sub W_gore
Declare Sub W_dol
Up Alias Pind.6
Down Alias Pind.7
Menu(1) = "pierwsza "
Menu(2) = "druga "
Menu(3) = "trzecia "
Menu(4) = "czwarta "
Menu(5) = "piata "
Menu(6) = "szosta "
Menu(7) = "siodma "
Menu(8) = "osma "
Menu(9) = "dziewiata"
'Setfont My6_8 : Lcdat 6 , 1 , "Exit"

Menu_offset = 0
'brak przesuniecia
Cls
Do
For Pomoc = 1 To 4 Step 1
Petla = Pomoc + Menu_offset
Offset_y = Pomoc + 4 'przesuniecie poczatku wyswietlania
Setfont My6_8 : Lcdat Offset_y , 1 , Menu(petla)
'Lcd Menu(petla)
Next Pomoc

Debounce Up , 0 , W_gore , Sub
Debounce Down , 0 , W_dol , Sub
'If W_gore = 0 Then Incr Menu_offset
'If W_dol = 0 Then Decr Menu_offset

If Petla > 9 Then
Petla = 4
Menu_offset = 5
End If

If Petla < 4 Then
Petla = 4
Menu_offset = 0
End If
Setfont My6_8 : Lcdat 6 , 70 , Petla ; Pomoc ; Menu_offset ; "Y " ; Offset_y
Loop
End

Sub W_gore :

If Up = 0 Then
Incr Menu_offset

End If
End Sub

Sub W_dol:

If Down = 0 Then
Decr Menu_offset

End If
End Sub

$include "My6_8.font"[/syntax]

Statystyki: Napisane przez slawek3000 — 17 sie 2014, o 06:20