skraceni kurs ucenja picbasica

[Kukinjos]

Ivane, molim te organiziraj se , mozak ti trenutno radi ko i ovaj tvoj program skače svugdi, samo ne di triba. Ne bi da imam psa gonića upratio ove tvoje postove. Ajde lipo složi u glavi što bi točno htio, pa to napiši. Jel hoćeš da tipkom pališ i - ili gasiš LED, ili tipkom pališ, programski gasiš, pauza kada?

[ivan malesevic]

Ovako treba mi sledece:
treba da vezem par ledica
kad se upali prva ledica program treba da sacaka 1000ms
ako se u tom vremenskom periodu stisne taster program treba da se ukoci sve dok se ponovo nestisne taster
a ako se taster uopste nestiska program nestaje nigde
znaci
upali se prva ledica
ako nestisnem taster upali se druga
a ako stisnem taster nakon paljenja prve ledice program stane sve dok se taster ponovo nestisne
kad se taster stisne ponovo pali se druga ledica i tako dalje
to ce biti deo programa labela gde cu sa gosubom stalno vracati radi provere
jer ce kod biti dosta velik


ovo sa dve ledice samo probavam da vidim kako bi to izveo.

[Kukinjos]

OK., kasno je sad, idem leć, sutra ću ti pomoć nešto složit.

[ivan malesevic]

ok al ga uprosti plizzzzz laka noc uh vidim da si iz splita prelep grad

[ivan malesevic]

Pozdrav jer mi neko moze pomoci oko koda?znaci treba mi vreme da ceka da stisnem taster ako ga nestisnem da nastavi dalje program

[Kukinjos]

Evo kako sam obećao, malo sa zakašnjenjem, ali nedjelja je, imao sam i neke osobne obveze. Napravio sam i shemu u Proteus-u, za probu:
https://www.dropbox.com/s/tyoscwh72dchkpq/IVAN.DSN

Program u PBP, brzinski, oprosti, ali radio sam od početka, tako mi je bilo lakše, pa ti popravi nazive onako kako voliš (tipka <> taster)

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' kristal 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = $00                            ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE
input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


                                       
i var byte                             ' POMOĆNA VARIJABLA ZA BROJAČ LED-ica 
j var byte                             ' POMOĆNA VARIJABLA ZA BROJAČ VREMENA

i = 1                                  ' POČETNI LED

'****************************************************************
main:                                  ' GLAVNI PROGRAM

do                                     ' OSNOVNA PETLJA
    
    PORTC = i                          ' UPALI TEKUĆI LED
    
    call provjera:                     ' POZOVI RUTINU ZA PROVJERU TIPKE
    
    PORTC = 0                          ' UGASI LED-ICE
    i = i << 1                         ' PREBACI NA SLIJEDEĆI LED
    if i = 0 then i = 1                ' AKO JE BIO ZADNJI LED, PREBACI NA PRVI
    
    
loop

'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAČ PAUZA OD 10mS

:P1        
    if tipka = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI

    pause 10                           ' PAUZA 10mS
    next j                             ' SLIJEDEĆA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZAĐI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ


'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
:ZAUSTAVI
    
    do while tipka = 0                 ' ČEKAJ DOK JE PRITISNUTA TIPKA
    loop
    
    do while tipka = 1                 ' ČEKAJ DOK JE OTPUŠTENA TIPKA
    loop
    
    do while tipka = 0                 ' ČEKAJ DOK JE OPET PRITISNUTA TIPKA
    loop
    
return                                 ' IZAĐI NAKON OTPUŠTANJA TIPKE

[ivan malesevic]

m meni simulacija neradi al skontao sam
for i =1 to 10
if taster =0 then ...
PAUSE100
next i
znaci vrtece deset puta i proveravati dali je taster pritisnut jesam dobro skontao ako nije stisnut nastavlja dalje jesam u prave?
HVALA,AL JAKO BI VOLEO SIMULACIJA DA PRORADI DA VIDIM JA SAM COD UVUKAO U MICRO COD

[ivan malesevic]

al bas mi ovo treba jako jako bi zeleo da proradi simulacija sto nece uf i ja hocu sa 16f877 to da uradim
uf pojede se napravi hex fail ali kada stisnem play u ploteusu izbaci greske

[Kukinjos]

U čemu ti je problem s simulacijom? Jesi li kompajlirao file sto sam postao? Nakon toga ga moraš pridružit asm ili hex file procesoru u simulaciji. Ali to valjda znaš, ovo napominjem ako si slučajno smetnuo s uma.

znaci vrtece deset puta i proveravati dali je taster pritisnut jesam dobro skontao ako nije stisnut nastavlja dalje jesam u prave?

Tako je, 10 puta provjera s pauzom od 100mS, a nakon toga ide dalje.
EDIT:
I ja pišem gluposti:

Code: Select all

:provjera
    for j = 0 to 100                   ' BROJAČ PAUZA OD 10mS

:P1        
    if tipka = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI

    pause 10                           ' PAUZA 10mS
    next j                             ' SLIJEDEĆA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZAĐI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ

Provjerava 100 puta s pauzom od 10 mS

[ivan malesevic]

da napravi on hex fail uvucem ga u pooteus al izbaci gresku kad lupim play bas bi voleo da proradi jer mi to treba doradim ga i radi

[Kukinjos]

Koju verziju Proteusa imaš?

[ivan malesevic]

7.10 je verzija

[Kukinjos]

Ah, opet verzije, moja je novija:

Proteus.PNG (7.33 KiB) Viewed 4441 times

Ja sam ju danas skinuo s torrent-a. Jel bi htio?

[Maki]

Bok !
Znam da je pitanje off topic al dal ti se rusi proteus tj. izajde iz programa bez razloga ?

[Kukinjos]

Friško instaliran, pojma nemam. Do sad nije ni jedan put. Evo baš ga dižem na HR-Micro, čim završim ide link.

[Maki]

Ajd super ! Hvala !

[Maki]

Ma zabunom sam stisnu 2 puta submit. Mozete ovu poruku slobodno zbrisat

[bob4]

Uploaded with ImageShack.us

[Kukinjos]

Uh Bobe, a ja već skoro gotov. Imaš li ti link?

[Kukinjos]

Evo za link Prot.7.6:
http://www.mediafire.com/?47bsrrv2alnk2c7