Need help with person counter project

Tripwire · Joined: 17 Jun 2007 Posts: 8

Hi guys i'm doing a project for school and i need to make a person counter. Now i have wrote the most of the program needed for te project.
The only thing i need now is to write a program that transfers the numbers from the counter to my 7 segment diplays and in between there are 74hc4094 as datashifters registers. Now i learned to write bascom in a month so i don't know much about how to write most things. I heard i needed to write an array or something but i don't know how to start Sad

. Can someone plz help me a bit to start creating an array for my project?

here's my program (i use an 89c2051 uc btw)

Dim Bteller As Byte

Dim Bingave As Byte
Bteller = 00

Do
P1.5 = 1
P1.7 = 0
P1.6 = 0

If P1.7 = 1 And P1.6 = 0 Then
Bteller = Bteller + 1
Print "persoon in" ; Bteller
Waitms 50
P1.5 = 0
Waitms 10
End If

If P1.6 = 1 And P1.7 = 0 Then
Bteller = Bteller - 1
If Bteller = 255 Then
Bteller = 0
End If

Print "person out " ; Bteller
Waitms 50
P1.5 = 0
Waitms 10

End If

Loop

End

Gianni · Joined: 09 Jul 2004 Posts: 61 Location: Italy

With a single 4094 you can count until 99; simply use makebcd and shiftout statement.
Do not forget to limit your counter to 99.

Regards

Tripwire · Joined: 17 Jun 2007 Posts: 8

can you give me an example, how to use makebcd and shiftout statements? because the examples in bascom are a bit unclear on how it works. We used 2 4094 btw.

Gianni · Joined: 09 Jul 2004 Posts: 61 Location: Italy

Makebcd works from 0 to 99 decimal
To convert number greater then 99 a different approach is necessary.
I do not remember how the 4094 clock works;
eventually try shiftout Datapin,Clockpin,ones,4

Regards

Tripwire · Joined: 17 Jun 2007 Posts: 8

thx man! but i only need to count to 99 so if you can give me an example of makebcd then i can get to work!!

Gianni · Joined: 09 Jul 2004 Posts: 61 Location: Italy

Tripwire · Joined: 17 Jun 2007 Posts: 8

Hey here is a link to our schematic of the counter. We don't use a decoder like you said.

u4 and u5 are the 7 segment display's

Gianni · Joined: 09 Jul 2004 Posts: 61 Location: Italy

Ok!
Try this.

Tripwire · Joined: 17 Jun 2007 Posts: 8

i don't get it :S i used your program to controll the display but i don't get anything on my displays not even 1 segment lights up.
i did this:

************************************************************

Gianni · Joined: 09 Jul 2004 Posts: 61 Location: Italy

You forget to latch data into 4094; pulse pin 1

P3.2 = 1
nop
nop
P3.2 = 0

Pin 15 of 4094 must be High; connect to +5v

IMHO is not a good idea drive all the 7 leds with a single resistor; use separate resistors
Regards

Tripwire · Joined: 17 Jun 2007 Posts: 8

well the thing is when i program a microcontroller with a program i got from my teacher (last project) the displays work. so it has to do something with the program.

Tripwire · Joined: 17 Jun 2007 Posts: 8

hey got another question for you:

why do you do tmp1 = tmp1 and 15 ?

btw i'm getting a few segments that are lighting up so the program almost works

subar · Joined: 31 May 2007 Posts: 142 Location: kurdistan region

this is the code you can get benifet from and i had excuted it works correctly... Razz

' port A 7 segment
' -------- ---------
' 0 -----------> a
' 1 -----------> b
' 2 -----------> c
' 3 -----------> d
' 4 -----------> e
' 5 -----------> f
' 6 -----------> g

'----------------------------------------------------------------

$regfile = "m16def.dat"

Config Porta = Output
Porta = 255

Dim I As Byte
Dim X(16) As Byte

Restore Value_table

For I = 1 To 16

Read X(i)

Next

Do

For I = 1 To 16

Porta = Not X(i)
'Porta = X(i)
Waitms 500

Next

Loop

End

Value_table:

Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78
Data , &H00 , &H10 , &H08 , &H03 , &H46 , &H21 , &H06 , &H0E

Tripwire · Joined: 17 Jun 2007 Posts: 8

thx man but can you give me m16def.dat? i don't have the file Sad

sakaz · Joined: 02 May 2007 Posts: 99

Hi forum,

Hope you are doing well all. I have been working with Bascom AVR for last 2 years and i am so glad to learn alot of things from this great forum. I must thank all of you.

These days i am working on a project with the 7 Segment (Liquid Crystal Display) 6 1/2". and trying to drive with the Cd4094, CD4543 & CD4514 as per attached schematic.

I want to display my result on the 6 digit display but i am having some problem.

I want to lacht the CD4514 first to select the digit and then CD4543 to show the data but i cant.

'-----------------------------------------------------------------------------------------
'name : shift.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : example for SHIFTIN and SHIFTOUT statement
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m8def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim L As Long

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output

Sipo_sck Alias Portb.0 'port for sck 74hc
Sipo_din Alias Portb.1 'data serial input
Sipo_latch Alias Portb.2 'latch pin

Sipo_sck = 0 'initial out
Sipo_din = 0
Sipo_latch = 0

Dim Data_sipo As Byte

Data_sipo = 0
Do

Shiftout Sipo_din , Sipo_sck , Data_sipo , 1

Sipo_latch = 1
Waitms 100
Sipo_latch = 0

Wait 1

Shiftout Sipo_din , Sipo_sck , Data_sipo , 2 <---- LSB Shifted out first when Clock goes low.

Sipo_latch = 1
Waitms 100
Sipo_latch = 0
Waitms 100

Wait 1

Incr Data_sipo
Loop

End

But i inverse the data input lines as per:

11 ----- 2
12 ----- 3
13 ----- 21
14 ---- 22

Then it does work fine. Why i cant find the reason. please help.

Regards,