Jak stworzyć kalkulator GPA w Visual Basic 2008

Visual Basic (VB) to język programowania opracowany przez Microsoft, służący do tworzenia aplikacji desktopowych. Dzięki wbudowanym funkcjom matematycznym można w VB łatwo realizować obliczenia, np. średnią punktową (GPA). Poniżej znajdziesz szczegółowy przewodnik, jak napisać prosty kalkulator GPA, który przyjmuje oceny, zapisuje je w bazie aplikacji i wyświetla wynik.

Krok 1 – Uruchomienie Visual Studio 2008

Otwórz Visual Studio 2008 i utwórz nowy projekt typu Windows Forms Application w języku Visual Basic.

Krok 2 – Projektowanie formularza

Na formularzu umieść następujące kontrolki:

• Pole tekstowe txtCredits – liczba punktów (credits) za przedmiot.
• Pole tekstowe txtGrade – ocena (A, B, C, D).
• Przycisk btnRecord – zapisuje wprowadzone dane.
• Przycisk btnCalculate – oblicza średnią GPA.
• Pole tekstowe txtGPA – wyświetla wynik.

Krok 3 – Deklaracja zmiennych

W kodzie formularza zadeklaruj zmienne przechowujące sumę punktów i sumę ocen:

Public Class Form1
    Private totalCredits As Double = 0
    Private totalPoints As Double = 0
End Class

Krok 4 – Zapis danych

Dodaj obsługę przycisku btnRecord. Po kliknięciu program odczytuje wprowadzone wartości, przelicza ocenę na liczbę punktów i aktualizuje zmienne:

Private Sub btnRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecord.Click
    Dim credits As Double = CDbl(txtCredits.Text)
    Dim grade As String = txtGrade.Text.Trim().ToUpper()
    Dim points As Double = 0

    Select Case grade
        Case "A"
            points = 4
        Case "B"
            points = 3
        Case "C"
            points = 2
        Case "D"
            points = 1
        Case Else
            MessageBox.Show("Nieprawidłowa ocena")
            Exit Sub
    End Select

    totalCredits += credits
    totalPoints += points * credits

    txtCredits.Clear()
    txtGrade.Clear()
End Sub

Krok 5 – Obliczenie GPA

W obsłudze przycisku btnCalculate podziel sumę punktów przez sumę kredytów i wyświetl wynik:

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
    If totalCredits = 0 Then
        MessageBox.Show("Brak danych do obliczenia GPA")
        Return
    End If
    Dim gpa As Double = totalPoints / totalCredits
    txtGPA.Text = gpa.ToString("F2")
End Sub

Krok 6 – Kompilacja i uruchomienie

Zapisz wszystkie zmiany, skompiluj projekt (klawisz F5) i przetestuj aplikację, wprowadzając różne oceny oraz liczby punktów.

Po pomyślnym uruchomieniu program będzie wyświetlał średnią GPA, uwzględniając wszystkie wprowadzone przedmioty.