www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

Bascom case

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Osnove programiranja AVR-jev
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
jerny
Član
Član



Pridružen-a: Čet 17 Apr 2008 11:27
Prispevkov: 414
Aktiv.: 1.98
Kraj: Dravograd
PrispevekObjavljeno: Sre Jun 23, 2010 3:02 pm    Naslov sporočila:  Bascom case Odgovori s citatom
Izdelujem program z numerično tipkovnico 3x4 in 7 segmentnim displejom. Spodnji program deluje le pri pritisku 1, 2,3 tipke naprej pa ne več. Torej samo prvi trije case stavki, naprej deluje samo če napišem PORTB.0=1 in takrat prižge segment na tem portu. Torej do 3 case stavka deluje če napišem v binarni obliki. Kje tiči problem?

Koda:
$regfile = "attiny26.dat"
$crystal = 1000000

Dim B As Byte                                               'dekleracije nove spremenljivke

Config Kbd = Porta                                          'kbd funkcija za branje numerične tipkovnice na portu A
Config Portb = Output                                       'PORTB izhoden
Portb = 0                                                   'cel porb B postavljen na 0

Do
B = Getkbd()                                                'v spremenljivko b zapišemo vrednost prebrano iz tipkovnice
Select Case B                                               'izipišemo vrednost glede na izbrano na numerični tipkovnici

Case 0 : Portb = &B00100010

Case 1 : Portb = &B01010111

Case 2 : Portb = &B01110011

Case 4 : Portb = &B00101011

Case 5 : Portb = &B01111001

Case 6 : Portb = &B01111101

Case 8 : Portb = &B01100010

Case 9 : Portb = &B01111111

Case 10 : Portb = &B01111110

Case 13 : Portb = &B01111110

End Select
Loop
[/code]
_________________
Če smrdi je kemija, če kadi pa elektronika!
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
Slemi
Član
Član



Pridružen-a: Pet 29 Okt 2004 13:29
Prispevkov: 386
Aktiv.: 1.63
Kraj: Hrastnik
PrispevekObjavljeno: Sre Jun 23, 2010 9:54 pm    Naslov sporočila:   Odgovori s citatom
Mislim da manjka med vsakim case, še ukaz break, vsaj v C-ju je tako.

Sem šel pogledat help od bascoma, ne bo to to.

Poskusi najprej z ukazom Portb = B namesto case, da vidiš če ti to v redu deluje.

LP
_________________
slemi.info - en
slemi.si - slo
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo AIM - AOL Instant - naslov MSN Messenger - naslov
rudiP
Član
Član



Pridružen-a: Tor 07 Avg 2007 15:30
Prispevkov: 1234
Aktiv.: 5.68
Kraj: KOPER
PrispevekObjavljeno: Čet Jun 24, 2010 7:48 am    Naslov sporočila:   Odgovori s citatom
Po mojem ima procesor premalo izhodov.

ukaz
Koda:
Case 0 : Portb = &B00100010 
ti verjetno resetira mikro.

portb.7 je reset.
probaj:
Koda:
Case 0 : Portb = &B10100010 

_________________
Lep pozdrav iz Kopra Rudi
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
jerny
Član
Član



Pridružen-a: Čet 17 Apr 2008 11:27
Prispevkov: 414
Aktiv.: 1.98
Kraj: Dravograd
PrispevekObjavljeno: Čet Jun 24, 2010 9:43 am    Naslov sporočila:   Odgovori s citatom
Problem je bil v portub.3 in sicer ko si tstega postavl na 1 je prenehala delovati cela zadeva. Zdaj sem zadevo rešil nekoliko drugače, vseeno hvala vam za odgovore.
_________________
Če smrdi je kemija, če kadi pa elektronika!
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Osnove programiranja AVR-jev Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu

Uptime: 492 dni


Powered by phpBB © 2001, 2005 phpBB Group