B4A Library IR Blaster - MultiChoice DSTV PVR Remote Control

So, if you have a device (such as my Samsung S4 Mini with Android OS KitKat) that supports an InfraRed Blaster and you are a subscriber to Multichoice's DSTV (with an enabled PVR) then you can use the attached project to control your DSTV PVR decoder. MultiChoice covers some of the African regions with its services.

I have added no designer code to position any of the buttons/images - you can do so if you want.

The attached library files wraps this Gitgub project with some modifications to it that comes from this pull request.

My Samsung S4 Mini controls my DSTV PVR decoder 100%. The kids can now break or lose the original remote - not a problem any longer.

Posting the following:
1. B4A sample project
2. B4A library files
3. LibRes.zip - download it, extract it, and the copy folder LibRes and it's contents to be on the same folder level as that of the /Files and /Objects folders of the B4A project.

Take note of the B4A Manifest file.
The library will add the following permission to the manifest:
B4X:
@Permissions(values={"android.permission.TRANSMIT_IR"})

Sample Code:
B4X:
#Region  Project Attributes
    #ApplicationLabel: b4aDSTV_Remote
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#AdditionalRes: ..\LibRes

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private dstv As DSTV_Remote_Embedded

    Private btnPower As ImageView
    Private btnVolumeUp As ImageView
    Private btnVolumeDown As ImageView
    Private btnChannelUp As ImageView
    Private btnChannelDown As ImageView
    Private btnMute As ImageView
    Private btnInfo As ImageView
    Private btnExit As ImageView
    Private btnZero As Button
    Private btnOne As Button
    Private btnTwo As Button
    Private btnThree As Button
    Private btnFour As Button
    Private btnFive As Button
    Private bntSix As Button
    Private btnSeven As Button
    Private btnEight As Button
    Private bntNine As Button
    Private btnTVGuide As Button
    Private btnOK As Button
    Private BtnAudio As Button
    Private btnLanguage As Button
    Private btnMenu As Button
    Private btnUp As Button
    Private btnDown As Button
    Private btnLeft As Button
    Private btnRight As Button
    Private btnTV As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
    dstv.Initialize("")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btnPower_Click

    dstv.SendCommand(0)

End Sub

Sub btnVolumeUp_Click

    dstv.SendCommand(1)

End Sub

Sub btnVolumeDown_Click

    dstv.SendCommand(2)

End Sub

Sub btnChannelUp_Click

    dstv.SendCommand(14)

End Sub

Sub btnChannelDown_Click

    dstv.SendCommand(15)

End Sub

Sub btnMute_Click

    dstv.SendCommand(4)

End Sub

Sub btnInfo_Click

    dstv.SendCommand(16)

End Sub

Sub btnExit_Click

    dstv.SendCommand(10)

End Sub

Sub btnZero_Click

    dstv.SendCommand(19)

End Sub

Sub btnOne_Click

    dstv.SendCommand(20)

End Sub

Sub btnTwo_Click

    dstv.SendCommand(21)

End Sub

Sub btnThree_Click

    dstv.SendCommand(22)

End Sub

Sub btnFour_Click

    dstv.SendCommand(23)

End Sub

Sub btnFive_Click

    dstv.SendCommand(24)

End Sub

Sub bntSix_Click

    dstv.SendCommand(25)

End Sub

Sub btnSeven_Click

    dstv.SendCommand(26)

End Sub

Sub btnEight_Click

    dstv.SendCommand(27)

End Sub

Sub bntNine_Click

    dstv.SendCommand(28)

End Sub

Sub btnTVGuide_Click

    dstv.SendCommand(29)

End Sub

Sub btnOK_Click

    dstv.SendCommand(30)

End Sub

Sub BtnAudio_Click

    dstv.SendCommand(31)

End Sub

Sub btnLanguage_Click

    dstv.SendCommand(32)

End Sub

Sub btnMenu_Click

    dstv.SendCommand(9)

End Sub

Sub btnUp_Click

    dstv.SendCommand(33)

End Sub

Sub btnDown_Click

    dstv.SendCommand(34)

End Sub

Sub btnLeft_Click

    dstv.SendCommand(35)

End Sub

Sub btnRight_Click

    dstv.SendCommand(36)

End Sub

Sub btnTV_Click

    dstv.SendCommand(37)

End Sub

Library:
DSTV_Remote
Author:
Github: Jordan (fishjord), Wrapped by: Johan Schoeman
Version: 1
  • DSTV_Remote_Embedded
    Methods:
    • Initialize (paramString As String)
    • SendCommand (id As Int)
    • updateSelectedManufacturer (manny As String)
    Permissions:
    • android.permission.TRANSMIT_IR


dstvremote.png


As long as what your device supports an IR blaster I am sure that the project can be modified / amended to support other appliances (such as air conditioners) by changing the code in remotes.xml that is located in the /LibRes/xml folder of the attached B4A project
 

Attachments

  • LibRes.zip
    20.6 KB · Views: 366
  • DSTV_RemoteLibFiles.zip
    22.2 KB · Views: 387
  • b4aDSTVRemote.zip
    79.7 KB · Views: 354
Last edited:

Johan Schoeman

Expert
Licensed User
Longtime User
This is an update for the Multichoice DSTV PVR decoder remote control. It wraps this Github project. The trick was to find the correct carrier frequency that seem to be 006D (hex) for the DSTV PVR. You will need:
1. a device that supports and IR blaster (such as a Samsung S4 Mini with OS KitKat)
2. The attached library files (copy them to your additional library folder)

You should be able to control any IR controlled appliance (TV, aircon, radio, dvd player, etc) provided that your device supports an IR blaster (such as the S4 mini with OS KitKat) and by replacing the Pronto Hex Codes in the attached B4A project (and change the layout accordingly)

The attached project allows you to for eg:
1. Select a pre-defined channel from the spinner
2. Power the appliance on/off
3. Mute the appliance (in this case the DSTV PVR)
4. Change the channels up/down
5. Change the Volume up/down
6. Change channels by entering the channel number
7. etc
8. etc

Take note of the B4A manifest file
Take note of the Pronto Hex Codes in the B4A project - this is what you need to change to control other appliances.

Example of Pronto Hex codes used in this project:
B4X:
    Dim zero As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 001D 0008 0022 0008 001D 0008 001D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 003D 0008 0047 0008 0022 0008 001D 0008 001D 0008 001D 0008 001D 0008 0C35"
    Dim one As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 005C 0008 001D 0008 0022 0008 001D 0008 0022 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0037 0008 0047 0008 0022 0008 001D 0008 0022 0008 001D 0008 001D 0008 0C35"
    Dim two As String = "0000 006D 0012 0012 0007 0023 0007 005D 0007 0023 0007 006D 0007 0033 0007 0033 0007 0033 0007 0043 0007 01EB 0007 0023 0007 005D 0007 001E 0007 0023 0007 001E 0007 0028 0007 001E 0007 001E 0007 0C55 0007 0023 0007 005D 0007 0023 0007 006D 0007 0033 0007 0033 0007 0033 0007 0043 0007 01EB 0007 0023 0007 0033 0007 0048 0007 0023 0007 001E 0007 0028 0007 001E 0007 001E 0007 0C55"
    Dim three As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 005C 0008 001D 0008 0022 0008 001D 0008 002D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 002D 0008 0047 0008 0022 0008 001D 0008 002D 0008 001D 0008 001D 0008 0C35"
    Dim four As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0052 0008 001D 0008 0022 0008 001D 0008 0032 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0028 0008 0047 0008 0022 0008 001D 0008 0032 0008 001D 0008 001D 0008 0C35"
    Dim five As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 004D 0008 001D 0008 0022 0008 001D 0008 0037 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0022 0008 0047 0008 0022 0008 001D 0008 0037 0008 001D 0008 001D 0008 0C35"
    Dim six As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0047 0008 001D 0008 0022 0008 001D 0008 003D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 001D 0008 0047 0008 0022 0008 001D 0008 003D 0008 001D 0008 001D 0008 0C35"
    Dim seven As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 001D 0008 0022 0008 001D 0008 0042 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 0047 0008 0022 0008 001D 0008 0042 0008 001D 0008 001D 0008 0C35"
    Dim eight As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 003D 0008 001D 0008 0022 0008 001D 0008 0047 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0068 0008 0047 0008 0022 0008 001D 0008 0047 0008 001D 0008 001D 0008 0C35"
    Dim nine As String = "0000 006D 0042 0009 0010 000d 0006 000d 0006 000d 0006 0016 0006 0019 0006 001b 0006 001e 0006 000a 0006 0436 0010 000d 0006 000a 0006 000d 0006 0019 0006 0019 0006 001b 0006 001e 0006 000a 0006 0436 0010 000a 0006 0019 0006 0019 0006 000a 0006 0016 0006 000a 0006 000d 0006 000d 0006 0436 0010 000a 0006 0016 0006 0019 0006 000d 0006 0016 0006 000a 0006 000d 0006 000d 0006 0436 0010 000a 0006 0019 0006 000d 0006 000a 0006 0016 0006 0016 0006 000d 0006 000d 0006 0436 0010 000a 0006 0016 0006 000d 0006 000d 0006 0016 0006 0016 0006 000d 0006 000d 0006 0436 0010 000a 0006 000d 0006 0019 0006 000a 0006 0016 0006 0016 0006 000d 0006 000d 0006 0436 0010 000a 0006 000a 0006 0019 0006 000d 0006 0016 0006 0016 0006 000d 0006 000d 0006 0436 0010 000a 0006 0019 0006 0016"
    Dim ProgUp As String = "0000 006D 0012 0012 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 001E 0008 001E 0008 0023 0008 0048 0008 003D 0008 001E 0008 001E 0008 0C55 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 0048 0008 0048 0008 0023 0008 0048 0008 003D 0008 001E 0008 001E 0008 0C55"
    Dim ProgDown As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0022 0008 001D 0008 0022 0008 0047 0008 0037 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 004C 0008 0047 0008 0022 0008 0047 0008 0037 0008 001D 0008 001D 0008 0C35"
    Dim VolUp As String = "0000 006D 0012 0012 0008 0022 0008 0059 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 002D 0008 001D 0008 0022 0008 0047 0008 002D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 0059 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0059 0008 0047 0008 0022 0008 0047 0008 002D 0008 001D 0008 001D 0008 0C35"
    Dim VolDown As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0028 0008 001D 0008 0022 0008 0047 0008 0032 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0052 0008 0047 0008 0022 0008 0047 0008 0032 0008 001D 0008 001D 0008 0C35"
    Dim pwr As String = "0000 006D 0012 0012 0007 0023 0007 005C 0007 0023 0007 006C 0007 0032 0007 0032 0007 0032 0007 0042 0007 01E6 0007 0023 0007 006C 0007 001E 0007 0023 0007 001E 0007 006C 0007 001E 0007 001E 0007 0C35 0007 0023 0007 005C 0007 0023 0007 006C 0007 0032 0007 0032 0007 0032 0007 0042 0007 01E6 0007 0023 0007 0042 0007 0047 0007 0023 0007 001E 0007 006C 0007 001E 0007 001E 0007 0C35"
    Dim OK As String = "0000 006D 0010 0024 000f 000e 0005 0011 0005 000b 0005 0016 0005 0019 0005 001c 0005 001f 0005 000b 0005 019a 000f 000e 0005 000e 0005 000b 0005 0019 0005 0019 0005 001c 0005 001f 0005 000b 0005 06bd 000f 000e 0005 0013 0005 0016 0005 000b 0005 000b 0005 000e 0005 000b 0005 000b 0005 01c5 000f 000e 0005 0011 0005 0016 0005 000e 0005 000b 0005 000e 0005 000b 0005 000b 0005 06bd 000f 000e 0005 001f 0005 000b 0005 000b 0005 000b 0005 000e 0005 000b 0005 000b 0005 01c5 000f 000e 0005 001c 0005 000b 0005 000e 0005 000b 0005 000e 0005 0016"
    Dim TV As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 004C 0008 001D 0008 0022 0008 0037 0008 001D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0022 0008 0047 0008 0022 0008 0037 0008 001D 0008 001D 0008 001D 0008 0C35"
    Dim Audio As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0022 0008 001D 0008 0022 0008 0037 0008 0047 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 004C 0008 0047 0008 0022 0008 0037 0008 0047 0008 001D 0008 001D 0008 0C35"
    Dim alt As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0047 0008 001D 0008 0022 0008 0037 0008 0022 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 001D 0008 0047 0008 0022 0008 0037 0008 0022 0008 001D 0008 001D 0008 0C35"
    Dim subtitle As String = "0000 006D 0012 0012 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 001E 0008 001E 0008 0023 0008 0038 0008 004D 0008 001E 0008 001E 0008 0C00 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 0048 0008 0048 0008 0023 0008 0038 0008 004D 0008 001E 0008 001E 0008 0C00"
    Dim TVguide As String = "0000 006D 0021 0024 0010 000d 0006 000d 0006 000d 0006 0016 0006 0019 0006 001c 0006 001e 0006 000a 0006 0420 0010 000d 0006 000a 0006 000d 0006 0019 0006 0019 0006 001c 0006 001e 0006 000a 0006 0420 0010 000d 0006 0016 0006 0019 0006 000a 0006 0016 0006 000a 0006 0016 0006 001e 0006 0420 0010 000d 0006 0013 0006 0019 0006 000d 0006 0016 0006 000a 0006 0016 0006 001e 0006 0420 0010 000d 0006 0016 0006 000d 0006 000a 0006 0016 0006 0016 0006 0016 0006 001e 0006 0420 0010 000d 0006 0013 0006 000d 0006 000d 0006 0016 0006 0016 0006 0016 0006 001e 0006 0420 0010 000d 0006 000a 0006 0019 0006 000a 0006 0016 0006 0016 0006 0016 0006 001e 0006 0420 0010 000a 0006 001e 0006 0019 0006 000d 0006 0016 0006 0016"
    Dim arc As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 001D 0008 0022 0008 0037 0008 0052 0008 001D 0008 001D 0008 0BE0 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 0047 0008 0022 0008 0037 0008 0052 0008 001D 0008 001D 0008 0BE0"
    Dim language As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 001D 0008 0022 0008 0037 0008 0028 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 0047 0008 0022 0008 0037 0008 0028 0008 001D 0008 001D 0008 0C35"
    Dim PG As String = "0000 006D 0012 0012 0008 0022 0008 005A 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 001D 0008 0022 0008 0037 0008 005A 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005A 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 003D 0008 0047 0008 0022 0008 0037 0008 005A 0008 001D 0008 001D 0008 0C35"
    Dim info As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 001D 0008 0022 0008 0047 0008 006C 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 0047 0008 0022 0008 0047 0008 006C 0008 001D 0008 001D 0008 0C35"
    Dim ex As String = "0000 006D 000c 0001 0010 000d 0005 0013 0005 0016 0005 000b 0005 000d 0005 000b 0005 000b 0005 000b 0005 01c5 0010 000d 0005 0010 0005 0016 0005 0016"
    Dim mute As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0028 0008 001D 0008 0022 0008 001D 0008 005C 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0052 0008 0047 0008 0022 0008 001D 0008 005C 0008 001D 0008 001D 0008 0C35"
    Dim menu As String = "0000 006D 0021 0024 0010 000d 0006 000d 0006 000d 0006 0016 0006 0019 0006 001c 0006 001e 0006 000a 0006 0420 0010 000d 0006 000a 0006 000d 0006 0019 0006 0019 0006 001c 0006 001e 0006 000a 0006 0420 0010 000d 0006 001c 0006 0019 0006 000a 0006 0016 0006 000a 0006 0016 0006 0019 0006 0420 0010 000d 0006 0019 0006 0019 0006 000d 0006 0016 0006 000a 0006 0016 0006 0019 0006 0420 0010 000d 0006 001c 0006 000d 0006 000a 0006 0016 0006 0016 0006 0016 0006 0019 0006 0420 0010 000d 0006 0019 0006 000d 0006 000d 0006 0016 0006 0016 0006 0016 0006 0019 0006 0420 0010 000d 0006 0010 0006 0019 0006 000a 0006 0016 0006 0016 0006 0016 0006 0019 0006 0420 0010 000d 0006 000d 0006 0019 0006 000d 0006 0016 0006 0016"
    Dim help As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 003D 0008 001D 0008 0022 0008 0037 0008 002D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0068 0008 0047 0008 0022 0008 0037 0008 002D 0008 001D 0008 001D 0008 0C35"
    Dim red As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0052 0008 001D 0008 0022 0008 0032 0008 001D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0028 0008 0047 0008 0022 0008 0032 0008 001D 0008 001D 0008 001D 0008 0C35"
    Dim blue As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 004C 0008 001D 0008 0022 0008 0032 0008 0022 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0022 0008 0047 0008 0022 0008 0032 0008 0022 0008 001D 0008 001D 0008 0C35"
    Dim white As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0047 0008 001D 0008 0022 0008 0032 0008 0028 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 001D 0008 0047 0008 0022 0008 0032 0008 0028 0008 001D 0008 001D 0008 0C35"
    Dim yellow As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 001D 0008 0022 0008 0032 0008 002D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 0047 0008 0022 0008 0032 0008 002D 0008 001D 0008 001D 0008 0C35"
    Dim green As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 003D 0008 001D 0008 0022 0008 0032 0008 0032 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 0068 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0068 0008 0047 0008 0022 0008 0032 0008 0032 0008 001D 0008 001D 0008 0C35"
    Dim play As String = "0000 006D 0012 0012 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 004D 0008 001E 0008 0023 0008 002D 0008 0028 0008 001E 0008 001E 0008 0C55 0008 0023 0008 005D 0008 0023 0008 006D 0008 0033 0008 0033 0008 0033 0008 0043 0008 01EB 0008 0023 0008 0023 0008 0048 0008 0023 0008 002D 0008 0028 0008 001E 0008 001E 0008 0C55"
    Dim stp As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 005C 0008 001D 0008 0022 0008 002D 0008 001D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 002D 0008 0047 0008 0022 0008 002D 0008 001D 0008 001D 0008 001D 0008 0C35"
    Dim rewind As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0052 0008 001D 0008 0022 0008 002D 0008 0022 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0028 0008 0047 0008 0022 0008 002D 0008 0022 0008 001D 0008 001D 0008 0C35"
    Dim fastforward As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0047 0008 001D 0008 0022 0008 002D 0008 002D 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 001D 0008 0047 0008 0022 0008 002D 0008 002D 0008 001D 0008 001D 0008 0C35"
    Dim record As String = "0000 006D 0012 0012 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 0042 0008 001D 0008 0022 0008 002D 0008 0032 0008 001D 0008 001D 0008 0C35 0008 0022 0008 005C 0008 0022 0008 006C 0008 0032 0008 0032 0008 0032 0008 0042 0008 01E6 0008 0022 0008 006C 0008 0047 0008 0022 0008 002D 0008 0032 0008 001D 0008 001D 0008 0C35"
    Dim up As String = "0000 006D 0010 0024 000f 000b 0005 001c 0005 0016 0005 0016 0005 0019 0005 001c 0005 001e 0005 000b 0005 0184 000f 000b 0005 0019 0005 0016 0005 0019 0005 0019 0005 001c 0005 001e 0005 000b 0005 06bd 000f 000d 0005 0016 0005 000b 0005 000b 0005 000b 0005 0016 0005 000b 0005 000b 0005 01c5 000f 000d 0005 0013 0005 000b 0005 000d 0005 000b 0005 0016 0005 000b 0005 000b 0005 06bd 000f 000d 0005 000b 0005 0016 0005 000b 0005 000b 0005 0016 0005 000b 0005 000b 0005 01c5 000f 000b 0005 001e 0005 0016 0005 000d 0005 000b 0005 0016 0005 0016"
    Dim down As String = "0000 006D 0041 0001 0010 000d 0005 000d 0005 0019 0005 000b 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 000b 0005 0019 0005 000d 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 0019 0005 000d 0005 000b 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 0016 0005 000d 0005 000d 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 000d 0005 0019 0005 000b 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 000b 0005 0019 0005 000d 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 0019 0005 000d 0005 000b 0005 000b 0005 000b 0005 0010 0005 000b 0005 0440 0010 000d 0005 0016 0005 0015"
    Dim left As String = "0000 006D 0010 0024 000f 000e 0005 0011 0005 000b 0005 0016 0005 0019 0005 001c 0005 001f 0005 000b 0005 019a 000f 000e 0005 000e 0005 000b 0005 0019 0005 0019 0005 001c 0005 001f 0005 000b 0005 06bd 000f 000e 0005 0011 0005 0016 0005 000b 0005 000b 0005 0011 0005 000b 0005 000b 0005 01c5 000f 000e 0005 000e 0005 0016 0005 000e 0005 000b 0005 0011 0005 000b 0005 000b 0005 06bd 000f 000e 0005 001c 0005 000b 0005 000b 0005 000b 0005 0011 0005 000b 0005 000b 0005 01c5 000f 000e 0005 0019 0005 000b 0005 000e 0005 000b 0005 0011 0005 0016"
    Dim right As String = "0000 006D 0010 0024 000f 000d 0005 000f 0005 000b 0005 0016 0005 0019 0005 001c 0005 001f 0005 000b 0005 019a 000f 000d 0005 000d 0005 000b 0005 0019 0005 0019 0005 001c 0005 001f 0005 000b 0005 06bd 000f 000d 0005 000b 0005 0016 0005 000b 0005 000b 0005 000b 0005 0016 0005 000b 0005 01c5 000f 000b 0005 001f 0005 0016 0005 000d 0005 000b 0005 000b 0005 0016 0005 000b 0005 06bd 000f 000d 0005 0016 0005 000b 0005 000b 0005 000b 0005 000b 0005 0016 0005 000b 0005 01c5 000f 000d 0005 0013 0005 000b 0005 000d 0005 000b 0005 000b 0005 0016"




1.png


2.png


It is working like a charm on my S4 Mini (OS KitKat)....
 

Attachments

  • AndroidInfraredLibFiles.zip
    14.5 KB · Views: 339
  • b4aDSTV_PVR-REMOTE.zip
    144.2 KB · Views: 345

An Schi

Well-Known Member
Licensed User
Where did you find the codes?
Some month ago i tried to do the same with another library (warwounds?), but i could not find the correct codes for my LG tv...
 

Johan Schoeman

Expert
Licensed User
Longtime User
Last edited:
Top