Mikro basic

[minhtienbk]

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





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.