ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.






جهت تبلیغ در وب سایت ECA کلیک کنید.

کاربران برچسب زده شده

صفحه 2 از 2 نخست 12
نمایش نتایج: از 11 به 15 از 15
  1. #11
    2008/10/31
    teh
    93
    2

    پاسخ : كمك در ساختن ولت آمپرمتر با ال سي دي 2*16

    ممنون دوستان از پاسختون
    راستش من قبلا يه ولت متر با آي سي 7107ساختم اما درست كار نميكرد مقدار هايي كه نشون ميداد درست نبود!كه با سون سگمنت كار ميكرد!
    اين پروژه رو هم پيدا كردم به نظرتون اين چطوره؟
    سورسش هم نيست فقط فابل hexداره! :read:
  2. #12
    2011/07/01
    230
    104

    پاسخ : كمك در ساختن ولت آمپرمتر با ال سي دي 2*16

    نقل قول نوشته اصلی توسط omid_021
    ممنون دوستان از پاسختون
    راستش من قبلا يه ولت متر با آي سي 7107ساختم اما درست كار نميكرد مقدار هايي كه نشون ميداد درست نبود!كه با سون سگمنت كار ميكرد!
    اين پروژه رو هم پيدا كردم به نظرتون اين چطوره؟
    سورسش هم نيست فقط فابل hexداره! :read:
    سخت افزار به نظر درست میاد.
    اما نمیدونم چرا از دو تا تغذیه 5 ولت استفاده کرده.
    میتونی یکیشو حذف کنی.
  3. #13
    2008/10/31
    teh
    93
    2

    پاسخ : كمك در ساختن ولت آمپرمتر با ال سي دي 2*16

    فايل پي سي بي رو هم دارم !
    ورودي برقش يه 9ولت هست كه ميره واسه 2تا رگولاتورا!
    منم نميدونم چرا 2تا استفاده كرده شايد ميخواسته مدار رو الكي شلوغش كنه!
  4. #14
    2008/10/31
    teh
    93
    2

    پاسخ : كمك در ساختن ولت آمپرمتر با ال سي دي 2*16

    پس به نطر شما مشكلي نداره؟
    شروع كنم به ساختش؟ :read:
  5. #15
    2009/10/18
    تبریز
    2,214
    625

    پاسخ : كمك در ساختن ولت آمپرمتر با ال سي دي 2*16

    نقل قول نوشته اصلی توسط omid_021
    سلام دوستان من يه پروژه ولتمتر آمپر متر پيدا كردم توي سايت iranledاما سازنده ديگه به اون سايت سر نميزنه منم نميتونم ازش سوال كنم!انجمنشون متروكه شده! :NO:
    حالا بريم سر اصل مطلب
    اين يه پروژه ولت آمپرمتر دما وساعت هست!
    من اين مدار رو روي برد بورد بستم راحت جواب ميده قشنگ ولت آمپر ساعت ودما رو نشون ميده
    اما اين مدار بايد تا 255ولت رو نشون بده ولي بيشتر از 5ولت بهش بدم قات ميزنه مينويسه255 :angry:
    من اين مدار رو واسه منبع تغذيه ميخوام!
    فكر كنم كمي هم درست نميزنه مقدار ولتاژ وآمپر رو با مولتي متر ديجيتال مقايسه كردم كمي كمتر ميزنه!حالا نميدونم اون درست ميزنه يا مولتي متر!
    لينك دانلود مدار رو هم ميزارم اگر كم كسري داره بهم بگيد چون ميخوام يه چيز كامل بي عيب نقص باشه!به نظرم اون مقاوت 3وات بايد 5وات باشه درسته؟
    براي حل اين مشكلش كه بيشتر از 5ولت رو نشون نميده هم ممنون ميشم كمك كنيد!
    سورس توي فايل دانلودي هم هست!
    اين سورس
    کد:
    $regfile = "M8DEF.dat" : $crystal = 2000000
    
    Config Lcdpin = Pin , Db4 = Pinb.3 , Db5 = Pinb.2 , Db6 = Pinb.1 , Db7 = Pinb.0 , E = Pinb.4 , Rs = Pinb.5
    Config Lcd = 16 * 2 : Cursor Off : Cls
    
    Config Portd = &B11111000
    
    Config Adc = Single , Prescaler = Auto , Reference = Internal
    
       Deflcdchar 0 , 24 , 24 , 32 , 7 , 4 , 4 , 4 , 7    '.C
    
    '-------------------------------------------------------------------------------
    Dim Cc As Byte , Mm As Byte , Ss As Byte , B As Byte , F As Byte , T As Word , Tt As Byte
    Dim Ecc As Eram Byte At 5 , Emm As Eram Byte At 10 , Ft As Byte , W As Word , S As Single
    Dim A As Single , I As String * 8 , V As String * 8 , Fv As Byte
    '-------------------------------------------------------------------------------
      Cc = Ecc : Mm = Emm : Tt = 150
    
         If Cc > 23 Then Cc = 10
         If Mm > 59 Then Mm = 00
         Gosub Showcc : Gosub Showmm : Gosub Showss
    
    '-------------------------------------------------------------------------------
    Config Timer2 = Timer , Prescale = 32 , Async = On
    Enable Interrupts : Enable Timer2
    On Timer2 Sectic
    Start Timer2
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    Star:
       F = 0 : Ft = 0
    Do
       Debounce Pind.0 , 1 , Ant
    Loop
    '-------------------------------------------------------------------------------
    Ant:
       For T = 0 To 1200
         If Pind.0 = 0 Then Goto Star
         Waitms 1
       Next
    Goto Cc
    '------------------------------------------------------------------------------- DESIGN BY A.N.T
    '-------------------------------------------------------------------------------
    Sectic:
    Incr B
    Select Case B
    Case 1:
          Start Adc : W = Getadc(1) : Stop Adc
          If W > 800 Then : Fv = 1 : Set Portd.6 : Reset Portd.7
          Else : S = W / 400 : S = S + 0.003 : V = Fusing(s , "#.###")
          End If
          Gosub Offlcd
    Case 2:
         Ss = Ss + 1 : Toggle Portd.3
         If Ss > 59 Then : Ss = 0 : Mm = Mm + 1 : Emm = Mm
         End If
         If Mm > 59 Then : Mm = 0 : Cc = Cc + 1 : Emm = Mm : Ecc = Cc
         End If
         If Cc > 23 Then : Cc = 0 : Ecc = Cc
         End If
         Gosub Onlcd
         If Fv = 1 Then :
            Start Adc : W = Getadc(1) : Stop Adc
            If W > 800 Then : Fv = 1 : Reset Portd.6 : Set Portd.7
            Else : S = W / 40 : S = S + 0.03 : Fv = 0 : V = Fusing(s , "##.##")
            End If
         End If
    Case 3:
         Gosub Offlcd
         Start Adc : W = Getadc(0) : Stop Adc : W = W / 2 : A = W / 2
         If Fv = 1 Then :
            Start Adc : W = Getadc(1) : Stop Adc
            S = W / 4 : Fv = 0 : V = Fusing(s , "###.#")
         End If
    Case 4:
         Start Adc : W = Getadc(2) : Stop Adc : S = W / 200 : I = Fusing(s , "#.###")
         B = 0 : Gosub Onlcd : Toggle Portd.3 : Reset Portd.6 : Reset Portd.7 : Fv = 0
    End Select
    Locate 2 , 22
    Return
    '------------------------------------------------------------------------------- DESIGN BY A.N.T
    '-------------------------------------------------------------------------------
    Cc:
         F = 2 : Ft = 0
    Do
         Debounce Pind.0 , 1 , Mm
         Debounce Pind.1 , 1 , Cc1
         Debounce Pind.2 , 1 , Cc2
    Loop
    '-------------------------------------------------------------------------------
    Cc1:
         Incr Cc : If Cc > 23 Then Cc = 0
          Gosub Showcc
         For T = 0 To Tt
          If Pind.1 = 0 Then Goto Cc
          Waitms 4
         Next
         Ft = 1
         Do
          Gosub Showcc
          For T = 0 To Tt
            If Pind.1 = 0 Then Goto Cc
            Waitms 1
          Next
          Incr Cc : If Cc > 23 Then Cc = 0
          Gosub Showcc
         Loop
    '-------------------------------------------------------------------------------
    Cc2:
         Decr Cc : If Cc > 23 Then Cc = 23
          Gosub Showcc
         For T = 0 To Tt
          If Pind.2 = 0 Then Goto Cc
          Waitms 4
         Next
         Ft = 1
         Do
          Gosub Showcc
          For T = 0 To Tt
            If Pind.2 = 0 Then Goto Cc
            Waitms 1
          Next
          Decr Cc : If Cc > 23 Then Cc = 23
          Gosub Showcc
         Loop
    '------------------------------------------------------------------------------- DESIGN BY A.N.T
    '-------------------------------------------------------------------------------
    Mm:
         F = 3 : Ecc = Cc : Ft = 0 : Gosub Showcc
    Do
         Debounce Pind.0 , 1 , Ss
         Debounce Pind.1 , 1 , Mm1
         Debounce Pind.2 , 1 , Mm2
    Loop
    '-------------------------------------------------------------------------------
    Mm1:
         Incr Mm : If Mm > 59 Then Mm = 0
          Gosub Showmm
         For T = 0 To Tt
          If Pind.1 = 0 Then Goto Mm
          Waitms 4
         Next
         Ft = 1
         Do
          Gosub Showmm
          For T = 0 To Tt
            If Pind.1 = 0 Then Goto Mm
            Waitms 1
          Next
          Incr Mm : If Mm > 59 Then Mm = 0
          Gosub Showmm
         Loop
    '-------------------------------------------------------------------------------
    Mm2:
         Decr Mm : If Mm > 59 Then Mm = 59
          Gosub Showmm
         For T = 0 To Tt
          If Pind.2 = 0 Then Goto Mm
          Waitms 4
         Next
         Ft = 1
         Do
          Gosub Showmm
          For T = 0 To Tt
            If Pind.2 = 0 Then Goto Mm
            Waitms 1
          Next
          Decr Mm : If Mm > 59 Then Mm = 59
          Gosub Showmm
         Loop
    '-------------------------------------------------------------------------------
    Ss:
         Ft = 0 : F = 4 : Emm = Mm : Gosub Showmm : Gosub Showss
    Do
         Debounce Pind.0 , 1 , Star
         Debounce Pind.1 , 1 , Ss1
         Debounce Pind.2 , 1 , Ss2
    Loop
    '-------------------------------------------------------------------------------
    Ss1:
          Timer2 = 0 : B = 0
          If Ss > 29 Then : Mm = Mm + 1
          End If
          If Mm = 60 Then : Mm = 0 : Incr Cc
          End If
          If Cc = 24 Then Cc = 0
          Ss = 0 : Goto Ss
    '-------------------------------------------------------------------------------
    Ss2:
          Timer2 = 0 : Ss = 0 : B = 0 : Goto Ss
    '-------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------
    
    Onlcd:
      Gosub Showcc : Gosub Showmm : Gosub Showss : Gosub Showa : Gosub Showi
    Return
    '-------------------------------------------------------------------------------
    Offlcd:
         If Ft = 1 Then Return
         If F = 0 Then : Return
         Else :
          If F = 2 Then : Home : Lcd " "
          Elseif F = 3 Then : Locate 1 , 4 : Lcd " "
          Else :
            If F = 4 Then : Locate 1 , 7 : Lcd " "
            End If
          End If
         End If
    Return
    '------------------------------------------------------------------------------- DESIGN BY A.N.T
    '-------------------------------------------------------------------------------
    Showa:
      Locate 1 , 12
      If A < 10 Then : Lcd " " ; A ; Chr(0) ; "  "
      Else : Lcd A ; Chr(0) ; "  "
      End If
    Return
    '-------------------------------------------------------------------------------
    Showcc:
      Home
      If Cc < 10 Then : Lcd " " ; Cc
      Else : Lcd Cc
      End If
      Lcd ":"
    Return
    '-------------------------------------------------------------------------------
    Showmm:
      Locate 1 , 4
      If Mm < 10 Then : Lcd "0" ; Mm
      Else : Lcd Mm
      End If
      Lcd ":"
    Return
    '-------------------------------------------------------------------------------
    Showss:
      Locate 1 , 7
      If Ss < 10 Then : Lcd "0" ; Ss
      Else : Lcd Ss
      End If
      Lcd " "
    Return
    '------------------------------------------------------------------------------- DESIGN BY A.N.T
    Showi:
      Home L : Lcd V ; "v  "
      Locate 2 , 10 : Lcd I ; " A   "
    Return
    اينم لينك دانلود نتوسنستم توي انجمن پ كنم
    http://s07.uploadfa.com/files/5/29h23g0afmw30v/V%20&%20A%20-%20A.N.zip
    لینک دانلود کار نمیکنه
    مخترع برتر شمال غرب سال 96
    مخترع ویلچیر هوشمند کنترل شونده توسط ذهن
    مدیر سابق منابع تغذیه انجمن ECA

صفحه 2 از 2 نخست 12
نمایش نتایج: از 11 به 15 از 15

موضوعات مشابه

  1. آمپرمتر AC با AVr
    توسط iman4web در انجمن میکروکنترلرهای AVR
    پاسخ: 18
    آخرين نوشته: 2019/11/02, 19:51
  2. آمپرمتر
    توسط shadi1366 در انجمن ابزار دقیق
    پاسخ: 0
    آخرين نوشته: 2011/07/06, 11:06
  3. آمپرسنج يا آمپرمتر
    توسط Challenger_69 در انجمن مفاهیم پایه برق و الکترونیک
    پاسخ: 3
    آخرين نوشته: 2010/03/31, 10:45
  4. آمپرمتر
    توسط masoodhashemy در انجمن میکروکنترلرهای AVR
    پاسخ: 7
    آخرين نوشته: 2010/01/06, 19:10
  5. آمپرمتر ديجيتال
    توسط sagheli در انجمن تاسيسات الكتريكي
    پاسخ: 0
    آخرين نوشته: 2009/11/21, 15:37

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •