1、可控喷墨模块 Usjet 的 VB 编程示范一、安装 Microsoft Studio二、启动 Visual Basic三、在新建的窗体上添加 Usjet.控件之前要在控件工具箱上击右键，选择部件，在打开的对话框中，控件页面，找到“usjet ActiveX Control module”打勾标记，确定即可，在工具箱上就新添一个暗红色的图标“OCX” 。四、点击“OCX”图标，在窗体上拉出一个空间，就添加了一个名为“usjet1”的 usjet 控件，外观是一个尚无下拉箭头的 Combox，所有对可控喷墨模块的调用都通过该控件完成。五、在窗体的 Form_Load 中添加对 usjet 的初始
2、化代码：Private Sub Form_Load()Usjet1.UsbSerialNumber = “no“End Sub在找不到符合的 UsbSerialNumber 的情况下，usjet 自动选择第一个 USB 设备，如果保存有 UsbSerialNumber 的值，也可以在上面”no”的位置给出，如果在连接的 USB 设备中找到有系列号符合 UsbSerialNumber 的设备则自动选择该设备为当前设备六、为了调试上的方便，在窗体的 Form_Unload 中添加对 USB 设备的关闭代码Private Sub Form_Unload(Cancel As Integer)Usjet
3、1.CloseUsbEnd Sub七、在编辑框里给出初始化需要的值，在一个按钮语句里可以一次输出所有的值Private Sub Command1_Click()If Usjet1.PrtIdle ThenUsjet1.StringOutput = Text1.TextUsjet1.LineSpeed = Text2.TextUsjet1.Dpi = Text3.TextUsjet1.SensorDistance = Text4.TextUsjet1.FirstCharPosition = Text5.TextUsjet1.CharFont = Text6.TextUsjet1.CharHeig
4、ht = Text7.TextUsjet1.CharWidth = Text8.TextUsjet1.PageLength = Text9.TextUsjet1.DataReady = 1ElseMsgBox (“模块忙！“)End IfEnd Sub其中 Usjet1.DataReady = 1(Usjet1.DataReady = 2 对应佳能喷头 )是最终促使打印数据生成与输出的。只要该语句在稍早的时间送出，喷墨模块就能做好喷墨准备，并在预定位置到来时准确及时地打印字符。除了 Usjet1.StringOutput 可能每次不同要更新外，无更新的参数不必每次输出。注意线速度 LineSpeed 与打印分辨率 Dpi 不可以同时过高，因为喷头的最高喷墨频率是有限的，在编写用户程序时应该在（LineSpeed*Dpi254000）时做相应的提示。在安装目录中，ujtestCDM 2.00.00 里面是可控喷头的通讯芯片驱动程序，当初次连接可控喷头时，可以再这里找到驱动。在安装目录中，ujtestVBtestjet 里面是厂家提供的 VB 示范测试程序原代码，用户在安装了 VB 编程环境后，可以打开参考。
