عضویت     ورود  خوشبختی یعنی هماهنگی با حوادث روزگار . فلوبر چهارشنبه، 4 بهمن ماه ، 1396

کانال تلگرام


تبلیغات متنی


منوی سایت


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




مقالات جدید
تعداد شاخه ها: 30 عدد
تعداد مقالات: 758 عدد 1: آزمايشگاه الكترونيك - استاد محرري 
[دفعات مشاهده : 3621 بار]
 2: جزوه درس مخابرات 1 - دانشگاه فردوسي مشهد 
[دفعات مشاهده : 3538 بار]
 3: كتاب مهندسي تاسيسات / دكتر كلهر 
[دفعات مشاهده : 3625 بار]
 4: مجموع اعوجاج هارمونیک T.H.D 
[دفعات مشاهده : 3586 بار]
 5: كتاب "روش طراحي و تحليل مدارهاي الكترونيك" 
[دفعات مشاهده : 9959 بار]
 6: ادوات نوري 
[دفعات مشاهده : 3825 بار]
 7: كتاب اصول تلويزيون رنگي 
[دفعات مشاهده : 5211 بار]
 8: پروژه دزد گیر با سنسور تشخیص حرکت pir با قفل رمز الکترونیکی 
[دفعات مشاهده : 4959 بار]
 9: جزوه اندازه گیری الکتریکی 
[دفعات مشاهده : 4048 بار]
 10: سوالات کنکور کارشناسی ارشد 90 / گروه مهندسی برق 
[دفعات مشاهده : 6016 بار]
 11: آرشيو پروژه هاي 8051 
[دفعات مشاهده : 4677 بار]
 12: آرشيو پروژه هاي AVR‌ (ـ‌ 126 پروژه ) 
[دفعات مشاهده : 12438 بار]
 13: آموزش برنامه نويسي و كار با ماژول Sim300CZ با ميكروكنترلر AVR 
[دفعات مشاهده : 8712 بار]
 14: سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق 
[دفعات مشاهده : 6135 بار]
 15: ارتباط میکروهای PIC با کمک پروتکل سریال I2C و نکات تکمیلی ماژول MSSP 
[دفعات مشاهده : 4358 بار]
 16: ساعت تقویم با کمک میکروکنترلر PIC و DS1307 
[دفعات مشاهده : 4894 بار]
 17: تایمرهای چند زمانه ( ساعت مرکزی ) با میکرو PIC 
[دفعات مشاهده : 4434 بار]
 18: ساعت تقویم شمسی مجهز به آلارم روزانه و هفتگی 
[دفعات مشاهده : 5278 بار]
 19: صفحه کلید وقفه ای با میکروکنترلر PIC 
[دفعات مشاهده : 4040 بار]
 20: کرنومتر دیجیتال با میکروکنترلر PIC با قابلیت ثبت 3 زمان 
[دفعات مشاهده : 4192 بار]
 21: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HMTR + پروژه چت متنی بیسیم 
[دفعات مشاهده : 6920 بار]
 22: سنسورهای حرارت 
[دفعات مشاهده : 6315 بار]
 23: کنترل وسایل برقی از طریق خط تلفن با میکروکنترلر PIC 
[دفعات مشاهده : 6223 بار]
 24: ارتباط سریال UART بین دو میکروکنترلر PIC 
[دفعات مشاهده : 4510 بار]
 25: گزارش کار آموزی : ماشین های ابزار کنترل عددی CNC 
[دفعات مشاهده : 4758 بار]
 26: کنترل وسایل به کمک ماژول HM-TR و میکرو AVR 
[دفعات مشاهده : 7150 بار]
 27: طراحی و ساخت کنترل از راه دور 1 کانال با کمک ماژول های ASK و آی سی های سری PT 
[دفعات مشاهده : 5880 بار]
 28: مجموعه رفرنس های آموزشی میکروکنترلرهای سری dsPIC 
[دفعات مشاهده : 5281 بار]
 29: مجموعه پروژه های میکروکنترلر AVR با کامپایلر بسکام 
[دفعات مشاهده : 10463 بار]
 30: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HM-T و HM-R با میکرو AVR 
[دفعات مشاهده : 8400 بار]


آخرين مطالب ارسال شده
· روش طراحي و تحليل مدارهاي الكترونيك[ 1 نظر شما چيه؟ - 37616 مشاهده ]
· اصول تلويزيون رنگي[ 0 نظر شما چيه؟ - 16455 مشاهده ]
· نرم افزار DigSilent[ 2 نظر شما چيه؟ - 19940 مشاهده ]
· AVR Tech Lib 2011[ 1 نظر شما چيه؟ - 23372 مشاهده ]
· مجموعه كنفرانس هاي سالينه ميكروچيپ / سال 2009 /[ 2 نظر شما چيه؟ - 21037 مشاهده ]
· آموزش كار با ماژول SIM300CZ با ميكرو AVR[ 4 نظر شما چيه؟ - 23393 مشاهده ]
· مجموعه فيلم هاي آموزشي نرم افزار Altium Designer[ 0 نظر شما چيه؟ - 35626 مشاهده ]
·  سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق[ 0 نظر شما چيه؟ - 18307 مشاهده ]
· لينك دانلود مجله October 2010 / SERVO[ 0 نظر شما چيه؟ - 15635 مشاهده ]
· Catalog CA 01 (10/2009) / International version[ 0 نظر شما چيه؟ - 19160 مشاهده ]

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


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



مطالب جديد
· 1: کاربرد داده ساختارهای جنبشی در مسیریابی شبکه های حسگر متحرک
· 2: ارائه يك فرم رگرسيون خطي جديد براي مدل غيرخطي ژنراتور سنكرون با هدف تخمين پارامترهاي فيزيكي
· 3: نقشه و راهنمای تعمیرات AUDIO مدل MAX-N25
· 4: بررسي علت شكست دو نمونه يراق در خطوط فوق توزيع
· 5: Broadband Microwave Amplifiers
· 6: سیستم VoIP و ارتباطات تلفن اینترنتی
· 7: كنترل مستقيم گشتاور موتور آهنربای دائم (PMSM) با اينورتر چند سطحي و استفاده ازSVM
· 8: Development of 13 bit Digitally Controlled Oscillator using Fibonacci Sequence in 0.18 um CMOS Proce
· 9: پروژه زاویه سنج با ADXL345
· 10: {BRO} UT VOLTAGE STABILITY-SYSTEkI MEASUREI4EIJTS AND SIkIULATIOl
· 11: DFLS:A New Distributed and Fault Tolerant Location Service Method for Mobile Ad hoc
· 12: طاحی هوشمند شبکه های توزیع در دو سطح ولتاژ
· 13: نقشه و راهنمای تعمیرات ویدئو مدل SV-A11GH-HACO
· 14: کاربرد کد شناسایی یکپارچه برای شبکه های توزیع در سطح کشور
· 15: تجزیه و تحلیل حوادث شرکت های توزیع نیروی برق و راه های پیشگیری از آن
· 16: PROGRAMMABLE CONTROLLERS
· 17: INTRODUCING SERIES COMPENSATION IN THE UK TRANSMISSION NETWORK
· 18: The Precise Measuremient of Small Capacitances
· 19: فاصله يابي خطا در خطوط انتقال جبران شده با وجود UPFC در ميانه خط
· 20: جزوه آموزشی نرم افزار PDMS

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


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

 



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