سلام خدمت تمامی عزیزان
دوستان من تازه با بسکام اشنا شدم در حال نوشتن یک برنامه هستم اما یه جا این برنامه گیر کردم
برنامه که می نویسم به این شکل
اول: هشت LEDروشن باشد
دوم:با 1 کردن هر یک از هشت کیلد برنامه مربوط به آن اجرا شود
سوم :وقتی دیگر کلید ها1 میشود برنامه آن ها به برنامه قبلی اضافه شود
چهارم :با 0 کردن همه کلید ها 8 LEDدوباره روشن بماند
مشکل من این که زمانی کلید PIND.0=0 ال ای دی ها باشد هشت روشن بشه نمیشه
ممنون از همه دوستان
دوستان من تازه با بسکام اشنا شدم در حال نوشتن یک برنامه هستم اما یه جا این برنامه گیر کردم
برنامه که می نویسم به این شکل
اول: هشت LEDروشن باشد
دوم:با 1 کردن هر یک از هشت کیلد برنامه مربوط به آن اجرا شود
سوم :وقتی دیگر کلید ها1 میشود برنامه آن ها به برنامه قبلی اضافه شود
چهارم :با 0 کردن همه کلید ها 8 LEDدوباره روشن بماند
مشکل من این که زمانی کلید PIND.0=0 ال ای دی ها باشد هشت روشن بشه نمیشه
ممنون از همه دوستان
کد:
$regfile = "m32def.dat" $crystal = 8000000 Config Portb = Output Config Portd = Input Dim I As Byte M: Do If Pind.0 = 1 Then Goto K Portb = &B11111111 Portb = &B11111111 Loop K: Do If Pind.0 = 1 Then Portb = &B11111111 For I = 1 To 5 Waitms 10 Next I Portb = &B00000000 For I = 1 To 5 Waitms 10 Next I End If If Pind.1 = 1 Then Goto H Loop H: Do For I = 1 To 5 If Pind.1 = 1 Then Portb = &B11111111 Waitms 100 Portb = &B00000000 Waitms 100 Next I End If For I = 1 To 5 If Pind.1 = 1 Then Portb = &B11110000 Waitms 100 Portb = &B00001111 Waitms 100 Next I End If If Pind.0 = 0 Or Pind.1 = 0 Then Goto M LOOP
دیدگاه