www.elektronik.si

[ATA]

Za moj projekt sem zelel napisati bascom program8051(at89c4051) vendar ga ne znam .Iz induktivnega senzorja peljem impulze na mikrokontroler in rad bi, da mi mikrokontroler šteje impulze in na vsakih 1800 impulzov poveča število za 1. Števec ur in nastavitev količine v litrih sem realiziral in deluje.Če mi kdo kakorkoli lahko pomaga bom vesel za pomoč.Pomagal sem si z raznimi programi vendar ne gre.
lp ata

[mucek]

LP!
Sam sicer poznam Bascom AVR (ne vem, če so vsi ukazi isti, a večina je zagotovo), a moja ideja je sledeča:

'spremenljivke
Dim stevilo as word 'stevilo trenutnih impulzov (od 0)
Dim limita as word 'limita nad katero se poveca stevec (v tvojem primeru 1800)
Dim stevec as word 'števec, ki se povečuje ob vsaki prekoračitvi limite

'zacetne nastavitve
stevilo = 0
limita = 1800
stevec = 0

config debounce = 20 'pulz mora trajati vsaj 20ms in nato spustiti da se začne novo štetje
config porta = input 'recimo da imas senzor na porta.0

Zanka:
Do
debounce pina.0 , 1 , Stej 'ko pride pulz na a.0 pojdi v podprogram Stej
locate 1 , 1 'prikaz stevca in stevila na LCDju
lcd "stevec: " : Lcd stevec
Locate 2 , 1
lcd "stevilo: " : Lcd stevilo
Loop

Stej:
Incr stevilo 'povecaj stevilo za 1
If stevilo = limita then 'ko stevilo doseze limito...
stevilo = 0 '...postavi stanje stevila na 0...
incr stevec '...in povecaj stevec za 1.
endif
Goto zanka


Če bo delalo pridem na eno pivo; lahko je malo (k je simpl... )
Nisem nič sprobal, pišem direkt tukaj...

LP, Grega

[RGorazd]

Najprej vprašanje: Na kateri pin si pa peljal izhod induktivnega stikala? Najlažje boš to rešil tako, da boš stikalo povezal z INT0 ali INT1 pin. Tako ti ni treba vsakič znova preverjati spremembe stanja.

V bascomu pa nekako takole:

Config Int0=rising (proženje interrupta na pozitivno flanko)
Enable interrupts
Enable int0
On Int0 Naredinekaj

Do
'Tvoj program...
.
.
.
Loop

Naredinekaj:

Incr Neka_vrednost

If Neka_vrednost=1800 then
Incr Neka_druga_vrednost
Neka_vrednost = 0
End if
Return

Vsakič, ko bo prehod iz "0" na "1", se pravi, vsakič ko bo induktivno stikalo dalo signal, se bo izveldel tisti del programa, ki skrbi za prekinitev.

LP Gorazd

[ATA]

Grega in Gorazd.Najlepša hvala,sedaj pa na delo.Moje sive stare celice ze delujejo upam da pravilno. Bom videl na rezultatu.Ko bo program tak kot je treba ga bom pripel na forum.Obljubim.Vsem zelim veliko zdravja in vesele praznike
lp ata

[ATA]

JUHUHU! vse kaze da stevec deluje.Še enkrat hvala. Obljubil sem in prilagam program tak kot je, mogoče bo kdo lahko ta program uporabil za izhodiče svojih aplikacij, ne uspe mi pa napisati kodo za eeprom da bi shranil podatke(zalogo , porabo in ure) v slučaju izpada napetosti. Program deluje tako da lahko spremljam na LCD naslednje podatke : število ur gorilca,zalogo,porabo, nabavo in dopišemo lahko ponovno nabavo. Pri vnosu nabave se zaloga avtomatsko pripiše .Pri prikazu porabe se litri seštevajo pri zalogi pa istočasno odštevajo. V prihodnosti bom pripravil še tiskano vezje( PCB),shemo in seznam uporabljenih elementov.Program je zamenjan,sem ga dopolnil . Pogled na lcd pove vse podatke,tako da vemo tudi koliko olja je v cisterni ne da bi merili v sami cisterni.Ob kompletni porabi in pri ničelni zalogi se program sam ustavi.Če mi je kdo pripravljen pomagati pri shranjevanju podatkov v eprom(24c...)bom zelo vesel.
RESET za porabo , nabavo in uro je dodan.
lp ATA

Prišlo je do hude napake pri programiranju in moram program popraviti , namreč nekaj funkcij ni delovalo pravilno. oprostite mi ,takoj ko bo koda v redu ga bom pripel nazaj. Star sem in malo, vćasih tudi veliko zabrkljam.Hitel sem in se mi je maščevalo.

[ATA]

PROGRAM SEM POPRAVIL IN GA PRILAGAM

ATA

[RGorazd]

V priloženem programu je pokazano, kako uporabiti eeprom 24C...

Vrednost, ki jo želiš shraniti, najprej shraniš v spremenljivko "value" nato pa s klicanjem subrutine Write_eeprom zapišeš v eeprom. Branje iz EEproma je podobno.
Kličeš subrutino read_eeprom (lokacija, spremenljivka), . Vrednost lokacije se shrani v spremenljivko value.

Pomembne so še definicije SCK in SCL (ter obvezno pull-up upora nekje 5k na obe liniji) ter konstanti adressw ter adressr.

SDA gre na P3.4
SCL pa na P3.5

Malo se poigraj.


$regfile = 89c4051.dat
$crystal = 12000000
$large
$sim
Declare Sub Write_eeprom(adres As Byte , Value As Byte)
Declare Sub Read_eeprom(adres As Byte , Value As Byte)
Declare Sub Pavza
Declare Sub Pavzab

Const Addressw = 160
Const Addressr = 161

Dim A As Byte
Dim Adres As Byte , Value As Byte
Dim M As Byte
Dim S As Byte
Dim Korak As Byte
Dim Maxt As Byte
Dim Dnevno As Byte
Dim Skupno As Byte
Dim Maxt1 As Long
Dim Korak1 As Integer
Dim M1 As Byte
Dim U1 As Byte
Dim U As Long
Dim U2 As Byte
Dim Relstat As Bit
Dim Pipstat As Bit
Dim Status As Byte
Dim Bremstat As Bit
Izbor Alias P3.0
Tipka Alias P3.1
Rele Alias P3.2
Pipser Alias P3.3
Ledika Alias P3.7
Breme Alias P1.0

Config Lcd = 16 * 2
Lcdinit
P3 = 0
Izbor = 1
Tipka = 1

'-----------------------------Main program--------------------------------------

Pipser = 1
Ledika = 1
Wait 1
Cls
If Izbor = 0 Then
'Waitms 10
Goto Nastavitve
End If
If Tipka = 0 Then
'Waitms 10
Goto Brisanje1
End If
Goto Main
Nastavitve:
Cls
Lcd "Nastavi korak"
Wait 1
Zanka:
If Izbor = 0 Then
Incr Korak
Waitms 250
If Korak > 60 Then
Korak = 0
End If
End If
Lowerline
Lcd "KORAK: " ; Korak
Lcd " min "
If Tipka = 0 Then
Goto Tmax
End If
Goto Zanka
Tmax:
Cls
Lcd "Nastavi Tmax"
Wait 1
Zanka1:
If Izbor = 0 Then
Incr Maxt
Waitms 250
If Maxt > 24 Then
Maxt = 0
End If
End If

Lowerline
Lcd "Max. cas: " ; Maxt
Lcd " h "
If Tipka = 0 Then
Goto Rele1
End If
Goto Zanka1
Rele1:
Cls
Lcd "Rele po izteku: "
Wait 1
Zanka4:
If Izbor = 0 Then
Waitms 250
Relstat = Not Relstat
End If
Lowerline
Lcd "Rele = " ; Relstat
Lcd " "
If Tipka = 0 Then
Goto Pipserstat
End If
Goto Zanka4
Pipserstat:
Cls
Lcd "Stanje pipserja:"
Wait 1
Zanka5:
If Izbor = 0 Then
Waitms 250
Pipstat = Not Pipstat
End If
Lowerline
Lcd "Pipser = " ; Pipstat
Lcd " "
If Tipka = 0 Then
Goto Bremestatus
End If
Goto Zanka5
Bremestatus:
Cls
Lcd "Senzanje bremena"
Wait 1
Zanka6:
If Izbor = 0 Then
Waitms 250
Bremstat = Not Bremstat
End If
Lowerline
Lcd "Senzanje = " ; Bremstat

If Tipka = 0 Then
Goto Brisanje
End If
Goto Zanka6

Brisanje:
Cls
Lcd "Brisanje eeproma"
'Lowerline
'Lcd "--------**------"
Waitms 250
Call Write_eeprom(1 , 0)
Call Write_eeprom(2 , 0)
'Waitms 250
Cls
Lcd "Shranjevanje"
'Lowerline
'Lcd "vrednosti"
Value = Korak
Call Write_eeprom(3 , Value)
Value = Maxt
Call Write_eeprom(4 , Value)
If Pipstat = 0 And Relstat = 0 And Bremstat = 0 Then
Status = 0
End If
If Pipstat = 0 And Relstat = 0 And Bremstat = 1 Then
Status = 1
End If
If Pipstat = 0 And Relstat = 1 And Bremstat = 0 Then
Status = 2
End If
If Pipstat = 0 And Relstat = 1 And Bremstat = 1 Then
Status = 3
End If
If Pipstat = 1 And Relstat = 0 And Bremstat = 0 Then
Status = 4
End If
If Pipstat = 1 And Relstat = 0 And Bremstat = 1 Then
Status = 5
End If
If Pipstat = 1 And Relstat = 1 And Bremstat = 0 Then
Status = 6
End If
If Pipstat = 1 And Relstat = 1 And Bremstat = 1 Then
Status = 7
End If
Value = Status
Call Write_eeprom(5 , Value)
'Wait 1
Cls
Brisanje1:
Call Write_eeprom(1 , 0)
Goto Main
Main:

Call Read_eeprom(1 , Value)
Dnevno = Value

Call Read_eeprom(2 , Value)
Skupno = Value

Call Read_eeprom(3 , Value)
Korak = Value

Call Read_eeprom(4 , Value)
Maxt = Value
Maxt1 = Maxt * 3600
Korak1 = Korak * 60
Call Read_eeprom(5 , Value)
Status = Value
Select Case Status
Case 0 : Pipstat = 0
Relstat = 0
Bremstat = 0
Case 1 : Pipstat = 0
Relstat = 0
Bremstat = 1
Case 2 : Pipstat = 0
Relstat = 1
Bremstat = 0
Case 3 : Pipstat = 0
Relstat = 1
Bremstat = 1
Case 4 : Pipstat = 1
Relstat = 0
Bremstat = 0
Case 5 : Pipstat = 1
Relstat = 0
Bremstat = 1
Case 6 : Pipstat = 1
Relstat = 1
Bremstat = 0
Case 7 : Pipstat = 1
Relstat = 1
Bremstat = 1
End Select

Lcd " Dnevno : " ; Dnevno
Lowerline
Lcd " Skupno : " ; Skupno
If Korak = 0 Then
Goto Nastavitve
End If
If Maxt = 0 Then
Goto Nastavitve
End If

Zanka2:
Debounce Izbor , 0 , Odstevaj
Debounce Tipka , 0 , Brisanje_dnevno
Goto Zanka2

Pristej:
Incr Dnevno
Incr Skupno

Goto Odstevaj
Brisanje_dnevno:
Call Write_eeprom(1 , 0)
Adres = 2
Value = Skupno
Call Write_eeprom(2 , Value)
Goto Main
Odstevaj:
Maxt1 = Maxt * 3600
If U < Maxt1 Then
U = U + Korak1
Ledika = 1
Incr Dnevno
Incr Skupno

Value = Dnevno
Call Write_eeprom(1 , Value)

Value = Skupno
Call Write_eeprom(2 , Value)
End If
Goto Odstevanje

Bremsens:
Do
Locate 1 , 1
Lcd " Ni bremena. "
Lowerline
Lcd "STOP:" ; U2 : Lcd ":" ; M : Lcd ":" ; S
If Breme = 1 Then
Goto Odstevanje
End If
Loop
'---------------------------ODSTEVANJE----------------------------------------
Odstevanje:
Cls
Odstevanje1:
While U >= 1
Rele = Not Relstat
If Breme = 0 And Bremstat = 1 Then
Cls
Goto Bremsens
End If

Debounce Izbor , 0 , Odstevaj
S = U Mod 60
M1 = U / 60
M = M1 Mod 60
U2 = U / 3600
If S = 9 Then
Cls
End If
Locate 1 , 1
Lcd Dnevno
Locate 1 , 12
Lcd Skupno
Lowerline

Lcd "Se : " ; U2 : Lcd ":" ; M : Lcd ":" ; S
If U < 300 And S = 59 Then
If Pipstat = 1 Then
Sound , Pipser , 500 , 7000
Pipser = 1
Else
Waitms 250
Waitms 250
Waitms 250
Waitms 30
End If
Ledika = 0
Gosub Pavzab

End If

If U2 = 0 And M = 0 And S < 10 Then
If Pipstat = 1 Then
Sound , Pipser , 500 , 700
Pipser = 1
Else
Waitms 250
Waitms 250
Waitms 250
Waitms 30
End If
Ledika = 1 Xor Ledika
Goto Pavzab
End If
Decr U
Gosub Pavza
Wend
Rele = Relstat

Value = Dnevno
Call Write_eeprom(1 , Value)

Value = Skupno
Call Write_eeprom(2 , Value)
Cls
Goto Main


Sub Write_eeprom(adres As Byte , Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub


'Branje EEPROMA
Sub Read_eeprom(adres As Byte , Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Value , 9
I2cstop
End Sub

Pavza:
Waitms 250
Waitms 250
Waitms 250
Waitms 239
Delay
Delay
Delay

Return

Pavzab:
Waitms 213
Delay
Delay
Decr U

Goto Odstevanje





LP Gorazd

[ATA]

Prilagam še kodo v AVR za meritev olja. Ta KODA polno zaseda prostor v mikrokrmilniku. Pri širitvi kode uporabite zmoglivejši mikrokontroler.Podatke(zaloga itd) lahko sedaj vpišete direktno v mikrokontroler.

lp ata