用vb編寫pos機

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

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

2、超市pos機管理系統(tǒng)的設(shè)計與完成,用vb做的,誰有啊,急求!發(fā)一個給我...

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

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

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

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

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

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

例如因為你輸入大寫時，觸發(fā) text_change 事件，會改為小寫，而這樣又會觸發(fā) change 事件，又把小寫改為大寫，這樣就是循環(huán)，導(dǎo)致溢出

可以定義一個變量保存當(dāng)前狀態(tài)，當(dāng)改變一次就就不再執(zhí)行，直到有鍵盤或者鼠標(biāo)輸入時恢復(fù)

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

轉(zhuǎn)載請帶上網(wǎng)址：http://www.svinexta.cn/posjitwo/116625.html