Program Visual Studio

Berikut ini adalah beberapa Program dengan menggunakan Visual Studio 2012

1. Menentukan Ouput Pujian

Public Class lulusForm
Private Sub tombolPujian_Click(sender As Object, e As EventArgs) Handles tombolPujian.Click
Dim ipk As Double = CDbl(teksIPK.Text)
Dim pujian As String
If ipk >= 3.9 Then
pujian = ” dengan cum laude.”
ElseIf ipk >= 3.6 Then
pujian = ” dengan magna cum laude.”
ElseIf ipk >= 3.2 Then
pujian = ” dengan cum laude.”
ElseIf ipk >= 2 Then
pujian = “.”
End If
teksKeluaran.Text = “Anda lulus” & pujian
End Sub
End Class

2. Menghitung Kembalian

Public Class kembalianForm
Private Sub tombolHitung_Click(sender As Object, e As EventArgs) Handles tombolHitung.Click
Dim berat, biaya, uang, kembalian As Double
berat = CDbl(teksBerat.Text)
uang = CDbl(teksUang.Text)
biaya = berat * 25000
If (uang >= biaya) Then
kembalian = uang – biaya
teksKeluaran.Text = “Kembalian Anda adalah ” & “Rp. ” & kembalian.ToString(“N”) & “.”
Else
teksKeluaran.Text = “Saya perlu ” & “Rp. ” & (biaya – uang).ToString(“N”) & ” lagi.”
End If
End Sub
End Class

3. Menentukan Jawaban dengan Checkbox

Public Class kesehatanForm
Private Sub tombolTentukan_Click(sender As Object, e As EventArgs) Handles tombolTentukan.Click
Dim jum As Double = 0
If checkObat.Checked Then
jum += 350000
End If
If checkGigi.Checked Then
jum += 550000
End If
If checkMata.Checked Then
jum += 750000
End If
If checkKesehatan.Checked Then
jum += 1500000
End If

teksTotal.Text = “Rp. ” & jum.ToString(“N”)
End Sub
End Class

4. Menggunakan Function dan Return

(Form terdiri dari 5 Label, 5 textbox, 1 button)
Public Class popcornForm
Private Sub tombolTentukan_Click(sender As Object, e As EventArgs) Handles tombolTentukan.Click
Dim popcorn, mentega, keranjang, harga As Double
popcorn = CDbl(teksPopcorn.Text)
mentega = CDbl(teksMentega.Text)
keranjang = CDbl(teksKeranjang.Text)
harga = CDbl(teksHarga.Text)
teksKeuntungan.Text = “Rp. ” &
(Keuntungan(popcorn, mentega, keranjang, harga)).ToString(“N2”)
End Sub

Function Keuntungan(popcorn As Double, mentega As Double,
keranjang As Double, harga As Double) As Double
‘menghitung keuntungan sekeranjang popcorn
Return harga – (popcorn + mentega + keranjang)
End Function
End Class

Heny Pratiwi

Seorang Muslimah, Dosen, Penulis Buku, Author/Reviewer Artikel // Tertarik pada bidang teknologi dan pendidikan // Orangeious.

Mungkin Anda juga menyukai

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *