Mikro kontroler Atmega 16.
Na tą chwilę program wygląda tak:
[syntax=basic4gl]'--------------------------------------------------------------
' STEROWNIK NAPĘDU PINOLI
' WIERTARKO FREZARKI TS 7016
$regfile = "m16def.dat"
$crystal = 16000000
'$baud = 19200
$hwstack = 64
$swstack = 32
$framesize = 64
$lib "glcd.lib"
'---------------------------------------
Config Timer0 = Timer , Prescale = 8
On Timer0 Speed_
'------------------------------------
'konfiguracja LCD
'------------------------------------
'Config Lcd = 16 * 4
'Config Lcdpin = Pin , Rs = Portc.2 , E = Portc.3 , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 5 , Cd = 6 , Wr = 3 , Rd = 4 , Reset = 7 , Fs = 10 , Mode = 6
'Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portd , Ce = 5 , Cd = 6 , Wr = 3 , Rd = 4 , Reset = 7 , Fs = 10 , Mode = 6
'Szybki sposób na cyferki:
'1. Wyłącz wygładzanie czcionek w systemie Windows (Zaawansowane ustawienia systemu -> Zaawansowane -> Wydajność -> Efekty wizualne -> Wygładź krawędzie czcionek ekranowych)
'2. Uruchom WordPad'a, wybierz rozmiar i rodzaj czcionki, napisz 0 1 2 3 4 5 6 7 8 9 Wink
'3. zrób zrzut ekranu klawiszem Print Screen.
'4. Uruchom GIMP'a i wklej obraz.
'5. ustaw rozmiar siatki na 8x8, wyświetl siatkę.
'6. powiększ obszar pracy np. 400% (nie chodzi mi o przeskalowywanie obrazu)
'7. metodą wytnij, kopiuj i wklej porozstawiaj cyfry tak żeby wszystkie miały tą samą szerokość i wysokość (wielokrotność 8). Na przykładowym obrazku widać cyfry zajmują obszar 5 na 6 (40x48).
'8. Jeżeli cyferki są już porozstawiane, wytnij pojedynczo cyferki i wklej jako nowe obrazy, wszystkie cyfry mają mieć ten sam rozmiar (rozmiar ma być wielokrotnością liczby 8)
'9. Jeżeli tło jest czarne a cyfry białe to zrób inwersje (Kolory->Inwersja)
'10. Zrób konwersje do trybu indeksowanego (Obraz -> Tryb -> Indeksowany.. -> paleta czarno-biała 1 bitowa)
'11. Zapisz jako BMP, w Bascomie zrób konwersje na BGF
'12. Można też zapisać cyfrę w formacie Obraz PBM *.pbm (binarny), i po usunięciu nagłówka w hex edytorze, mamy czystą bitmapę np. dla wyświetlacza T6963.
'Nagłówek pliku PBM ma różne długości, kończy się rozmiarem bitmapy np. 240x128:
'Kod:
'P4, 0x0A
'# CREATOR: GIMP PNM Filter Version 1.1, 0x0A
'240, 0x0A
'128, 0x0A
'------------------------------------
' konfiguracja portów
'------------------------------------
Config Debounce = 30
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Input
Config Portb.7 = Input
Portb = &B11111111
Config Pinc.0 = Input
Set Portc.0
'Config Portc.1 = Output
'Portc = &B11111111
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Portd = &B11111111
'------------------------------
'przypisanie zmiennych
Dim Line1 As String * 30
Dim Line2 As String * 30
Dim Line3 As String * 30
Dim Line4 As String * 30
Dim Podzial_ As Byte
Dim E As Long
Dim A As Long
Dim B As Single
Dim C As Single
Dim Zadana_ As Long
'-------------------------------
'alasy portów
'------------------------------
Step_ Alias Portb.0
Test_rigol Alias Portb.1
Home_ Alias Pinb.2
Limit_ Alias Pinb.3
Enable_ Alias Portb.4
Dir_ Alias Portb.5
Up Alias Pinb.6
Down Alias Pinb.7
Set_ Alias Pinc.0
Kanal_a Alias Pind.2
Kanal_b Alias Pind.3
'--------------------------
' włączenie timer'ów
'------------------------
Enable Interrupts
Enable Timer0
Load Timer0 = 250
'-------------------------------
Config Int0 = Falling
On Int0 Enkoder
Enable Interrupts
Enable Int0
'------------------------------
'ustawienia poczatkowe
'-------------------------------
E = 0
Zadana_ = 0
Cursor Off
Cls
Gosub Start_lcd
'----------------------------------
'program
'-----------------------------------
Do
Debounce Home_ , 1 , Bazowanie_home , Sub 'jeśli Home_=1 skocz do podprogramu Bazowanie_home
Debounce Set_ , 0 , Set_zadana , Sub 'jeśli wciśnięty przycisk set_ skocz do podprogramu set_zadana
Loop
End
Start_lcd:
Cls
Locate 1 , 17 : Lcd "STEROWNIK"
Locate 2 , 15 : Lcd "NAPEDU PINOLI"
Locate 3 , 8 : Lcd "WIERTARKO FREZARKI TS 7016"
Wait 1
Gosub Wyswietlanie_
Wyswietlanie_:
Cls
Locate 1 , 1 : Lcd "ZADANA GLEBOKOSC " ; Zadana_ ; " "
Locate 3 , 1 : Lcd "WCISNIJ SET ABY USTAWIC "
Return
'-------------------------
'podprogram bazowanie_home
'-------------------------
Bazowanie_home:
Do
Cls
If Up = 1 And Down = 1 And Home_ = 1 Then
End If
Locate 1 , 5 : Lcd "MUSISZ ZBAZOWAC KRANCOWKE HOME"
Locate 3 , 15 : Lcd "WCISNIJ UP "
Debounce Up , 0 , Gora_ , Sub
Loop Until Home_ = 0 : Set Enable_
'--------------------------
'podprogram gora_
'--------------------------
Gora_:
Reset Enable_
Set Dir_
Cls
Locate 2 , 10 : Lcd " JAZDA GORA "
If Home_ = 0 Then
Gosub Stop_
End If
Return
'---------------------
'podprogram dol_
'---------------------
Dol_:
Reset Enable_
Reset Dir_
Cls
Locate 2 , 10 : Lcd " JAZDA DOL "
Return
'-----------------------
'podprogram stop_
'-----------------------
Stop_:
Set Enable_
Locate 2 , 10 : Lcd " STOP "
Wait 1
Gosub Wyswietlanie_
Return
'---------------------
'podprogram enkodera
'---------------------
Enkoder:
Disable Int0
If Pind.2 = 0 Then
If Pind.3 = 0 Then
Incr E
Else
Decr E
End If
End If
Enable Int0
Return
'------------------
'podprogram odmierzania 1s
'-----------------------
Speed_:
Load Timer0 = 250
Incr Podzial_
If Podzial_ = 5 Then
Podzial_ = 0
Toggle Step_
Toggle Test_rigol
End If
Return
'--------------------------
'podprogram set_zadana
'--------------------------
Set_zadana:
Cls
Do
'Debounce Up , 0 , Plus , Sub
If Up = 0 Then
Waitms 25
If Up = 0 Then
Incr Zadana_
If Zadana_ > 0 Then
Zadana_ = 0
End If
End If
End If
'Debounce Down , 0 , Minus , Sub
If Down = 0 Then
Waitms 25
If Down = 0 Then
Decr Zadana_
End If
End If
Locate 1 , 1 : Lcd "ZADANA " ; Zadana_ ; " "
If Zadana_ < 0 And Set_ = 0 Then
Exit Do
End If
Loop[/syntax]
problem polega na tym że, nie mogę wyjść z podprogramu set_zadana - co robię źle - pozdrawiam Jacek.Statystyki: Napisane przez Jacek — 25 sie 2013, o 19:15
]]>