B4A Library MultiChoice IR controller for DSTV Explora

If you live is the Southern African region and have access to MultiChoice's DSTV channels and have a device that supports an IR blaster (such as my Samsung S4 mini) then you can control your DSTV Explora decoder with the attached project. I found the pronto hex codes for the MultiChoice DSTV Explora decoder here. I have posted a similar project somewhere else in this forum but it was for a different decoder (i.e requiring different pronto hex codes)

My Samsung S4 mini controls the MultiChoice DSTV Explora Decoder 100%

Posting the following:
1. B4A library files
2. B4A project for the DSTV Explora decoder

1.png


Hex Codes:
B4X: 
    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 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 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 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 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 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 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 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 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 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 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"
 

Attachments

  • AndroidInfraredLibFiles.zip
    14.5 KB · Views: 419
  • b4aDSTVExplora.zip
    145.8 KB · Views: 410
Last edited:
Click to expand...
Johan Schoeman

Johan Schoeman

Expert
Licensed User
Longtime User
An update for the project - have added REWIND/FF functionality and the imageviews ( + click events) that they depend on.

Pronto Hex Codes:
B4X: 
    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 fastforward 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 rewind 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"

1.png
 

Attachments

  • b4aDSTVExplora.zip
    145.7 KB · Views: 377
You must log in or register to reply here.

Similar Threads

robertogv64
  • Question
Android Question Use of opencv b4a library
Replies
3
Views
2K
cesarcm
cesarcm
D
  • Question
Android Question Help converting Xamarin inclinometer to B4X.
Replies
7
Views
1K
Erel
Erel
Robert Valentino
  • Article
Android Example Onkyo TX-NR676 Receiver controlled over IP Address
Replies
0
Views
2K
Robert Valentino
Robert Valentino
Johan Schoeman
  • Article
B4A Library IR Remote RGB Controller for SMD3528/5050/5730/5630/3014 RGB LED Strip Lights
Replies
0
Views
5K
Johan Schoeman
Johan Schoeman
Johan Schoeman
  • Article
B4A Library IR Control for Samsung Smart TV
Replies
2
Views
4K
Johan Schoeman
Johan Schoeman
Top