عضویت     ورود  اگر بر ساماندهی نیروهای خود توانا نباشیم ، دیگران سرنوشتمان را می سازند . ارد بزرگ پنجشنبه، 28 تير ماه ، 1397

کانال تلگرام


تبلیغات متنی


منوی سایت


جست و جو در بانك مقالات




مقالات جدید
تعداد شاخه ها: 30 عدد
تعداد مقالات: 758 عدد 1: آزمايشگاه الكترونيك - استاد محرري 
[دفعات مشاهده : 4706 بار]
 2: جزوه درس مخابرات 1 - دانشگاه فردوسي مشهد 
[دفعات مشاهده : 4649 بار]
 3: كتاب مهندسي تاسيسات / دكتر كلهر 
[دفعات مشاهده : 4668 بار]
 4: مجموع اعوجاج هارمونیک T.H.D 
[دفعات مشاهده : 4628 بار]
 5: كتاب "روش طراحي و تحليل مدارهاي الكترونيك" 
[دفعات مشاهده : 11041 بار]
 6: ادوات نوري 
[دفعات مشاهده : 4711 بار]
 7: كتاب اصول تلويزيون رنگي 
[دفعات مشاهده : 6269 بار]
 8: پروژه دزد گیر با سنسور تشخیص حرکت pir با قفل رمز الکترونیکی 
[دفعات مشاهده : 5890 بار]
 9: جزوه اندازه گیری الکتریکی 
[دفعات مشاهده : 5033 بار]
 10: سوالات کنکور کارشناسی ارشد 90 / گروه مهندسی برق 
[دفعات مشاهده : 6999 بار]
 11: آرشيو پروژه هاي 8051 
[دفعات مشاهده : 5720 بار]
 12: آرشيو پروژه هاي AVR‌ (ـ‌ 126 پروژه ) 
[دفعات مشاهده : 13457 بار]
 13: آموزش برنامه نويسي و كار با ماژول Sim300CZ با ميكروكنترلر AVR 
[دفعات مشاهده : 9761 بار]
 14: سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق 
[دفعات مشاهده : 7138 بار]
 15: ارتباط میکروهای PIC با کمک پروتکل سریال I2C و نکات تکمیلی ماژول MSSP 
[دفعات مشاهده : 5298 بار]
 16: ساعت تقویم با کمک میکروکنترلر PIC و DS1307 
[دفعات مشاهده : 5858 بار]
 17: تایمرهای چند زمانه ( ساعت مرکزی ) با میکرو PIC 
[دفعات مشاهده : 5322 بار]
 18: ساعت تقویم شمسی مجهز به آلارم روزانه و هفتگی 
[دفعات مشاهده : 6260 بار]
 19: صفحه کلید وقفه ای با میکروکنترلر PIC 
[دفعات مشاهده : 4975 بار]
 20: کرنومتر دیجیتال با میکروکنترلر PIC با قابلیت ثبت 3 زمان 
[دفعات مشاهده : 5120 بار]
 21: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HMTR + پروژه چت متنی بیسیم 
[دفعات مشاهده : 7906 بار]
 22: سنسورهای حرارت 
[دفعات مشاهده : 7275 بار]
 23: کنترل وسایل برقی از طریق خط تلفن با میکروکنترلر PIC 
[دفعات مشاهده : 7281 بار]
 24: ارتباط سریال UART بین دو میکروکنترلر PIC 
[دفعات مشاهده : 5545 بار]
 25: گزارش کار آموزی : ماشین های ابزار کنترل عددی CNC 
[دفعات مشاهده : 5817 بار]
 26: کنترل وسایل به کمک ماژول HM-TR و میکرو AVR 
[دفعات مشاهده : 8247 بار]
 27: طراحی و ساخت کنترل از راه دور 1 کانال با کمک ماژول های ASK و آی سی های سری PT 
[دفعات مشاهده : 6834 بار]
 28: مجموعه رفرنس های آموزشی میکروکنترلرهای سری dsPIC 
[دفعات مشاهده : 6309 بار]
 29: مجموعه پروژه های میکروکنترلر AVR با کامپایلر بسکام 
[دفعات مشاهده : 11433 بار]
 30: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HM-T و HM-R با میکرو AVR 
[دفعات مشاهده : 9341 بار]


آخرين مطالب ارسال شده
· روش طراحي و تحليل مدارهاي الكترونيك[ 1 نظر شما چيه؟ - 38682 مشاهده ]
· اصول تلويزيون رنگي[ 0 نظر شما چيه؟ - 17448 مشاهده ]
· نرم افزار DigSilent[ 2 نظر شما چيه؟ - 20801 مشاهده ]
· AVR Tech Lib 2011[ 1 نظر شما چيه؟ - 24300 مشاهده ]
· مجموعه كنفرانس هاي سالينه ميكروچيپ / سال 2009 /[ 2 نظر شما چيه؟ - 21974 مشاهده ]
· آموزش كار با ماژول SIM300CZ با ميكرو AVR[ 4 نظر شما چيه؟ - 24384 مشاهده ]
· مجموعه فيلم هاي آموزشي نرم افزار Altium Designer[ 0 نظر شما چيه؟ - 37606 مشاهده ]
·  سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق[ 0 نظر شما چيه؟ - 19261 مشاهده ]
· لينك دانلود مجله October 2010 / SERVO[ 0 نظر شما چيه؟ - 16490 مشاهده ]
· Catalog CA 01 (10/2009) / International version[ 0 نظر شما چيه؟ - 20433 مشاهده ]

[ موارد بیشتر در بخش اخبار و تازه ها ]


زبان
انتخاب زبان نمایش :



مطالب جديد
· 1: LED-Based Projection Systems
· 2: کاربرد سیستمهاي پیشنهاد دهنده در تجارت الکترونیک
· 3: IEEE Std 317-1983
· 4: طراحی و ساخت دستگاه Syrineg Pump
· 5: Switching Theory
· 6: روشی جدید برای اکتساب فاز کد در گیرنده ی سیستم طیف گسترده و در حضور مدولاسیون داده شبکه عصبی
· 7: RF and Microwave Radiation Safety Handbook
· 8: Patterns for time-triggered embedded systems
· 9: ADSL FEXT Cancellation with FIR Filters and a Comparative Study
· 10: شبیه سازی حفاظت دیستانس خطوط انتقال با استفاده از الگوریتم شبكه های عصبی مصنوعی
· 11: پيش بيني سيگنال تغيير پذيري نرخ ضربان قلب با استفاده از مدل سازي تطبيقي ديناميكي فازي
· 12: صالاح ولتاژ القایی در شبکه های توزیع هوائی
· 13: A Handbook for the Mechanical Designer
· 14: نقشه و راهنمای تعمیرات تلویزیون رنگی سامسونگ مدل CS21K3STDX-HAC
· 15: Improving Logic-Level Representation of BMD/TED Diagrams
· 16: نگاهي بر روش توسعه نرم افزاري سريع الانتقال
· 17: The 8051 Microcontroller and Embedded Systems Using Assembly and C
· 18: ارائه شاخص های نیروی انسانی
· 19: کتابچه آموزش تابلوهاي برق
· 20: Morphologic Edge Detection

[ آخرين مقالات ]


ارسال مقاله به سايت

 



...::: Ir-Micro.Com :::... :: View topic - مشکل در بسکام(فوری)


مشکل در بسکام(فوری)

 
Post new topic   Reply to topic    ...::: Ir-Micro.Com :::... Forum Index -> برنامه نویسی و مباحث مربوط به AVR Printable Version
View previous topic :: View next topic  
Author Message
alikiller990
کاربر تازه وارد
کاربر تازه وارد

Joined: Oct 05, 2012
Posts: 3





15906.00 امتیاز

Items

Status: Offline

PostPosted: سه شنبه، 5 خرداد ماه ، 1394 19:30:37 Reply with quote

سلام به دوستان عزیز.
کد برنامه ی ماشین حساب ساده به زبان بیسیک رو دارم که توی پروتئوس درست اجرا میشه ولی وقتی مدارو میبندم این عبارت به صورت چشمک زن ظاهر میشه:
0+0=0.0
من تازه کارم و خیلی وارد نیستم شاید از چیزهای پیش پا افتاده باشه که من بلد نیستم مثلا فیوز بیت ها و اینا
کد و عکس رو هم قرار میدم.

$regfile = "m16adef.dat"
$crystal = 1000000
Dim A As Word
Dim A1 As Word
Dim A2 As Word
Dim A3 As Word
Dim X As String * 2
Dim B As Word
Dim B1 As Word
Dim B2 As Word
Dim B3 As Word
Dim D As Single
Dim K1 As Byte
Dim K2 As Byte
Dim C As Byte
Config Kbd = Portb , Debounce = 50 , Delay = 100
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2

'*********************************

Main:

C = 0
Cls
Locate 1 , 5
Lcd "WELCOME"

'*********************************

Pro1:

K1 = Getkbd()
If K1 = 16 Then Goto Pro1
K2 = Lookup(k1 , Dat)
If K2 >= 10 Then
If K2 = 40 Then Goto Main
If K2 = 50 Then Goto Pro1
C = 0
Goto Pro3
End If

Incr C

If C = 1 Then
A1 = K2
A = A1
End If

If C = 2 Then
A2 = K2
A = A1 * 10
A = A + A2
End If

If C = 3 Then
A3 = K2
A1 = A1 * 100
A2 = A2 * 10
A = A1 + A2
A = A + A3
End If

Cls
Lcd A
If C = 3 Then
C = 0

'*********************************

Pro2:

K1 = Getkbd()
If K1 = 16 Then Goto Pro2
K2 = Lookup(k1 , Dat)
If K2 < 10 Then Goto Pro2
If K2 = 40 Then Goto Main
If K2 = 50 Then Goto Pro2
Goto Pro3
End If
Waitms 100
Goto Pro1

'*********************************

Pro3:

K2 = K2 / 10
Decr K2
X = Lookupstr(k2 , Sdat)
Cls
Lcd A ; X
Wait 1

'*********************************

Pro4:

K1 = Getkbd()
If K1 = 16 Then Goto Pro4
K2 = Lookup(k1 , Dat)
If K2 >= 10 Then
If K2 = 40 Then Goto Main
C = 0
Goto Pro6
End If

Incr C

If C = 1 Then
B1 = K2
B = B1
End If

If C = 2 Then
B2 = K2
B = B1 * 10
B = B + B2
End If

If C = 3 Then
B3 = K2
B1 = B1 * 100
B2 = B2 * 10
B = B1 + B2
B = B + B3
End If

Cls
Lcd A ; X ; B
If C = 4 Then

'*********************************

Pro5:

K1 = Getkbd()
If K1 = 16 Then Goto Pro5
K2 = Lookup(k1 , Dat)
If K1 <> 50 Then Goto Pro5
C = 0
Goto Pro6
End If
Waitms 100
Goto Pro4

'*********************************

Pro6:

Select Case X

Case Is = "/"
D = A / B

Case Is = "*"
D = A * B

Case Is = "-"
D = A - B

Case Is = "+"
D = A + B

End Select

Cls
Lcd A ; X ; B ; "=" ; D
Wait 1

'*********************************

Pro7:

K1 = Getkbd()
If K1 = 16 Then Goto Pro7
Goto Main

'*********************************

Dat:

Data 7 , 8 , 9 , 10 , 4 , 5 , 6 , 20 , 1 , 2 , 3 , 30 , 40 , 0 , 50 , 60

'*********************************

Sdat:

Data "/" , "*" , "-" , "ON" , "=" , "+"

لینک عکس
http://uploadkon.ir/fl/d/Njk4NjI%3D

Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    ...::: Ir-Micro.Com :::... Forum Index -> برنامه نویسی و مباحث مربوط به AVR All times are GMT + 3.5 Hours
Page 1 of 1
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum

 
 Jump to:   

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Sticky: دانلود نرم افزار multisim ورژن 9 و 10 5 Hamed 18160 شنبه، 4 دي ماه ، 1389 13:37:42
MultisimExpert View latest post
No new posts Sticky: امنيت با Kaspersky Internet Security v8.0.0.33 7 Arash_em 9478 شنبه، 18 اسفند ماه ، 1386 02:18:53
brainbaran View latest post
No new posts Sticky: دانلود مرورگر قدرتمند Mozilla Firefox 2.0.0.7 Final 2 Arash_em 8301 يكشنبه، 8 مهر ماه ، 1386 04:46:20
Mehrdad001 View latest post
No new posts Micro Code Studio 3.0.0.5 0 Hamed 8210 جمعه، 20 ارديبهشت ماه ، 1387 09:35:35
Hamed View latest post
No new posts کرک 100% آخرین نسخه Bascom 8051 2.0.14.0 1 Pejmands 9097 يكشنبه، 29 مهر ماه ، 1386 13:48:38
Arash_em View latest post
 


Powered by phpBB © 2001, 2008 phpBB Group

Ported to Platinum 7.6.b.4 V2 by sadeghkhafan

فروشگاه تخصصی برق و الکترونیک ایران میکرو
www.iran-micro.com
PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL.
Powered by Platinum 7.6.b.4 v2
Powered by Platinum 7.6.b.4 v2 Persian

مدت زمان ایجاد صفحه : 0.22 ثانیه