ledapi.bas

LED显示屏控制卡的编程例程

Attribute VB_Name = "LEDSender"
Option Explicit

'通讯方式常量
Public Const DEVICE_TYPE_COM = 0
Public Const DEVICE_TYPE_UDP = 1
Public Const DEVICE_TYPE_MODEM = 2

'串行通讯速度常量
Public Const SBR_9600 = 0
Public Const SBR_14400 = 1
Public Const SBR_19200 = 2
Public Const SBR_38400 = 3
Public Const SBR_57600 = 4
Public Const SBR_115200 = 5

'播放类型常量
Public Const ROOT_PLAY = 17
Public Const ROOT_DOWNLOAD = 18

'显示屏类型常量
Public Const SCREEN_UNICOLOR = 1
Public Const SCREEN_COLOR = 2
Public Const SCREEN_FULLCOLOR = 3
Public Const SCREEN_GRAY = 4

'响应消息常量
Public Const LM_RX_COMPLETE = 1
Public Const LM_TX_COMPLETE = 2
Public Const LM_RESPOND = 3
Public Const LM_TIMEOUT = 4
Public Const LM_NOTIFY = 5
Public Const LM_PARAM = 6
Public Const LM_TX_PROGRESS = 7
Public Const LM_RX_PROGRESS = 8

'电源状态常量
Public Const LED_POWER_OFF = 0
Public Const LED_POWER_ON = 1

'时间格式常量
Public Const DF_YMD = 1                 '年月日  "2004年12月31日"
Public Const DF_HN = 2                  '时分    "19:20"
Public Const DF_HNS = 3                 '时分秒  "19:20:30"
Public Const DF_Y = 4                   '年      "2004"
Public Const DF_M = 5                   '月      "12" "01" 注意：始终显示两位数字
Public Const DF_D = 6                   '日
Public Const DF_H = 7                   '时
Public Const DF_N = 8                   '分
Public Const DF_S = 9                   '秒
Public Const DF_W = 10                  '星期    "星期三"

'正计时、倒计时format参数
Public Const CF_DAY = 0                 '天数
Public Const CF_HOUR = 1                '小时数
Public Const CF_HMS = 2                 '时分秒
Public Const CF_HM = 3                  '时分
Public Const CF_MS = 4                  '分秒
Public Const CF_S = 5                   '秒

Public Const FONT_SET_16 = 0            '16点阵字符
Public Const FONT_SET_24 = 1            '24点阵字符

Public Const PKC_QUERY = 4
Public Const PKC_ADJUST_TIME = 6
Public Const PKC_GET_POWER = 9
Public Const PKC_SET_POWER = 10
Public Const PKC_GET_BRIGHT = 11
Public Const PKC_SET_BRIGHT = 12

Type TDeviceParam
  devType As Long
  speed   As Long
  ComPort As Long
  FlowCon As Long
  locPort As Long
  rmtPort As Long
  memory  As Long
  Reserved(5) As Long
End Type

Type TNotifyMessage
  Message As Long
  Command As Long
  Result As Long
  Status As Long
  Address As Long
  Size As Long
  Buffer As Long
  param As TDeviceParam
  Host(16) As Byte
  Port As Long
End Type

Type rect
  left As Long
  top  As Long
  right As Long
  bottom As Long
End Type

Type SYSTEMTIME
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Type TTimeStamp
  date As Long
  time As Long
End Type


Declare Sub LED_Startup Lib "LEDSender.dll" ()
Declare Sub LED_Cleanup Lib "LEDSender.dll" ()
Declare Function LED_Open Lib "LEDSender.dll" (param As TDeviceParam, ByVal Notify As Long, ByVal Window As Long, ByVal Message As Long) As Long
Declare Sub LED_Close Lib "LEDSender.dll" (ByVal dev As Long)
Declare Sub LED_Query Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long)
Declare Sub LED_AdjustTime Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long)
Declare Sub LED_SendToScreen Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long)
Declare Sub LED_SetPower Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long, ByVal Power As Long)
Declare Sub LED_GetPower Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long)
Declare Sub LED_SetBrightness Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long, ByVal Brightness As Long)
Declare Sub LED_GetBrightness Lib "LEDSender.dll" (ByVal dev As Long, ByVal Address As Byte, ByVal Host As String, ByVal Port As Long)
Declare Function LED_GetNotifyMessage Lib "LEDSender.dll" (Notify As TNotifyMessage) As Long
Declare Function MakeRoot Lib "LEDSender.dll" (ByVal RootType As Long, ByVal ScreenType As Long) As Long
Declare Function AddLeaf Lib "LEDSender.dll" (ByVal DisplayTime As Long) As Long
Declare Function AddWindow Lib "LEDSender.dll" (ByVal DC As Long, ByVal Width As Long, ByVal Height As Long, ARect As rect, ByVal method As Long, ByVal speed As Long, ByVal transparent As Long) As Long
Declare Function AddDateTime Lib "LEDSender.dll" (ARect As rect, ByVal transparent As Long, ByVal fontname As String, ByVal fontsize As Long, ByVal fontcolor As Long, ByVal format As Long) As Long
Declare Function AddString Lib "LEDSender.dll" (ByVal str As String, ARect As rect, ByVal method As Long, ByVal speed As Long, ByVal transparent As Long, ByVal FontSet As Long, ByVal fontcolor As Long) As Long
Declare Function AddText Lib "LEDSender.dll" (ByVal str As String, ARect As rect, ByVal method As Long, ByVal speed As Long, ByVal transparent As Long, ByVal fontname As String, ByVal fontsize As Long, ByVal fontcolor As Long) As Long
Declare Function AddMovie Lib "LEDSender.dll" (ByVal filename As String, ARect As rect, ByVal Stretch As Long) As Long
Declare Function AddCountUp Lib "LEDSender.dll" (rect As rect, ByVal transparent As Long, ByVal fontname As String, ByVal fontsize As Long, ByVal fontcolor As Long, ByVal format As Long, starttime As SYSTEMTIME) As Long
Declare Function AddCountDown Lib "LEDSender.dll" (rect As rect, ByVal transparent As Long, ByVal fontname As String, ByVal fontsize As Long, ByVal fontcolor As Long, ByVal format As Long, endtime As SYSTEMTIME) As Long