با سلام خدمت دوستان عزیز، از شما تقاضا دارم مداری را که در این عکس گذاشته ام تحلیل و توضیح دهید، لازم به ذکر است این مدار یک واتمتر است که ولتآژ و جریان را اندازه می گیرد و در هم ضرب می کند و توان را تحوبل می دهد، بنده شرح کار قطعات مختلف مدار را می خواهم، همچنین قسمتی از فایل برنامه نویسی را قرار می دهم که در برنامه ولتاژی را که مدار خوانده در 2.44ضرب می کند و بعد تفسیم بر 1000 میکند و مجددآ در 220ضرب میکند و در بخش جریان نیز همچین چیزی است، از شما خواهشمندم دلیل این کار را ذکر کنید. باتشکر
http://uploadpic.ir/images/darya.jpg
برنامه:
'Initlcd
Longg = 0
For A = 1 To 20
Adcc = Getadc(4)
Waitms 10
Longg = Longg + Adcc
Next
Longg = Longg / 20
Singlee = Longg * 2.44
Singlee = Singlee / 1000
Singlee = Singlee * 222
Longg = Singlee
Volt = Singlee
Locate 1 , 1 : Lcd "V=" ; Longg ; " "
'============================================ =============
Longg = 0
For A = 1 To 20
Adcc = Getadc(3)
Waitms 10
Longg = Longg + Adcc
Next
Longg = Longg / 20
Singlee = Longg * 2.44
Singlee = Singlee / 1000
Singlee = Singlee / 2.57
Stringg = Fusing(singlee , "#.###"
Amper = Singlee
Locate 1 , 8
Lcd "A=" ; Stringg ; "
http://uploadpic.ir/images/darya.jpg
برنامه:
'Initlcd
Longg = 0
For A = 1 To 20
Adcc = Getadc(4)
Waitms 10
Longg = Longg + Adcc
Next
Longg = Longg / 20
Singlee = Longg * 2.44
Singlee = Singlee / 1000
Singlee = Singlee * 222
Longg = Singlee
Volt = Singlee
Locate 1 , 1 : Lcd "V=" ; Longg ; " "
'============================================ =============
Longg = 0
For A = 1 To 20
Adcc = Getadc(3)
Waitms 10
Longg = Longg + Adcc
Next
Longg = Longg / 20
Singlee = Longg * 2.44
Singlee = Singlee / 1000
Singlee = Singlee / 2.57
Stringg = Fusing(singlee , "#.###"

Amper = Singlee
Locate 1 , 8
Lcd "A=" ; Stringg ; "
دیدگاه