درخواست كمك براي رفع اشكال برنامه بيسيك يك دما سنج

[shoghal]

سلام
  خدمت اساتيد محترم يه مدار دماسنج با مگا8 و سون سگمنت اول لطف كنيد ببينيد  برنامه ايراد داره يا نه . بعد مشكل مدار اينه تو پروتئوس عالي كار ميكنه ولي روي برد  سرعت زياده رقم يكان  تند تند با شماره بعدي عوض ميكنه و چشمك ميزنه و وقتي مثلا عدد يك روشنه 2 يا 3 تا از سگمنت هايي كه بايد خاموش باشند كم نور روشن هستند .
در ضمن من اين برنامه رو ننوشتم فقط يه تغيير كوچيك توش دادم و بجاي سنسور دما يه پتانسيومتر گذاشتم اگه امكانش هست برنامه رو برام اصلاح كنيد .

سپاسگزارم

http://rozup.ir/info/405560/1470742181

[student-p]

کد:

$regfile = "m8def.dat"
$prog &HFF , &HC4 , &HD9 , &H00                             ' generated. Take care that the chip supports all fuse bytes.
$prog &HFF , &HC4 , &HD9 , &H00                             ' generated. Take care that the chip supports all fuse bytes.
$crystal = 1000000
Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Portb = Output
Config Portd = Output
P0 Alias Portd
Dim A As Word , B As Word , C As Single , D As Word , F As Word , V As Bit


Start Adc
Do
A = Getadc(0)
B = Getadc(1)
C = A - B
C = C / 4

If C < 55 Then
V = 0
F = C
End If

If C > 55 Then
V = 1
F = C
End If


P0 = &B10 : D = F Mod 10 : Gosub Np
Waitms 20
P0 = &B01 : D = F / 10 : Gosub Np


Loop
End

Np:
Portb = Lookup(d , 7seg)
Portb.7 = V

Waitms 4
Return


7seg:
Data &B1000000 , &B1111001 , &B0100100 , &B0110000 , &B0011001
Data &B0010010 , &B0000010 , &B1111000 , &B0000000 , &B0010000

سلام

براي كم كردن نوسان بين ارقام ميتونيد مقدار اين تاخير زماني ها رو كن كنيد؛(مقادير waitms 20 , waitms 4)

در رابطه با كم نور شدن سگمنت ها هم ميتونيد از دو عدد ترانزيستور در پين مشترك سگمنت ها استفاده كنيد.

[shoghal]

ممنون از پاسخ سريع ولي داداش من waitms 1 گرفتم كمي بهتر شد ولي مشكل هنوز هست . من حدود يك سال و نيم پيش اين مشكلو روي يك ولتمتر با 7 سگمنت داشتم . عمو حسين كه اون موقع نام كاربريش جوكر بود اين مشكلو حل كرد . يه سري دستور اضافه كرد كه مكث ايجاد شد بين ارقام ومدار عالي كار كرد .متاسفانه هاردم سوخت اپلود برنامه هم توي سايت حسين آقا بود كه تعطيل شد . منم يادم نمياد چه دستوري اضافه كرد . 
براي مشكل دوم سگمنت هايي كه بايد روشن باشن با نور خوب روشن هستند ، سگمنت هايي كه بايد خاموش باشند كم نور روشن مشن .
بازم از پاسختون سپاسگزارم

[saeedsmk]

سلام
خوب هستيد 
 waitms 4  به waitms 1000  تغيير بده
ببين اوضاع درست ميشه يا نه 
به اميد ديدار

[shoghal]

نه داداش جواب نميده مثل چشمك زن دو لامپي ميشه سون سگمنت ها ثانيه اي يكبار روشن و خاموش ميشن

[saeedsmk]

سلام 
خوب هستيد 
منظور شما اينه كه عدد سمت راست هي عوض ميشه و يا اينكه اعداد چشمك ميزنن؟
اگر اعداد چشمك ميزنن مقدار waitms 20 را به waitms 1 تغيير بدهيد و مقدار waitms 4 را نيز به waitms 1 تغيير بدهيد.

اميدوارم كمك كنه

[shoghal]

سلام
دادا ممنون كه وقت ميزاري تا مشكل من حل بشه . اينكار و قبلا انجام دادم مشكل حل نميشه من فكر ميكنم برنامه يه چيزي كم داره . ولي من خيلي تازه كارم مگه يكي از اساتيد قبلا با اين مشكل برخورد كرده باشه كه بتونه كمك كنه . عمو حسين قبلا اين مشكلو حل كرده ولي ده روزه كه انلاين نيست احتمالا مسافرته البته اينم از شانس منه
با سپاس

[saeedsmk]

سلام
خوب هستيد 
سئوال رو جواب نداديد اعداد هي  عوض ميشن يا چشمك ميزنن؟
به اميد ديدار

[shoghal]

سلام
وقتي waitms 1 ميزارم لرزش سگمنت ها يه كم كمتر ميشه . ولي waitms 200
ميزارم سگمنت ها ميشن چشمك زن . مشكل اينه كه از يه عدد مثلا 23 ميخواد بره 24 بين اين دو چند بار عوض ميشه البته با سرعت زياد اگه يه مكس بين تعويض اعداد ايجاد بشه فكر كنم درست بشه

[kimiafars]

شما قبل از لوپ یه مکث بذاری درست میشه برای نور های سون سگمتها هم باید اونها را پول دون کنی در کل باید مدار سخت افزاریت هم بذاری تا بشه نظر داد

[shoghal]

سلام
دوست من كاري كه فرموديد انجام شد بازم فرقي نكرد . من تو پست اول فايل ها رو آپلود كردم هم پروتئوس هم بصورت عكس .