radovi forumasa sa ubrzanog kursa pbp

[VFDisplay]

A šta to znači?

koje?

[Branez]

HELLO_PEOPLE

[niho]

@VFDisplay svaka cast, jos jedno lijepo rjesenje, izvinjavam se ako sam ispao malo grub u proslom postu. Lijepo odradjeno, samo naprijed, nadam se da ce biti jos ovakvih projekata

[VFDisplay]

koliko me engleski još služi to bi značilo "pozdrav ljudi"

@niho nisi ti ništa ispao grub, jer neznam po čemu
hvala, i ja se nadam...

[VFDisplay]

da li postoji neka komanda da mi se neki label ponavlja npr. 4 puta?

[niho]

u cemu label da se ponavlja, na picu (tj. displeju) ili VB ?

[Branez]

Naslov teme je: "radovi forumasa sa ubrzanog kursa pbp".
Šta tu ima raditi Visual Basic?

[niho]

da li postoji neka komanda da mi se neki label ponavlja npr. 4 puta?

Pa cemu sluzi petlja nego za ponavljanje.
Na pocetku dimenzionisi varijablu za broj ponavljanja kao cio broj, i onda klasika

Code: Select all

for i = 1 to (koliko hoces :)
'labele, naredbe i uopste ono sto treba da se ponavlja
next i

i to je kraj price.

[Branez]

On traži komandu a ne petlju.

[VFDisplay]

treba mi za multiplexing led display
npr želim da mi broji sekunde od 0 do 20 pa mi zato treba.....
nadam se da ste shvatili, a ako niste nda ćete vidjeti kad ga "sastavim"
ma petlja, komanda svejedno mi je samo da mi ponavlja label.....
hvala na pomoći @niho

[Branez]

Tu ti je sažetak teme skraceni kurs ucenja picbasica.
Da si pročitao taj kurs, nebi bilo potrebno tvoje pitanje.

[VFDisplay]

ma ne nisi razumio ja znam kako multiplex-ati ali mi treba ta komanda za ponavljanje jer da samo upišem određeni broj (multiplexan) on bi samo "blicniuo"
kad budem napisao prog. vidjet ćeš na šta mislim....
usput pročitao sam cijeli kurs

[Branez]

Odlično, da vidimo!

[VFDisplay]

nažalost nisam napravio onaj multipleksan display ali sam zato napravio nešto malo zanimljivije (otom potom)...
dakle radi se o lcd satu s 24 satnim modom i s jednom manom! Neće da prikaže 2 nule npr. 00:00:00 ali ostalo je ok!
evo koda:

Code: Select all

DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0 
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5 
DEFINE LCD_LINES 2
pause 250
INPUT PORTB.0
INPUT PORTB.1
INPUT PORTB.2
sec var word
sec = 00
minu var word
minu = 00
sati var word
sati = 00
pause 100
start:
lcdout $FE,1
lcdout $fe,1,dec sati,":",dec minu,":",dec sec
sec = sec + 01
pause 1000
if sec >59 then
minu = minu + 01
sec = 00
endif
if minu > 59 then
sati = sati + 01
minu = 00
endif
if sati > 23 then
sati = 00
minu = 00
sec = 00
endif
if portb.4 = 1 then
minu = minu + 01
endif 
if portb.2 = 1 then
sati = sati + 1
endif
goto start
end

[VFDisplay]

evo sad sam riješio i taj problem:

Code: Select all

DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0 
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5 
DEFINE LCD_LINES 2
pause 250
sec1 var word
sec2 var word
sec1 = 0
sec2 = 0
min1 var word
min2 var word
min1 = 0
min2 = 0
sati var word
sati = 0
start:
sec1 = sec1 + 1
if sec1 > 9 then
sec1 = 0
sec2 = sec2 + 1
endif
if sec2 >5 then
sec2 = 0
min1 = min1 + 1
endif
if min1 > 9 then
min1 = 0
min2 = min2 + 1
endif
if min2 > 5 then
min2 = 0
sati = sati + 1
endif
if sati > 23 then
sati = 0
min2 = 0
min1 = 0
sec2 = 0
sec1 = 0
endif
if portb.2 = 1 then
sati = sati + 1
endif
if portb.1 = 1 then
min1 = min1 + 1
endif
lcdout $fe,$80+3,"<",dec sati,":", dec min2,dec min1,":",dec sec2,dec sec1, ">"
pause 1000
goto start

[yt1nvs]

U ovom drugom kodu ti si to resio,to je tacno ali ti je KOD programa komplikovaniji.Mogao si to resiti u prvom primeru i to ovako:

umesto

lcdout $fe,1,dec sati,":",dec minu,":",dec sec

ovako

lcdout $fe,1,dec2 sati,":",dec2 minu,":",dec2 sec

mnogo prostije zar ne?

programer treba voditi racuna o duzini KODA!!!

[Dariolo]

Jesil ga testiro kolika su mu kašnjenja?

[VFDisplay]

U ovom drugom kodu ti si to resio,to je tacno ali ti je KOD programa komplikovaniji.Mogao si to resiti u prvom primeru i to ovako:

umesto

lcdout $fe,1,dec sati,":",dec minu,":",dec sec

ovako

lcdout $fe,1,dec2 sati,":",dec2 minu,":",dec2 sec

mnogo prostije zar ne?

programer treba voditi racuna o duzini KODA!!!

ma dobro je i ovako (barem meni), uostalom 370 "riječi" nije puno
ali hvala što si mi rekao, pokušat ću tako

@Dariolo: Nisam ga točno testirao ali, kako se kaže, od oka na 3h kasni oko 5s

EDIT: Evo sad sam sastavio kod (kako si mi rekao) i dužina koda je slična (prije 370 sad 341)

[yt1nvs]

Pa ustedeo si 29 lokacija malo li je?Nisam obracao paznju na ceo KOD mozda moze jos.Nekad te ustede znace mnogo videces vremenom.

[VFDisplay]

pa mnogo puta je tih 29 lokacija dosta, vjerujem
upamtit ću to!
u ovom kodu mi netreba neka ušteda (zasad)...