www.elektronik.si

[linel]

helow!

hočem narediti nekakšno štetje ob pritisku na tipko. to je program, vendar ne deluje pa nevem kaj manjka oziroma je narobe. prosim če mi kako svetujete vendar mi ne povejte odgovora direkt, hočem da sam pogruntam z vašimi nasveti

Declare Sub Stetje
Dim A As Byte

Config Porta.0 = Input

Cls
Cursor Off
Locate 1 , 1 : Lcd "stetje z tipko"



Sub Stetje
A = 1
If Porta.0 = 1 Then
Waitms 20
Incr A

End If

Locate 2 , 5 : Lcd A

End Sub

End

[eddie]

Malo bolj napiši kako ne dela. Oziroma kaj dela.
Kako imaš vezano tipko?

[tiger]

Hi

Če sem pravilno razumel program ( ne poznam Bascoma), potem je treba nekje klicati podprogram Stetje najbrž manjka zanka DO...LOOP.


LP

[program_er]

Čakaj malo, a je to cel tvoj program?

[linel]

dela: prikaz štetje z tipko v prvi vrsti lcd, številka 1 v drugi vrsti lcd-ja, ko pa pritiskam tipko se ne dogaja nič. tipka je vezana proti vcc. da, to je zaenkrat vsel program, ( učim se programirati, sem še na začetku)

[program_er]

Če neki vhod bereš, ga naslavljaš z PINX.y.

Config PINA.0 = Input

If PINA.0 = 0

PORT lahko uporabiš samo, če je pin izhod:

Config PORTA.0 = Output

PORTA.0 = 1

[linel]

tnx, tipka zdaj deluje, vedar ko pritisnem tipko se številka obrne na 2 ko jo pa spustim se pa vrne nazaj na 1. nekja sem gledal v helpu, ali bi moral uporabiti timer0? ali kako bi najlažje bilo

config timer0 = counter

[tiger]

Hi

A=0 moraš definirat izven podprograma Stetje, ker vsakič pri klicu Stetje resetiraš A, kar pa najbrž ne želiš.

LP

[program_er]

Če ti bo to zdaj delovalo, pa lahko za nasljednjo težavnostno stopnjo narediš 2 števca: Vrednost enega se shranjuje v eeprom, eden pa je navaden. Tako bi imel 2 podatka: koliko-krat skupaj si pritisnil tipko, in kolikokrat od zanje prekinitve napetosti.

[linel]

čeprav definiram A = 0 zunaj podprograma vseeno skoči nazaj na 0

[tiger]

Hi

Pa si zbrisal v podprogramu A=1 oz. A=0?


LP

[linel]

ja

[linel]

program je sedaj takšen.

Declare Sub Stetje
Dim A As Byte
Config Pina.0 = Input

Cls
Cursor Off
Locate 1 , 1 : Lcd "stetje z tipko"

A = 0
Do
Sub Stetje

If Pina.0 = 1 Then
Waitms 20
Incr A
End If
Locate 2 , 5 : Lcd A

End Sub
Loop
End

[tiger]

Hi

Drugače je pa najbolje, da za štetje uporabiš zunanjo prekinitev INT0 ali INT1, ker ti bo preštelo vsak pritisk, tako kot imaš pa sedaj pa le tisto, kar je pritisnjeno tisti trenutek, ko program res bere tipko.

LP

[program_er]

Probaj tako: