Mikro basic

**minhtienbk** · 27-01-2006, 12:14 AM

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.

**loctran** · 11-11-2009, 08:25 PM

Ma trận của bạn tắt hết hay sáng hết???

27-01-2006, 12:14 AM	#1
minhtienbk Đệ tử 5 túi Tham gia ngày: Dec 2005 Bài gửi: 120 :	Mikro basic 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. __________________ Mạch - remote điều khiển từ xa qua RF 30m ,300m ,500m,1000m,... (đã test ) ,loại công suất lớn , loại cực nhỏ .... , rẻ ,giao hàng nhanh chóng toàn quốc (3 ngày), thâm niên 3 năm mua bán mạch RF 09 8485.bảy bảy.11 bán linh kiện ,MCU ARM , kit , dụng cụ , mạch www.nhattaoonline.com Hỗ trợ kỹ thuật đầy đủ. Tài liệu đầy đủ.

Similar Threads
Ðề tài	Người gửi	Chuyên mục	Trả lời	Bài mới
PIC Mikro C	txt	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	20	02-04-2009 02:02 AM
Ngôn ngữ Basic cho PIC	thaychua	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	10	10-10-2007 08:49 PM
Lập trình cho PIC bằng BASIC	phamgiaquang	Tổ dịch thuật	11	10-10-2007 07:51 PM
Gặp vấn đề về Mikro Basic	TTL	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	5	09-08-2006 07:07 PM
Lập trình với ngôn ngử Basic	TTL	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	22	19-06-2006 05:57 PM

11-11-2009, 08:25 PM	#2
loctran Đệ tử 2 túi Tham gia ngày: Oct 2009 Bài gửi: 26 :	Ma trận của bạn tắt hết hay sáng hết???