我設計一個點菜系統
產品名稱 數量 產品名稱 數量
紐約客牛排$399 □□□(txtQty) 洋蔥豬排$125 □□□(txtQty)
肋眼牛排$320 □□□(txtQty) 迷迭雞排$130 □□□(txtQty)
沙朗牛排$288 □□□(txtQty)
菲力牛排$220 □□□(txtQty)
牛小排$189 □□□(txtQty)
平價牛排$120 □□□(txtQty)
------------------------------------------------------------------------------------------------------------
總額 □□□(txtSum) ■■■(結算cmdSum)
收現 □□□(txtTch) ■■■(確定cmdDrt)
找零 □□□(txtLfz) ■■■(結束cmdEnd)
※所有txtQty我在Index下設0~7，請幫我設計這個系統的程式。可以輸入數量然後按了結算鈕，就會把計算值放到總額的地方，然後在收現那輸入收取金額按了確定，系統會把收現-總額=找零，會將值放到找零的地方。
急。急。急。要可以執行喔！
2006-06-10 08:56:26 · 3 個解答 · 發問者 佐藤野(zuotengye) 1 in 電腦與網際網路 ➔ 程式設計
補充一下，如果要在元件上設定哪些定義的記得跟我說，不然就算程式ok，哪裡沒設定到也是無法執行！qq
2006-06-10 08:58:42 · update #1
vb6.0的
2006-06-10 14:47:23 · update #2
W.J.S可以請你寫嗎？上次你回答的我不知要怎麼改。可以請你幫我寫一個嗎？
2006-06-10 14:56:24 · update #3
W.S.J 我不知要按哪下載。連進去都是豆芽字。可以跟我說點哪按進去下載嗎？
2006-06-11 14:36:36 · update #4
請問是VB.NET還是VB6?
2006-06-11 00:35:05 補充：
樓上的大大已把你的需求寫出來了,我再寫似乎有多此一舉的感覺,反正觀念上差異不多,你比較看看,說不定有更優的寫法XD(免費空間不知何時會被砍@@;最佳解請給樓上的大大)http://z11.zupload.com/download.php?file=getfile&filepath=30972
2006-06-11 13:09:37 補充：
明忠大大您別誤會,我只是把以前程設的經驗告訴樓主,並非對您有任何意見,請別放在心上Orz!!
2006-06-11 22:03:04 補充：
進入後找到 Click here to download file 點下企就可了,還有請修改以下的Bug感謝愁痕飄絮兄的指正,問題出在快速鍵的部分,還是直接用KeyCode比較保險XD.
2006-06-11 22:04:36 補充：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '設快速鍵 Select Case KeyCode Case vbKeyA: cmdSum.Value = True Case vbKeyS: cmdDrt.Value = True Case vbKeyD: cmdEnd.Value = True End SelectEnd Sub
2006-06-10 20:35:05 · answer #1 · answered by W.J.S. 7 · 0⤊ 0⤋
很好奇 , 為什麼WJS兄的程式輸入數量 4 程式會自動結束? 看不出端倪
2006-06-11 16:39:27 · answer #2 · answered by ? 6 · 0⤊ 0⤋
不， W.J.S.兄你客氣了，你寫得比較好:D，我不認為我的答案是最佳，只能說符合需求，你的才是這題最佳的答案
當我下載完你的程式回去看到第一行後，我笑了，我的確是滿偷懶的，慚愧慚愧，哈哈哈
2006-06-11 02:31:59 · answer #3 · answered by ? 4 · 0⤊ 0⤋