Program w BASCOM dla M16: Przesuwanie litery na LCD o 5 miejsc

Question

Witam
Chciał bym prosić o napisanie prostego programiku który na wyświetlaczu LCD przesuwał by np literę o 5 miejsc do przodu i z powrotem .
Czyli po kolei po naciśnięciu przycisku.
Naciskamy przycisk 1 miejsce do przodu ,następne przyciśnięcie ,następne miejsce do przodu.
gdy dojdzie do 5 to samo tylko do tyłu.

hose2 · Accepted Answer

Źle działa i źle wygląda. Jeśli zaczynasz warunek (IF) a w jego wnętrzu masz pętlę (FOR) to musisz najpierw zamknąć pętlę (NEXT) a później warunek (END IF). Zakładając, że chcesz zrealizować ten pomysł przesuwaniem zawartości wyświetlacza, zacznij od napisania na LCD literki, rozpocznij pętlę (chcesz 5 powtórzeń), następnie czekaj na wciśnięcie klawisza. Jeśli warunek spełniony to przesuń zawartość LCD w prawo. Wstaw opóźnienie, zamknij pętlę (w prawo). Rozpocznij pętlę (w lewo) i kontynuuj, zmieniając kierunek przesuwania, jak dla w prawo. To tak najprościej jak się dało nie podając gotowca na talerzu

hose2 · Accepted Answer

Tak, jest w helpie : ENCODER

wader_669 · Answer

zapoznac sie z poleceniem shift albo shift lcd.

arktik1 · Answer

No właśnie próbowałem tak:


If Pind.7 = 0 Then
Wait 1
For A = 1 To 10
   Shiftlcd Right
   Waitms 500
   End If
Next

Ale to źle działa.

arktik1 · Answer

A nie można jakoś tego napisać bez poleceń WAIT.
Ma to być dołożone do większego programu i przydało by się żeby nie było WAIT i przesuwania całego LCD tylko te 5 punktów.
Dodam że zamiast litery będzie to strzałka.
Wiem że trzeba coś napisać na LCD i jeszcze LOCATE.

Chodzi o sam "kawałek" przesuwający po wciśnięciu przycisku.
Potrzebny po prostu biegnący punkt na LCD inicjowany "przyciskiem"

Dodano po 4 [godziny] 54 [minuty]:

Mam rozumieć że się nie da??

janbernat · Answer

Jak nie chcesz wait(co zrozumiałe) to wykorzystaj przerwanie od timera.

arktik1 · Answer

Wszystko dobrze. Wiem że można tylko 1 problemik. JAK????

janbernat · Answer

a to być dołożone do większego programu i przydało by się żeby nie było WAIT i przesuwania całego LCD tylko te 5 punktów. A w tym większym programie masz wolne timery? Albo chociaż wolne rejestry COMPARE?

arktik1 · Answer

Są wolne 2 liczniki z 3. Są to 2 proste programy Termometr i Woltomierz.

wader_669 · Answer


'******* procek *******
$regfile = "m32def.dat"
$crystal = 8000000

$hwstack = 50
$swstack = 50
$framesize = 50

'******* lcd *******
Config Lcd = 24 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Dim Menu As Byte


'****** przycisk ******
Config Pinb.2 = Input
Set Portb.2
Declare Sub Przycisk
Dim Przycisk_x As Bit
Dim x As Byte

Cursor Off
Cls

Locate 1 , 13
Lcd "X"
Do

Call Przycisk

If przycisk_x = 1 Then
   przycisk_x=0
   If X < 5 Then
      Shiftlcd Left
      incr x
   Elseif X > 4 Then
      Shiftlcd Right
      incr x
      if x=9 then x=0
   End If
End If

Loop
End

Sub Przycisk
If Pinb.2 = 0 Then
Waitms 45
   If Pinb.2 = 0 Then
      Bitwait Pinb.2 , Set

      przycisk_X = 1

   End If
End If
End Sub

Dodano po 7 [minuty]:

jak bedzie mi sie chcialo (zaraz sie zastanowie) to ci napisze to bez waitow

adass · Answer

Działa ten program ok . Moje pytanie jak i co dopisać do tego programu żeby masa do R/W (pin PA6) była podawana programowo ,żeby nie trzeba było mostkować R/W do masy. Czy w bascomie to można zrobić ?

hose2 · Answer

Kilka pytań:
- czy pętla główna programu często się powtarza (odświeżanie LCD, odpytywanie klawisza),
- czy chcesz coś pisać na wyświetlaczu podczas animacji (wspólny bufor zawartości LCD),
- czy klawisz ma tą animację tylko uruchamiać, czy również zatrzymywać
Napisz o szczegółach, mniej się będziesz męczył

wader_669 · Answer

Nie jest to mozliwe. A tak na powaznie, to moze reset/set portx.x ?

arktik1 · Answer

Jest to wyświetlacz 4x20 Wyświetlane są na nim Temp.V. ,2 czy 3 napisy. Dlatego ważne jest by strzałka poruszała się w określonym polu np. Locate 4 ,10 do 4 ,15 Nie można przesuwać całego LCD. Ma być to czujnik ruchu. po naciśnięciu przycisku strzałka ma przeskoczyć o 1 pole i czekać na następne naciśnięcie. Czujnikiem jest fototranzystor więc działa jak przycisk pozycja 1,0,1,0. z resztą chyba można zastosować DEBOUNCE . Tylko że wtedy skok będzie powodował opóźnienie. Może DEBOUNCE=0 wtedy działanie będzie szybsze co w dalszym ciągu nie rozwiązuje sprawy skoku Dodano po 18 [minuty]: Jakby interesowało to jest tu cały program do którego ma to być dopisane. Zdaję sobie sprawę że na pewno trzeba go jeszcze poprawić, w każdym razie działa. Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka $regfile = m16def.dat $crystal = 10000000 Config Porta = Input         Porta = &B1111110 Config Portc = Output         Portc = &B00000000 Config Portd = Input         Portd = &B11111111 Config Lcd = 20 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5 Portb.6 = 1 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim I As Word Config Timer1 = Timer , Prescale = 8 On Timer1 Times Enable Timer1 Enable Interrupts Dim V As Single Dim A As Single Dim P As Integer Dim C As Integer Dim R As Integer Dim Z As Byte Start Adc Start: P = 0 V = 0 A = 0 C = 0 R = 0 Z = 0 Deflcdchar 1 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32        'miernik plynu '------------------------------temp------------------- Config 1wire = Porta.1 Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32             'znak stopnia Celcjusza Dim Temp As Integer , Ss As String * 6 Dim Dsid As Byte Cls Do Cursor Off If I = 0 Then Gosub Plyn '-----------------------napiecie '----pobieranie For Z = 1 To 10  P = P + Getadc(0) Next T P = P / 10  V = P / 80 A = Frac(v) V = Int(v) A = A * 10 R = Int(a) + 10 C = V Locate 1 , 1 Lcd  Went. Locate 2 , 1 Lcd V =  Lcd C Lcd R If V >= 10 Then Locate 2 , 7 Lcd . Locate 2 , 9 Lcd 0 End If If V

hose2 · Answer

spróbujmy (delikatna modyfikacja): Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka ... Zwieksz: Incr L1 L1 = L1 MOD 5 Locate 1 , 1 If L1 = 0 Then Lcd 1     If L1 = 1 Then Lcd  1    If L1 = 2 Then Lcd   1   If L1 = 3 Then Lcd    1  If L1 = 4 Then Lcd     1 Return Jeśli takie rozwiązanie Ci nie odpowiada, to można jeszcze ładniej zrobić

wader_669 · Answer

Ja moge spojrzec na twoj kod, ale:
1. Nie wytlumaczyles jasno co dokladnie ma robic procek.
2. Nie wyjasniles twojego kodu, ja nie mam ochoty go od podstaw rozwalac.
3. Jeszcze nie widzialem zebys mi wstawil pomogl.

arktik1 · Answer

Jest to program do Chłodzenia wodnego komputera.
Szkoda teraz wyjaśniać bo cały czas się zmienia.
Ale w skrócie:
napięcie-- pomiar V zasilania chłodnicy.
temp-- Temperatura płynu chłodzącego + termostat 3 biegowy.
poziom wys-- wskaźnik poziomu płynu w zbiorniczku.
A to ostatnie ma pokazywać przepływ cieczy.
Dzięki HOSE2 ,przecież to proste ,nie wiem jak mogłem na to nie wpaść.

.

Dodano po 4 [minuty]:

No Sorry WADER ale moim zdaniem nie bardzo pomogłeś.
napisałeś program który przesuwał znak ale od 1 do 5 i z powrotem po jednokrotnym naciśnięciu przycisku.
Miało być inaczej.
Potem napisałeś że napiszesz bez WAIT ,ale chyba ci się nie chciało.
Więc myślę że wyjaśniłem sprawę PODZIĘKOWAŃ.

Dodano po 8 [minuty]:

Hose2 a co byś powiedział na ten kawałek?


Locate 4 , 1
Lcd "E"
Locate 4 , 7
Lcd "F"
Portc.5 = 1
Waitms 100
If Pind.2 = 0 Then
 Locate 4 , 2
 Lcd Chr(1)
 End If
If Pind.2 = 1 Then
Locate 4 , 2
 Lcd " "
  End If
If Pind.3 = 0 Then
 Locate 4 , 3
 Lcd Chr(1)
 End If
If Pind.3 = 1 Then
 Locate 4 , 3
 Lcd " "
  End If
 If Pind.4 = 0 Then
 Locate 4 , 4
 Lcd Chr(1)
 End If
If Pind.4 = 1 Then
 Locate 4 , 4
 Lcd " "
 End If
If Pind.5 = 0 Then
 Locate 4 , 5
 Lcd Chr(1)
 End If
If Pind.5 = 1 Then
 Locate 4 , 5
 Lcd " "
 End If
If Pind.6 = 0 Then
Locate 4 , 6
 Lcd Chr(1)
 End If
If Pind.6 = 1 Then
Locate 4 , 6
 Lcd " "
 End If

wader_669 · Answer

Aha no dobra. Spoko jak masz takie nastawienie. To ja dziekuje, milej zabawy. Dodano po 2 [minuty]: Jestem ciekaw jak bedzie wygladac koncowy kod. Moze pod koniec sie jeszcze zglosze i pokaze wam wszystkie bledy.

arktik1 · Answer

No już bez przesady , było tak:

wader_669 · Answer

Aha to sorry rzeczywiscie moj blad. Zly program tobie napisalem, nie doczytalem w takim razie do konca. Zwracam honor.

Dodano po 2 [godziny] 8 [minuty]:

W sumie nie jest to do konca moj blad bo widze, ze zmieniales swojego posta po mojej pierwszej wypowiedzi. Dobra, sprawa nie wazna. Poprawilek kod.

Dodano po 15 [minuty]:

Tak patrze na twoj kod i napisz go sobie jak tobie sie to podoba. Jak nie bedzie tobie dzialac to sie zglos bo masz duzo bledow, wymienie ci wszystkie. Sam nie bede ci poprawiac kodu (za duzo roboty).

arktik1 · Answer

Tu jest cały kod. Jeśli możesz to pokaż w którym miejscu jest błąd i jak poprawić . W każdym razie kod działa. Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka $regfile = m16def.dat $crystal = 9000000 Config Porta = Input         Porta = &B11111100 Config Portc = Output         Portc = &B00000000 Config Portd = Input         Portd = &B11111111 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5 Portb.6 = 1 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim V As Single Dim A As Single Dim P As Integer Dim C As Integer Dim R As Integer Dim Z As Byte Start Adc Start: P = 0 V = 0 A = 0 C = 0 R = 0 Z = 0 Deflcdchar 2 , 32 , 32 , 32 , 14 , 14 , 32 , 32 , 32       ' wskaznik przeplywu. Deflcdchar 1 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32       'miernik plynu '------------------------------temp------------------- Config 1wire = Porta.1 Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32       'znak stopnia Celcjusza Dim Temp As Integer , Ss As String * 6 Dim Dsid As Byte '-----------------------przeplyw Dim L1 As Byte L1 = 0 Dim L2 As Byte L2 = 0 Config Debounce = 0 Cls Locate 2 , 5 Lcd Dzien Dobry Locate 3 , 2 Lcd System chlodzenia Locate 4 , 6 Lcd WLACZONY Wait 5 Cls Do Cursor Off Debounce Pind.7 , 0 , Zwieksz , Sub       '---przeplyw Debounce Pina.7 , 0 , Wlacz , Sub If L2 = 5 Then Gosub Plyn If L2 = 5 Then L2 = 0 If Pind.1 = 0 Then Gosub Alarm1 If Portc.3 = 1 Then Locate 4 , 8 Lcd - End If If Portc.3 = 0 Then Locate 4 , 8 Lcd   End If If Pina.6 = 0 Then Gosub Wyciek '-----------------------napiecie '----pobieranie For Z = 1 To 10  P = P + Getadc(0) Next T P = P / 10  V = P / 80 A = Frac(v) V = Int(v) A = A * 10 R = Int(a) + 10 C = V Locate 1 , 1 Lcd   Went. Locate 2 , 1 Lcd V =  Lcd C Lcd R If V >= 10 Then Locate 2 , 7 Lcd . Locate 2 , 9 Lcd 0 End If If V

hose2 · Answer

Ale masz bajery

i znów optymalizacja:

Plyn:
'-----------------poziom wys
Locate 4 , 1
Lcd "E"
Locate 4 , 7
Lcd "F"
Portc.5 = 1
Waitms 100
Locate 4 , 2
If Pind.2 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If
If Pind.3 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If
If Pind.4 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If
If Pind.5 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If
If Pind.6 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If
...
Incr L1
If L1 = 10 Then L1 = 0              ' stosuj to
L1 = L1 Mod 10                        ' lub to - wynik ten sam
Locate 4 , 9
If Portc.3 = 1 And L1 = 3 Then
Lcd "AUTO"
End If
If Portc.3 = 1 And L1 = 9 Then
Lcd "OFF "
End If
If Portc.3 = 0 And L1 = 6 Then
Lcd "    "
End If

Nie analizowałem reszty kodu - skoro działa...

arktik1 · Answer

A dlaczego po:


Locate 4 , 2
If Pind.2 = 0 Then
 Lcd Chr(1)
Else
 Lcd " "
End If

nie ma następnego LOCATE??

Dodano po 2 [godziny] 40 [minuty]:

Mam jeszcze jedno pytanie.
Czy jak w pętli jest 3x DEBOUNCE to przed pętlą trzeba wpisać :
3x Config Debounce
czy wystarczy 1 raz.

hose2 · Answer

A do czego to LOCATE ma być potrzebne skoro piszesz na LCD znak za znakiem? Wyświetlacz pamięta ostatnią pozycję kursora Config Debounce wystarczy 1 raz - odnosi się do każdego wystąpienia DEBOUNCE.

arktik1 · Answer

No i narodziła się kolejna sprawa.
Układ detekcji obrotów.
Znalazłem na elektrodzie taki kawałek kodu :


Temp_enk = 0
If Enk_a <> Temp_enk Then
If Enk_a <> Enk_b Then
Incr Poz
Else
Decr Poz
End If
Temp_enk = Enk1
End If

Chciał bym używać enkodera np>z myszki komputerowej zamiast 2 przycisków.
co wy na to ??
A może jest jakiś inny sposób?

Dodano po 1 [minuty]:

NP. do sterowania wyjściem PWM .

Dodano po 3 [minuty]:

A może jest coś w przykładach BASCOMA?

nouki · Answer

Detekcji czy wyświetlania aktualnej wartości??

arktik1 · Answer

Musi on zwiększać wartość PWM w uC,
Zamiast S1 i S2.


If S1 = 0 Then                                             'jeśli przyciśnięty S1, to
  Waitms 10                                                 'opóźnienie dla eliminacji drgań
       'styków
   If S1 = 0 Then                                           'sprawdzenie ponownie, czy
       'przycisk S1 dalej naciśnięty,
       'jeśli tak, to
   Incr I
                                                           'zwiększenie o jeden wartości I
   If I = 0 Then
                                               'jeśli wartość I = 0, to
    I = 255                                                 'wpisanie do I wartości 255
   End If
   Pwm1a = I                                                'wpisanie wartości I do zmiennej
       'Pwm1a określającej wypełnienie
       'PWM
   Waitms 80                                                'opóźnienie 20 ms
  End If                                                    'koniec warunków
 End If
 If S2 = 0 Then                                             'jeśli przyciśnięty S2, to
  Waitms 10                                                 'opóźnienie dla eliminacji drgań
       'styków
  If S2 = 0 Then                                            'sprawdzenie ponownie, czy
       'przycisk S2 dalej naciśnięty,
       'jeśli tak, to
   Decr I                                                   'zmniejszenie wartości I o jeden
   If I = 255 Then                                          'jeśli wartość I = 255, to
    I = 0                                                   'zerowanie wartości zmiennej I
   End If

   Pwm1a = I                                                'wpisanie wartości I do zmiennej
       'Pwm1a określającej wypełnienie
       'PWM
   Waitms 80                                                'opóźnienie 20 ms
  End If                                                    'koniec warunków
 End If
   If I = 0 Then
    Portb.5 = 0
    End If

arktik1 · Answer

Poskładałem taki programik:


$regfile = "m16def.dat"
$crystal = 9000000
Config Porta = Input
        Porta = &B11111100
Config Portc = Output
        Portc = &B00010000
Config Portd = Input
        Portd = &B11111111
Config Portb = &B11111100
        Portb = &B11111111
Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Portb.6 = 1

Dim Wyn As Integer
Config Timer0 = Counter , Edge = Rising
Cursor Off
Cls

Do
Timer0 = 0
Start Timer0
Waitms 900
Stop Timer0


Wyn = Timer0 * 1
Locate 1 , 1
Lcd Wyn
Locate 2 , 1
If Wyn = 0 Then Lcd "      "
If Wyn = 1 Then Lcd "=     "
If Wyn = 2 Then Lcd "==    "
If Wyn = 3 Then Lcd "===   "
If Wyn = 4 Then Lcd "====  "
If Wyn = 5 Then Lcd "===== "
If Wyn = 6 Then Lcd "======"
If Wyn = 0 Then Gosub Alarm1
Loop
End

Czy można wyeliminować WAITMS.
Można to jakoś inaczej napisać??

hose2 · Answer

A co ten programik ma robić, bo taki sposób użycia timera i waitms to dość niespotykana konstrukcja.

Program w BASCOM dla M16: Przesuwanie litery na LCD o 5 miejsc

Jak w BASCOM-ie dla ATmega16 przesuwać znak na LCD o 5 pozycji po każdym naciśnięciu przycisku, bez używania WAIT i bez przesuwania całego wyświetlacza?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Post #21

Post #22

Post #23

Post #24

Post #25

Post #26

Post #27

Post #28

Post #29

Post #30

Podsumowanie tematu