www.elektronik.si

[Sokrat]

Oba ti govoriva o isti stvari, le da ti en del preprosto ignoriras - vzemi si par dni in knjigo o osnovah basica, da bos razumel, kako se uporablja operatorje v basicu; potem ti bo tudi jasno, kako razstaviti long (ali karkoli drugega) v manjse dele.

Ko bos razumel to, preberi tudi datasheet za tvoj I2C EEPROM, kot sem ti ze enkrat svetoval. Tam notri je razlozeno, od kje prideta tisti stevilki (174 in 175) na vrhu: prvi bajt mora vsebovati naslov naprave, ki ji je prenos namenjen (torej EEPROMa) in hkrati mora dolocati ali gre za vpis (write) ali branje (read). Format tega bajta je opisan v datasheetu, v splosnem pa ima za I2C EEPROMe obliko

1010xxxy (binarno)

kjer so xxx trije biti naslova EEPROMa, kot jih dolocis s povezavami na EEPROM na treh pinih za izbiranje naslova (na Vcc ali maso - vse to je res jasno razlozeno v datasheetu), y pa je bit, ki doloca ali gre za branje ali pisanje.

Preberi navodila - ne mores kar preskakovati korakov, ker ti tako ne bo nikoli delalo in bos samo slabe volje vrgel vse skupaj stran. Najprej se nauci uporabljati jezik, v katerem mislis delati (basic oz. konkretno orodje Bascom), potem opremo, s katero mislis delati (torej izbrani mikrokontroler in periferijo, EEPROM naprimer), sele potem pa bos lahko prenesel koncepte programiranja, ki so sicer povsem abstraktni, iz nekega drugega jezika (recimo C-ja) na "tvojega", torej basic.

[CarpeDiem]

[RGorazd]

Da povzamem Sokratove besede...

ko boš enkrat obvaldal Bascom, ki temelji na Basicovi osnovi, boš ugotovil, da to ni to, in prešel na C,ali C++ ali na Cju temelječ prevajalnik, ki ti bo potem odskočna deska za naslednjo generacijo mikorontrolerjev. To je neka logična povezava. Sam sem hotel preiti na ARM ter C++, vendar sem ugotovil, da je lažje osvojiti programiranje v Cju na mikrokontrolerju ki ga že poznaš in si prej uspešno programiral v enem drugem jeziku, kot pa zamenjati in hardver ter softver obenem.

Počasi...se daleč pride. Boš videl. Danes se mučiš z osnovami, jutri ti bo delalo preglavice neko napredno vprašanje, na osnove se boš pa samo hudomušno nasmihal. Nobeden se ni rodil pameten. Vsi smo znanje nakopičili s časom. Razlika med pametnimi in tistimi, ki čas zapravljajo za neumnosti je le v vztrajnosti.


LP Gorazd

[Sokrat]

Gorazd, jaz Bascoma sicer ne poznam, a najbrz ne more biti tako "sibko" orodje, ce ga uporablja toliko ljudi (sam sem za tako majhne projekte velik pristas assemblerja, ker imas popoln nadzor nad dogajanjem). Hotel sem povedati, da so osnovni koncepti programiranja v vseh pogosto uporabljanih visjenivojskih jezikih enaki, pa naj bo to basic, C, pascal ali kaj tretjega. Mislim, da ni potrebe po zamenjavi orodja, ce je to ustrezno, bolj je vazno, da se seznani z njim, od bolj abstraktnih konceptov proti bolj konkretnim (torej najprej osnove jezika - basica, potem spoznavanje orodja - Bascoma in potem sele spoznavanje specificnih komponent ... drugace ne gre).

[RGorazd]

Sokrat, saj s tem postom nisem mislil ničesar negativnega.

Hočem reči le to: Bascom je super orodje za začet. Da ti razmeroma veliko odskočno desko. Za izpisat dve vrstici na LCD, ti ni treba napisati dveh strani ASM kode
Zadostuje že :

LCD "Maxi"
LOWERLINE
LCD" Forum"

Pa boš imel na 2x16 LCDju izpis MAXI Forum v dveh vrsticah, medtem ko boš za ta napis porabil v asemblerju 2 strani kode.

Za nekoga, ki je s tem komaj začel je to AMERIKA. Kasneje, ko te pa to začne zanimati v takšni meri, da boš šel v detajle, pa že veš kako malce stvari delujejo, pride pa v poštev drugo orodje. Basic je zdrav kot odskočna deska, kaj več ti pa žal ne nudi. Omejenost Basica se pokaže tudi v sami aritmetiki.
Seštevanje treh števil naprimer... A = B+C+D....

A = B+C

A = A+D

Drugače ne gre...


medtem ko v Cju enostavno napišeš

A=(A+B+C);

Ostalo je pa stvar kompajlerja.

Spet dialekt...čeprav malce manj prijazen za začetnike.

Vsak jezik ima svoje prednosti in slabosti... obvladanje Cja je kot obvladanje angleškega jezika. Imaš veliko možnosti, da te razumejo tudi v drugih državah. A vendar to ne drži za Francijo

Obvladanje assemblerja je osnova vsakega mikrokontrolerja, vendar imajo tudi različni mikrokontrolerji različne menmonike, s tem se razlikuje tudi način programiranja. A vendar...osnovni nivo je le osnovni nivo. Nisi omejen na ukaze, ki jih ponuja višjenivojski jezik. Če hočeš s pridom uporabljati višjenivojski jezik, moraš vedeti na čem temelji. Subrutine tudi v Cju niso napisane za vso možno periferijo, takrat ti pa začetniško znanje ne zadostuje več. To govorim iz lastnih ugotovitev...z mikrokontrolerji sem se začel igrati malo več kot leto nazaj in to ravno z BASCOMom...Priznam, še vedno ga uporabljam, vendar mi je dal neko odsočno desko, da sem začel delati tudi s Cjem...nadaljni razvoj pa je precej samoumeven. Vsega ne moreš takoj znati. Zato ste pa strokovnjaki na tem in še katerem drugem (da ne bom krivičen) forumu ki skrbite, da se nekateri iz vaših izkušenj učimo ter nam prišparate marsikatero krepko čez znanost

LP GOrazd

[andrej111]

Ne bom se več vmešaval in prilival olja na ogenj.
Izgleda, da mi nihče noče napisati rutine za vpis v eeprom za moj konkreten primer.

LP
Andrej

[RGorazd]

2 strani popisanega za tako zahvalo???

Take stvari me pa podžgejo...10x smo ti napisali.

Evo, tukaj ti prilagam en moj program, poglej si ga, analiziraj ter komentiraj!

Programov TI pa jaz NE bom pisal. Si boš moral sam spomagati.

$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



Poglej, kako sem jaz kot popolni začetnik to rešil ter reši na podoben način.

LP Gorazd

[andrej111]

Gorazd, s tem nisem hotel nikogar prizadeti še najmanj tebe, ki si mi dal smernice
in nekaj koristnih napotkov. Hvala kaj naj drugo ti rečem. Bom moral vzeti pač
v roke knjige in ostalo literaturo.

LP

Andrej

[RGorazd]

Živ!

Ja, se oproščam..slab dan

Tebi je sedaj bistveno to, da s kode, ki sem ti jo pripel prideš do bistva:

Imaš 2 subrutini (read_eeprom ter write_eeprom) ki ju kličeš kadar ju rabiš.

Torej, če želiš spravit vrednost spremenljivke "nekaj", ki je tipa Byte v lokacijo 1 v EEPROMu, potem to narediš takole:

Value = nekaj
Call Write_eeprom(1 , Value)

V spremenljivko Value se ti bo prenesla vrednost spremenljivke nekaj, ter jo boš shranil v EEPROM na lokacijo 1.

Če želiš prebrati vrednost v EEPROMU na lokaciji 5 narediš takole:

call read_eeprom(5,Value)

PRINT Value ali LCD Value ali potem karkoli želiš narediti s to spremenljivko.


Ker bi ti rad shranjeval v EEPROM spremenljivko tipa LONG (4 byte-i) jo moraš najprej razbiti.

Kako se to naredi, sem ti par postov nazaj pripel link.

Torej imaš štiri spremenljivke B1, B2,B3,B4...te jih moraš samo še shraniti...npr takole:

Value = B1
call Write_eeprom(1,Value)
Value = B2
call Write_eeprom(2,Value)
Value = B3
call Write_eeprom(3,Value)
Value = B4
call Write_eeprom(4,Value)

Če želiš potem to prebrati ter sestaviti narediš takole:

Call read_eeprom(1,Value)
B1=Value
Call read_eeprom(2,Value)
B2=Value
Call read_eeprom(3,Value)
B3=Value
Call read_eeprom(4,Value)
B4=Value

Zdaj imaš vse Bx zafilanje z vrednostmi, ki jih moraš samo še sestaviti v LONG...torej jih šiftaš levo ter z OR ukazom sešteješ.

FOGL je v tisti kodi lepo pokomentiral vsak korak, tako da sklepam da to nebi smelo povzročati večjih težav.

LP GOrazd

[smatjaz]

andrej111

če imaš možnost uporabiti BASCOM AVR, se tudi s tem ne rabiš truditi. Enostavno napišeš:

dim value as long
WRITEEEPROM Value,adressa
READEEPROM value,adressa

Predpogoj pa je, da uporabiš kontroler, ki ima že vgrajen EEprom.
Primer Atmel 90S2323, ki ti bo tudi hardvare-sko zamenjal 89C2051. Vse kar moraš spremeniti v hardvareu, je zamenjava upora in kondenzatorja na Reset pinu, ter uporabiti Quartz napr. 4.000.000.



LP Matjaž

[andrej111]

Sedaj smo pa tam ko niti več tisto ne dela kar je delalo. Ko postavim p1.0 na 0
mi šteje do 9 potem pa v zgornji vrstici izpisuje ničle po celi zgornji vrstici. Mogoče
napaka HARDWARE-ja ker v simulatorju vse "normalno" deluje SIMULATOOOOOOOOR. Ali pa greška u koracima (napaka v korakih).

Smatjaz, verjetno Matjaž !
Lepo, da si me spomnil na AVR ampak čaaaaaasaaaaa je premalo, da bi še sedaj
začel še z AVR-i. Mogoče kdaj v prihodnosti. Kakšna je razlika med AT89CX051 in
avr-i ?

Bomo videli so rekli....

Lp

Andrej

[smatjaz]

... ja se strinjam. Človek bi rad obvladal Atmele, 8051, Pic-e, Gal-e,.... pa C, C++, Delphi, Visual Basic, .net,... Časa pa je premalo. Prijatelj mi je pred časom rekel:"Če imaš preveč časa si kupi računalnik." Res da brez računalnika praktično ne gre, ampak kljub temu se vedno bolj se strinjam z njim.


LP Matjaž

[RGorazd]

Andrej, daj prilepi kodo, ali pa mi jo pošlji pod ZS da pogledam, kaj je narobe. Zraven mi še povej, kaj točno naj bi stvar delala. Si bom vzel nekaj časa in poizkusil nekaj scoprat, zraven pa daj še opis kaj je kateri pin.

Kar se prehoda na AVR tiče, ga v Bascomu še čutil ne boš. Edino kar se razlikuje v Bascomu so nastavitve ter manipulacija vhodov/izhodov.

V 8051 imaš P1.0 , v AVR različici je to PORTA.0 ali PINA.0 samo odvisno kaj delaš.
PORTA.X so izhodi, PINA.X so pa definirani kot vhodi. To sicer narediš že takoj na začetku...v CONFIGu, tako da se ti ne meša kaj preveč.

LP GOrazd

[CarpeDiem]