LED villogtató

[Kotesz]

Értem köszönöm a segítséget!:)

[Kotesz]

Köszönöm szépen mindenkinek a segítséget, igy sikerült megoldani az 5 led 1 nyomógombal történő léptetését!

Kód: Egész kijelölése

$regfile = "m8def.dat"                                      'proci: AtMega8
$crystal = 4000000                                          'belső órajel

Config Portc.5 = Output
Config Portc.4 = Output
Config Portc.3 = Output
Config Portc.2 = Output
Config Portc.1 = Output                                     'kimenet: LED
Config Portc.0 = Input                                      'bemenet: Nyomógomb
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
Reset Portc.5
Portc.0 = 1                                                 'belső felhúzó ellenállás bekapcsol


Dim A As Byte

A = 0

Do                                                          'főprogram


                                                    'feltétel
   If Pinc.0 = 0 Then

   A = A + 1
   Waitms 500
   Bitwait Pinc.0 , Set                                     ' vár gombelengedésig - opcionálisan használható
   If A > 5 Then A = 0
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
Reset Portc.5
 End If




Select Case A

   Case 1 : Set Portc.1
   Case 2 : Set Portc.2
   Case 3 : Set Portc.3
   Case 4 : Set Portc.4
   Case 5 : Set Portc.5

   End Select


   Loop                                                     'főprogram vége

End                                                         'end program

[Kotesz]

újabb problémával szeretnélek zavarni benneteket:
2 nyomógomb 1.gomb balra - 2.gomb jobbra futófény

If - then ciklus szintaktika ismét a hiba:

Kód: Egész kijelölése

Dim A As Byte

Do
                                                            'főprogram
   If Pinb.1 = 0 Then
   A = 1
   Waitms 500
   Bitwait Pinb.1 , Set

   If Pinb.2 = 0 Then A = 0
   Waitms 500
   Bitwait Pinb.2 , Set       
   End If

Jobbra:

Reset Portc.5
Set Portc.1
Waitms 100
Set Portc.2
Reset Portc.1
Waitms 100
Set Portc.3
Reset Portc.2
Waitms 100
Set Portc.4
Reset Portc.3
Waitms 100
Set Portc.5
Reset Portc.4
Waitms 100
Set Portc.1
Reset Portc.5
Goto Jobbra

Balra:

Reset Portc.1
Set Portc.5
Waitms 100
Set Portc.4
Reset Portc.5
Waitms 100
Set Portc.3
Reset Portc.4
Waitms 100
Set Portc.2
Reset Portc.3
Waitms 100
Set Portc.1
Reset Portc.2
Waitms 100

Goto Balra

Select Case A

Case 1 : Goto Balra
Case 0 : Goto Jobbra
End select
                                                   'főprogram vége

End

Szerk.: az "End select" parancs hiányzott bocsi én voltam figyelmetlen

[Kotesz]

de csak egyik irányba fut a fény, a gombokra nem reagál
Mit rontottam el?

[kapu48]

A sorrendet:

Kód: Egész kijelölése

$regfile = "m8def.dat"                                      'proci: AtMega8
$crystal = 4000000                                          'belső órajel

Config Portc.5 = Output
Config Portc.4 = Output
Config Portc.3 = Output
Config Portc.2 = Output
Config Portc.1 = Output                                     'kimenet: LED
Config Portc.0 = Input                                      'bemenet: Nyomógomb
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
Reset Portc.5
Portc.0 = 1                                                 'belső felhúzó ellenállás bekapcsol


Dim A As Byte


Do
Eleje:
   A = 0                                                            'főprogram
   If Pinb.1 = 0 Then
       A = 1
       Waitms 500
       Bitwait Pinb.1 , Set
   End If

   If Pinb.2 = 0 Then
       A = 2
       Waitms 500
       Bitwait Pinb.2 , Set
   End If

    Select Case A

        Case 1 : Goto Balra
        Case 2 : Goto Jobbra
    End Select

Loop

Jobbra:

Reset Portc.5
Set Portc.1
Waitms 100
Set Portc.2
Reset Portc.1
Waitms 100
Set Portc.3
Reset Portc.2
Waitms 100
Set Portc.4
Reset Portc.3
Waitms 100
Set Portc.5
Reset Portc.4
Waitms 100
Set Portc.1
Reset Portc.5
Goto Jobbra

Balra:

Reset Portc.1
Set Portc.5
Waitms 100
Set Portc.4
Reset Portc.5
Waitms 100
Set Portc.3
Reset Portc.4
Waitms 100
Set Portc.2
Reset Portc.3
Waitms 100
Set Portc.1
Reset Portc.2
Waitms 100

Goto Balra

                                                  'főprogram vége
End

De így beleragad az első elindított rutinba! Csak a Reset segít! Kellene valami kilépés a Goto-ból.

[Kotesz]

Ez mostmár igy világos!

De milyen eseményre lépne ki a goto-ból?

[Robert]

goto helyett gosub-return?

[herc1234]

EXIT FOR..DO..SUB..WHILE...FUNCTION

valamit kihagytam?

[Robert]

M8 tud 4 MHzrol jarni?
Nem 8 és 1 MHz lehet (adatlap nincs előttem)

[kapu48]

valamit kihagytam?

A legegyszerűbb (kezdő szint!):
If Gomb3 = 0 Then Goto Eleje 'Do

[herc1234]

valamit kihagytam?

A legegyszerűbb (kezdő szint!):
If Gomb3 = 0 Then Goto Eleje 'Do

itt most a cikluskilépésről volt szó
én a 'hátultesztelős WHILE ciklust ajánlanám
mivel akkor az elötte lévő Do.....While ciklusban mindenképp
1x lefutnak a megadott parancsok
Goto az egy direkt címzés felejtsük má el..
akkor már inkább return

[kapu48]

De ez itt a kezdők, LED villogtató topikja! Az illetőnek el kellene magyarázni mi az a „Do.....While ciklus”! De mivel ezt már előttünk egy páran megtették …

[zoli_varga]

Üdv!

most kezdem a programozást és az avr használatát. a led villogtatónál hogyan lehetne megoldani hogy az időzítést változóval oldjam meg?
(lusta vagyok átírni minden sort ha változtatni szeretnék a programon).
A program elején definiálnám az időket. ez a villogtató továbbfejlesztéséhez kellene.

[Robert]

Kód: Egész kijelölése

dim valami as byte
waitms valami

[zoli_varga]

köszi
én a sima wait -et próbáltam.
megnéztem és azt írja hogy out of sram space
tiny13 at használok.