200分求VB.NET或者C#操作串口热敏打印机例子

2009-07-03 09:18:45 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB,VB.NET,C#对比 VB.NET与VB6.0相似的地方还是很多的。至少看到界面我不会陌生，直接上手操作。当然，也是有区别的地方的。VB基于对象面向的，而VB.NET是完全面向对象的。VB6.0不支持继承、重载和接口。而且，在异常处理上，VB.NET做的更好。在VB6.0中，使用的非结构化的On Error Goto和On Error Resume Next异常处理语句。而在VB.NET中，使用了结构化的Try…Catch…Finally异常处理语句。之前也有学习过C#，VB.NET和C#都是微软开发的面向对象的计算机语言。阅读详情

由于本人从来没有接触过串口打印机，不知道怎么动手，？那位大哥如果有这方面的资料或者例子，麻烦帮帮忙！
例子可发送至phoenix4197@163.com,多谢了
只要能实现简单操作，即刻结贴，分不够再加。

...全文

C#与vb.net的区别 http://blog.csdn.net/zxj911/archive/2005/01/10/247062.aspx都说在.NET里，.NET framework和CLR是应用运行的基础。那么VB.NET和C#是不是就完全一样，只是语法不同吗？一、C#--- 像VB一样简单，像C++一样强大的新语C#是第一流的面向组件的语言由 Turbo Pascal, Delphi, and Visua 阅读详情

fairy4

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

SeeSunSet 2010-11-03

打赏
举报

Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const OPEN_EXISTING = 3
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
(ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim iHandle As IntPtr
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
If (iHandle.ToInt32 = -1) Then
MsgBox("没有连接打印机或者打印机端口不是LPT1")
Exit Sub
Else
If i = 0 Then MsgBox("打印机连接成功!")

Dim fs As New FileStream(iHandle, FileAccess.ReadWrite)
Dim sr As New StreamReader(fs) '读数据
Dim sw As New StreamWriter(fs, System.Text.Encoding.Default) '写数据

sw.WriteLine()

End If
sw.Close()
End If
Next
End If
End Sub

End Function

特别 2009-11-29

打赏
举报

楼主，如果是VB的话，可以直接用OPEN方法来操作串口，打印行不行不知道
没有打印机不好测试
下面是VB6的代码，你可以参考一下



Public Sub Test()



    Open "COM1:9600,N,8,1" For Output As #1

    Write #1, "张三"

    Close #1

    

End Sub

如果要换成C#或者VB.NET，可以用System.IO.FileStream操作

fairy4 2009-07-14

打赏
举报

打漢字沒問題，我已經測試過了，我只是對一些命令不太熟悉，不清楚怎麼表示，我找到一個串口打印機的可執行文件，監聽它發送的命令，現在也基本上完成了打印的基本操作。是通過AxMSComm控件Output發送的。
也叫供應商提供了一份資料，不過它也是一個小的組裝代理商，資料給的也好像不是特別正確（型號好像給錯了）
哎，算了，再嘗試下，修改下，應該可以交差了

zdingyun 2009-07-13

打赏
举报

[Quote=引用 31 楼 fairy4 的回复:]
是串口，不是並口，並口的簡單多了，什么也不用管
[/Quote]
LZ:如果是VB6,你完全可进行串口通信来实施打印,注意每行命令最后应该有换行符.
VB.NET我没有试过串口打印机是否能正确打印汉字.VB6下应该每问题.

fairy4 2009-07-13

打赏
举报

是串口，不是並口，並口的簡單多了，什么也不用管

zdingyun 2009-07-13

打赏
举报

[Quote=引用 29 楼 zdingyun 的回复:]
引用 27 楼 fairy4 的回复:
是超市的那種打印小票的打印機，沒有驅動的，在WINDOWS下甚至連打印機也找不到的，只能發送命令一行行的打

引用 28 楼 fairy4 的回复:
難道就沒人做過串口熱敏打印機的項目或者例子嗎？

建议LZ将打印机的通信线使用正规并口连接,使用命令行(OPEN LPT1打印),它不支持USB方式.
[/Quote]
汗!
使用命令行(OPEN LPT1打印),仍须经并口传输.

zdingyun 2009-07-13

打赏
举报

[Quote=引用 27 楼 fairy4 的回复:]
是超市的那種打印小票的打印機，沒有驅動的，在WINDOWS下甚至連打印機也找不到的，只能發送命令一行行的打
[/Quote]

[Quote=引用 28 楼 fairy4 的回复:]
難道就沒人做過串口熱敏打印機的項目或者例子嗎？
[/Quote]

建议LZ将打印机的通信线使用正规并口连接,使用命令行(OPEN LPT1打印),它不支持USB方式.

fairy4 2009-07-13

打赏
举报

難道就沒人做過串口熱敏打印機的項目或者例子嗎？

fairy4 2009-07-13

打赏
举报

[Quote=引用 25 楼 sunsatan 的回复:]
不要试图直接发打印机指令操作热敏打印机，在win下正确安装打印机驱动。然后用水晶报表打印就可以。不然一旦更换其他型号的打印机代码就有可能白写了

。。。
还有同样配置好像.net2.0 跟 .net1.1 的运行效率差距不大。不建议楼主换2003
[/Quote]
是超市的那種打印小票的打印機，沒有驅動的，在WINDOWS下甚至連打印機也找不到的，只能發送命令一行行的打

另外，雖然說程序在.net2.0 跟 .net1.1 的运行效率差距不大但是也確實有，對一些大型電的程序來說就比較明顯了，而且對於設計來說，2005真的不是一個好的版本，控件稍微多點，刷新和閃動就很可怕，同一台電腦，在2003下我放置100多個透明控件，沒什麽大的問題。在2005下，放置幾十個，我就無法對控件去定位了，一拖動，就閃爍的相當厲害。當然，找可能和我電腦的配置有關。但是考慮程序框架的安裝等問題，我還是寧可用2003