AllSyntax.com: » Code » Visual Basic » 9 » Hanks Pizza


	Every day I get up and look through the Forbes list of the richest people in America. If I’m not there, I go to work. - Robert Orben

[login] | [Register]

Hanks Pizza

by: bs0d

Description:

This program will display the price for the appropriate meal selected. You can modify it to whatever you need. Just another program to get a feel how things work. - (4 buttons, 3 labels, 1 combo box).

See Full Size

Code:

Private Sub cmdClear_Click()
'Will clear the form
cboPizza.SetFocus
cboPizza.ListIndex = 0
lblPrice = ""

End Sub

Private Sub cmdExit_Click()
'Will terminate the program

End
    
End Sub

Private Sub cmdPrice_Click()
'Will calculate the cost of selected item.

If cboPizza.ListIndex = 0 Then
        price = 300
    End If
    If cboPizza.ListIndex = 1 Then
        price = 500
    End If
    If cboPizza.ListIndex = 2 Then
        price = 520
    End If
    If cboPizza.ListIndex = 3 Then
        price = 700
    End If
    If cboPizza.ListIndex = 4 Then
        price = 250
    End If
    If cboPizza.ListIndex = 5 Then
        price = 450
    End If

price2 = price / 100

lblPrice = FormatCurrency(price2, 2)

End Sub

Private Sub cmdPrint_Click()
'Will print the form

PrintForm
    
End Sub

Private Sub Form_Load()
'Will center the form on the screen

frmHanks.Top = (Screen.Height - frmHanks.Height) / 2
     frmHanks.Left = (Screen.Width - frmHanks.Width) / 2

cboPizza.ListIndex = 4

End Sub

No Comments for this page.

You Must be signed in or a member to comment.