راه اندازی سون سگمنت

[hmajid]

سلام خدمت مهندسین محترم:
من یک پروژه ی راه اندازی 5تا سون سگمنت بزرگ 12ولتی بزرگ درحال ساخت دارم.متاسفانه به دلیل ولتاژ بالای مورد نیاز سون سگمنت ها از روش رفرش کردن نمیتونم استفاده کنم(چون باید آند سون سگمنت ها رو مستقیم به 12ولت وصل کنم).من در این مداراز 5تا آی سی 74573بین 7447و5تاسون سگمنت استفاده کردم.حالا مشکل من اینه که مداردرپروتئوس جواب میده ولی تو عمل همه ی قسمت های سون سگمنت ها با هم روشن میشه وعددموردنظررو نشون نمیده.البته نا گفته نمونه که کنترل این مدار به وسیله میکروکنترلر انجام میشه ولی ازبابت برنامه نویسی خاطرم جمعه.
حالا درخواستم از دوستان عزیزی که در زمینه دیجیتال وآی سی های لچ تخصص دارنداینه که اگر نکته ای درزمینه ی استفاده از این آی سی وجود دارد منو راهنمایی کنند.چرا که مداررو تا قبل از آی س لچ تست کردم ومشکلی ندارد.
برنامه رو هم پایین گذاشتم ،لطفا اگه مشکلی داره بگید!

[soh3il]

پاسخ : راه اندازی سون سگمنت

پایه oe شماره 1 آی سی را به زمین وصل کنید و پایه le لتچ انیبل و با میکرو یک بار ست و دوباره بعد از تقریبا 5 میکرو ثانیه ریست کنید حالا این کار و با سگمنت بعدی انجام بدید
من با بسکام برنامه دارم اگر خواستید بگید بذارم

[hmajid]

پاسخ : راه اندازی سون سگمنت

آره لطفا برنامه تو بزار.

[hmajid]

پاسخ : راه اندازی سون سگمنت

$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Config Portd = Output
Dim A As Byte , B As Byte


Portd = 1
Portc = 1
Portd = 2
Portc = 2
Portd = 4
Portc = 3
Portd = 8
Portc = 4
Portd = 16
Portc = 5
Do

Debounce Pinb.0 , 1 , L1 , Sub
Debounce Pinb.1 , 1 , L2 , Sub
Debounce Pinb.2 , 1 , L3 , Sub

Loop
End
L1:

Incr A
If A > 5 Then A = 0
Return

L2:

Select Case A
Case 1:
Portd = 1
Incr Portc
If Portc > 9 Then Portc = 0
Case 2:
Portd = 2
Incr Portc
If Portc > 9 Then Portc = 0
Case 3:
Portd = 4
Incr Portc
If Portc > 9 Then Portc = 0
Case 4:
Portd = 8
Incr Portc
If Portc > 9 Then Portc = 0
Case 5:
Portd = 16
Incr Portc
If Portc > 9 Then Portc = 0
End Select
Return
L3:

Select Case A
Case 1:
Portd = 1
Decr Portc
If Portc > 9 Then Portc = 0
Case 2:
Portd = 2
Decr Portc
If Portc > 9 Then Portc = 0
Case 3:
Portd = 4
Decr Portc
If Portc > 9 Then Portc = 0
Case 4:
Portd = 8
Decr Portc
If Portc > 9 Then Portc = 0
Case 5:
Portd = 16
Decr Portc
If Portc > 9 Then Portc = 0
End Select
Return

[balanmo12]

پاسخ : راه اندازی سون سگمنت

از ترانزیستور یا آی سی uln2803 استفاده کن

[hmajid]

پاسخ : راه اندازی سون سگمنت

مرسی از راهنمایی ولی همون طور که گفتم سون سگمنت ها ثابت روشن میمونن .آیا ممکنه مشکل از کمبود جریان باشه که بافر uln 2803بزارم؟
در ضمن طریقه ی گذاشتن آی سی بافر رو هم بگین.باید بین 7447و74573بزارم یا بین 7447وسون سگمنت ها؟

[hmajid]

پاسخ : راه اندازی سون سگمنت

سلام آقا سهیل برنا مه ای که قرار بود بزاری چی شد؟

[soh3il]

پاسخ : راه اندازی سون سگمنت

[
$regfile = "m16def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600
'-------------------------------------------------------

Config Portc = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

'--------------------------------------------------------
Dim Serial_idx As Byte , Data0 As Byte , Data1 As Byte , Data2 As Byte, address as byte
Dim Data_req(4) As Byte
Dim Data_res(6) As Byte , Slave_address As Byte
Dim A As Byte , K As Byte
Dim Aaa As Byte , Ii As Byte , Jj As Byte , Highi As Byte , Highj As Byte
Dim Bbb As Byte , I As Byte , J As Byte , Lowi As Byte , Lowj As Byte
Dim Ax As Word
Dim B As Byte , Sta As Byte
Dim D As Byte
Dim Bx As Word
Dim W As Byte , G As Bit
Dim S As Byte , F As Byte
Dim X As Word
Dim Sa As Word
Dim Ma As Eram Word
Dim Mi As Eram Word
Dim Maa As Eram Word
Dim Mii As Eram Word
Dim Bb As Word , Hight As Word
Dim Cc As Word , Lowt As Word

Dim B_high As Word , Hight_high As Word
Dim B_low As Word , Hight_low As Word
Dim C_high As Word , Lowt_high As Word
Dim C_low As Word , Lowt_low As Word

Dim T As Byte , Tw As Byte , Ttw As Byte
Dim Ww As Bit , Www As Bit , Aw As Bit , Bw As Bit , Cw As Bit , Dw As Bit
Bb = Ma
Cc = Mi
Hight = Maa
Lowt = Mii

'---------------------------------------------
Le1 Alias Portd.3
Le2 Alias Portd.5
Le3 Alias Portd.4
Le4 Alias Portd.6

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

s=0

'--------------------------------------------
Getdata:

Do
 s=s+1
if s>99 then s=0
  If S < 10 Then
  Portc = Lookup(0 , Digit)
  Le3 = 1

  Le3 = 0

  Portc = Lookup(s , Digit)
  Le4 = 1

  Le4 = 0
  End If
  If S >= 10 Then
  Aaa = S / 10
  Portc = Lookup(aaa , Digit)
  Le3 = 1

  Le3 = 0

  '---------------------------------------
  Bbb = S Mod 10
  Portc = Lookup(bbb , Digit)
  Le4 = 1

  Le4 = 0
  Waitms 100
  End If

Loop
'---------------------------------------

Digit1:
Data &B01110111                       '0
Data &B00100100                       '1
Data &B01011110                       '2
Data &B01101110                       '3
Data &B00101101                       '4
Data &B01101011                       '5
Data &B01111011                       '6
Data &B00100110                       '7
Data &B01111111                       '8
Data &B01101111                       '9
Data &B00111111                       'A
Data &B00001000                       '-
Data &B01010001                       'L
Data &B00111101                       'H

'---------------------------------------
Digit:
Data &B00111111                       '0
Data &B00000110
Data &B01011011
Data &B01001111
Data &B01100110
Data &B01101101
Data &B01111100
Data &B00000111
Data &B01111111
Data &B01100111                       '9
Data &B01110111
Data &B01000000
Data &B00111000
Data &B01110110]