B4R Tutorial IR Control for DSTV Explora Model 2A

Discussion in 'B4R Tutorials' started by Johan Schoeman, Jun 15, 2019.

  1. Johan Schoeman

    Johan Schoeman Expert Licensed User

    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.



    DSTVexplora_bb.png


    Code:
    '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(0x00000x006D0x00000x00220x012F0x00970x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DE)
        
    Dim VolDown() As UInt = Array As UInt(0x00000x006D0x00000x00220x012F0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DF)
        
    Dim ProgUp() As UInt = Array As UInt(0x00000x006D0x00000x00220x012F0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DD)
        
    Dim ProgDown() As UInt = Array As UInt(0x00000x006D0x00000x00220x012E0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DF)

        
    Dim freq As UInt
        
    Dim data(68As 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"
     

    Attached Files:

    Last edited: Jun 15, 2019
    Erel, janderkan, inakigarm and 2 others like this.
  2. Johan Schoeman

    Johan Schoeman Expert Licensed User

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

    DSTVexplora_bb.png

    Code:
    '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(0x00000x006D0x00000x00220x012F0x00970x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DE)
        
    Dim VolDown() As UInt = Array As UInt(0x00000x006D0x00000x00220x012F0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DF)
        
    Dim ProgUp() As UInt = Array As UInt(0x00000x006D0x00000x00220x012F0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DD)
        
    Dim ProgDown() As UInt = Array As UInt(0x00000x006D0x00000x00220x012E0x00980x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00390x00130x00390x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00390x00130x00130x00130x00390x00130x00390x00130x00130x00130x00390x00130x00390x00130x00390x00130x00130x00130x00390x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x00130x05DF)

        
    Dim pa0, pa1, pa2, pa3 As Pin

        
    Dim freq As UInt
        
    Dim timing As Float
        
    Dim data(68As 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"
     

    Attached Files:

    Johan Hormaza likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice