Fel/le számláló 7 szegmenses kijelzővel.

Szia Anonymous !

Itt vannak a csatolmányok a következő linkek:

- A Proteus projekt is itt van csatolva ,hex fájl stb....

A hex fájl szükséges a proteusz szimuláciohóz is !

A linkek tehát :

http://data.hu/get/10273975/Szamlalo_64.zip

http://data.hu/get/10273976/Szamlalo_64.pdsprj

http://data.hu/get/10273977/Szamlalo_64.pdsprj.Lilian-PC.Lilian.workspace

http://data.hu/get/10273978/Szamlalo_64.hex

Üdv : Lengyel József

Szia ,Anonymous !

A rajz alapján a "C" fejlesztő rendszer segítségével ,van egy olyan számláló amely 0 tól 64 -ig számol oda vissza.

A PIC16F628A alapján készült.Csatoltam volna ide a de nem látok olyan menüt ,hogy dokumentum csatolás ,vagy hasonló.

Van hozzá PROTEUS simulációs anyagom is. Amint meg van a modja ,hogyan lehetne csatolni ,akkor csatolnám .

Magát a C nyelvű forrás kódot így tudom be másolni ,be illeszteni :

unsigned short szamlalo = 0 ; //Magának a számláló változója

unsigned short leptet = 0 ; // az egy léptetést jelző "flag"
unsigned short Led[3]; // a kijelezendő digit változója tömb
unsigned short multiplexer = 0 ; // a kijelzés multiplexer változója
unsigned short egyes = 0 ; // az számlálandó / kijelezendő egységek változója
unsigned short tizes = 0 ; // az számlálandó / kijelezendő tizesek változója

unsigned short Mask(unsigned short); // a hét szegmens "Maszk" függvény deklarációja

void main() {
// A mikrokontroller inicializálása
TRISA = 0x0C;
CMCON = 0x07;
TRISB = 0x00;
PORTB = 0x00;
PORTA.RA0 = 0;
PORTA.RA1 = 0;
leptet = 0 ;
multiplexer = 0;
Delay_ms(200);
do // a program ciklus kezdete
{

// A felfele számlálás 64-ig inkrementálás
if(PORTA.RA2 == 0 &&PORTA.RA3 == 1 && szamlalo < 64 && leptet == 0 )
{
Delay_ms(50);

szamlalo = szamlalo + 1 ;
leptet = 1 ;

}
// A lefele számlálás dekrementálás
if(PORTA.RA3 == 0 && PORTA.RA2 == 1 && szamlalo > 0 && leptet == 0 )
{
Delay_ms(50);

szamlalo = szamlalo - 1 ;
leptet = 1 ;

}
if(PORTA.RA2 == 1 && PORTA.RA3 == 1) leptet = 0 ;

// A kijelző kezelése
tizes = ((szamlalo)/10) % 10 ;
egyes = szamlalo % 10 ;
Led[0] = Mask(tizes);
Led[1] = Mask(egyes);
for(multiplexer = 0 ; multiplexer < 2 ; multiplexer ++)
{
PORTB = Led[multiplexer];
if(multiplexer == 0) PORTA.RA0 = 1 ; else PORTA.RA0 = 0 ;
if(multiplexer == 1) PORTA.RA1 = 1 ; else PORTA.RA1 = 0;
Delay_ms(1);
PORTB = 0 ;
PORTA.RA0 = 0;
PORTA.RA1 = 0;
}
}while(1); // a program cilus vége (végtelenített ciklus).

}
unsigned short Mask(unsigned short digit) // a hét szegmens digitt Mask függv definicíoja
{
unsigned short result;
switch(digit)
{
case 0:
return result = 0x3F;
case 1:
return result = 0x06;
case 2:
return result = 0x5B;
case 3:
return result = 0x4F;
case 4:
return result = 0x66;
case 5:
return result = 0x6D;
case 6:
return result = 0x7D;
case 7:
return result = 0x07;
case 8:
return result = 0x7F;
case 9:
return result = 0x6F;

}

}
Maga a forrás fájl MIkroC for PIC fejlesztőrendszerrel készült. Persze a mikrokontrrollert konfigurálni kell még ,óra ,jel stb. Én belsó oszcillátorra configuráltam (4MHz). A config itt nem látszik mert azt egy erre való fájlé tartalmazza.

Én eszt le szimuláltam PROTEUS-ban ez oda vissza számol 64-ig . Egy gomb nyomás egyet léptet "elv" alapján. Üdv : Lengyel József

Üdv
ez sem nehezebb csak nagyobb helyet igényel
https://www.youtube.com/watch?v=VEG6-rdNZHI

Az "Up" rutint kell módosítanod, ami a számláló gomb megnyomásakor hívódik meg.
Ez lenne az eredeti kódrészlet:

Up btfsc Sw_Flag,2
retlw 00
bsf Sw_Flag,2
incf units,f
movlw 0Ah         ;put 10 into w
xorwf units,w     ;compare units file with 10
btfss status,2    ;zero flag in status file. Set if units is 10
retlw 00
clrf units
incf tens,f
movlw 0Ah        ;put 10 into w
xorwf tens,w     ;compare units file with 10
btfsc status,2   ;zero flag in status file. Set if tens is 10
clrf tens
retlw 00        ;display passes 99 but not below 0

Üdv, ty