MapX_core_tec

说明：  医疗信息管理系统 用vb编写 电子处方、药房管理等 (medical information management system used to prepare vb electronic prescriptions, pharmacy management, etc.)

VB代码 获得系统磁盘的属性 简明扼要! 很适合新手 (VB code access system disk attributes concise! Very suitable for novice! !)

calculating the minimum and the maximum of a vector

学习VB的绘图程序设计,比较简单,这里有一个很易学的程序.可以在此基础上编写出很多实用的程序啊.(learning VB mapping program design, relatively simple, Here is a very easy to learn the procedures. This can be prepared on the basis of many practical procedures ah.)

窗体控件，嵌入了汇编代码。是以前从网上搜到的，相信不会让大家失望。(Form controls, embedded assembly code. Previously found from the Internet, I think, will not let you down.)

可乐精灵辅助源代码,.rar可乐精灵辅助源代码,.rar(Coke Wizard auxiliary source code,. Rar cola Wizard auxiliary source code,. Rar)

采用vb实现鼠标的自动定位点击，绝对的经典(Using vb realize automatic positioning mouse clicks, an absolute classic)

７,４汉明码及未编码和多种译码方法误码率性能的对比(Comparison of BER performance between 7,4 hamming codes and uncoded and multiple Decoding methods)

通过VB编写的简易绘制齿轮渐开线的程序，运用了VB的各种基本控件(Easy draw gear involute program written in VB, the use of a variety of basic controls in VB)

测试com口程序Private Sub Form_Load() Dim I As Integer Dim Msg As String Me.Enabled = False Msg = 串行端口通讯测试 V & App.Major & . & App.Minor & App.Revision cboCommSettings.Text = GetSetting(App.EXEName, frmCommTest , CommSettings , 2400,N,8,1 ) Me.Show Me.Refresh With MSComm1 For I = 1 To 16 Me.Caption = Msg & - 测试通讯端口:COM & I & ... Me.Refresh Delay 100 On Error Resume Next .CommPort = I .Settings = 2400,N,8,1 .PortOpen = True .PortOpen = False If Err = 0 Then cboCommPort.AddItem COM & Trim(I) Next I End With cboCommPort.ListIndex = 0 optCommData(0).Value = True Me.Caption = Msg & (Programming by WJY) Me.Refresh If cboCommPort.ListCount = 0 Then MsgBox 程序检测不到可用的串行端口! Me.Enabled = True End Sub (test com port)