اطلاعیه
Collapse
No announcement yet.
درخواست کد PWM برای ساخت منبع تغذیه
Collapse
X
-
پاسخ : درخواست کد PWM برای ساخت منبع تغذیه
خوب ظاهرا دوستان سخت درگیر امتحانات پایان ترم هستند و وقت جواب دادن ندارن :agree: اشکالی نداره من خودم یه چیزائی سرهم کردم اگه کسی حالشوداشت یه نگاهی بندازه ببینه چطوره :biggrin:
$regfile = "m8def.dat"
$sim
$crystal = 1000000
'---------------------
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Enable Interrupts
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pind.4 , Db5 = Pind.5 , Db6 = Pind.6 , Db7 = Pind.7 , Rs = Pind.0 , E = Pind.2
Config Adc = Single , Prescaler = Auto
Start Adc
'===========================
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input
'Config Pinc.0 = Input
'===========================
Left_key Alias Portc.3
Setup_key Alias Pinc.4
Right_key Alias Pinc.5
Dim A As Byte , Voloom As Integer , S As Bit , Pwm As Integer , Voltaj As Integer
Dim V As Single , Jaryan As Integer , I As Single
Dim H As String * 8
A = 100
Pwm1a = A
Cursor Off Noblink
Cls
Main:
Do
Voloom = Getadc(2)
Pwm = Voloom / 4
Pwm1a = Pwm
Voltaj = Getadc(1)
V = Voltaj / 29.2571
'V = Round(v)
H = Fusing(v , "##.#"
Locate 1 , 1
Lcd "V : " ; H ; " V "
Jaryan = Getadc(0)
I = Jaryan / 0.341
H = Fusing(i , "##.#"
'I = Round(i)
Locate 2 , 1
Lcd "I : " ; H ; " mA "
Loop
وقتی همه نیروهای جسمی و ذهنی متمرکز شوند توانایی فرد برای حل مشکلات به طور حیرت انگیزی چند برابر می شود .
نرمن وینسنت پیل
دیدگاه
دیدگاه