用vb編寫pos機

1、用vb語言編寫:類似超市收銀機: 1,單價,數量,折扣,應付款的文本框 2...

這個做起來很簡單，只要給文本框的text屬性賦值就可以了。清除按鈕，把所有值設為""，計算按鈕，把應付款的文件框的值設為計算的值了。

2、超市pos機管理系統的設計與完成,用vb做的,誰有啊,急求!發一個給我...

超市pos機管理系統的設計與完成
｜陸｜
｜幺｜
｜伍｜+Q能定做 很多 源碼 站 有 代碼 下載 吧

3、vb的Printer對象可以控制pos打印機打印嗎?

參閱:http://www.vbgood.com/thread-86681-1-1.html
注意只能在并口通信方式下使用,USB口不行. 只要打印機的驅動裝好的情況下VB什么打印機都可以用的，pos打印機如果不能用話，檢查一下windows驅動是否裝對了，裝對了以后把它設置成默認打印機就可以在VB里用了 可以阿，POS機有自己的輸出代碼。

4、吉成POS機顧客顯示屏驅動制作VB6.0

沒看懂你想干嘛。 所有垃圾

5、vb編寫一個零售付賬的程序

例如因為你輸入大寫時，觸發 text_change 事件，會改為小寫，而這樣又會觸發 change 事件，又把小寫改為大寫，這樣就是循環，導致溢出

可以定義一個變量保存當前狀態，當改變一次就就不再執行，直到有鍵盤或者鼠標輸入時恢復

Dim b As Boolean

Private Sub t1_Change()
If b Then
b = False
t1.SelStart = Len(t1.Text)
a = Right(t1.Text, 1)
If Asc(a) >= 65 And Asc(a) <= 90 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + LCase(a)
ElseIf Asc(a) >= 97 And Asc(a) <= 122 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + UCase(a)
ElseIf Asc(a) = 32 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + a
Else
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + "*"
End If
End If
End Sub

Private Sub t1_KeyDown(KeyCode As Integer, Shift As Integer)
b = True
End Sub

Private Sub t1_Mouse跡袱管惶攮耗歸同害括Down(Button As Integer, Shift As Integer, X As Single, Y As Single)
b = True
End Sub

轉載請帶上網址：http://www.lol998.com/posjitwo/116625.html