點餐系統的範本或是程式 20點...

Question

只要是點餐系統都可以 不管是什麼公司的 OR什麼程式做出來的都可以

EX:麥當勞點餐系統整個程式.介面等等

如果有寫怎麼完成的更好


提供的完整的話 ...100點^___^

謝謝

Answer 1

這是比較簡略的做法。你要更詳細一點的，請你自己斟酌。
Private Sub cmdEnd_Click()
　End
End Sub

Private Sub cmdOrder_Click()
　chkChiken.Value = 0: chkHamburger.Value = 0
　chkFries.Value = 0: optLarge.Value = False
　optMediue.Value = False: optSmall.Value = False
　picMoney.Cls
End Sub

Private Sub cmdPay_Click()
　If chkChiken.Value = 1 Then
　　Chiken = 50
　Else: Chiken = 0
　End If
　　If chkHamburger.Value = 1 Then
　　　Hamburger = 60
　　Else: Hamburger = 0
　　End If
　　　If chkFries.Value = 1 Then
　　　　Fries = 20
　　　Else: Fries = 0
　　　End If
　If optLarge.Value = True Then
　　Large = 40
　Else: Large = 0
　End If
　　If optMediue.Value = True Then
　　　Mediue = 30
　　Else: Mediue = 0
　　End If
　　　If optSmall.Value = True Then
　　　　Small = 20
　　　Else: Small = 0
　　　End If
　picMoney.Print Val(Chiken + Hamburger + Fries + Large + Mediue + Small); "元"
End Sub