ايران ويج

صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

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

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

سلام

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

سلام

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

مگا هشت خودش به تنهایی با یه خازن 1000 میکرو هم کلی بیدار میمونه Biggrin

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

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

قضیه فرق کرد Biggrin

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

hmt: 12 mA

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

کد: 
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

(۰۹-آبان-۱۳۹۳, ۱۱:۴۴:۱۳)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

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

خب آره

عجیبه. مگه باید پشت دستور 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

رسول

Ambassador

Ambassador

a.mehran

Ambassador

a.mehran

a.mehran

Ambassador

a.mehran

Ambassador

Ambassador