SHARE
TWEET

Untitled

a guest Mar 16th, 2017 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
Top