Bowling Score Average

by Sanor!tA (2 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Fri 11^th November 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Bowling Score Average




Private Sub cmdCalculate_Click()
    Dim intGame1 As Integer
    Dim intGame2 As Integer
    Dim intGame3 As Integer
    Dim dblAverage As Integer
    
    intGame1 = txtScore1 'Get user input
    intGame2 = txtScore2 'Get user input
    intGame3 = txtScore3 'Get user input
    dblAverage = (intGame1 + intGame2 + intGame3) / 3
    
    lblAverage.Caption = dblAverage
End Sub

Private Sub cmdPrint_Click()
    'Prints current form at run time
     Me.PrintForm
End Sub

Private Sub Form_Load()
    'Displays the programmer name ,project name, current date and time
     lblInfo.Caption = "Zunaira Tariq" & vbCrLf & "Bowling Score Average" & vbCrLf & Date & vbCrLf & Time
End Sub
Private Sub cmdDone_Click()
    'Unload current form
    Unload frmBowlingScoreAverage
End Sub

Download this snippet Add to My Saved Code

Bowling Score Average Comments

No comments have been posted about Bowling Score Average. Why not be the first to post a comment about Bowling Score Average.

Bowling Score Average

Bowling Score Average Comments

Post your comment

Difficulty