Advertisement
Guest User

Untitled

a guest
Mar 16th, 2017
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.75 KB | None | 0 0
  1. 'Static code module
  2. Sub Process_Globals
  3. Dim order As Map
  4. End Sub
  5.  
  6. Sub Initialize
  7. order.Initialize
  8. order.Put("310101","CH1")
  9. order.Put("310102","CH2")
  10. order.Put("310103","CH3")
  11. order.Put("310104","CH4")
  12. order.Put("310105","CH5")
  13. order.Put("310106","CH6")
  14. order.Put("310107","CH7")
  15. order.Put("310108","CH8")
  16. order.Put("310109","CH9")
  17. order.Put("310110","Power")
  18. order.Put("310111","TV OFF")
  19. order.Put("310112","Silence")
  20. order.Put("310113","Voice+")
  21. order.Put("310114","Voice-")
  22. order.Put("310115","CH+")
  23. order.Put("310116","CH-")
  24. order.Put("310117","Look back")
  25. order.Put("310118","-/")
  26. order.Put("310119","Menu")
  27. order.Put("310120","Up")
  28. order.Put("310121","Down")
  29. order.Put("310122","Left")
  30. order.Put("310123","Right")
  31. order.Put("310124","OK")
  32. order.Put("310125","Exit")
  33. order.Put("310126","TV/AV")
  34. order.Put("310127","Set")
  35. order.Put("310128","Like")
  36. order.Put("310129","Track")
  37. order.Put("310130","Sub")
  38. order.Put("310201","CH1")
  39. order.Put("310202","CH2")
  40. order.Put("310203","CH3")
  41. order.Put("310204","CH4")
  42. order.Put("310205","CH5")
  43. order.Put("310206","CH6")
  44. order.Put("310207","CH7")
  45. order.Put("310208","CH8")
  46. order.Put("310209","CH9")
  47. order.Put("310210","Power")
  48. order.Put("310211","Await")
  49. order.Put("310212","Silence")
  50. order.Put("310213","Voice+")
  51. order.Put("310214","Voice-")
  52. order.Put("310215","CH+")
  53. order.Put("310216","CH-")
  54. order.Put("310217","Back")
  55. order.Put("310218","-/")
  56. order.Put("310219","Menu")
  57. order.Put("310220","Up")
  58. order.Put("310221","Down")
  59. order.Put("310222","Left")
  60. order.Put("310223","Right")
  61. order.Put("310224","Confirm")
  62. order.Put("310225","Exit")
  63. order.Put("310226","Order")
  64. order.Put("310227","Set")
  65. order.Put("310228","Favorite")
  66. order.Put("310229","Track")
  67. order.Put("310230","TV/AV")
  68. order.Put("310231","Info")
  69. order.Put("310232","TV")
  70. order.Put("310233","Guide")
  71. order.Put("310234","VOD")
  72. order.Put("310235","Airing")
  73. order.Put("310236","Previous")
  74. order.Put("310237","Next")
  75. order.Put("310238","Rewind")
  76. order.Put("310239","Pause")
  77. order.Put("310240","FF")
  78. order.Put("310241","Home")
  79. order.Put("310242","Custom 1")
  80. order.Put("310243","Custom 2")
  81. order.Put("310244","Custom 3")
  82. order.Put("310245","Custom 4")
  83. order.Put("310246","Play")
  84. order.Put("311001","Dry")
  85. order.Put("311002","Fan")
  86. order.Put("311003","Heat")
  87. order.Put("311004","Power off")
  88. order.Put("311005","Low")
  89. order.Put("311006","Med")
  90. order.Put("311007","High")
  91. order.Put("311008","Auto")
  92. order.Put("311009","Swing")
  93. order.Put("311010","Direction")
  94. order.Put("311011","Power on")
  95. order.Put("311012","Auto")
  96. order.Put("330101","CH1")
  97. order.Put("330102","CH2")
  98. order.Put("330103","CH3")
  99. order.Put("330104","CH4")
  100. order.Put("330105","CH5")
  101. order.Put("330106","CH6")
  102. order.Put("330107","CH7")
  103. order.Put("330108","CH8")
  104. order.Put("330109","CH9")
  105. order.Put("330110","IN/OUT")
  106. order.Put("330111","Power")
  107. order.Put("330112","Mute")
  108. order.Put("330113","Vol+")
  109. order.Put("330114","Vol-")
  110. order.Put("330115","CH+")
  111. order.Put("330116","CH-")
  112. order.Put("330117","Back")
  113. order.Put("330118","-/")
  114. order.Put("330119","Menu")
  115. order.Put("330120","Up")
  116. order.Put("330121","Down")
  117. order.Put("330122","Left")
  118. order.Put("330123","Right")
  119. order.Put("330124","Confirm")
  120. order.Put("330125","Exit")
  121. order.Put("330126","TV/AV")
  122. order.Put("330127","Set")
  123. order.Put("330128","Favorite")
  124. order.Put("330129","Track")
  125. order.Put("330130","Subtitle")
  126. order.Put("330131","Standby")
  127. order.Put("330132","Language")
  128. order.Put("330133","Game")
  129. order.Put("330134","Clear")
  130. order.Put("330135","Search")
  131. order.Put("330136","Pause")
  132. order.Put("330137","Play")
  133. order.Put("330138","Slow-")
  134. order.Put("330139","Slow+")
  135. order.Put("330140","Rewind")
  136. order.Put("330141","FF")
  137. order.Put("330142","Custom 1")
  138. order.Put("330143","Custom 2")
  139. order.Put("330144","Custom 3")
  140. order.Put("330145","Custom 4")
  141. order.Put("340001","Power")
  142. order.Put("340002","Voice+")
  143. order.Put("340003","Voice-")
  144. order.Put("340004","Previous")
  145. order.Put("340005","Pause/Play")
  146. order.Put("340006","Next")
  147. order.Put("340007","Shuffle play")
  148. order.Put("340008","Loop Playback")
  149. order.Put("350001","Down")
  150. order.Put("350002","Left")
  151. order.Put("350003","Right")
  152. order.Put("350004","Confirm")
  153. order.Put("350005","Menu")
  154. order.Put("360001","Down")
  155. order.Put("360002","Left")
  156. order.Put("360003","Right")
  157. order.Put("360004","Confirm")
  158. order.Put("360005","Home")
  159. order.Put("360006","Menu")
  160. order.Put("360007","Back")
  161. order.Put("310100","CH0")
  162. order.Put("310200","CH0")
  163. order.Put("340000","Silence")
  164. order.Put("360000","Up")
  165. order.Put("330100","CH0")
  166. order.Put("350000","Up")
  167. order.Put("311000","Cool")
  168. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement