چت باکس علمی ایران ویج

[رسول]

منظورت تایمرهای صنعتی هستش؟

عکس بذار ببینیم کدوما رو میگی ..

[Ambassador]

سلام

نمونه های مختلفی دارن قرار شد یه مدل بزنم براش.ممنون

[Ambassador]

سلام

بنظرتون یه باتری کتابی نه ولتی معمولی چندوقت میتونه یه مگا 8 رو روشن نگه داره؟

[a.mehran]

مگا هشت خودش به تنهایی با یه خازن 1000 میکرو هم کلی بیدار میمونه
اما خب شما منظورتون چیه ؟ تنها خود میکرو ؟ یا مدار دیگه هم بش وصله؟

[Ambassador]

مدارش یه hmt داره و یه مگا8 یه میکروسویچ.همین

[a.mehran]

قضیه فرق کرد
میگم اگه امتحان کنی راحت تره !
به این باتری کتابیا اعتمادی نیست

[a.mehran]

hmt: 12 mA

[Ambassador]

سلام بنظرتون چرا برنامم تواین تیکه از کد گیر میگنه.

کد:

Inputbin C1
C2 = C1
Waitms T1
Inputbin C1
If C1 = C2 Then
  C2 = C1
  Waitms T1
  Inputbin C1
  If C1 = C2 Then
   C2 = C1
   Waitms T1
   Inputbin C1
   If C1 = C2 Then
    Portd.7 = 1
   End If
  End If
End If

[a.mehran]

سلام بنظرتون چرا برنامم تواین تیکه از کد گیر میگنه.

کد:

Inputbin C1
C2 = C1
Waitms T1
Inputbin C1
If C1 = C2 Then
  C2 = C1
  Waitms T1
  Inputbin C1
  If C1 = C2 Then
   C2 = C1
   Waitms T1
   Inputbin C1
   If C1 = C2 Then
    Portd.7 = 1
   End If
  End If
End If

end if باید سه تا باشه؟

[Ambassador]

خب آره

[Ambassador]

عجیبه. مگه باید پشت دستور input بمونه؟!
شاید بسکام قاطی کرده

کد:

$regfile = "m8def.dat"
$crystal = 1000000
'Config Timer2 = Timer , Async = On , Prescale = 128

Dim Sum As Byte , C1 As Byte , C2 As Byte , T1 As Byte , Rec1 As Byte
Dim Seg1(10) As Byte , Mod1 As Byte , Div1 As Byte , Sec1 As Word , Chan1 As Word
Dim I As Byte
Config Portb = Output
Config Portd.7 = Output
Config Portd.6 = Output
Config Portd.5 = Output

'Enable Interrupts
'Enable Ovf2
'On Timer2 Saneye


Seg1(1) = &H3F
Seg1(2) = &H06
Seg1(3) = &H5B
Seg1(4) = &H4F
Seg1(5) = &H66
Seg1(6) = &H6D
Seg1(7) = &H7D
Seg1(8) = &H07
Seg1(9) = &H7F
Seg1(10) = &H6F
Sum = 0
T1 = 5
C2 = 0
Do

C1 = 213
Inputbin C1
Waitms T1
If C1 = 12 Then
  Rec1 = 1
End If


L1:
If Rec1 = 1 Then

  Mod1 = C1 Mod 10
  Div1 = C1 / 10

   Select Case Div1
            Case 1 :
            Sec1 = 0
            Chan1 = Mod1 * 1
              Portd.6 = 0
             Portd.7 = 1
             'Incr Chan1
             Portb = Seg1(mod1)
            Case 2 :
               Portd.7 = 0
                Portb = Seg1(mod1)
              Portd.6 = 1

    End Select
   Rec1 = 0
  End If
  'Waitms 300
      Portd.5 = 0
  If Pind.7 = 1 Then
   If Sec1 > Chan1 Then
    Portd.7 = 0
    Portd.5 = 1
    End If
   End If


   Waitms 300
   Incr Sec1
   Portd.5 = 1
   Waitms 300

   C1 = 125
   C2 = 215
Loop
End

'Saneye:
'Incr Sec1
'Portd.5 = 1
'Return