module1.bas

DTMF信号产生原程序

Attribute VB_Name = "Module1"
Option Explicit
Option Base 1
Public Const N = 64
Public MfcFrq(8) As Long
Public MfcNum(16) As Long
Public MfcFFrq(16) As Long
Public MfcSFrq(16) As Long
Public DecData(N) As Long

Public vkn_1(16) As Double
Public vkn_2(16) As Double

Public vkn2(16) As Double