10-11-2011, 05:41 PM | #1 |
Nhập môn đệ tử
Tham gia ngày: Apr 2011
Bài gửi: 7
: |
Các bác cho em hỏi mã code này cái ạ?
Em không chuyên về điện tự, nhặt nhạnh trên mạng được dòng code này, Không biết có phải là matlab không ạ:
delay 200 miliseconds Set Comparator Mode 7 variable byte f = 00000000b ; Output data variable byte s ; Temporal variable variable byte o ; message number. procedure salida( s as byte ) is gpio = s delay 500 us gpio = 00000000b delay 200 us end procedure procedure disp ( f as byte ) is if f = "0" then f = "O" if f = "A" then salida(0011_0110) salida(0000_0101) salida(0000_0101) salida(0011_0110) end if if f = "B" then salida(0011_0111) salida(0010_0101) salida(0010_0101) salida(0001_0010) end if if f = "C" then salida(0001_0110) salida(0010_0001) salida(0010_0001) salida(0010_0001) end if if f = "D" then salida(0011_0111) salida(0010_0001) salida(0010_0001) salida(0001_0110) end if if f = "E" then salida(0011_0111) salida(0010_0101) salida(0010_0101) salida(0010_0001) end if if f = "F" then salida(0011_0111) salida(0000_0101) salida(0000_0101) salida(0000_0001) end if if f = "G" then salida(0001_0110) salida(0010_0001) salida(0010_0101) salida(0011_0101) end if if f = "H" then salida(0011_0111) salida(0000_0100) salida(0000_0100) salida(0011_0111) end if if f = "I" then salida(0010_0001) salida(0011_0111) salida(0010_0001) end if if f = "J" then salida(0001_0000) salida(0010_0000) salida(0010_0000) salida(0001_0111) end if if f = "K" then salida(0011_0111) salida(0000_0100) salida(0001_0010) salida(0010_0001) end if if f = "L" then salida(0011_0111) salida(0010_0000) salida(0010_0000) salida(0010_0000) end if if f = "M" then salida(0011_0111) salida(0000_0010) salida(0000_0100) salida(0000_0010) salida(0011_1111) end if if f = "N" then salida(0011_0111) salida(0000_0010) salida(0000_0100) salida(0001_0000) salida(0011_0111) end if if f = "O" then salida(0001_0110) salida(0010_0001) salida(0010_0001) salida(0001_0110) end if if f = "P" then salida(0011_0111) salida(0000_0101) salida(0000_0101) salida(0000_0010) end if if f = "Q" then salida(0001_0110) salida(0010_0001) salida(0011_0001) salida(0011_0110) end if if f = "R" then salida(0011_0111) salida(0000_0101) salida(0000_0101) salida(0011_0010) end if if f = "S" then salida(0010_0010) salida(0010_0101) salida(0010_0101) salida(0001_0001) end if if f = "T" then salida(0000_0001) salida(0011_0111) salida(0000_0001) end if if f = "U" then salida(0001_0111) salida(0010_0000) salida(0010_0000) salida(0001_0111) end if if f = "V" then salida(0000_0111) salida(0001_0000) salida(0010_0000) salida(0001_0000) salida(0000_0111) end if if f = "W" then salida(0011_0111) salida(0001_0000) salida(0000_0100) salida(0001_0000) salida(0011_0111) end if if f = "X" then salida(0010_0001) salida(0001_0010) salida(0000_0100) salida(0001_0010) salida(0010_0001) end if if f = "Y" then salida(0000_0001) salida(0000_0010) salida(0011_0100) salida(0000_0010) salida(0000_0001) end if if f = "Z" then salida(0011_0001) salida(0010_0101) salida(0010_0101) salida(0010_0011) end if if f = "1" then salida(0010_0001) salida(0011_0111) salida(0010_0000) end if if f = "h" then ; 'h' lowercase = Hearth character salida(0000_0010) salida(0000_0111) salida(0001_0111) salida(0011_0110) salida(0001_0111) salida(0000_0111) salida(0000_0010) end if if f = "!" then salida(0000_0000) salida(0010_0111) salida(0000_0000) end if if f = "'" then salida(0000_0011) end if if f = "." then salida(0010_0000) end if if f = "o" then ; 'o' Lowecase salida(0001_0000) salida(0010_0100) salida(0010_0100) salida(0001_0000) end if if f = " " then ; space character. delay 4 miliseconds end if delay 1 milisecond end procedure ; main program gpio = all output if o = 0 then ; Display "QUYNH ANH " o = o + 1 forever loop disp("Q") disp("U") disp("y") disp("N") disp("H") disp(" ") disp("A") disp("N") disp("H") isp(" ") disp(" ") disp(" ") end loop end if if o = 1 then ; Display "BRAVO " o = o + 1 forever loop disp("B") disp("R") disp("A") disp("V") disp("O") disp(" ") disp(" ") disp(" ") end loop end if if o = 2 then ; Display "GO TEAM GO! " o = o + 1 forever loop disp("G") disp("O") disp(" ") disp("T") disp("E") disp("A") disp("M") disp(" ") disp(" ") end loop end if if o = 3 then ; Display "GOOD BYE " o = o + 1 forever loop disp("G") disp("O") disp("O") disp("D") disp(" ") disp("B") disp("Y") disp("E") disp(" ") disp(" ") end loop end if if o = 4 then ; Display "HAPPY BIRTHDAY " o = o + 1 forever loop disp("H") disp("A") disp("P") disp("P") disp("Y") disp(" ") disp("B") disp("I") disp("R") disp("T") disp("H") disp("D") disp("A") disp("Y") disp(" ") disp(" ") end loop end if if o = 5 then ; Display "HAPPY NEW YEAR " o = o + 1 forever loop disp("H") disp("A") disp("P") disp("P") disp("Y") disp(" ") disp("N") disp("E") disp("W") disp(" ") disp("Y") disp("E") disp("A") disp("R") disp(" ") disp(" ") end loop end if if o = 6 then ; Display "HELP ME " o = o + 1 forever loop disp("H") disp("E") disp("L") disp("P") disp(" ") disp("M") disp("E") disp(" ") disp(" ") end loop end if if o = 7 then ; Display "I h YOU " o = o + 1 forever loop disp("I") disp(" ") disp("h") disp(" ") disp("Y") disp("O") disp("U") disp(" ") disp(" ") disp(" ") end loop end if if o = 8 then ; Display "I h AMERICA " o = o + 1 forever loop disp("I") disp(" ") disp("h") disp(" ") disp("A") disp("M") disp("E") disp("R") disp("I") disp("C") disp("A") disp(" ") disp(" ") end loop end if if o = 9 then ; Display "LET'S PARTY! " o = o + 1 forever loop disp("L") disp("E") disp("T") disp("'") disp("S") disp(" ") disp("P") disp("A") disp("R") disp("T") disp("Y") disp("!") disp(" ") disp(" ") end loop end if if o = 10 then ; Display "MERRY X'MAS " o = o + 1 forever loop disp("M") disp("E") disp("R") disp("R") disp("Y") disp(" ") disp("X") disp("'") disp("M") disp("A") disp("S") disp(" ") disp(" ") end loop end if if o = 11 then ; Display "SCORE! " o = o + 1 forever loop disp("S") disp("C") disp("O") disp("R") disp("E") disp("!") disp(" ") disp(" ") end loop end if if o = 12 then ; Display "SMILE " o = o + 1 forever loop disp("S") disp("M") disp("I") disp("L") disp("E") disp(" ") disp(" ") end loop end if if o = 13 then ; Display "TRICK OR TREAT " o = o + 1 forever loop disp("T") disp("R") disp("I") disp("C") disp("K") disp(" ") disp("O") disp("R") disp(" ") disp("T") disp("R") disp("E") disp("A") disp("T") disp(" ") disp(" ") end loop end if if o = 14 then ; Display "HURRA! " o = o + 1 forever loop disp("H") disp("U") disp("R") disp("R") disp("A") disp("!") disp(" ") disp(" ") end loop end if o = 0 salida(0000_0000) sleep microcontroller ; sleep command nop ; No operation Giờ em muốn chuyển sang ngôn ngữ file *.C . Bác nào chuyển giúp em với. Em cảm ơn nhiều ạ. |
|
|