basic4android蓝牙调试助手.docVIP

#Region Project Attributes #ApplicationLabel: 蓝牙调试助手 #VersionCode: 1 #VersionName: SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals These global variables will be declared once when the application starts. These variables can be accessed from all modules. End Sub Sub Globals These global variables will be redeclared each time the activity is created. These variables can only be accessed from this module. 声明：大部分代码并不是本人写的，都是源于网络 编写时间2013-03-22 需要源文件请联系 邮箱：chchange@126.com Dim ButtonSend As Button定义发送按钮 Dim EditTextR As EditText定义接收编辑框 Dim EditTextS As EditText定义接收编辑框 Dim serial1 As Serial定义配对库文件 Dim connected As Boolean连接是否成功 Dim aStreams As AsyncStreams定义RandomAccessFile End Sub Sub Activity_Create FirstTime As Boolean Do not forget to load the layout file created with the visual designer. For example: If FirstTime Then serial1.Initialize serial1 初始化 End If Activity.LoadLayout Layout1 载入Layout1布局 Activity.AddMenuItem 连接, mnulj 添加菜单 Activity.AddMenuItem 断开, mnudk 添加菜单 Activity.AddMenuItem 退出, mnutc 添加菜单 End Sub Sub Activity_Resume If serial1.IsEnabled False Then蓝牙是否已经打开 Msgbox 请打开蓝牙！, Else serial1.Listen End If End Sub Sub Activity_Pause UserClosed As Boolean If UserClosed Then aStreams.Close End If End Sub Sub mnulj_click菜单单击事件 Dim PairedDevices As Map PairedDevices serial1.GetPairedDevices Dim l As List定义列表 l.Initialize初始化列表 For i 0 To PairedDevices.Size - 1 l.Add PairedDevices.GetKeyAt i 添加已经配对的蓝牙到列表，好像还没有配对过的，是不会被添加 Next Dim res As Int res InputList l, 选择设备, -1 显示列表 If res DialogResponse.CANCEL Then serial1.Connect PairedDevices.Get l.Get res 通过MAC地址连接蓝牙 End If End Sub Sub mnudk_click断开事件 aStreams.Close serial1.Disconnect End Sub Sub mnutc_click Activity.Finish End Sub Sub Serial1_Connected Success As Bool