GrabBag/SDK/LED/BX_05_06_SDK_20241105/VB.net/Module1.vb

Imports System.Runtime.InteropServices
Imports System.Text

Module Module1

    Dim err As Integer
    Sub Main()
        err = Ledsdk.bxDual_InitSdk()
        Console.WriteLine("InitSdk：" + err.ToString())
        dynamicArea_str_2()
        Dim arr As Ledsdk.Ping_data
        arr.ControllerType = 0
        arr.FirmwareVersion = {0, 0, 0, 0, 0, 0, 0, 0}
        arr.ScreenParaStatus = 0
        arr.uAddress = 0
        arr.Baudrate = 0
        arr.ScreenWidth = 0
        arr.ScreenHeight = 0
        arr.Color = 0
        arr.CurrentBrigtness = 0
        arr.CurrentOnOffStatus = 0
        arr.ScanConfNumber = 0
        arr.reversed = {0, 0, 0, 0, 0, 0, 0, 0, 0}
        arr.ipAdder = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        err = Ledsdk.bxDual_cmd_udpPing(arr)
        Console.WriteLine("cmd_udpPing：" + err.ToString())
        Console.WriteLine("ControllerType:&H" + arr.ControllerType.ToString("X2"))
        Console.WriteLine("FirmwareVersion:V" + System.Text.Encoding.Default.GetString(arr.FirmwareVersion))
        Console.WriteLine("ipAdder:" + System.Text.Encoding.Default.GetString(arr.ipAdder))

        Ledsdk.bxDual_program_setScreenParams_G56(Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, arr.ControllerType, Ledsdk.E_DoubleColorPixel.eDOUBLE_COLOR_PIXTYPE_2)
        Creat_Program_6()
        Creat_Area_6(0)
        Creat_AddStr_6()
        'Creat_AddSound_6()
        Net_SengProgram_6(arr.ipAdder)

        Ledsdk.bxDual_ReleaseSdk()
        Console.WriteLine("ReleaseSdk：" + err.ToString())
    End Sub

    '创建节目
    Public Sub Creat_Program_5()
        Dim header As Ledsdk.EQprogramHeader
        header.FileType = &H0
        header.ProgramID = 0
        header.ProgramStyle = &H0
        header.ProgramPriority = &H0
        header.ProgramPlayTimes = 1
        header.ProgramTimeSpan = 0
        header.ProgramWeek = &HFF
        header.ProgramLifeSpan_sy = &HFFFF
        header.ProgramLifeSpan_sm = &H3
        header.ProgramLifeSpan_sd = &H14
        header.ProgramLifeSpan_ey = &HFFFF
        header.ProgramLifeSpan_em = &H3
        header.ProgramLifeSpan_ed = &H14
        header.PlayPeriodGrpNum = 0
        err = Ledsdk.bxDual_program_addProgram(header)
        Console.WriteLine("program_addProgram:" + err.ToString())
    End Sub
    Public Sub Creat_Program_6()
        Dim header As Ledsdk.EQprogramHeader_G6
        header.FileType = &H0
        header.ProgramID = 0
        header.ProgramStyle = &H0
        header.ProgramPriority = &H0
        header.ProgramPlayTimes = 1
        header.ProgramTimeSpan = 0
        header.SpecialFlag = 0
        header.CommExtendParaLen = &H0
        header.ScheduNum = 0
        header.LoopValue = 0
        header.Intergrate = &H0
        header.TimeAttributeNum = &H0
        header.TimeAttribute0Offset = &H0
        header.ProgramWeek = &HFF
        header.ProgramLifeSpan_sy = &HFFFF
        header.ProgramLifeSpan_sm = &H3
        header.ProgramLifeSpan_sd = &H14
        header.ProgramLifeSpan_ey = &HFFFF
        header.ProgramLifeSpan_em = &H3
        header.ProgramLifeSpan_ed = &H14
        header.PlayPeriodGrpNum = 0
        err = Ledsdk.bxDual_program_addProgram_G6(header)
        Console.WriteLine("program_addProgram_G6:" + err.ToString())
    End Sub
    '创建区域
    Public Sub Creat_Area_5(ByVal AreaType As Byte)
        Dim aheader As Ledsdk.EQareaHeader
        aheader.AreaType = AreaType
        aheader.AreaX = 16
        aheader.AreaY = 0
        aheader.AreaWidth = 64
        aheader.AreaHeight = 32

        err = Ledsdk.bxDual_program_AddArea(0, aheader)  '添加图文区域
        Console.WriteLine("program_addArea:" + err.ToString())
    End Sub
    Public Sub Creat_Area_6(ByVal AreaType As Byte)
        Dim aheader As Ledsdk.EQareaHeader_G6
        aheader.AreaType = AreaType
        aheader.AreaX = 0
        aheader.AreaY = 0
        aheader.AreaWidth = 64
        aheader.AreaHeight = 32
        aheader.BackGroundFlag = &H0
        aheader.Transparency = 101
        aheader.AreaEqual = &H0
        Dim stSoundData As Ledsdk.EQSound_6G
        stSoundData.SoundFlag = 0
        stSoundData.SoundVolum = 0
        stSoundData.SoundSpeed = 0
        stSoundData.SoundDataMode = 0
        stSoundData.SoundReplayTimes = 0
        stSoundData.SoundReplayDelay = 0
        stSoundData.SoundReservedParaLen = 0
        stSoundData.Soundnumdeal = 0
        stSoundData.Soundlanguages = 0
        stSoundData.Soundwordstyle = 0
        stSoundData.SoundDataLen = 0

        Dim AreaText As String
        AreaText = "你好"
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        stSoundData.SoundData = System.Text.Encoding.Unicode.GetBytes(AreaText)
        aheader.stSoundData = stSoundData
        err = Ledsdk.bxDual_program_addArea_G6(0, aheader)  '添加图文区域
        Console.WriteLine("program_addArea_G6:" + err.ToString())
    End Sub
    '添加内容
    Public Sub Creat_AddStr_5()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str(), font() As Byte
        AreaText = "Hello,123"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim pheader As Ledsdk.EQpageHeader
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H3
        pheader.ClearMode = &H1
        pheader.Speed = 15
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 18
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = False
        pheader.fontItalic = False
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        err = Ledsdk.bxDual_program_picturesAreaAddTxt(0, str, font, pheader)
        Console.WriteLine("program_picturesAreaAddTxt:" + err.ToString())
    End Sub
    Public Sub Creat_AddStr_6()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("GBK")
        Dim str(), font() As Byte
        AreaText = "123"
        str = code.GetBytes(AreaText)
        AreaText = "C:\Windows\Fonts\tahoma.ttf"
        font = code.GetBytes(AreaText)
        Dim pheader As Ledsdk.EQpageHeader_G6
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H1
        pheader.ClearMode = &H1
        pheader.Speed = 10
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.CartoonFrameRate = &H0
        pheader.BackNotValidFlag = &H0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 12
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = 0
        pheader.fontItalic = 0
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        'err = Ledsdk.bxDual_program_picturesAreaAddTxt_G6(0, str, font, pheader)
        err = Ledsdk.bxDual_program_fontPath_picturesAreaAddTxt_G6(0, str, font, pheader)
        Console.WriteLine("program_picturesAreaAddTxt_G6:" + err.ToString())
    End Sub
    '添加图片
    Public Sub Creat_Addimg_5()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str(), font() As Byte
        AreaText = "32.png"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim pheader As Ledsdk.EQpageHeader
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H3
        pheader.ClearMode = &H1
        pheader.Speed = 15
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 18
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = False
        pheader.fontItalic = False
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        err = Ledsdk.bxDual_program_pictureAreaAddPic(0, 0, pheader, str)
        Console.WriteLine("program_pictureAreaAddPic:" + err.ToString())
    End Sub
    Public Sub Creat_Addimg_6()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str(), font() As Byte
        AreaText = "32.png"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim pheader As Ledsdk.EQpageHeader_G6
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H3
        pheader.ClearMode = &H1
        pheader.Speed = 15
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.CartoonFrameRate = &H0
        pheader.BackNotValidFlag = &H0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 18
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = False
        pheader.fontItalic = False
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        err = Ledsdk.bxDual_program_pictureAreaAddPic_G6(0, 0, pheader, str)
        Console.WriteLine("program_pictureAreaAddPic_G6:" + err.ToString())
    End Sub
    '添加时间
    Public Sub Creat_Addtime_5()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str(), font() As Byte
        AreaText = "Hello,123"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim timeData As Ledsdk.EQtimeAreaData_G56
        timeData.linestyle = Ledsdk.E_arrMode.eMULTILINE
        timeData.color = &HFF0000
        timeData.fontName = font
        timeData.fontSize = 16
        timeData.fontBold = 0
        timeData.fontItalic = 0
        timeData.fontUnderline = 0
        timeData.fontAlign = 1 '0--左对齐，1-居中，2-右对齐
        timeData.date_enable = 0
        timeData.datestyle = Ledsdk.E_DateStyle.eYYYY_MM_DD_MINUS
        timeData.time_enable = 0
        timeData.timestyle = Ledsdk.E_TimeStyle.eHH_MM_SS_COLON
        timeData.week_enable = 0
        timeData.weekstyle = Ledsdk.E_WeekStyle.eMonday_CHS
        err = Ledsdk.bxDual_program_fontPath_timeAreaAddContent(0, timeData)
        Console.WriteLine("program_fontPath_timeAreaAddContent:" + err.ToString())
    End Sub
    Public Sub Creat_Addtime_6()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str(), font() As Byte
        AreaText = "Hello,123"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim timeData As Ledsdk.EQtimeAreaData_G56
        timeData.linestyle = Ledsdk.E_arrMode.eMULTILINE
        timeData.color = &HFF0000
        timeData.fontName = font
        timeData.fontSize = 16
        timeData.fontBold = 0
        timeData.fontItalic = 0
        timeData.fontUnderline = 0
        timeData.fontAlign = 1 '0--左对齐，1-居中，2-右对齐
        timeData.date_enable = 0
        timeData.datestyle = Ledsdk.E_DateStyle.eYYYY_MM_DD_MINUS
        timeData.time_enable = 0
        timeData.timestyle = Ledsdk.E_TimeStyle.eHH_MM_SS_COLON
        timeData.week_enable = 0
        timeData.weekstyle = Ledsdk.E_WeekStyle.eMonday_CHS
        err = Ledsdk.bxDual_program_fontPath_timeAreaAddContent_G6(0, timeData)
        Console.WriteLine("program_fontPath_timeAreaAddContent_G6:" + err.ToString())
    End Sub
    '添加表盘
    Public Sub Creat_AddClock_5()
        Dim acheader As Ledsdk.EQAnalogClockHeader_G56
        acheader.OrignPointX = 32
        acheader.OrignPointY = 16
        acheader.UnitMode = &H0
        acheader.HourHandWidth = &H2
        acheader.HourHandLen = &H8
        acheader.HourHandColor = &H1
        acheader.MinHandWidth = &H2
        acheader.MinHandLen = &HB
        acheader.MinHandColor = &H1
        acheader.SecHandWidth = &H2
        acheader.SecHandLen = &HD
        acheader.SecHandColor = &H1

        Dim ClockColor As Ledsdk.ClockColor_G56
        ClockColor.Color369 = &HFF0000
        ClockColor.ColorDot = &HFF0000
        ClockColor.ColorBG = &HFF0000
        err = Ledsdk.bxDual_program_timeAreaAddAnalogClock(0, acheader, Ledsdk.E_ClockStyle.eSQUARE, ClockColor)
        Console.WriteLine("program_timeAreaAddAnalogClock:" + err.ToString())
    End Sub
    Public Sub Creat_AddClock_6()
        Dim acheader As Ledsdk.EQAnalogClockHeader_G56
        acheader.OrignPointX = 32
        acheader.OrignPointY = 16
        acheader.UnitMode = &H0
        acheader.HourHandWidth = &H2
        acheader.HourHandLen = &H8
        acheader.HourHandColor = &H1
        acheader.MinHandWidth = &H2
        acheader.MinHandLen = &HB
        acheader.MinHandColor = &H1
        acheader.SecHandWidth = &H2
        acheader.SecHandLen = &HD
        acheader.SecHandColor = &H1

        Dim ClockColor As Ledsdk.ClockColor_G56
        ClockColor.Color369 = &HFF0000
        ClockColor.ColorDot = &HFF0000
        ClockColor.ColorBG = &HFF0000
        err = Ledsdk.bxDual_program_timeAreaAddAnalogClock_G6(0, acheader, Ledsdk.E_ClockStyle.eSQUARE, ClockColor)
        Console.WriteLine("program_timeAreaAddAnalogClock_G6:" + err.ToString())
    End Sub
    '发送 节目
    Public Sub Net_SengProgram_5(ByVal ipAdder() As Byte)
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim program As Ledsdk.EQprogram
        AreaText = "P000"
        program.fileName = code.GetBytes(AreaText)
        program.fileType = 0
        program.fileLen = 0
        program.fileAddre = IntPtr.Zero
        program.fileCRC32 = 0
        err = Ledsdk.bxDual_program_IntegrateProgramFile(program)

        err = Ledsdk.bxDual_cmd_ofsStartFileTransf(ipAdder, 5005)
        Console.WriteLine("cmd_ofsStartFileTransf:" + err.ToString())

        err = Ledsdk.bxDual_cmd_ofsWriteFile(ipAdder, 5005, program.fileName, program.fileType, program.fileLen, 1, program.fileAddre)
        Console.WriteLine("cmd_ofsWriteFile:" + err.ToString())
        err = Ledsdk.bxDual_cmd_ofsEndFileTransf(ipAdder, 5005)
        Console.WriteLine("cmd_ofsEndFileTransf:" + err.ToString())
        err = Ledsdk.bxDual_program_deleteProgram()
        Console.WriteLine("program_deleteProgram:" + err.ToString())
    End Sub
    Public Sub Net_SengProgram_6(ByVal ipAdder() As Byte)
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim program As Ledsdk.EQprogram_G6
        AreaText = "P000"
        program.fileName = code.GetBytes(AreaText)
        program.fileType = 0
        program.fileLen = 0
        program.fileAddre = IntPtr.Zero
        program.dfileName = code.GetBytes(AreaText)
        program.dfileType = 0
        program.dfileLen = 0
        program.dfileAddre = IntPtr.Zero
        err = Ledsdk.bxDual_program_IntegrateProgramFile_G6(program)

        err = Ledsdk.bxDual_cmd_ofsStartFileTransf(ipAdder, 5005)
        Console.WriteLine("cmd_ofsStartFileTransf:" + err.ToString())

        err = Ledsdk.bxDual_cmd_ofsWriteFile(ipAdder, 5005, program.dfileName, program.dfileType, program.dfileLen, 1, program.dfileAddre)
        Console.WriteLine("cmd_ofsWriteFile:" + err.ToString())
        err = Ledsdk.bxDual_cmd_ofsWriteFile(ipAdder, 5005, program.fileName, program.fileType, program.fileLen, 1, program.fileAddre)
        Console.WriteLine("cmd_ofsWriteFile:" + err.ToString())
        err = Ledsdk.bxDual_cmd_ofsEndFileTransf(ipAdder, 5005)
        Console.WriteLine("cmd_ofsEndFileTransf:" + err.ToString())
        err = Ledsdk.bxDual_program_deleteProgram_G6()
        Console.WriteLine("program_deleteProgram:" + err.ToString())
    End Sub
    '发送语音
    Public Sub Creat_AddSound_6()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim str() As Byte
        AreaText = "请张三到一号窗口取药"
        str = code.GetBytes(AreaText)
        Dim psound As Ledsdk.EQPicAreaSoundHeader_G6
        psound.SoundPerson = 3
        psound.SoundVolum = 5
        psound.SoundSpeed = 5
        psound.SoundDataMode = 0
        psound.SoundReplayTimes = 0
        psound.SoundReplayDelay = 1000
        psound.SoundReservedParaLen = 3
        psound.Soundnumdeal = 0
        psound.Soundlanguages = 0
        psound.Soundwordstyle = 0
        err = Ledsdk.bxDual_program_pictureAreaEnableSound_G6(0, psound, str)
        Console.WriteLine("program_pictureAreaEnableSound_G6:" + err.ToString())
    End Sub
    Public Sub dynamic_6()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim ip() As Byte
        AreaText = "192.168.89.185"
        ip = code.GetBytes(AreaText)
        Dim psound As Ledsdk.EQPicAreaSoundHeader_G6
        psound.SoundPerson = 3
        psound.SoundVolum = 5
        psound.SoundSpeed = 5
        psound.SoundDataMode = 0
        psound.SoundReplayTimes = 0
        psound.SoundReplayDelay = 1000
        psound.SoundReservedParaLen = 3
        psound.Soundnumdeal = 0
        psound.Soundlanguages = 0
        psound.Soundwordstyle = 0
        Dim RelateProSerial() As UShort
        RelateProSerial = {0, 0}
        Dim oFrame As Ledsdk.BxAreaFrmae_Dynamic_G6
        Dim pInfo As Ledsdk.DynamicAreaBaseInfo_5G
        Dim pSoundData As Ledsdk.EQSound_6G
        pSoundData.SoundFlag = 0
        pSoundData.SoundPerson = 0
        pSoundData.SoundVolum = 0
        pSoundData.SoundSpeed = 0
        pSoundData.SoundDataMode = 0
        pSoundData.SoundReplayTimes = 0
        pSoundData.SoundReplayDelay = 0
        pSoundData.SoundReservedParaLen = 0
        pSoundData.Soundnumdeal = 0
        pSoundData.Soundlanguages = 0
        pSoundData.Soundwordstyle = 0
        pSoundData.SoundDataLen = 0
        pSoundData.SoundData = {0}

        oFrame.AreaFFlag = 0
        oFrame.oAreaFrame.FrameDispStype = 3
        oFrame.oAreaFrame.FrameDispSpeed = 10
        oFrame.oAreaFrame.FrameMoveStep = 1
        oFrame.oAreaFrame.FrameUnitLength = 2
        oFrame.oAreaFrame.FrameUnitWidth = 2
        oFrame.oAreaFrame.FrameDirectDispBit = 0
        oFrame.pStrFramePathFile = {0}

        pInfo.nType = 1
        pInfo.DisplayMode = 2
        pInfo.ClearMode = 1
        pInfo.Speed = 5
        pInfo.StayTime = 100
        pInfo.RepeatTime = 0
        pInfo.oFont.arrMode = 1
        pInfo.oFont.fontSize = 12
        pInfo.oFont.color = 1
        pInfo.oFont.fontBold = 0
        pInfo.oFont.fontItalic = 0
        pInfo.oFont.tdirection = 0
        pInfo.oFont.txtSpace = 0
        pInfo.oFont.Valign = 0
        pInfo.oFont.Halign = 0
        AreaText = "宋体\0"
        pInfo.fontName = code.GetBytes(AreaText)
        AreaText = "hg\0"
        pInfo.strAreaTxtContent = code.GetBytes(AreaText)
        AreaText = "123.png\0"
        pInfo.filePath = code.GetBytes(AreaText)
        'err = Ledsdk.bxDual_dynamicArea_AddAreaInfos_6G_V2(ip, 5005, Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, 0, 10, 0, 0, RelateProSerial, 1,
        '                                                 0, 0, 64, 32, oFrame, 1, pInfo, pSoundData)
        Dim pheader As Ledsdk.EQpageHeader_G6
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H3
        pheader.ClearMode = &H1
        pheader.Speed = 15
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.CartoonFrameRate = &H0
        pheader.BackNotValidFlag = &H0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 18
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = False
        pheader.fontItalic = False
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        err = Ledsdk.bxDual_dynamicArea_AddAreaPic_6G(ip, 5005, Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, 0, 0, 64, 32, pheader, code.GetBytes("123.png"))
        'err = Ledsdk.bxDual_dynamicArea_AddAreaPic_WithProgram_6G(ip, 5005, Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, 0, 0, 64, 32, pheader, code.GetBytes("123.png"), 0, RelateProSerial)
        Console.WriteLine("program_pictureAreaEnableSound_G6:" + err.ToString())

    End Sub
    Public Sub dynamicArea_str_1()
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim ip() As Byte
        AreaText = "192.168.89.185"
        ip = code.GetBytes(AreaText)
        Dim str(), font() As Byte
        AreaText = "Hello,123"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        err = Ledsdk.bxDual_dynamicArea_AddAreaTxt_6G(ip, 5005, Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, 0, 0, 64, 32, font, 12, str)
    End Sub

    Public Sub dynamicArea_str_2()
        Dim err As Integer
        Dim AreaText As String
        Dim code As Encoding = Encoding.GetEncoding("gb2312")
        Dim ip() As Byte
        AreaText = "192.168.89.184"
        ip = code.GetBytes(AreaText)
        Dim str(), font() As Byte
        AreaText = "Hello,123"
        str = code.GetBytes(AreaText)
        AreaText = "宋体"
        font = code.GetBytes(AreaText)
        Dim aheader As Ledsdk.EQareaHeader_G6
        aheader.AreaType = 0
        aheader.AreaX = 16
        aheader.AreaY = 0
        aheader.AreaWidth = 64
        aheader.AreaHeight = 64
        aheader.BackGroundFlag = &H0
        aheader.Transparency = 101
        aheader.AreaEqual = &H0
        Dim stSoundData As Ledsdk.EQSound_6G
        stSoundData.SoundFlag = 0
        stSoundData.SoundVolum = 0
        stSoundData.SoundSpeed = 0
        stSoundData.SoundDataMode = 0
        stSoundData.SoundReplayTimes = 0
        stSoundData.SoundReplayDelay = 0
        stSoundData.SoundReservedParaLen = 0
        stSoundData.Soundnumdeal = 0
        stSoundData.Soundlanguages = 0
        stSoundData.Soundwordstyle = 0
        stSoundData.SoundDataLen = 0
        stSoundData.SoundData = System.Text.Encoding.Unicode.GetBytes(AreaText)
        aheader.stSoundData = stSoundData
        Dim pheader As Ledsdk.EQpageHeader_G6
        pheader.PageStyle = &H0
        pheader.DisplayMode = &H3
        pheader.ClearMode = &H1
        pheader.Speed = 15
        pheader.StayTime = 500
        pheader.RepeatTime = 1
        pheader.ValidLen = 0
        pheader.CartoonFrameRate = &H0
        pheader.BackNotValidFlag = &H0
        pheader.arrMode = Ledsdk.E_arrMode.eSINGLELINE
        pheader.fontSize = 36
        pheader.color = Ledsdk.E_Color.eRED
        pheader.fontBold = False
        pheader.fontItalic = False
        pheader.tdirection = Ledsdk.E_txtDirection.pNORMAL
        pheader.txtSpace = 0
        pheader.Valign = 2
        pheader.Halign = 2
        Dim RelateProSerial() As UShort
        RelateProSerial = {0, 0}
        'err = Ledsdk.bxDual_dynamicArea_AddAreaTxtDetails_6G(ip, 5005, BX_dualSDK.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, aheader, pheader, font, str)
        err = Ledsdk.bxDual_dynamicArea_AddAreaTxtDetails_WithProgram_6G(ip, 5005, Ledsdk.E_ScreenColor_G56.eSCREEN_COLOR_DOUBLE, 0, aheader, pheader, font, str, 0, RelateProSerial)
    End Sub
End Module