Mikro basic
:confused: doan na`y em viet ,no' dich success, nhung na.p ko dc (IC prog),các anh coi giu`m
hơi da`i à nghen,em đã từng dùng mikro basic viết code rồi,nạp dc ,cha.y ok nhung lần này nó ko cha.y ,sau đó nạp code khác cho nó (example code ),thì no' chạy,we^ luôn :mad: program CHUCMUNGNAMMOI DIM N AS BYTE DIM I AS BYTE sub function m(dim num as byte) as byte SELECT CASE NUM CASE 1 RESULT = %00011110 CASE 2 RESULT = %00100001 CASE 3 RESULT = %00100001 CASE 4 RESULT = %00010010 CASE 5 RESULT = %00000000 CASE 6 RESULT = %00111111 CASE 7 RESULT = %00001000 CASE 8 RESULT = %00001000 CASE 9 RESULT = %00111111 CASE 10 RESULT = %00000000 CASE 11 RESULT = %00111110 CASE 12 RESULT = %00000001 CASE 13 RESULT = %01000001 CASE 14 RESULT = %10111110 CASE 15 RESULT = %00000000 CASE 16 RESULT = %00011110 CASE 17 RESULT = %00100001 CASE 18 RESULT = %00100001 CASE 19 RESULT = %00010010 CASE 20 RESULT = %00000000 CASE 21 RESULT = %00000000 CASE 22 RESULT = %00000000 CASE 23 RESULT = %00111111 CASE 24 RESULT = %00010000 CASE 25 RESULT = %00001000 CASE 26 RESULT = %00010000 CASE 27 RESULT = %00111111 CASE 28 RESULT = %00000000 CASE 29 RESULT = %10111110 CASE 30 RESULT = %01000001 CASE 31 RESULT = %00000001 CASE 32 RESULT = %00111110 CASE 33 RESULT = %01000000 CASE 34 RESULT = %00000000 CASE 35 RESULT = %00111111 CASE 36 RESULT = %00010000 CASE 37 RESULT = %00001000 CASE 38 RESULT = %00111111 CASE 39 RESULT = %00000000 CASE 40 RESULT = %00011110 CASE 41 RESULT = %00100001 CASE 42 RESULT = %00100101 CASE 43 RESULT = %00011100 CASE 44 RESULT = %00000000 CASE 45 RESULT = %00000000 CASE 46 RESULT = %00000000 CASE 47 RESULT = %00111111 CASE 48 RESULT = %00010000 CASE 49 RESULT = %00001000 CASE 50 RESULT = %00111111 CASE 51 RESULT = %00000000 CASE 52 RESULT = %10011111 CASE 53 RESULT = %01100100 CASE 54 RESULT = %01100100 CASE 55 RESULT = %10011111 CASE 56 RESULT = %00000000 CASE 57 RESULT = %00111111 CASE 58 RESULT = %00010000 CASE 59 RESULT = %00001000 CASE 60 RESULT = %00010000 CASE 61 RESULT = %00111111 CASE 62 RESULT = %00000000 CASE 63 RESULT = %00000000 CASE 64 RESULT = %00000000 CASE 65 RESULT = %00111111 CASE 66 RESULT = %00010000 CASE 67 RESULT = %00001000 CASE 68 RESULT = %00010000 CASE 69 RESULT = %00111111 CASE 70 RESULT = %00000000 CASE 71 RESULT = %00011110 CASE 72 RESULT = %01100001 CASE 73 RESULT = %10100001 CASE 74 RESULT = %00111110 CASE 75 RESULT = %01000000 CASE 76 RESULT = %00000000 CASE 77 RESULT = %10111111 CASE 78 RESULT = %00000000 CASE 79 RESULT = %00000000 CASE 80 RESULT = %00000000 CASE 81 RESULT = %00000000 CASE 82 RESULT = %00000000 CASE 83 RESULT = %01000011 CASE 84 RESULT = %10000101 CASE 85 RESULT = %10001001 CASE 86 RESULT = %01010001 CASE 87 RESULT = %00100001 CASE 88 RESULT = %00000000 CASE 89 RESULT = %01111110 CASE 90 RESULT = %10000001 CASE 91 RESULT = %10000001 CASE 92 RESULT = %01111110 CASE 93 RESULT = %00000000 CASE 94 RESULT = %01111110 CASE 95 RESULT = %10000001 CASE 96 RESULT = %10000001 CASE 97 RESULT = %01111110 CASE 98 RESULT = %00000000 CASE 99 RESULT = %01111110 CASE 100 RESULT = %10001001 CASE 101 RESULT = %10001001 CASE 102 RESULT = %10001110 CASE 103 RESULT = %00000000 CASE 104 RESULT = %00000000 CASE 105 RESULT = %00000000 CASE 106 RESULT = %00000000 CASE 107 RESULT = %00000000 CASE 108 RESULT = %00000000 CASE 109 RESULT = %00000000 END SELECT END SUB MAIN: TRISB = 0 TRISD = 0 FOR N = 1 TO 102 PORTB = 128 FOR I = 1 TO 8 PORTD = m( I + N -1 ) DELAY_US(1500) PORTD = %00000000 PORTB = PORTB DIV 2 NEXT I NEXT N GOTO MAIN END. |
Ma trận của bạn tắt hết hay sáng hết???
|
Múi giờ GMT. Hiện tại là 04:46 PM. |
Tên diễn đàn: vBulletin Version 3.8.11
Được sáng lập bởi Đoàn Hiệp.
Copyright © PIC Vietnam