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