Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T10:18:18+01:00

Ale ja mówiłem o nałogach.

Statystyki: Napisane przez zenowi — 26 sie 2012, o 10:18

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T10:12:42+01:00

Przecież to jest jak z językami obcymi trzeba szlifować języki , i można w wielu się porozumiewać

Statystyki: Napisane przez SunRiver — 26 sie 2012, o 10:12

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T10:09:09+01:00

zenowi napisał(a):

Żeby nie było tak słodko. O ile Bascom jest "nałogiem" z którego można się jeszcze wyleczyć, to z C nie ma już żadnego wyjścia, bo go po prostu nie ma. I to wcale nie jest optymistyczne.

Spokojnie jak ktoś ma silną wolę to z każdego nałogu się wyleczy. Zobacz na Sun'a zna C a pomimo to pisuje czasem w Bascomie ... ja może już nie pisuję .... ale nie mam nic przeciwko Bascomowi

Statystyki: Napisane przez mirekk36 — 26 sie 2012, o 10:09

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T10:07:18+01:00

Żeby nie było tak słodko. O ile Bascom jest "nałogiem" z którego można się jeszcze wyleczyć, to z C nie ma już żadnego wyjścia, bo go po prostu nie ma. I to wcale nie jest optymistyczne.

Statystyki: Napisane przez zenowi — 26 sie 2012, o 10:07

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T09:16:58+01:00

Antystatyczny napisał(a):

Przyjrzałem się dokładniej i już widzę deklaracje znaków. Tak się przestawiłem na C, że kłopotem jest dla mnie czytanie listingu w Bascom

hahahaa - to tak samo jak się ktoś odzwyczai od palenia to potem ponoć nawet nie może znieść dymu papierosów wokoło siebie Zatem warto porzucać nałogi

Statystyki: Napisane przez mirekk36 — 26 sie 2012, o 09:16

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T08:18:50+01:00

A w C na pewno więcej linijek by zajął ten program .

Statystyki: Napisane przez foreste — 26 sie 2012, o 08:18

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-08-26T07:59:18+01:00

Antystatyczny --> przecież jak się spojrzy na kod to od razu widać że to programowa realizacja, sterowniki HD44780 nie mają takich możliwości

Statystyki: Napisane przez mirekk36 — 26 sie 2012, o 07:59

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-04-22T20:16:06+01:00

A tam zaraz Mirku , ale fakt śmiać mi się chce jak sobie przypomnę miał działać na bateriach ale ze względu na LCD skończyło się na zasilaczu
Skubany żarł prąd wiadrami , jak tylko odpaliło się podświetlenie Ostatecznie tyle z niego zostało 2 fotki i kod

Statystyki: Napisane przez SunRiver — 22 kwi 2012, o 20:16

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

2012-04-21T19:53:49+01:00

Jak zwykle uniwersalny SunRiver normalnie prawie jak McGyver wśród mikrokontrolerów.

Statystyki: Napisane przez mirekk36 — 21 kwi 2012, o 19:53

Śmiech na sali Zegar z termometrem na LCD 4x20

2012-04-21T18:20:01+01:00

Z czystej złośliwości może, ale sporo czasu temu zrobiłem już ten zegarek na wielkich fontach
dla wyświetlacza 4x20 znaków, ot po prostu tak jakoś wyszło, że w bascomie.
A potem nie było potrzeby by go robić w C.

Osobiście jakoś do mnie obecnie nie przemawia potrzeba robienia takich rzeczy.
Nie trafia tez do mnie potrzeba bawienia się w C z wielkimi czcionkami na HD44780.
Jeśli już to wolę użyć GLCD

Ale skoro już wykopałem i fotki i program to pokazuję go tutaj:)

Program wyświetla czas i temperaturę na wielkich fontach.
schematu niema , ale nie jest do niczego potrzebny bo wszystko jest w kodzie.
Wszystko na ATmedze 8 z zegarem 8Mhz

[syntax=basic4gl]
$regfile = "m8def.dat"
$crystal = 8000000

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2

Config Pinb.3 = Input 'linia PB1 jako wejściowa
Config Pinb.4 = Input 'linia PB2 jako

'Config Pind.1 = Input

Config Timer1 = Timer , Prescale = 256
'konfiguracja Timer1 jako timer
'z podziałem preskalera przez
'256

Declare Sub Wysw_czas 'procedura wyświetlająca czas na
'LCD w formacie gg:mm:ss
On Timer1 Odmierz_1s 'przerwanie od przepełnienia
'Timer1 o etykiecie Odmierz_1s

Dim Sekundy As Byte 'zmienna zliczaj¦ca sekundy
Dim Minuty As Byte 'zmienna zliczaj¦ca minuty
Dim Godziny As Byte 'zmienna zliczaj¦ca godziny
Dim Nowa_w As Bit
Dim Dodatek As Byte
Dim Dodatek1 As Bit

'flaga zezwolenia aktualizacji
'czasu na LCD

Dim Wart_bcd2 As Byte
'zmienna pomocnicza, w której
'jest zapisywana wartość BCD
'czasu

S1 Alias Pinb.3 'przypisanie nazwie Pinb.2
'nazwy S1
S2 Alias Pinb.4 'przypisanie nazwie Pinb.1
'nazwy S2

Enable Interrupts 'odblokowanie globalnego systemu
'przerwa˝
Enable Timer1 'odblokowanie przerwania od
'przepe-nienia Timer1
Counter1 = 34286 'wartoťŠ pocz¦tkowa wpisywana do
'Timer1 (65536 - 31250 = 34286)

Set Nowa_w 'zezwolenie na wyťwietlenie
'aktualnego czasu
Set Portb.3 'dołączenie do linii PB1
'rezystora podciągającego
Set Portb.4 'dołączenie do linii PB2
'rezystora podciągającego

Dim T1 As Single
Dim T2 As Single
Dim B11 As Byte , B21 As Byte , R As Byte
Dim Tmp As String * 6
Dim Znak As String * 1
R = &HFF
'podprogram resetujacy magistrale 1w

Cursor Off
Display On
Cls

Deflcdchar 1 , 224 , 224 , 224 , 240 , 248 , 252 , 254 , 255 ' B
Deflcdchar 2 , 224 , 224 , 224 , 255 , 255 , 255 , 255 , 255 ' = O
Deflcdchar 3 , 255 , 255 , 255 , 255 , 254 , 252 , 248 , 240 ' !/ O
Deflcdchar 4 , 255 , 255 , 255 , 255 , 239 , 231 , 227 , 225 ' ! O
Deflcdchar 5 , 224 , 224 , 224 , 225 , 227 , 231 , 239 , 255 ' / B
Deflcdchar 6 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 ' ! N

' TAblica znaków - > sześc dodatkowych powyżej

Dim L1(17) As String * 4
Dim L2(17) As String * 4
Dim L3(17) As String * 4
Dim L4(17) As String * 4

' NUMER 1
L1(1) = " " + Chr(5) + Chr(2) + " "
L2(1) = " " + " " + Chr(6) + " "
L3(1) = " " + " " + Chr(6) + " "
L4(1) = " " + " " + Chr(6) + " "
' NUMER 2
L1(2) = Chr(5) + Chr(2) + Chr(1) + " "
L2(2) = Chr(5) + Chr(2) + Chr(3) + " "
L3(2) = Chr(6) + " " + " " + " "
L4(2) = Chr(6) + Chr(2) + Chr(2) + " "
' NUMER 3
L1(3) = Chr(5) + Chr(2) + Chr(1) + " "
L2(3) = " " + Chr(2) + Chr(6) + " "
L3(3) = Chr(2) + " " + Chr(6) + " "
L4(3) = Chr(4) + Chr(2) + Chr(3) + " "
' NUMER 4
L1(4) = Chr(5) + " " + Chr(2) + " "
L2(4) = Chr(6) + Chr(2) + Chr(6) + " "
L3(4) = " " + " " + Chr(6) + " "
L4(4) = " " + " " + Chr(6) + " "
' NUMER 5
L1(5) = Chr(2) + Chr(2) + Chr(2) + " "
L2(5) = Chr(6) + Chr(2) + Chr(1) + " "
L3(5) = Chr(2) + " " + Chr(6) + " "
L4(5) = Chr(4) + Chr(2) + Chr(3) + " "
' NUMER 6
L1(6) = Chr(5) + Chr(2) + Chr(2) + " "
L2(6) = Chr(6) + Chr(2) + Chr(1) + " "
L3(6) = Chr(6) + " " + Chr(6) + " "
L4(6) = Chr(4) + Chr(2) + Chr(3) + " "
' NUMER 7
L1(7) = Chr(2) + Chr(2) + Chr(2) + " "
L2(7) = " " + Chr(5) + Chr(3) + " "
L3(7) = " " + Chr(6) + " " + " "
L4(7) = " " + Chr(6) + " " + " "
' NUMER 8
L1(8) = Chr(5) + Chr(2) + Chr(1) + " "
L2(8) = Chr(4) + Chr(2) + Chr(3) + " "
L3(8) = Chr(6) + " " + Chr(6) + " "
L4(8) = Chr(4) + Chr(2) + Chr(3) + " "
' NUMER 9
L1(9) = Chr(5) + Chr(2) + Chr(1) + " "
L2(9) = Chr(4) + Chr(2) + Chr(6) + " "
L3(9) = " " + " " + Chr(6) + " "
L4(9) = Chr(4) + Chr(2) + Chr(3) + " "
' NUMER 0
L1(10) = Chr(5) + Chr(2) + Chr(1) + " "
L2(10) = Chr(6) + " " + Chr(6) + " "
L3(10) = Chr(6) + " " + Chr(6) + " "
L4(10) = Chr(4) + Chr(2) + Chr(3) + " "
' SYMBOL STOPNIA
L1(11) = Chr(5) + Chr(2) + Chr(1) + " "
L2(11) = Chr(4) + Chr(2) + Chr(3) + " "
L3(11) = " " + " " + " " + " "
L4(11) = " " + " " + " " + " "
' LITERA C
L1(12) = Chr(5) + Chr(2) + Chr(2) + " "
L2(12) = Chr(6) + " " + " " + " "
L3(12) = Chr(6) + " " + " " + " "
L4(12) = Chr(4) + Chr(2) + Chr(2) + " "

' LITERA F
L1(13) = Chr(5) + Chr(2) + Chr(2) + " "
L2(13) = Chr(6) + Chr(2) + Chr(2) + " "
L3(13) = Chr(6) + " " + " " + " "
L4(13) = Chr(6) + " " + " " + " "
' DWUKROPEK
L1(14) = " " + " "
L2(14) = Chr(2) + " "
L3(14) = Chr(2) + " "
L4(14) = " " + " "
' SYMBOL :
L1(15) = " " + " " + " " + " "
L2(15) = " " + " " + " " + " "
L3(15) = " " + " " + " " + " "
L4(15) = " " + " " + " " + " "
' PRZECINEK .
L1(16) = " " + " "
L2(16) = " " + " "
L3(16) = " " + " "
L4(16) = Chr(3) + " "
' HIHIHIH
L1(17) = "?" + " "
L2(17) = "?" + " "
L3(17) = "?" + " "
L4(17) = "?" + " "

Dim Stri As String * 5
Declare Sub Showstring(stri As String)

'Dim Valu As Single
Declare Sub Rd1820
'Dim Valu As Single

Dim E1 As String * 5
Dim E2 As String * 5
Dim E3 As String * 5

Config 1wire = Portd.1

' /**** PĘTLA GŁÓWNA ****/
Do

Call Wysw_czas 'wywołanie procedury
'wyťwietlaj¦cej aktualny czas
If S1 = 0 Then 'jeśli przyciśnięty S1, to
Waitms 25 'opóźnienie dla eliminacji drgań
'stykˇw
If S1 = 0 Then 'sprawdzenie, czy przycisk S1
'dalej naciťniety, jeťli tak, to
Incr Minuty 'zwiŕkszenie wartoťci minut
Sekundy = 0 'wyzerowanie zmiennej Sekundy
If Minuty = 60 Then 'jeťli wartoťŠ Minuty = 60, to
Minuty = 0 'zerowanie wartoťci Minuty
End If
Set Nowa_w 'zezwolenie na wyťwietlenie
'czasu
Call Wysw_czas 'wywołanie procedury
'wyťwietlenia aktualnego czasu
Waitms 200 'opóźnienie 200 ms
End If 'koniec instrukcji warunkowej
End If
If S2 = 0 Then 'jeśli przyciśnięty S2, to
Waitms 25 'opóźnienie dla eliminacji drgań
'stykˇw
If S2 = 0 Then 'sprawdzenie czy przycisk S2
'dalej naciťniety, jeťli tak, to
Incr Godziny 'zwiększenie wartości Godziny
If Godziny = 24 Then 'jeśli wartość Godziny = 24, to
Godziny = 0 'wyzerowanie wartoťci Godziny
End If
Set Nowa_w 'zezwolenie na wyświetlenie
'czasu
Call Wysw_czas 'wywołanie procedury
'wyťwietlenia aktualnego czasu
Waitms 200 'opóźnienie 200 ms
End If 'koniec instrukcji warunkowej
End If

Loop

End

' /**** KONIEC PĘTLI ****/

Sub Rd1820
1wreset 'podprogram 1wr
1wwrite &HCC 'komenda skip ROM
1wwrite &H44 'komenda convert T
Waitms 250
Waitms 250
1wreset 'podprogram 1wr
1wwrite &HCC 'komenda skip ROM
1wwrite &HBE 'komenda read

B11 = 1wread() 'odczyt z termometru
B21 = 1wread()

1wreset 'podprogram 1wr

If B21 >= 248 Then 'w przypadku temperatur ujemnych
B11 = R - B11 'Od 255 Odejmujemy B1
B21 = R - B21 'od 255 odejmujemy B2
Znak = "-"
Else
Znak = "+"
End If
T1 = B11 / 16 'Przesuniecie w pawo o 4 bajty
T2 = B21 * 16 'przesuniecie w lewo o 4 bajty
T1 = T1 + T2

Tmp = Fusing(t1 , " ###.&&")

'Cls
'Lcd Tmp

E1 = Str(t1)
E2 = Left(e1 , 4)

E3 = E2 + "°" + "C" + " "
'Cls

Locate 4 , 19
Lcd " "
Call Showstring(e3)

Waitms 250
Waitms 250
Waitms 250
Waitms 50

End Sub

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Sub Showstring(stri As String * 5)
If Len(stri) > 5 Then Stri = Left(stri , 5)
Dim A1 As Byte
Dim A2 As String * 1
Dim A3 As Byte
Dim A4 As Byte
Dim B1 As String * 20
Dim B2 As String * 20
Dim B3 As String * 20
Dim B4 As String * 20

B1 = "" : B2 = "" : B3 = "" : B4 = ""
A4 = Len(stri)
For A1 = 1 To A4
A2 = Mid(stri , A1 , 1)

Select Case A2
Case Is = "1" : A3 = 1
Case Is = "2" : A3 = 2
Case Is = "3" : A3 = 3
Case Is = "4" : A3 = 4
Case Is = "5" : A3 = 5
Case Is = "6" : A3 = 6
Case Is = "7" : A3 = 7
Case Is = "8" : A3 = 8
Case Is = "9" : A3 = 9
Case Is = "0" : A3 = 10
Case Is = "°" : A3 = 11
Case Is = "C" : A3 = 12
Case Is = "c" : A3 = 12
'Case Is = "F" : A3 = 13
'Case Is = "f" : A3 = 13
'Case Is = "H" : A3 = 14
Case Is = ":" : A3 = 14
Case Is = " " : A3 = 15
Case Is = "." : A3 = 16
Case Else : A3 = 17
End Select

B1 = B1 + L1(a3)
B2 = B2 + L2(a3)
B3 = B3 + L3(a3)
B4 = B4 + L4(a3)

Next A1

Upperline
Lcd B1
Lowerline
Lcd B2
Thirdline
Lcd B3
Fourthline
Lcd B4

End Sub

Sub Wysw_czas 'procedura wyświetlająca czas
If Nowa_w = 1 Then 'jeśli flaga Nowa_w = 1, to

Wart_bcd2 = Makebcd(sekundy) 'zamiana wartości Sekundy na
'wartość w kodzie BCD

If Dodatek1 = 0 Then

Locate 4 , 19
Lcd Bcd(wart_bcd2) ; 'wyświetlenie wartości sekund
'w kodzie BCD zamienionych na
'tekst

E1 = Str(godziny)
If Godziny < 10 Then E1 = " " + E1
E2 = Str(minuty)
If Minuty < 10 Then E2 = "0" + E2

E3 = E1 + ":" + E2 + " " + " "
Call Showstring(e3)
End If

If Dodatek1 = 1 Then ' ma być 1

Call Rd1820

End If

Reset Nowa_w 'zerowanie flagi Nowa_w
End If
End Sub 'koniec procedury

Odmierz_1s: 'podprogramu obsługi przerwania
'przepe-nienia od Timer1
Counter1 = Counter1 + 34286 'wpisanie wartości początkowej
'licznika
Incr Sekundy

Incr Dodatek
If Dodatek > 10 Then Dodatek1 = 1
If Dodatek > 15 Then
Dodatek1 = 0
Dodatek = 0
End If

'zwiększenie o 1 wartości
'Sekundy
Set Nowa_w 'zezwolenie na wyświetlenie
'czasu
If Sekundy = 60 Then 'jeśli Sekundy = 60, to
Sekundy = 0 'wyzerowanie wartoťci Sekundy
Incr Minuty 'zwiększenie o 1 wartości Minuty
If Minuty = 60 Then 'jeťli Minuty = 60, to
Minuty = 0 'zerowanie wartoťci Minuty
Incr Godziny 'zwiększenie o 1 wartoťci
'Godziny
If Godziny = 24 Then 'jelśi Godziny = 24, to
Godziny = 0 'zerowanie wartości Godziny
End If 'koniec warunkˇw
End If
End If
Return 'powrót z przerwania

[/syntax]

Fotki : gdzieś już je tu dawałem

Wolno się śmiać

Bo mnie samemu śmiech ogarnia jak wspominam czasy Bascoma

Teraz zrobiłbym inaczej ale ile razy można robić zegarek i termometr na DS18B20
może kiedyś opiszę big fonty dla Arduino i w GCC , ale niema to chyba sensu bo wystarczy użyć google:)

Statystyki: Napisane przez SunRiver — 21 kwi 2012, o 18:20

ATNEL tech-forum

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Re: Śmiech na sali Zegar z termometrem na LCD 4x20

Śmiech na sali Zegar z termometrem na LCD 4x20