close
تبلیغات در اینترنت
دماسنج با glcd
loading...

اصحاب و انصارالمهدی (عج)

دما سنج خیلی ساده برای مبتدیان برای دانلود فایل بسکام روی لینک زیر کلیک کنید http://up.reza-rezazadeh.ir/Documents/electronic/bas_damasanj.zip برنامه بسکام : $regfile = "M32def.dat" $crystal = 1000000 $lib "glcdKS108.LBX" ================================================================================ Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 1 , Ce2 = 2 , Cd = 3 , Rd = 4 , Reset = 0 , Enable = 5 Config Adc = Single , Prescaler = Auto , Reference = Avcc "Dim Dmax…

آخرین ارسال های انجمن
رضارضازاده بازدید : 533 جمعه 27 بهمن 1391 نظرات ()

دما سنج خیلی ساده برای مبتدیان


دماسنج با glcd


دماسنج با glcd


برای دانلود فایل بسکام روی لینک زیر کلیک کنید


http://up.reza-rezazadeh.ir/Documents/electronic/bas_damasanj.zip



برنامه بسکام :

$regfile = "M32def.dat"

$crystal = 1000000

$lib "glcdKS108.LBX"

================================================================================

Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 1 , Ce2 = 2 , Cd = 3 , Rd = 4 , Reset = 0 , Enable = 5

Config Adc = Single , Prescaler = Auto , Reference = Avcc

"Dim Dmax As Byte

Dim Dmin As Byte

Dim S As Byte

Dim Dama As Word

Dim I As Byte

"============================================config=============================

Config Pinc.0 = Input

Config Pinc.1 = Input

Config Pinc.2 = Input

Dmax = 30

Dmin = 20

Cls

Showpic 0 , 0 , Pic1

Wait 1

Showpic 0 , 0 , Pic1 , 1

For I = 64 To 1 Step -1

Waitus 0.01

Line(0 , I) -(128 , I) , 1

Next I

Waitms 100

Showpic 0 , 0 , Pic2

Wait 1

For I = 32 To 1 Step -1

Waitms 1

Line(0 , I) -(128 , I) , 1

Next I

For I = 32 To 64

Line(0 , I) -(128 , I) , 1

Waitms 1

Next I

Waitms 100

Showpic 0 , 0 , Pic3

Wait 1

For I = 0 To 128

Line(i , 0) -(i , 32) , 1

Waitms 1

Next I

For I = 128 To 0 Step -1

Line(i , 0) -(i , 64) , 1

Waitms 1

Next I

Waitms 100

Showpic 0 , 0 , Pic4

Wait 1

For I = 64 To 128

Line(i , 0) -(i , 64) , 1

Waitms 1

Next I

For I = 64 To 0 Step -1

Line(i , 0) -(i , 64) , 1

Waitms 1

Next I

Waitms 100

Showpic 0 , 0 , Pic5

Wait 1

Cls

Start Adc

Stt:

Cls

Do

If Pinc.0 = 1 Then

Waitms 300

Goto Dmax1

Elseif Pinc.1 = 1 Then

Waitms 300

Goto Dmin1

End If

Dama = Getadc(0)

Dama = Dama / 2.048

Setfont Font16x16

Lcdat 1 , 0 , "Dama" ; ":"

Lcdat 1 , 80 , Dama ; """

Waitms 500

Setfont Font8x8

Lcdat 4 , 0 , "Dmax=" ; Dmax

Lcdat 5 , 0 , "Dmin=" ; Dmin

If Dama > Dmin And Dama < Dmax Then

Setfont Font8x8

Lcdat 7 , 0 , "Normal"

Lcdat 8 , 0 , "OFF      "

Elseif Dama < Dmin Then

Lcdat 7 , 0 , "Cold  "

Lcdat 8 , 0 , "heater ON"

Elseif Dama > Dmax Then

Lcdat 7 , 0 , "Worm"

Lcdat 8 , 0 , "Cooler ON"

End If

Loop

Dmax1:

Cls

Do

Setfont Font8x8

Lcdat 1 , 0 , "Dmax   ?"

Lcdat 4 , 0 , "Dmax=" ; Dmax

If Pinc.0 = 1 Then

Waitms 300

Dmax = Dmax + 1

Elseif Pinc.1 = 1 Then

Waitms 300

Dmax = Dmax - 1

Elseif Pinc.2 = 1 Then

Waitms 300

Goto Stt

End If

Loop

Dmin1:

Cls

Do

Setfont Font8x8

Lcdat 1 , 0 , "Dmin   ?"

Lcdat 4 , 0 , "Dmin=" ; Dmin

If Pinc.0 = 1 Then

Waitms 300

Dmin = Dmin + 1

Elseif Pinc.1 = 1 Then

Waitms 300

Dmin = Dmin - 1

Elseif Pinc.2 = 1 Then

Goto Stt

End If

Loop

End

$include "font8x8.font"

$include "font16x16.font"

Pic1:

$bgf "1.bgf"

Pic2:

$bgf "2.bgf"

Pic3:

$bgf "3.bgf"

Pic4:

$bgf "4.bgf"



برچسب ها دماسنج با glcd , دماسنج , glcd ,
مطالب مرتبط
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • لینک دوستان
  • پایگاه احادیث و روایات معصوم(ع)
  • دانلود آهنگ و موزیک ویدئو روز
  • دانلود كليپ عشق بزرگترين دروغ دنيا هفت
  • عشق بزرگترين دروغ دنيا
  • هفتادیا
  • تسوج آموزش
  • مدل لباس
  • ♥♥♥♥♥رئیس آبیــ ♥♥♥♥♥♥
  • آنامیس 89
  • آخرالزمان انتظار مهدویت
  • افلاکیان
  • اشعارمذهبي سيدمهدي حسيني فرد
  • sahardelan
  • راه ولایت
  • شمیم یار
  • ایستکلی
  • سکوت
  • دانلود فیلم و سریال خارجی و ایرانی جدید
  • کلبه سرگرمی - ویرگول
  • مطالب عاشقانه جدید
  • قرمز پوش
  • آل یاسین
  • طلبه سایبری
  • روانشناس و مشکلات(سایکولوژی)
  • تیم سایبری عاشقان مهدی(عج)
  • دوربین مخفی مدارس
  • فرهنگی مذهبی صلوات
  • پايگاه انديشه ندبه
  • گفته و ناگفته های دل.
  • دره کوچک\\\\((1))////mahdaviyyat
  • یاس و نرگس
  • یاس دانلود
  • بسیج
  • باران عشق
  • رضا رضازاده
  • .::نوشته های طنز،غمگین،فلسفی و...::.
  • sms_bazar
  • عشــــ♥ــــقولانه
  • بهترین ها برای دانلود
  • شهدای زنگی کلا دابو
  • ♥ lıl__REZA__lıl ♥
  • دانلود آهنگ
  • صمیمانه ترین حضور عشق
  • رها نفس
  • ویکی دانلود ها
  • زندگی زیباست
  • روانشناسی...زندگی بهتر
  • شوق نماز
  • سایت تفریحی سوما
  • بهترین های وبگردی
  • شارژ مستقیم ایرانسل
  • کامپیوتر موبایل گیم فیلم آهنگ
  • تاپ کرک
  • دارو گیاهی
  • اس ام اس
  • هاستینگ سرور مجازی چت روم ساخت وب سایت
  • ثارالله
  • tanrim
  • مرجع فارسي زبانان
  • شارژها
  • Alpagut
  • ولایت عشق
  • ساکان دانلود
  • دانلود رایگان
  • پارک ممنوع
  • سوی دیار عاشقان
  • وبلاگ وبتیک
  • deniz yildizi
  • سایت اینترنتی قلبهای جاویدان
  • مهندس صنايع غذايي
  • لبیک یا صاحـــــــــب الزمان (عج)
  • نهج البلاغه
  • صالحین مهدی (عج)
  • سربازان گمنام امام زمان (عج)
  • سافت فست
  • آخرین مطالب ارسال شده
  • آمار سایت
  • کل مطالب : 703
  • کل نظرات : 364
  • افراد آنلاین : 3
  • تعداد اعضا : 2466
  • آی پی امروز : 26
  • آی پی دیروز : 148
  • بازدید امروز : 148
  • باردید دیروز : 3,147
  • گوگل امروز : 0
  • گوگل دیروز : 6
  • بازدید هفته : 5,110
  • بازدید ماه : 17,680
  • بازدید سال : 112,875
  • بازدید کلی : 1,956,420
  • کدهای اختصاصی
    خوش آمدید



    به وب سایت اصحاب و انصارالمهدی خوش آمدید


    برای  مشاهده و استفاده از تمامی مطالب تالیفی لطفا ثبت نام کنید


    با تشکر : رضارضازاده