en mar nem ertek semit ...

[doidoi]

irtam egy kis programot de sehogyse mukodik....talan kene levegozek egyett....szoval mirol lene szo...

mikor a portb 7- re feszultseg er a csiklus el kene induljon....ha kiveszem ezt a resz a program jol mukodik ...Waitus 3000 ido utan a portok rendesen kapcsolnak ....de ha viszateszem a "If Pinb.7 = 1 Then" sehogyse mukodik .....

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

$regfile = "m16DEF.DAT"
$crystal = 4000000



Dim S10 As Byte
Dim S5 As Byte



Main:

Ddra = 0
Ddrc = 0
Ddrd = 0
Ddrb.7 = 1



Portc = 0
Portd = 0

S10 = 0
S5 = 0

Loop:

'*******************************
'megnezi ha a portb.7 -en van
'feszultseg , ha van noveli a valtozokat
'*******************************
If Pinb.7 = 1 Then



'*******************************
'noveli a szamokat es nulaza
'Ha Eleri A Maximalis Erteket
'*******************************

S10 = S10 + 1
S5 = S5 + 1

If S10 = 51 Then
S10 = 1
End If

Waitus 3000

'*******************************
'Megnezi meik 5 sor kovetkezik
'es rakapcsolja a tapot (viszint)
'*******************************

If S10 = 1 Then
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
Portd.4 = 0
Portd.5 = 1
End If


If S10 = 11 Then
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
Portd.4 = 1
Portd.5 = 0
End If

If S10 = 21 Then
Portd.1 = 0
Portd.2 = 0
Portd.3 = 1
Portd.4 = 0
Portd.5 = 0
End If

If S10 = 31 Then
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Portd.4 = 0
Portd.5 = 0
End If

If S10 = 41 Then
Portd.1 = 1
Portd.2 = 0
Portd.3 = 0
Portd.4 = 0
Portd.5 = 0
End If

'*******************************
'sorba veszi a 10 sor ledet es
'taplalja oket ... (fugoleges)
'*******************************



If S5 = 1 Then
Portc.7 = 1
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 2 Then
Portc.7 = 0
Portc.6 = 1
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 3 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 1
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 4 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 1
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 5 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 1
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 6 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 1
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 7 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 1
Portc.0 = 0
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 8 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 1
Portd.7 = 0
Portd.6 = 0
End If

If S5 = 9 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 1
Portd.6 = 0
End If

If S5 = 10 Then
Portc.7 = 0
Portc.6 = 0
Portc.5 = 0
Portc.4 = 0
Portc.3 = 0
Portc.2 = 0
Portc.1 = 0
Portc.0 = 0
Portd.7 = 0
Portd.6 = 1
S5 = 0
End If

Goto Loop

End If
End

[doidoi]

jol jott a levegozes

a gond itt volt ...jol elneztem

Portd.7 = 1
S5 = 0
End If

end if -------> ide jar

Goto Loop


End If ---> ez nem ide kelet volna
End

[Robert]

Előfordul az ilyen....

Bár a szemerkélő esőben nem túl jó a séta sem.....

[kapu48]

Hát jó nagy munka volt.
De én valahogy így csináltam volna:
If S5 = 1 Then
Portc = 128
…
If S5 = 2 Then
Portc = 64
…
If S5 = 3 Then
Portc = 32
…
If S5 = 4 Then
Portc = 16
…
…


Ja és miért ? „Goto loop”
Inkább:
Do
…
…
Loop

[doidoi]

koszonom kapu48 .... igaz jo a te valtozatod .... csak enyi lesz azon az atmegan ... meg kezdo is vagyok ebbe , aztan van ott eleg hely

koszi minden esetre , jol fog joni az otlet a kovetkezo munkakban ahol mindig kel a hely a kontrolerbe .....

Szerk: helyesírás

[doidoi]

meg lene kerdesem ..... ez a resz ami jon mukodik ....csak sok helyet foglal majd ....en hasznaltam valamikor mikrobasic-ot .....ott egyszerub volt az adatokal mert ott hasznaltam mind constans az adatokat .
pl. const a1 as byte[250]=(2,5,0,0,4,8,3,55,123,0,0,0,0,0,0..............) valahogy igy ....a bascomban

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

If Ss = 1 Then
Restore Da1
For I = 1 To 50
Read D
Kep0(i) = D
Next I
End If
....
....
....
....
If Ss = 5 Then
Restore Da5
For I = 1 To 50
Read D
Kep0(i) = D
Next I
End If



If Ss = 6 Then
Ss = 0
End If




For I = 0 To 49
Portc = Kep0(i)
Waitus 1400
Portb.7 = 1
Portc = 0
Waitus 15
Portb.7 = 0
Next I

Goto Res

End

Da1:
Data , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255
Da2:
Data , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Da3:
Data , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Da4:
Data , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Da5:
Data , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

jo hogy itt haszalhatom rovideben is a dolgokat de sokat csak nem nyerek pl . itt is van a ..

SELECT CASE var
CASE test1 : statements

de ez igy se sok hely nyeres....








en aszt szeretnem hogy minel tobbet irjak be egy ilyen data sorba , most nem tudom menyi a maximalis de tudom hogy 300 zat nem lehet.

megprobalom igy .....
y=1
restore da1 ------>vagy ahonan a data sorok kelenek 

ciklus1:

If Ss = 2 Then
'Restore Da1   ----->ezt kivenem
For I = y To y+50
Read D
Kep0(i) = D
Next i
End If


For I = y To y+50
Portc = Kep0(i)
Waitus 1400
Portb.7 = 1
Portc = 0
Waitus 15
Portb.7 = 0
Next I

y=y+50

if y>450 then
goto ciklus2
end if


goto ciklus1

Szerk: hej (sit!) -> Hely és ijen (sit!) -> ilyen

[Robert]

Overlay? Azzal célzott memóriahelyre lehet bedolgozni adatokat... és ha ott véletlen a tömb van

[doidoi]

amit irtam az ugy nem megy ....meg milyen szavakat hasznalhatok bascomban vajon ....vagy van megoldas a data sorokban tobb adatot irni ?


ilyesmiket akarok hasznalni persze sokat .....itt ezek az adatok a c porton irodnak ki .....

ez persze egy data sorba akart kerulni de nem megy .....
ha felosztom tul sok helyet fog hasznalni

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

 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255,0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 0 , 0,0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

Szerk: helyesírás!

[Robert]

A DATA sorban, ha 1 vagy többe írod, ugyanannnyi helyet foglal.....

Érdekes lehet még, ha EEPROMba rakod:

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

$EEPROM
data adatok.....
$data

Így az adott című EEPROM helyre hivatkozhatsz...

Esetleg külső I2C EEPROM ?

[doidoi]

megprobalom a tanacsod.....
nem jol fogalmaztam maskep a gondom , tobb adatrol szo van , a helyet elfoglalja a sok data sor elohivasa , es gondoltam lecsokentem a data sorokat igy hivhatom kevesebb programszoval .

de valoszinuleg egy kulso memoriat fogok hasznalni , amirol majd leolvasom a byteket konyeben ...

koszi Robert.

[kapu48]

A sokk „ If … then …” helyet használj inkább:
On Ss Gosub Ss1, Ss2, Ss3, …

Ss1:
Restore Da1
For I = y To y+50
Read D
Kep0(i) = D
Next i
return

Ss2:
…
…

Ez nem tölti az időt és helyet a feltétel vizsgálással, hanem a kiszámított helyre ugrik!
Csak nem szabad túl indexelni!
Mint ahogy én csináltam itt:
http://avr.tavir.hu/modules.php?name=Fo ... c&start=15

30drb távszabályzó gomb vizsgálatánál. Megspóroltam 300byteot, meg 30 feltétel vizsgálatot.

[kapu48]

Igy is ugyan azt csinálja csak kevesebb memória használattal!
If Ss = 1 Then
Restore Da1
End If
....
....
....
....
If Ss = 5 Then
Restore Da5
End If

For I = 1 To 50
Read D
Kep0(I) = D
Next I

[doidoi]

igen jo megoldas koszi


edig nem tudtam valamit ....

azt nem tudtam hogy pl Da1: labelnel o nem csak az elso data sort olvasa hanem az oszest a kovetkezo labelig .....ezert voltam nagyon elakadva ...

es azert mind csinaltam tobb ciklust ....as sok labelert .......
na jol jot a mai kozremukodesetek ......

az adatokbol elteszek az eprom reszre is es most mar egyszerubb a hejzet sok elfer a kontrolerbe is ....

end

Da1:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0


Da2:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

[kapu48]

Vagy tömörítsd az adatokat:
Da1:
Data 40, 0, 10, 255
Da2:
Data 30, 0, 10, 255, 10, 0

Beolvasás:

Restore Da1
Osszes =0
Kezd = 1
While Osszes < 50
Read n
Read D
Osszes = Osszes + n
For I = Kezd To Osszes
Kep0(I) = D
Next I
Kezd = Kezd + n
Wend

Valahogy így! Még lehetne finomítani csak idő és akarat kérdése.