Vytvoření kalkulačky GPA v aplikaci Visual Basic 2008

Visual Basic je programovací jazyk vyvinutý společností Microsoft, který slouží k tvorbě desktopových aplikací. Stejně jako u jiných jazyků lze v VB provádět matematické výpočty, například výpočet průměru známek (GPA). V tomto návodu si ukážeme, jak vytvořit jednoduchou kalkulačku GPA, která umožní uživateli zadat známku a počet kreditů, uloží je do databáze aplikace a spočítá průměr.

Krok 1 – Otevření nového projektu

Spusťte Visual Studio 2008 a vytvořte nový projekt typu Windows Forms Application v jazyce Visual Basic.

Krok 2 – Návrh formuláře

Přidejte na formulář následující ovládací prvky:

• TextBox txtCredits – zadání počtu kreditů.
• ComboBox cmbGrade – výběr známky (A, B, C, D, F).
• Button btnRecord – uložení záznamu.
• Button btnCalculate – výpočet průměru.
• Label lblResult – zobrazení výsledného GPA.

Krok 3 – Deklarace proměnných

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

Krok 4 – Ukládání záznamů

Do události Click tlačítka btnRecord přidejte kód, který přečte zadané kredity a vybranou známku a přičte je k celkovým součtům.

Private Sub btnRecord_Click(sender As Object, e As EventArgs) Handles btnRecord.Click
    Dim credits As Double = CDbl(txtCredits.Text)
    Dim grade As String = cmbGrade.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 "F" : points = 0
        Case Else
            MessageBox.Show("Neplatná známka.")
            Exit Sub
    End Select

    totalCredits += credits
    totalPoints += points * credits

    txtCredits.Clear()
    cmbGrade.SelectedIndex = -1
End Sub

Krok 5 – Výpočet GPA

V události Click tlačítka btnCalculate spočítejte průměr a zobrazte jej.

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
    If totalCredits = 0 Then
        MessageBox.Show("Nejsou zadány žádné kredity.")
        Return
    End If

    Dim gpa As Double = totalPoints / totalCredits
    lblResult.Text = "GPA: " & gpa.ToString("F2")
End Sub

Krok 6 – Kompilace a spuštění

Uložte projekt a spusťte jej pomocí Start. Aplikace bude připravena přijímat známky a okamžitě vypočítávat GPA.

Celý kód můžete rozšířit o uložení záznamů do souboru nebo databáze, přidání validace vstupů či grafického zobrazení výsledků.