B4R Tutorial IR Control for DSTV Explora Model 2A

This is a sample project for the IR control of the DSTV Explora Model 2A decoder (Digital Satellite TV). The hex codes comes from the B4A project that I have posted here. The B4A project is for Android devices that support an IR Blaster.

The attached B4R project just cycles through Volume Up, Volume Down, Channel Up, and Channel Down making use of a timer.

The hex codes for other control of the decoder is commented at the bottom of the attached B4R project. Sure you will figure out how to add the other "string" hex codes to additional UInt arrays....
The project converts the array of hex codes to an array of Raw Codes (UInt) and passes it to the inline C code. The inline C code uses @Erel's rIRremote library to transmit the raw codes.

You need, other than library rCore, library rIRremote to be enabled in the libs tab of the B4R IDE.

The attached project controls the Volume Up, Volume Down, Channel Up, and Channel Down of my DSTV decoder perfectly.

The IR control of the aircons in my house is next on my list....making 1 control that can control all IR devices in the house.

You need to use pin 3. It seems that the library is hard coded that way.

'Uno Pin 3 to IR transmitter module "S" via 100ohm resistor
'Uno 5V to IR transmitter module Vcc
'Uno GND to IR Transmitter module "-"
#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 300
#End Region

Sub Process_Globals
    Public Serial1 As Serial
    Private timer1 As Timer
   
    Dim VolUp() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0097, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DE)
    Dim VolDown() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DF)
    Dim ProgUp() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DD)
    Dim ProgDown() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012E, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DF)

    Dim freq As UInt
    Dim data(68) As UInt
    Dim flag As Byte = 0

End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")

    timer1.Initialize("timer1_Tick", 6000)
    timer1.Enabled = True
   
End Sub

Sub Timer1_Tick
   
    freq = 1000000/(VolUp(1)*0.241246)/1000
    Dim timing As Float = 1/freq*1000
   
    If flag = 0 Then  
        For i = 4 To VolUp.Length - 2
            data(i-4) = VolUp(i) * timing
        Next
        RunNative("send_code", data)
        flag = flag + 1  
    else if flag = 1 Then
        For i = 4 To VolDown.Length - 2
            data(i-4) = VolDown(i) * timing
        Next
        RunNative("send_code", data)
        flag = flag + 1
    else if flag = 2 Then
        For i = 4 To ProgUp.Length - 2
            data(i-4) = ProgUp(i) * timing
        Next
        RunNative("send_code", data)
        flag = flag + 1
    else if flag = 3 Then
        For i = 4 To ProgDown.Length - 2
            data(i-4) = ProgDown(i) * timing
        Next
        RunNative("send_code", data)
        flag = flag + 1
    Else
        flag = 0
    End If
   
End Sub

#If C

    IRsend irsend;

    void send_code(B4R::Object* o){
        B4R::Array* b = (B4R::Array*)B4R::Object::toPointer(o);
        UInt* c = (UInt*)b->data;
        irsend.sendRaw(c, 68, b4r_main::_freq);
    }

#End If

'     Dim zero As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim one As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim two As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim three As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim four As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim five As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim six As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim seven As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim eight As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim nine As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DC"
'    Dim ProgUp As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DD"
'    Dim ProgDown As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim VolUp As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim VolDown As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim pwr As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim OK As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim TV As String = "0000 006D 0000 0022 0130 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim alt As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim TVguide As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim arc As String = "0000 006D 0022 0000 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 5F04"
'    Dim catchup As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim info As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim ex As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim mute As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim help As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim options As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim DS As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim playlist As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim boxoffice As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim play As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim stp As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim rewind As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim fastforward As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim record As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DD"
'    Dim up As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim down As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim left As String = "0000 006E 0000 0022 012D 0096 0013 0013 0013 0038 0013 0038 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0013 0013 05D1"
'    Dim right As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim search As String = "0000 006E 0000 0022 012C 0096 0013 0013 0013 0038 0013 0038 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05D1"

 

[Johan Schoeman]

Added some buttons to control Volume Up, Volume Down, Channel Up, and Channel Down.

'Uno Pin 3 to IR transmitter module "S" via 100ohm resistor
'Uno 5V to IR transmitter module Vcc
'Uno GND to IR Transmitter module "-"
#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 300
#End Region

Sub Process_Globals
    Public Serial1 As Serial
    
    Dim VolUp() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0097, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DE)
    Dim VolDown() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DF)
    Dim ProgUp() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012F, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DD)
    Dim ProgDown() As UInt = Array As UInt(0x0000, 0x006D, 0x0000, 0x0022, 0x012E, 0x0098, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0039, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x0013, 0x05DF)

    Dim pa0, pa1, pa2, pa3 As Pin

    Dim freq As UInt
    Dim timing As Float
    Dim data(68) As UInt

End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    
    freq = 1000000/(VolUp(1)*0.241246)/1000
    timing = 1/freq*1000
    
    pa0.Initialize(pa0.A0, pa0.MODE_INPUT_PULLUP)
    pa0.AddListener("pa0_StateChanged")

    pa1.Initialize(pa1.A1, pa1.MODE_INPUT_PULLUP)
    pa1.AddListener("pa1_StateChanged")
    
    pa2.Initialize(pa2.A2, pa2.MODE_INPUT_PULLUP)
    pa2.AddListener("pa2_StateChanged")
    
    pa3.Initialize(pa3.A3, pa3.MODE_INPUT_PULLUP)
    pa3.AddListener("pa3_StateChanged")
    
End Sub

Sub pa0_StateChanged
    
    If pa0.DigitalRead = False Then
        For i = 4 To ProgUp.Length - 2
            data(i-4) = ProgUp(i) * timing
        Next
        RunNative("send_code", data)
        
    End If

End Sub

Sub pa1_StateChanged
    
    If pa1.DigitalRead = False Then
        For i = 4 To ProgDown.Length - 2
            data(i-4) = ProgDown(i) * timing
        Next
        RunNative("send_code", data)
        
    End If

End Sub

Sub pa2_StateChanged
    
    If pa2.DigitalRead = False Then
        For i = 4 To VolUp.Length - 2
            data(i-4) = VolUp(i) * timing
        Next
        RunNative("send_code", data)
        
    End If

End Sub

Sub pa3_StateChanged
    
    If pa3.DigitalRead = False Then
        For i = 4 To VolDown.Length - 2
            data(i-4) = VolDown(i) * timing
        Next
        RunNative("send_code", data)
        
    End If

End Sub

#If C

    IRsend irsend; 

    void send_code(B4R::Object* o){
        B4R::Array* b = (B4R::Array*)B4R::Object::toPointer(o);
        UInt* c = (UInt*)b->data;
        irsend.sendRaw(c, 68, b4r_main::_freq);
    }

#End If

'     Dim zero As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim one As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim two As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim three As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim four As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim five As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim six As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim seven As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim eight As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim nine As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DC"
'    Dim ProgUp As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DD"
'    Dim ProgDown As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim VolUp As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim VolDown As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim pwr As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim OK As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim TV As String = "0000 006D 0000 0022 0130 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim alt As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim TVguide As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim arc As String = "0000 006D 0022 0000 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 5F04"
'    Dim catchup As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim info As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim ex As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim mute As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim help As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim options As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim DS As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DE"
'    Dim playlist As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim boxoffice As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim play As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim stp As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim rewind As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim fastforward As String = "0000 006D 0000 0022 012E 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim record As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DD"
'    Dim up As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim down As String = "0000 006D 0000 0022 012F 0098 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim left As String = "0000 006E 0000 0022 012D 0096 0013 0013 0013 0038 0013 0038 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0013 0013 05D1"
'    Dim right As String = "0000 006D 0000 0022 012F 0097 0013 0013 0013 0039 0013 0039 0013 0013 0013 0039 0013 0039 0013 0039 0013 0039 0013 0039 0013 0013 0013 0013 0013 0039 0013 0013 0013 0013 0013 0039 0013 0039 0013 0039 0013 0013 0013 0039 0013 0013 0013 0039 0013 0039 0013 0013 0013 0013 0013 0013 0013 0039 0013 0013 0013 0039 0013 0013 0013 0013 0013 0013 0013 0013 0013 05DF"
'    Dim search As String = "0000 006E 0000 0022 012C 0096 0013 0013 0013 0038 0013 0038 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0038 0013 0038 0013 0013 0013 0013 0013 0038 0013 0038 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 0013 05D1"