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 

Programiranje v bascom avr
Pojdi na stran Prejšnja  1, 2, 3 ... 12, 13, 14 ... 36, 37, 38  Naslednja
 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
dkone
Član
Član



Pridružen-a: Sre 07 Mar 2007 18:53
Prispevkov: 2104
Aktiv.: 10.13
Kraj: Krško

PrispevekObjavljeno: Sob Dec 20, 2008 8:25 pm    Naslov sporočila:   Odgovori s citatom

Sem že pogruntal,namesto ; uporabi :
_________________
Denis
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 11.12
Kraj: Maribor (Pohorje)

PrispevekObjavljeno: Sob Dec 20, 2008 8:48 pm    Naslov sporočila:   Odgovori s citatom

Ja, poglej:

LCD a : LCD "nekaj" : LCD b : LCD "bla"
LCD a ; "nekaj" ; b ; "bla"

_________________
Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
dkone
Član
Član



Pridružen-a: Sre 07 Mar 2007 18:53
Prispevkov: 2104
Aktiv.: 10.13
Kraj: Krško

PrispevekObjavljeno: Sob Dec 20, 2008 9:10 pm    Naslov sporočila:   Odgovori s citatom

program_er je napisal/a:
Ja, poglej:

LCD a : LCD "nekaj" : LCD b : LCD "bla"
LCD a ; "nekaj" ; b ; "bla"


Posledica dopusta pri AVR-jih Laughing Laughing

_________________
Denis
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Sre Dec 24, 2008 9:26 pm    Naslov sporočila:   Odgovori s citatom

Super sem danes preizkusil pa deluje. Sedaj pa imam še eno vprašanje.
Kako vi naredil da bi se npr. en if stavek izvedel samo enkrat vse dokler se nebi program ponovno zagnal. Upam da sem jasen če ne pa povejte.

Hvala!
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
zlabo
Član
Član



Pridružen-a: Sre 16 Jan 2008 21:38
Prispevkov: 283
Aktiv.: 1.44
Kraj: Domžale-Kamnik

PrispevekObjavljeno: Sre Dec 24, 2008 9:34 pm    Naslov sporočila:   Odgovori s citatom

umestiš ga na začetku pred neskončno zanko (do-loop)
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Sre Dec 24, 2008 10:43 pm    Naslov sporočila:   Odgovori s citatom

Hvala. Kako da mi to ni padlo v glavo.
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Čet Dec 25, 2008 12:46 pm    Naslov sporočila:   Odgovori s citatom

Že spet jaz.
Kako naredim da se mi en del zanke izvaja tako dolgo dokler ne pritisnem tipke in se pri naslednjem ciklu zanke ta del preskoči.

Da malo razložim kaj hočem. Na začetku programa nastavim eno vrednost in ko jo potrdim hočem da se zanka izvaja od tu dalje dokler ni dosežena ta vrednost.
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
stursc
Član
Član



Pridružen-a: Tor 08 Jun 2004 14:29
Prispevkov: 323
Aktiv.: 1.45

PrispevekObjavljeno: Čet Dec 25, 2008 2:13 pm    Naslov sporočila:   Odgovori s citatom

Nova zanka

Do

if ta vrednost dosežena
ExitDo
end if

Loop

Lp, stursc
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Čet Dec 25, 2008 5:22 pm    Naslov sporočila:   Odgovori s citatom

Hvala deluje Smile
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Pet Dec 26, 2008 5:45 pm    Naslov sporočila:   Odgovori s citatom

Kako pa vklopim notranje pullup upore? Rolling Eyes
Nekaj sem bral datashet za atmego8 pa me zanima če je potrebno povezat AVcc ter Vcc? Tako sem razumel vendar vseeno raje vprašam.

Hvala
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
klemen88
Član
Član



Pridružen-a: Tor 01 Jan 2008 17:37
Prispevkov: 747
Aktiv.: 3.78
Kraj: Slovenj Gradec

PrispevekObjavljeno: Pet Dec 26, 2008 5:51 pm    Naslov sporočila:   Odgovori s citatom

portx=&B1111_1111

Odvisno na kerem pinu je tipka...če hočeš vklopit pull-up daš 1 če ne pa 0. Šteje se pa iz desne proti levi.
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
dkone
Član
Član



Pridružen-a: Sre 07 Mar 2007 18:53
Prispevkov: 2104
Aktiv.: 10.13
Kraj: Krško

PrispevekObjavljeno: Pet Dec 26, 2008 6:23 pm    Naslov sporočila:   Odgovori s citatom

kaj pa takole:

ddrb=255
set portb.x


Question

_________________
Denis
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
strobos
Član
Član



Pridružen-a: Sre 24 Sep 2003 12:19
Prispevkov: 726
Aktiv.: 3.27
Kraj: Brežice

PrispevekObjavljeno: Pet Dec 26, 2008 6:37 pm    Naslov sporočila:   Odgovori s citatom

dkone je napisal/a:
kaj pa takole:

ddrb=255
set portb.x


Question

Tako postaviš pine, da so izhodni.
Pine moraš definirat kot vhodne ddrb=0 in
potem npr. z portb=255 vklopiš pull up upore ali pa s set portb.x vključuješ posamezni pull up upor.

Lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Misko
Član
Član



Pridružen-a: Ned 16 Apr 2006 15:15
Prispevkov: 549
Aktiv.: 2.51
Kraj: MS

PrispevekObjavljeno: Ned Dec 28, 2008 4:27 pm    Naslov sporočila:   Odgovori s citatom

Spet se mi je zataknilo.

Imam dve zanki v prvi določim pogoj koliko krat se naj izvede druga zanka.
Prosim če mi lahko kdo malo nakaže to rešit sem že nekaj delal na tem vendar mi program ne gre v drugo do-loop zanko.
Koda:
...
C = 0

Do
 If Pinc.5 = 0 Then                                       
  Waitms 20
   If Pinc.5 = 0 Then
    Gosub Vec
   End If
 End If

 If Pinc.3 = 0 Then                                         
  Waitms 20
   If Pinc.3 = 0 Then
    Gosub Manj
   End If
 End If

 If Pinc.4 = 0 Then                                         
  Waitms 20
   If Pinc.4 = 0 Then
    Exit Do
   End If
 End If
Loop

Do
                           'Ta zanka bi se naj izvedla C krat.
Loop

Vec:                                                       
 Incr C
 Locate 3 , 5 : Lcd C : Lcd "    "
Return

Manj:                                                   
 Decr C
 Locate 3 , 5 : Lcd C : Lcd "    "
Return


Hvala
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
rudiP
Član
Član



Pridružen-a: Tor 07 Avg 2007 15:30
Prispevkov: 1234
Aktiv.: 6.09
Kraj: KOPER

PrispevekObjavljeno: Ned Dec 28, 2008 8:53 pm    Naslov sporočila:   Odgovori s citatom

Tu je rešitev na hitro:

Prvo se nauči pregledno pisati programe, da boš hitro našel ko boš kaj popravljal !


Koda:

$regfile = "m8def.dat"
$crystal = 11059200

Config Portc = Input
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 20 * 4

Dim C As Byte
Dim C_flag As Bit

Declare Sub Vec
Declare Sub Manj

Reset C_flag

Cls

'****************************************

Do

    If Pinc.5 = 0 Then
       ' Waitms 20
        If Pinc.5 = 0 Then
           Call Vec
        End If
    End If

    If Pinc.3 = 0 Then
       ' Waitms 20
        If Pinc.3 = 0 Then
           Call Manj
        End If
    End If

    If Pinc.4 = 0 Then
       ' Waitms 20
        If Pinc.4 = 0 Then Set C_flag
    End If
 '   If C_flag = 1 Then Lcd "*"

    If C_flag = 1 And C > 0 Then
       If C = 1 Then
          Reset C_flag                                      '        dodaj svojo kodo
          Lcd "#"
       End If
       Decr C
       Lcd C
    End If

Loop

'********************************************
Sub Vec:
    Incr C
    Locate 1 , 1 : Lcd C : Lcd "    "
End Sub
'********************************************
Sub Manj:
    Decr C
    Locate 1 , 1 : Lcd C : Lcd "    "
End Sub
'********************************************





Zelo lepo je to opisano v literaturi , Gregorja Mačka & ostalih
Malo prehitevaš, zato pojdi po vrsti.

_________________
Lep pozdrav iz Kopra Rudi
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Pojdi na stran Prejšnja  1, 2, 3 ... 12, 13, 14 ... 36, 37, 38  Naslednja
Stran 13 od 38

 
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: 47 dni


Powered by phpBB © 2001, 2005 phpBB Group