عضویت     ورود  برای پیشرفت و پیروزی سه چیز لازم است اول پشتکار دوم پشتکار، سوم پشتکار. لردآدیبوری سه شنبه، 4 ارديبهشت ماه ، 1397

کانال تلگرام


تبلیغات متنی


منوی سایت


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




مقالات جدید
تعداد شاخه ها: 30 عدد
تعداد مقالات: 758 عدد 1: آزمايشگاه الكترونيك - استاد محرري 
[دفعات مشاهده : 4273 بار]
 2: جزوه درس مخابرات 1 - دانشگاه فردوسي مشهد 
[دفعات مشاهده : 4194 بار]
 3: كتاب مهندسي تاسيسات / دكتر كلهر 
[دفعات مشاهده : 4257 بار]
 4: مجموع اعوجاج هارمونیک T.H.D 
[دفعات مشاهده : 4198 بار]
 5: كتاب "روش طراحي و تحليل مدارهاي الكترونيك" 
[دفعات مشاهده : 10593 بار]
 6: ادوات نوري 
[دفعات مشاهده : 4382 بار]
 7: كتاب اصول تلويزيون رنگي 
[دفعات مشاهده : 5818 بار]
 8: پروژه دزد گیر با سنسور تشخیص حرکت pir با قفل رمز الکترونیکی 
[دفعات مشاهده : 5513 بار]
 9: جزوه اندازه گیری الکتریکی 
[دفعات مشاهده : 4607 بار]
 10: سوالات کنکور کارشناسی ارشد 90 / گروه مهندسی برق 
[دفعات مشاهده : 6607 بار]
 11: آرشيو پروژه هاي 8051 
[دفعات مشاهده : 5265 بار]
 12: آرشيو پروژه هاي AVR‌ (ـ‌ 126 پروژه ) 
[دفعات مشاهده : 13035 بار]
 13: آموزش برنامه نويسي و كار با ماژول Sim300CZ با ميكروكنترلر AVR 
[دفعات مشاهده : 9329 بار]
 14: سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق 
[دفعات مشاهده : 6721 بار]
 15: ارتباط میکروهای PIC با کمک پروتکل سریال I2C و نکات تکمیلی ماژول MSSP 
[دفعات مشاهده : 4883 بار]
 16: ساعت تقویم با کمک میکروکنترلر PIC و DS1307 
[دفعات مشاهده : 5460 بار]
 17: تایمرهای چند زمانه ( ساعت مرکزی ) با میکرو PIC 
[دفعات مشاهده : 4945 بار]
 18: ساعت تقویم شمسی مجهز به آلارم روزانه و هفتگی 
[دفعات مشاهده : 5870 بار]
 19: صفحه کلید وقفه ای با میکروکنترلر PIC 
[دفعات مشاهده : 4597 بار]
 20: کرنومتر دیجیتال با میکروکنترلر PIC با قابلیت ثبت 3 زمان 
[دفعات مشاهده : 4736 بار]
 21: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HMTR + پروژه چت متنی بیسیم 
[دفعات مشاهده : 7502 بار]
 22: سنسورهای حرارت 
[دفعات مشاهده : 6891 بار]
 23: کنترل وسایل برقی از طریق خط تلفن با میکروکنترلر PIC 
[دفعات مشاهده : 6808 بار]
 24: ارتباط سریال UART بین دو میکروکنترلر PIC 
[دفعات مشاهده : 5110 بار]
 25: گزارش کار آموزی : ماشین های ابزار کنترل عددی CNC 
[دفعات مشاهده : 5336 بار]
 26: کنترل وسایل به کمک ماژول HM-TR و میکرو AVR 
[دفعات مشاهده : 7780 بار]
 27: طراحی و ساخت کنترل از راه دور 1 کانال با کمک ماژول های ASK و آی سی های سری PT 
[دفعات مشاهده : 6417 بار]
 28: مجموعه رفرنس های آموزشی میکروکنترلرهای سری dsPIC 
[دفعات مشاهده : 5879 بار]
 29: مجموعه پروژه های میکروکنترلر AVR با کامپایلر بسکام 
[دفعات مشاهده : 10999 بار]
 30: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HM-T و HM-R با میکرو AVR 
[دفعات مشاهده : 8961 بار]


آخرين مطالب ارسال شده
· روش طراحي و تحليل مدارهاي الكترونيك[ 1 نظر شما چيه؟ - 38230 مشاهده ]
· اصول تلويزيون رنگي[ 0 نظر شما چيه؟ - 17011 مشاهده ]
· نرم افزار DigSilent[ 2 نظر شما چيه؟ - 20442 مشاهده ]
· AVR Tech Lib 2011[ 1 نظر شما چيه؟ - 23930 مشاهده ]
· مجموعه كنفرانس هاي سالينه ميكروچيپ / سال 2009 /[ 2 نظر شما چيه؟ - 21576 مشاهده ]
· آموزش كار با ماژول SIM300CZ با ميكرو AVR[ 4 نظر شما چيه؟ - 23949 مشاهده ]
· مجموعه فيلم هاي آموزشي نرم افزار Altium Designer[ 0 نظر شما چيه؟ - 36598 مشاهده ]
·  سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق[ 0 نظر شما چيه؟ - 18877 مشاهده ]
· لينك دانلود مجله October 2010 / SERVO[ 0 نظر شما چيه؟ - 16137 مشاهده ]
· Catalog CA 01 (10/2009) / International version[ 0 نظر شما چيه؟ - 19847 مشاهده ]

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


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



مطالب جديد
· 1: The Exchange-Spring Magnet:A New Material Principle for Permanent Magnets
· 2: OSCILLOGRAPHIC INSTRUIENTATION FOR TE SUBAUDIO FIELD
· 3: تخمين پارامترهاي ديناميكي ژنراتور سنكرون با روش كمترين مربعات غيرخطي و با استفاده از آزمايش
· 4: شناسايي خطاي ناشي از ترانسهاي ولتاژ خازني (CVT ) در اندازه گيري ولتاژهاي غيرسينوسي و تعيين حساسيت آن
· 5: Anodized Tungsten Thin-Film Capacitors And Resistors
· 6: طراحي و ساخت يك منبع تغذيه دقيق براي فرستنده رادار پالسی نيمه هادی
· 7: طراحي و بهينه سازی سيستم تعليق الکترومغناطيسي براي کاربردهای کششی
· 8: ANSI N42.46-2008
· 9: The Mental Prosthesis: Assessing the Speed of a P300-Based Brain–Computer Interface
· 10: طراحي بهينه جهت كمينه كردن مصرف انرژي موتور القايي سه فاز با استفاده از روش اجزاء محدود
· 11: Determining Optimal Orbital Path of a Nanosatellite for Efficient Exploitation of the Solar Energy C
· 12: پيش بيني بار كوتاه مدت شبكه برق ايران با درنظر گرفتن شرايط خاص نظير روزهاي قبل و بعد و بين تعطيلي
· 13: HDL Chip Design- A Practical Guide for Designing, Synthesizing and Simulating ASICs and FPGAs Using
· 14: A Secure and Robust Video Watermarking Based on Chaotic Maps
· 15: A Frequency-based RF Partial Discharge Detector for Low-power Wireless Sensing
· 16: IEEE Std 539™-2005
· 17: A Practical Application of Quantitative Accelerated Life Testing in Power Systems Engineering
· 18: Optimal Selection of SSSC Based Damping Controller Parameters for Improving Power System Dynamic
· 19: بررسی اثرات ساختارهای مختلف تغذیه قطارهای برقی شهری و برون شهری بر کیفیت برق شبکه های تغذیه کننده آن
· 20: Indoor/Outdoor Seamless Positioning Technologies Integrated on Smart Phone

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


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

 



...::: 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 17868 شنبه، 4 دي ماه ، 1389 13:37:42
MultisimExpert View latest post
No new posts Sticky: امنيت با Kaspersky Internet Security v8.0.0.33 7 Arash_em 9214 شنبه، 18 اسفند ماه ، 1386 02:18:53
brainbaran View latest post
No new posts Sticky: دانلود مرورگر قدرتمند Mozilla Firefox 2.0.0.7 Final 2 Arash_em 8161 يكشنبه، 8 مهر ماه ، 1386 04:46:20
Mehrdad001 View latest post
No new posts Micro Code Studio 3.0.0.5 0 Hamed 8023 جمعه، 20 ارديبهشت ماه ، 1387 09:35:35
Hamed View latest post
No new posts کرک 100% آخرین نسخه Bascom 8051 2.0.14.0 1 Pejmands 8927 يكشنبه، 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.30 ثانیه