حالت موضوعی | حالت خطی

belanko

سلام به همه مهندسان
این یک برنامه صوت سنج باlcd کاراکتری هست.
امیدوارم بدردتون بخوره.
حالا یه مهندس پیدا میشه اینویه کاریش کنه که روlcdگرافیکی نشون بده.
راستش واسه پروژم میخوام که یک آمپلی فایرهست.
اگر هم کسی کامل ترشو داره ممنون میشم کمک کنه Clap

(البته برنامشو من ننوشتم از نت پیداش کردم )

کد php: 
$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Dim A As Word
Config Portb = Output
Start Adc
Do
A = Getadc(0)
Select Case A
Case 0 To 125
Portb = &B00000001
Case 121 To 240
Portb = &B00000011
Case 241 To 360
Portb = &B00000111
Case 361 To 480
Portb = &B00001111
Case 481 To 600
Portb = &B00011111
Case 601 To 720
Portb = &B00111111
Case 721 To 840
Portb = &B01111111
Case 841 To 1000
Portb = &B11111111
End Select
Waitms 300
Loop
End 

**t3r!p3000**

مهندس شرمنده پستت رو ویرایش کردم تا برنامه ای که گذاشتی بهتر دیده بشه !!

و اون برنامه شما هم هیچگونه LCD نداره !!

و LCD گرافیکی هم سرعتش خیلی پایینه و نمیشه از این مانورها انجام داد !!!

و اینم به خاطر همشهری بودنت :

برنامه VU متر با LCD گرافیکی که روی خط اول LCD بسته به میزان وردی آنالوگ صفر میکرو که می تونه بین صفر تا 2.56 ولت باشه نشون میده !

کد php: 
$regfile = "m32def.dat"
$crystal = 12000000

$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Cls

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

Dim W As Word , B As Word

Start Adc

Do

   W = Getadc(0) : W = W / 8

   For B = 0 To W
         Line(b , 0) -(b , 7) , 1
   Next
   Incr W
   For B = W To 127
         Line(b , 0) -(b , 7) , 0
   Next

Loop 

به جای LCD گرافیکی پیشنهاد میشه از LED و LM3915 استفاده کنین !!!

belanko

دمت گرم همشهری Clap

فقط اگه میشه یکم بیشتر توضیح بده که برنامت چکار میکنه؟
اگه بخوام با پروتوس شبیه سازی کنم ورودی آنالوگ رو چی بدم بهتره؟

**t3r!p3000**

مقدار آنالوگ ورودی رو میگیره !! ( می تونی واسه تست از موج سینوسی که فقط سمت مثبت داشته باشه استفاده کنی و مثلا فرکانس 40 هرتز )
و چون مقدار آنالوگ می تونه مقاداری بین 1023 تا 0 داشته باشه اونو تقسیم بر 8 می کنه که مقدارش بین 0 تا 127 باشه !!!

ال سی دی گرافیکی معمول بازار 128*64 هستش که خوب محور ایکس می تونه بین 0 تا 127 باشه !!

برنامه فوق 8 پیکسل از محور y رو روشن می کنه و بسته به مقدار دامنه ورودی تا ایکس مورد نظر ( که تقسیم بر 8 شده ) پیش میره و پیکسل های فوق رو روشن می کنه !!!!
و وقتی پیکسل های لازم رو روشن کرد از ایکس بعدی تا آخرین محور ایکس ال سی دی بقیه پیکسل ها رو خاموش می کنه !

امیدوارم تونسته باشم مفهوم رو برسونم !

belanko

واقعاازت ممنونم. Happy

مهندس پایه های lcdگرافیکی من اینا هست(vee,rst,cs2,cs1,e,rw,rs,vo,vdd,vssوaوk)
فکنم 64*240باشه!ویه چیز دیگه اینکه با پروتوس چطور منبع سینوسی با موج مثبت بدم؟میخوام شبیه سازی برنامتوکه زحمت کشیدی،درست کنم هم واسه خودم و هم اینکه تو فروم بزارم که همه استفاده کنن

**t3r!p3000**

اینم فایل برنامه و تست پروتئوس و ... !!!

یه تغییراتی هم تو برنامه دادم که نمایشش تو سرعت پایین بهتر شده !!!

فقط من چون cpu ام جواب نمی داد با یه مگ تست کردم ولی شما با فرکانس بالاتر تست کنین !!!

البته با 128*64 هستش !
خودتون تعمیمش بدین به glcd که دوست دارین !!!