www.elektronik.si

[kiko1234974]

Ali mi lahko kdo pomaga narediti program za LCD uro za mikrokrmilnik 4051 ?

[rudiP]

Poglej tu za začetek. Spremeniti moraš pine in definirati mikro.

http://www.pro-qwerty.com/files/lcd_clock.bas.txt

[kiko1234974]

A mi lahko kdo pomaga to spremeniti, ker sam nimam pojma?

[milan62]

[rudiP]

[vucboj01]

Kaj pa za začetek kaj takega, kar je na linku http://www.mytutorialcafe.com/Microcontroller%20Project%20Thesis%20RTC%204051.htm.

[RGorazd]

Še eden, ki hodi v šolo, pa ne ve zakaj...?!

Kako boš profesorju razložil, kako deluje program, če nimaš pojma?

LP G

[kiko1234974]

$sim
$crystal = 11059200


Config Lcd = 16 * 2

Upperline
Lcd "LCD URA"
Waitms 1000
Cls



Config Timer0 = Timer , Gate = Internal , Mode = 1

Load Timer0 , 36
Start Timer0
Enable Timer0
Enable Interrupts


Goto Preskok1:

Dim Sekunde As Byte
Load Timer0 , 36
Incr Sekunde
Return

Preskok1:

Do
Dim Minute As Byte
Dim Ure As Byte

If P3.3 = 0 Then Sekunde = Sekunde + 1
If P3.5 = 0 Then Minute = Minute + 1
If P3.4 = 0 Then Ure = Ure + 1


'ko je pritisnjena tipka, začne čas teči, ko tipko še enkrat pritisnemo se čas ustavi



If Sekunde > 59 Then
Sekunde = Sekunde - 60
Incr Minute
If Minute > 59 Then
Minute = Minute - 60
Incr Ure
End If
End If

Upperline
Lcd Ure ; ":" ; Minute ; ":" ; Sekunde ; ":";



Tstart Alias P3.3 'tipka TP1 start
Treset Alias P3.2 'tipka TP2 reset

Debounce Tstart , 0 , Zacni , Sub
Debounce Treset , 0 , Resetiraj , Sub

Loop

Zacni:
Start Timer0
Print Ure ; ":" ; Minute ; ":" ; Sekunde ; "" ;
Return
Resetiraj:
Ure = 0 : Minute = 0 : Sekunde = 0 :
Cls
Lcd Ure ; ":" ; Minute ; ":" ; Sekunde ; "" ;
Print Ure ; ":" ; Minute ; ":" ; Sekunde ; "" ;
Return

Zdej sem to naredo. Zanima me kako se naredi, da ko pritisnem tipko 3.4, da se minuta poveča za samo 1 ? Tk ko mam [slovenščina je zame španska vas] napisano se mi povečuje za 1 dokler ne še 1x pritisnem tipke.