Cara Membuat Kalkulator IPK Menggunakan Visual Basic 2008

Visual Basic ialah bahasa pembangunan aplikasi yang dicipta oleh Microsoft, digunakan untuk membangunkan perisian desktop. Seperti kebanyakan bahasa pengaturcaraan, VB boleh digunakan untuk melaksanakan persamaan matematik, termasuk pengiraan purata bagi mengira Indeks Prestasi Kelas (IPK). Dengan mengikuti langkah-langkah di bawah, anda boleh membuat kalkulator IPK yang membolehkan pengguna memasukkan nilai dan menyimpannya dalam pangkalan data aplikasi, di mana ia akan dikira secara purata.

Langkah 1

Buka Visual Studio 2008 dan cipta dokumen VB baharu. Di sini anda akan menulis kod aplikasi kalkulator IPK anda.

Langkah 2

Cipta borang baharu yang akan menerima nilai dan nama kursus:
Public Class Form
Dim Credits As Double
Dim GPA As Double

Langkah 3

Buat subrutin untuk merekod masukan nilai dan nama kursus:
Private Sub btnRecord_Click(ByVal sender As System.Object, e As System.EventArgs) Handles btnRecord.Click

Langkah 4

Tentukan formula yang mengira IPK dengan menambah kod berikut:
GPA += Grade()
Grade = Credits += CDbl(Credits.Text)

Langkah 5

Cipta argumen bagi setiap pilihan nilai dan berikan nilai numerik, contoh:
If Grade.Text = "A" Then GPA += 4 End If
If Grade.Text = "B" Then GPA += 3 End If
If Grade.Text = "C" Then GPA += 2 End If
If Grade.Text = "D" Then GPA += 1 End If

Langkah 6

Tutup subrutin pencatatan dan cipta satu lagi untuk menyimpan keputusan kalkulator:
End Sub
Private Sub btnCalculate_Click(ByVal sender As System.Object, e As System.EventArgs) Handles btnCalculate.Click
Dim averageGPA As Double = GPA / Credits
textGPA.Text = CStr(GPA)
End Sub
End Class

Simpan kod VB dan bina (compile) menggunakan kompiler pilihan anda supaya ia dapat dijalankan sebagai aplikasi desktop.