اطلاعیه

**zamanimahdi** · 2014-12-18T08:09:12

پاسخ : معرفی نرم افزار Easy 7segmen (برای راه اندازی آسانتر سون سگمنت) به روز شد!! 1.2

سلام بازم یه سوال دیگه

کد:

Hezargan = Y / 1000
A = Hezargan * 1000
Y = Y - A
 Sadgan = Y / 100
A = Sadgan * 100
Y = Y - A
Dahgan = Y / 10
A = Dahgan * 10
Y = Y - A
Yekan = Y

این کد ها برای جدا کردن رقم های اصلی عدد هستن برای محاصبه اعشار و ممیز چیکار باید کرد؟

**Pixar** · 2014-12-19T15:11:31

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد!!! نسخه 1.2

راهش اینه که اولا متغیر اولت باید از نوع float باشه تا با عمل تقسیم ، قسمت اعشاری خارج قسمت از بین نره .

بعدش که طبق همون روال بالا تقسیمات رو انجام دادید ، حاصل متغیر اول رو که قاعدتاً الان بصورت اعشاری در متغیر ذخیره شده ، با توجه به تعداد ارقام اعشار مورد نظرتون در 10 ، 100 ، 1000 یا ... ضرب کن تا بصورت عدد صحیح در بیاد .

بعد باز همون تقسیمات برای جداسازی ارقام طرف اعشار ( که الان تبدیل به صحیح شدند ) انجام بده .

حالا برای نمایش اونا کافیه متغیر های حاوی اعشار مربوطه رو بجای نمایش معمولی ، با یک (.) روی سون سگمنتها نمایش بدی .

به همین راحتی

**SAMAN.ASADI** · 2014-12-19T19:51:33

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segmen

درود دوستان
از اینکه دیر به دیر پاسخ شما عزیزان رو می دهم عذرخواهی میکنم :redface:
جای داره همینجا از دوست عزیزم آقا وحید به خاطر پاسخ دادن سپاسگذاری کنم

بله دوستان
از اونجایی که من زیاد بسکام بلد نیستم آخرش برنامه رو نوشتم
برنامه به این شکل هست

کد:

$regfile = &quot;m8def.dat&quot;
$crystal = 8000000

Config Portd = Output
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.7 = Output

Dot Alias 127
Yekan Alias Digit(1)
Dahgan Alias Digit(2)
Sadgan Alias Digit(3)
Hezargan Alias Digit(4)

Dim A As Single , B As Single , C As Byte , X As Byte , Y As Byte
Dim _dot As Byte
Dim Digit(4) As Byte


X = 1
Y = 16

A = 1.492
A = A + 0.000005

If A &lt; 1 And A &gt;= 0 Then
  Hezargan = 0
  _dot = 4
  A = A * 10
  Sadgan = A
  A = A - Sadgan
  A = A * 10
  Dahgan = A
  A = A - Dahgan
  A = A * 10
  Yekan = A
Elseif A &gt;= 1 Then
  C = 0
  Do
   A = A / 10
   Incr C
   If A &lt; 1 Then Exit Do
  Loop
  A = A * 10
  Hezargan = A
  A = A - Hezargan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 4
  Sadgan = A
  A = A - Sadgan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 3
  Dahgan = A
  A = A - Dahgan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 2
  Yekan = A
End If


Do
  Portd = Lookup(digit(x) , Common_anode)
  If X = _dot Then Portd = Pind And Dot
  Portb = Pinb And 15
  Portb = Portb Or Y
  Waitms 3
  Portd = 255
  Incr X
  Shift Y , Left , 1
  If X = 5 Then
   X = 1
   Y = 16
  End If
Loop
End

Common_anode:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 , 160 , 131 , 198 , 161 , 134 , 142

البته بازه عددی که میتواند تحلیل کند از 0 تا 9999 است که به صورت اعشاری نمایش خواهد داد
اگر وقت کردم برای بازه منفی هم برنامه آن را خواهم نوشت ... البته در آینده ...

این هم فایل برنامه بسکام و شبیه سازی در پروتئوس 7.10

موفق باشید

**zamanimahdi** · 2015-01-04T11:26:34

پاسخ : پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segmen

نوشته اصلی توسط سامان اسدی

درود دوستان
از اینکه دیر به دیر پاسخ شما عزیزان رو می دهم عذرخواهی میکنم :redface:
جای داره همینجا از دوست عزیزم آقا وحید به خاطر پاسخ دادن سپاسگذاری کنم

بله دوستان
از اونجایی که من زیاد بسکام بلد نیستم آخرش برنامه رو نوشتم
برنامه به این شکل هست

کد:

$regfile = &quot;m8def.dat&quot;
$crystal = 8000000

Config Portd = Output
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.7 = Output

Dot Alias 127
Yekan Alias Digit(1)
Dahgan Alias Digit(2)
Sadgan Alias Digit(3)
Hezargan Alias Digit(4)

Dim A As Single , B As Single , C As Byte , X As Byte , Y As Byte
Dim _dot As Byte
Dim Digit(4) As Byte


X = 1
Y = 16

A = 1.492
A = A + 0.000005

If A &lt; 1 And A &gt;= 0 Then
  Hezargan = 0
  _dot = 4
  A = A * 10
  Sadgan = A
  A = A - Sadgan
  A = A * 10
  Dahgan = A
  A = A - Dahgan
  A = A * 10
  Yekan = A
Elseif A &gt;= 1 Then
  C = 0
  Do
   A = A / 10
   Incr C
   If A &lt; 1 Then Exit Do
  Loop
  A = A * 10
  Hezargan = A
  A = A - Hezargan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 4
  Sadgan = A
  A = A - Sadgan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 3
  Dahgan = A
  A = A - Dahgan
  A = A * 10
  Decr C
  If C = 0 Then _dot = 2
  Yekan = A
End If


Do
  Portd = Lookup(digit(x) , Common_anode)
  If X = _dot Then Portd = Pind And Dot
  Portb = Pinb And 15
  Portb = Portb Or Y
  Waitms 3
  Portd = 255
  Incr X
  Shift Y , Left , 1
  If X = 5 Then
   X = 1
   Y = 16
  End If
Loop
End

Common_anode:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 , 160 , 131 , 198 , 161 , 134 , 142

البته بازه عددی که میتواند تحلیل کند از 0 تا 9999 است که به صورت اعشاری نمایش خواهد داد
اگر وقت کردم برای بازه منفی هم برنامه آن را خواهم نوشت ... البته در آینده ...

این هم فایل برنامه بسکام و شبیه سازی در پروتئوس 7.10

موفق باشید

سلام دوباره این برنامه تو زبان c کدویژن چطوری میشه؟ :rolleyes:
پیشاپیش ممنون

**reza13731** · 2015-02-01T13:06:46

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد!!! نسخه 1.2

اینم بسکامش که قبلا درست کرده بودم

http://www.eca.ir/forum2/index.php?topic=68892.0

**hossein.ahmadvand** · 2015-08-12T21:46:03

پاسخ : پاسخ : معرفی نرم افزار Easy 7segmen (برای راه اندازی آسا&

نوشته اصلی توسط سامان اسدی

سلام
اگر با ترانزیستور کار کرده باشید باید از کد زیر استفاده کنید :
[code=qbasic]$regfile = "m8def.dat"
$crystal = 8000000

Config Portd = Output
Config Portb = Output

Dim Var As Byte

DIM Sadgan AS Byte , Dahgan AS Byte , Yekan AS Byte
DIM A AS Word
DIM Temp AS SINGLE

Temp = 159

sadgan = temp / 100
a = sadgan * 100
temp = temp - a
dahgan = temp / 10
a = dahgan * 10
temp = temp - a
yekan = temp

DO

Reset Portb.0
Portd = Lookup(sadgan , Common_anode)
Waitms 2
Set Portb.0

Reset Portb.1
Portd = Lookup(dahgan , Common_anode)
Waitms 2
Set Portb.1

Reset Portb.2
Portd = Lookup(yekan , Common_anode)
Waitms 2
Set Portb.2

LOOP

END

Common_anode:
Data 192 , 249 , 100 , 112 , 89 , 82 , 66 , 248 , 64 , 80 , 96 , 67 , 198 , 97 , 70 , 78[/code]

ولی اگر پایه ها رو به خود میکرو وصل کرده باشید کدش به این شکل خواهد شد :
[code=qbasic]$regfile = "m8def.dat"
$crystal = 8000000

Config Portd = Output
Config Portb = Output

Dim Var As Byte

Dim Sadgan As Byte , Dahgan As Byte , Yekan As Byte
Dim A As Word
Dim Temp As Single

Temp = 159

sadgan = temp / 100
a = sadgan * 100
temp = temp - a
dahgan = temp / 10
a = dahgan * 10
temp = temp - a
yekan = temp

Do

Set Portb.0
Portd = Lookup(sadgan , Common_anode)
Waitms 2
Reset Portb.0

Set Portb.1
Portd = Lookup(dahgan , Common_anode)
Waitms 2
Reset Portb.1

Set Portb.2
Portd = Lookup(yekan , Common_anode)
Waitms 2
Reset Portb.2

Loop
End

Common_anode:
Data 192 , 249 , 100 , 112 , 89 , 82 , 66 , 248 , 64 , 80 , 96 , 67 , 198 , 97 , 70 , 78[/code]

موفق باشید

سلام مهندس
اگر امکانش هست ، همین کد رو (اتصال مستقیم به میکرو) را برای lpc 1768 هم بنویس. خواهشا ...

**SAMAN.ASADI** · 2015-08-14T21:09:08

پاسخ : پاسخ : معرفی نرم افزار Easy 7segmen (برای راه اندازی آسا&

نوشته اصلی توسط hossein.a

سلام مهندس
اگر امکانش هست ، همین کد رو (اتصال مستقیم به میکرو) را برای lpc 1768 هم بنویس. خواهشا ...

درود بر شما
پورتهای میکروهای آرم معمولا 32 بیتی هستند وشما باید با کمک دستور AND در بعضی از پایه ها تغییر ایجاد کنید
با میکروهای ARM کار نکردم و نمیدونم چطوری باید بنویسی ولی میدونم کلیات کار به همین صورت هست
دوستان اگر میدونن کمک کنند
ممنون

**amiri630** · 2015-10-20T08:54:15

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد!!! نسخه 1.2

با سلام و عرض خسته نباشید : مهندس عزیز میشه لطف کنی یک مثالی بنویسی : وقتی که در یک مدار ولت متر AC از دکودر مثلا7447 استفاده شده و میخواهیم 7447 را با استفاده از این نرم افزار حذف کنیم . کدها را باید چطوری تغییر بدیم؟ با تشکر

**SAMAN.ASADI** · 2015-10-22T23:38:57

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد!!! نسخه 1.2

نوشته اصلی توسط amiri630

با سلام و عرض خسته نباشید : مهندس عزیز میشه لطف کنی یک مثالی بنویسی : وقتی که در یک مدار ولت متر AC از دکودر مثلا7447 استفاده شده و میخواهیم 7447 را با استفاده از این نرم افزار حذف کنیم . کدها را باید چطوری تغییر بدیم؟ با تشکر

درود بر شما
عددی که میخواین نمایش بدهید چند رقمی هست ؟
و عددی که میخواهید نمایش دهید اعشار است یا عدد صحیح ؟

**amiri630** · 2015-10-24T00:53:46

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی نسخه 1.2

نوشته اصلی توسط سامان اسدی

درود بر شما
عددی که میخواین نمایش بدهید چند رقمی هست ؟
و عددی که میخواهید نمایش دهید اعشار است یا عدد صحیح ؟

سلام مهندس ممنونم : الف ) عددی که میخوام نمایش بده 3 رقمیه ، مدارم ولتاژهای مثبت (اعداد صحیح مثبت ) زیر 220 و بالای 220 را بدون اعشار با یک سون سگمنت سه تایی اند مشترک ،با استفاده از اتمگا8 نمایش میده . هر کاری خودم کردم نتونستم بدون 7447 راه اندازی اش بکنم، متاسفانه اعداد را درست نمایش نداد .همچنین پورت ها را هم اینجوری درنظر گرفته ام .با تشکر فراوان.
portD7>a
portD6>b
portD5>c
portD4>d
portD3>e
portD2>f
portD1>g
portD0>DP

**SAMAN.ASADI** · 2015-10-24T22:47:18

پاسخ : معرفی نرم افزارEasy 7segmen (راه اندازی نسخه 1.2

نوشته اصلی توسط amiri630

سلام مهندس ممنونم : الف ) عددی که میخوام نمایش بده 3 رقمیه ، مدارم ولتاژهای مثبت (اعداد صحیح مثبت ) زیر 220 و بالای 220 را بدون اعشار با یک سون سگمنت سه تایی اند مشترک ،با استفاده از اتمگا8 نمایش میده . هر کاری خودم کردم نتونستم بدون 7447 راه اندازی اش بکنم، متاسفانه اعداد را درست نمایش نداد .همچنین پورت ها را هم اینجوری درنظر گرفته ام .با تشکر فراوان.
portD7>a
portD6>b
portD5>c
portD4>d
portD3>e
portD2>f
portD1>g
portD0>DP

درود به شما
چشم ...برنامه رو براتون مینویسم ولی الان نمیتونم ....
بعدا ...
به احتمال زیاد تا فردا
پس فردا ...
بدرود ...

**amiri630** · 2015-10-24T23:01:34

پاسخ:معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد نسخه 1.2

سپاسگزارم مهندس عزیز :applause: :applause: :applause:. دستت طلا ، عجله ای نیست.با تشکر
...................
...........
.......
....
مهندس رسید مرسی

اطلاعیه

معرفی نرم افزارEasy 7segmen (راه اندازی آسانتر 7Segment) به روز شد!!! نسخه 1.2

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه