亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? ua303.frm

?? 數模轉換程序
?? FRM
?? 第 1 頁 / 共 2 頁
字號: 
VERSION 5.00
Begin VB.Form form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   Caption         =   "UA303 數據采集器 "
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   FillColor       =   &H00E0E0E0&
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   11520
   ScaleMode       =   0  'User
   ScaleWidth      =   15360
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton Option2 
      Caption         =   "M_CH"
      Height          =   255
      Left            =   10560
      TabIndex        =   9
      Top             =   8640
      Width           =   855
   End
   Begin VB.OptionButton Option1 
      Caption         =   "2_CH"
      Height          =   255
      Left            =   9600
      TabIndex        =   8
      Top             =   8640
      Value           =   -1  'True
      Width           =   855
   End
   Begin VB.CommandButton cmdgain 
      Caption         =   "G+"
      Height          =   375
      Left            =   11520
      TabIndex        =   7
      Top             =   8520
      Width           =   615
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H00404000&
      BorderStyle     =   0  'None
      FillColor       =   &H00FFFF00&
      ForeColor       =   &H00C0E0FF&
      Height          =   135
      Left            =   120
      ScaleHeight     =   135
      ScaleWidth      =   15015
      TabIndex        =   6
      Top             =   8280
      Width           =   15015
   End
   Begin VB.CommandButton cmdfr 
      Caption         =   "FR."
      Height          =   375
      Left            =   12240
      TabIndex        =   5
      Top             =   8520
      Width           =   615
   End
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      FillColor       =   &H00C0E0FF&
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      ScaleHeight     =   195
      ScaleWidth      =   14955
      TabIndex        =   4
      Top             =   120
      Width           =   15015
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00404040&
      FillColor       =   &H00FFFF00&
      ForeColor       =   &H0000C000&
      Height          =   7935
      Left            =   120
      ScaleHeight     =   7875
      ScaleWidth      =   14955
      TabIndex        =   3
      Top             =   360
      Width           =   15015
   End
   Begin VB.CommandButton cmdqx 
      Caption         =   "列表"
      Height          =   375
      Left            =   12960
      TabIndex        =   2
      Top             =   8520
      Width           =   615
   End
   Begin VB.CommandButton cmdch 
      Caption         =   "CH+"
      Height          =   375
      Left            =   13680
      TabIndex        =   1
      Top             =   8520
      Width           =   615
   End
   Begin VB.CommandButton cmdend 
      Cancel          =   -1  'True
      Caption         =   "End"
      Height          =   375
      Left            =   14400
      TabIndex        =   0
      Top             =   8520
      Width           =   615
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   8000
      Top             =   8000
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim doge, datp, i, j, kf, fcode, nn, hh, g, gd, fx As Integer
Dim dd1(33000) As Integer
Dim fr(10) As Integer
Dim y0, yd As Single
Dim mmch, mch, dispchn, wch, ch, fch, t11 As Integer
Dim i1 As Long

Dim husb As Long

Private Declare Function OpenUA300 Lib "ua300.dll" () As Long
Private Declare Function CloseUA300 Lib "ua300.dll" (ByVal Handle As Long) As Long
Private Declare Function ssad Lib "ua300.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%) As Integer
Private Declare Sub ssinit Lib "ua300.dll" (ByVal Handle As Long)
Private Declare Function GetVer Lib "ua300.dll" (ByVal Handle As Long) As Byte
Private Declare Sub minit Lib "ua300.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%, ByVal n3%)
Private Declare Sub readdata Lib "ua300.dll" (ByVal Handle As Long, dd1 As Integer, ByVal n1%, ByVal leg As Long)


Private Sub cmdch_Click()
  If fx = 0 Then
     wch = wch + 2
     If mch = 1 Then wch = wch + 2
     If wch = 16 Then wch = 0
     Picture2.Cls
     If mch = 0 Then
  '     Picture2.Print " CHANNEL:"; wch; "               WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; "KHz"
  '   Else
       Picture2.Print " CHANNEL:"; wch; ","; wch + 1; "           WAVE DISPLAY", "       SAMP_Fr."; fr(kf) / 10; "KHz"
     End If

  
  Else
     fch = fch + 6
     If fch > 15 Then fch = 0
     Picture2.Cls
     If fch = 0 Then
       Picture2.Print "   CH"; 0,
       Picture2.Print "   CH"; 1,
       Picture2.Print "   CH"; 2,
       Picture2.Print "   CH"; 3,
       Picture2.Print "   CH"; 4,
       Picture2.Print "   CH"; 5,
       Picture2.Print "   CH"; 6,
       Picture2.Print "   CH"; 7
     End If
     
     If fch = 6 Then
       Picture2.Print "   CH"; 6,
       Picture2.Print "   CH"; 7,
       Picture2.Print "   CH"; 8,
       Picture2.Print "   CH"; 9,
       Picture2.Print "   CH"; 10,
       Picture2.Print "   CH"; 11,
       Picture2.Print "   CH"; 12,
       Picture2.Print "   CH"; 13
     End If
     
     If fch = 12 Then
       Picture2.Print "   CH"; 12,
       Picture2.Print "   CH"; 13,
       Picture2.Print "   CH"; 14,
       Picture2.Print "   CH"; 15,
       Picture2.Print "   CH"; 0,
       Picture2.Print "   CH"; 1,
       Picture2.Print "   CH"; 2,
       Picture2.Print "   CH"; 3
     End If
     nn = 0
  End If
     Picture1.Cls

End Sub

Private Sub cmdcls_Click()
End Sub

Private Sub cmdend_Click()
  
CloseUA300 (husb)
  
  End
End Sub

Private Sub cmdfr_Click()
    If fx = 0 Then
      kf = kf + 1
      If kf = 6 Then kf = 0
      fcode1 = 60000 / fr(kf)
      fcode = fcode1
 
      Picture2.Cls
      If mch = 0 Then
'        Picture2.Print " CHANNEL:"; wch; "               WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; "KHz"
'      Else
        Picture2.Print " CHANNEL:"; wch; ","; wch + 1; "            WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; "KHz"
      End If
'minit (fcode)
    End If
End Sub

Private Sub cmdgain_Click()

   g = g + 1
   If g = 5 Then g = 0 '

   If g = 0 Then gd = 1
   If g = 1 Then gd = 2
   If g = 2 Then gd = 4
   If g = 3 Then gd = 8
   If g = 4 Then gd = 16
   If g = 5 Then gd = 32
   If g = 6 Then gd = 64
   If g = 7 Then gd = 128
   

End Sub

Private Sub cmdqx_Click()
  fx = (fx + 1) And 1
  If fx = 1 Then
    cmdqx.Caption = "曲線"
    cmdch.Caption = "FCH+"
    cmdfr.Enabled = False
    Picture1.AutoRedraw = True
    Picture1.Cls
    Picture1.AutoRedraw = False
    nn = 0: fch = 0
    Picture2.Cls
    'mysub1
    ssinit (husb)
    
    If fch = 0 Then
      Picture2.Print "   CH"; 0,
      Picture2.Print "   CH"; 1,
      Picture2.Print "   CH"; 2,
      Picture2.Print "   CH"; 3,
      Picture2.Print "   CH"; 4,
      Picture2.Print "   CH"; 5,
      Picture2.Print "   CH"; 6,
      Picture2.Print "   CH"; 7
    End If
    
    If fch = 6 Then
      Picture2.Print "   CH"; 6,
      Picture2.Print "   CH"; 7,
      Picture2.Print "   CH"; 8,
      Picture2.Print "   CH"; 9,
      Picture2.Print "   CH"; 10,
      Picture2.Print "   CH"; 11,
      Picture2.Print "   CH"; 12,
      Picture2.Print "   CH"; 13
    End If
    If fch = 12 Then
      Picture2.Print "   CH"; 12,
      Picture2.Print "   CH"; 13,
      Picture2.Print "   CH"; 14,
      Picture2.Print "   CH"; 15,
      Picture2.Print "   CH"; 0,
      Picture2.Print "   CH"; 1,
      Picture2.Print "   CH"; 2,
      Picture2.Print "   CH"; 3
    End If
    
    Option1.Enabled = False
    Option2.Enabled = False

  Else
    Option1.Enabled = True
    Option2.Enabled = True
    
    minit husb, 2, 1, 0
        
    cmdqx.Caption = "列表"
    cmdch.Caption = "CH+"
    cmdfr.Enabled = True
'    Picture1.AutoRedraw = True
'    Picture1.Cls
    mysub1
    For i = 0 To 11
      For j = 0 To Picture1.ScaleWidth Step 45
        Picture1.PSet (j, 25 + i * (Picture1.ScaleHeight - 50) / 10), RGB(70, 150, 45)
      Next
    Next
    Picture1.Line (0, 25 + 5 * (Picture1.ScaleHeight - 50) / 10)-(Picture1.ScaleWidth, 25 + 5 * (Picture1.ScaleHeight - 50) / 10), RGB(70, 150, 45)
    
    Picture1.AutoRedraw = False
    Picture2.Cls
    If mch = 0 Then
 '     Picture2.Print " CHANNEL:"; wch; "               WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; "KHz"
 '   Else
      Picture2.Print " CHANNEL:"; wch; ","; wch + 1; "               WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; "KHz"
    
    End If

  End If
End Sub

Private Sub Command1_Click()
outadb &H57, 128
outadb &H54, 3
End Sub

Private Sub Command2_Click()
form1.Print inadb(&H54)
End Sub

Private Sub Form_Activate()
  fx = 0: fch = 0: ch = 0: wch = 0
     g = 0: gd = 1
     Picture2.Cls
     If mch = 0 Then
  '     Picture2.Print " CHANNEL :"; wch; "               WAVE DISPLAY", "        SAMP_Fr."; fr(kf) / 10; " KHz"

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
成人午夜视频在线| 精品国产不卡一区二区三区| 欧美xxxxx牲另类人与| 亚洲三级免费电影| 国产伦精品一区二区三区免费| 色哟哟亚洲精品| 国产精品免费aⅴ片在线观看| 日韩高清在线不卡| 欧美亚洲一区二区三区四区| 日本一区二区三区高清不卡| 日本成人在线一区| 欧美日韩亚州综合| 亚洲丝袜精品丝袜在线| 高清免费成人av| 精品久久久久久综合日本欧美| 亚洲高清免费视频| 欧美日韩精品综合在线| 亚洲人成网站在线| 91婷婷韩国欧美一区二区| 久久久91精品国产一区二区精品 | 天天射综合影视| 欧洲亚洲精品在线| 一区二区三区不卡视频| 色系网站成人免费| 亚洲视频狠狠干| 色诱亚洲精品久久久久久| 1区2区3区欧美| 成人高清在线视频| 专区另类欧美日韩| 91色视频在线| 伊人婷婷欧美激情| 欧美午夜片在线看| 图片区小说区区亚洲影院| 欧美美女直播网站| 亚洲第一成年网| 欧美一二三区在线| 久久精工是国产品牌吗| 久久只精品国产| 成人午夜视频免费看| 亚洲欧美在线观看| 欧美丝袜第三区| 日韩综合小视频| 日韩精品一区二区三区四区视频 | 国产欧美日韩久久| eeuss鲁片一区二区三区| 亚洲欧美日韩国产手机在线| 色婷婷av一区二区三区之一色屋| 亚洲综合视频网| 欧美一区二区三区思思人| 韩国三级在线一区| 日韩一区中文字幕| 欧美日韩高清在线| 韩日av一区二区| 中文字幕日韩一区| 制服视频三区第一页精品| 国产一区在线精品| 亚洲美女视频在线观看| 91麻豆精品国产自产在线观看一区 | 亚洲色图.com| 日韩欧美在线综合网| 成人黄色777网| 日韩精品免费视频人成| 亚洲国产精品激情在线观看| 日本韩国欧美国产| 国内精品伊人久久久久av影院 | 日韩精品最新网址| a级精品国产片在线观看| 视频在线观看91| 国产精品久久久久久户外露出| 欧美疯狂做受xxxx富婆| 国产精选一区二区三区| 亚洲一级二级在线| 国产调教视频一区| 欧美视频在线观看一区| 国产精品亚洲а∨天堂免在线| 亚洲一区二区三区四区五区黄| 久久影院午夜片一区| 欧美日本一区二区在线观看| 高清不卡一区二区在线| 日本伊人色综合网| 一区二区三区欧美久久| 国产欧美日韩精品在线| 日韩视频一区二区| 欧美色成人综合| 91麻豆国产香蕉久久精品| 激情图片小说一区| 日本伊人色综合网| 亚洲一二三四久久| 亚洲手机成人高清视频| 久久精品日韩一区二区三区| 91精品国产手机| 欧美日韩在线不卡| 99vv1com这只有精品| 国产精品一二三四五| 美女尤物国产一区| 天天操天天干天天综合网| 中文字幕日韩精品一区| 国产三级一区二区| 久久蜜桃一区二区| 久久久久久久久伊人| 欧美成人三级在线| 欧美xxxxx裸体时装秀| 91精品婷婷国产综合久久竹菊| 欧美亚洲自拍偷拍| 欧洲视频一区二区| 欧美亚洲日本国产| 欧美日韩国产一级片| 欧美专区亚洲专区| 色久综合一二码| 欧洲国产伦久久久久久久| 日本精品一级二级| 欧美亚洲动漫精品| 精品视频一区二区不卡| 欧美丝袜丝交足nylons| 欧日韩精品视频| 欧美精品久久99久久在免费线 | 久久综合99re88久久爱| 色94色欧美sute亚洲线路二| 成人禁用看黄a在线| www.在线成人| 91麻豆精品在线观看| 色综合天天综合色综合av| 91网页版在线| 色av一区二区| 欧美三级蜜桃2在线观看| 337p亚洲精品色噜噜噜| 日韩欧美卡一卡二| 欧美韩日一区二区三区四区| 国产精品美女久久久久aⅴ国产馆| 日本不卡视频在线| 韩国v欧美v亚洲v日本v| 国产a级毛片一区| 欧美日本乱大交xxxxx| 91老师国产黑色丝袜在线| 99精品视频一区二区| 欧美在线观看视频一区二区| 欧美日韩不卡一区| 久久久久国产一区二区三区四区| 国产精品国产三级国产a| 亚洲愉拍自拍另类高清精品| 日韩电影免费在线观看网站| 韩国成人在线视频| 色吧成人激情小说| 精品国产污网站| 一区二区三区丝袜| 久久国产人妖系列| 99久久精品一区| 日韩欧美中文字幕制服| 中文在线免费一区三区高中清不卡| 亚洲一区二区三区四区五区黄 | 久久精品av麻豆的观看方式| 岛国av在线一区| 欧美日韩电影一区| 欧美国产一区在线| 日韩电影免费在线观看网站| 成人免费三级在线| 欧美一二三区精品| 国产精品乱码久久久久久| 欧美日韩一区二区三区在线看| 精品国产免费人成电影在线观看四季| 午夜精品爽啪视频| 国产成人精品综合在线观看| 欧美三级资源在线| 欧美国产欧美综合| 视频一区欧美精品| 色哟哟一区二区在线观看 | 精品三级在线观看| 亚洲欧美日韩一区| 国产乱码精品一区二区三| 欧美日韩视频在线一区二区| 国产精品动漫网站| 国产乱理伦片在线观看夜一区 | 在线一区二区三区四区五区| 久久综合狠狠综合久久激情| 首页综合国产亚洲丝袜| 91九色02白丝porn| 国产精品视频一二三| 国产最新精品精品你懂的| 91一区二区三区在线观看| 欧美电视剧在线观看完整版| 亚洲成人动漫av| 欧美午夜视频网站| 亚洲日本青草视频在线怡红院| 成人午夜在线播放| 国产亚洲欧美日韩俺去了| 蜜臀av性久久久久蜜臀aⅴ流畅| 在线精品视频免费观看| 亚洲欧美另类小说视频| 成人网在线免费视频| 精品国产成人系列| 精品无人区卡一卡二卡三乱码免费卡 | 国产成人夜色高潮福利影视| 亚洲精品一区二区三区四区高清| 蜜臀av亚洲一区中文字幕| 91精品国产色综合久久| 丝袜美腿高跟呻吟高潮一区| 欧美日韩性生活| 日本免费新一区视频| 欧美成人性战久久| 国产精品77777|