moddeclare.bas

短信收发控制（AT命令）

Attribute VB_Name = "modDeclare"
Option Explicit

Public Const Con_portsum As Integer = 1

Public Enum SMerror     '短消息错误类型
    Esource     '数据错
    Ecodemode   '编码方式不可识别
    Etype       '类型错
    Noerr       '无错消息
    SMgot       '已取
    Nosm        '无消息
End Enum

Public Type User_sm
    echo As SMerror     '短消息错误类型
    Index As Integer    '存储索引
    Date As String      '接收日期
    Num As String       '发送方
    Mess As String      '消息内容
End Type

Type User_pdu
    echo As Boolean
    pdu As String
End Type

Type User_timer
    enabel As Boolean   '定时使能
    timeup As Boolean   '定时到
    value  As Integer   '定时值
End Type

Type User_gsm
    send_en    As Boolean   '短消息发送使能
    del_en  As Boolean      '短消息删除使能
    hungup_en  As Boolean   '挂机使能
    Write_en   As Boolean   '回写使能
    Pnum    As String       '目标地址
    Sca     As String       '短信中心号
    Mess    As String       '消息内容
    Mode    As Integer '0：正常模式；1：PDU层加密；-1：按默认模式
End Type

Type User_gsmrece
    Rece As String      '串口接收数据
    echo As String      'AT应答帧
    Result As Boolean   '应答OK 或 ERROR
    Rflag As Boolean    '帧判定
End Type