Kaip sukurti GPA skaičiuoklę Visual Basic 2008 aplinkoje

Visual Basic – Microsoft sukurta programavimo kalba, skirta darbalaukio programų kūrimui. Ji leidžia atlikti matematinius skaičiavimus, pavyzdžiui, vidurkių skaičiavimą, naudojamą studijų rezultatų indeksui (GPA) apskaičiuoti. Šiame vadove parodyta, kaip sukurti paprastą GPA skaičiuoklę, kur vartotojas įveda pažymį ir kreditų skaičių, o programa išsaugo duomenis ir apskaičiuoja vidurkį.

1 žingsnis – Sukurkite projektą

Atidarykite Visual Studio 2008 ir sukurkite naują Visual Basic projektą. Tai bus pagrindas jūsų GPA skaičiuoklei.

2 žingsnis – Pridėkite formą

Sukurkite naują formą, kurioje vartotojas galės įvesti pažymį ir kreditų skaičių. Pavyzdinis kodo fragmentas:

Public Class Form1
    Dim Credits As Double = 0
    Dim GPA As Double = 0
End Class

3 žingsnis – Įrašymo mygtukas

Pridėkite mygtuką btnRecord ir susiekite jį su šia procedūra, kuri įrašo įvestus duomenis:

Private Sub btnRecord_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRecord.Click
    ' Įrašyti kreditus ir pažymį
End Sub

4 žingsnis – GPA formulė

Į procedūrą įdėkite formulę, kuri suskaičiuoja bendrą taškų sumą ir kreditų sumą:

GPA += GetGradeValue(Grade.Text) * CDbl(CreditsTextBox.Text)
Credits += CDbl(CreditsTextBox.Text)

5 žingsnis – Pažymių vertės

Apibrėžkite funkciją, kuri konvertuoja pažymį į skaitinę reikšmę:

Private Function GetGradeValue(ByVal grade As String) As Double
    Select Case grade.ToUpper()
        Case "A" : Return 4
        Case "B" : Return 3
        Case "C" : Return 2
        Case "D" : Return 1
        Case Else : Return 0
    End Select
End Function

6 žingsnis – Apskaičiuoti ir parodyti rezultatą

Pridėkite mygtuką btnCalculate su procedūra, kuri išskaičiuoja galutinį GPA ir rodo jį tekstiniame lauke:

Private Sub btnCalculate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCalculate.Click
    Dim averageGPA As Double = GPA / Credits
    txtGPA.Text = averageGPA.ToString("F2")
End Sub

Baigę, išsaugokite projektą ir sukompiliuokite jį. Gautą .exe failą galite paleisti kaip bet kurią darbalaukio programą.