program VB new

A. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen yang digunakan dan settingan properties diantaranya adalah :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program untuk menentukan nilai siswa dengan mengunakan if then else dan select case
Label 1	Caption	Masukan Nilai Siswa
Label 2	Caption	Keterangan Nilai Dengan Proses Menggunakan If then else
Label 3	Caption	Keterangan Nilai Dengan Proses Menggunakan Select Case
Label 4	Caption	:
Label 5	Caption	:
Label 6	Caption	:
Text1	Text	Di Kosongkan
Text2	Text	Di Kosongkan
Text3	Text	Di Kosongkan
Command1	Caption	Proses Nilai Dengan If then else
Command2	Caption	Proses Nilai Dengan Select Case
Command3	Caption	Proses Membersihkan Fields
Commadn4	Caption	Proses Untuk Keluar dari Form

Listing Program :

Pada Command1, Klik Double Kemudian Ketikkan Listing Program Sebagai Berikut :

If Text1.Text <= 50 Then

Text2.Text = "E"

Else

If Text1.Text <= 60 Then

Text2.Text = "D"

Else

If Text1.Text <= 70 Then

Text2.Text = "C"

Else

If Text1.Text <= 80 Then

Text2.Text = "B"

Else

If Text1.Text <= 100 Then

Text2.Text = "A"

Else

Text2.Text = "Tidak Ada Nilai"

End If

End If

End If

End If

End If

Pada Command2, Klik Double Kemudian Ketikkan Listing Program Sebagai Berikut :

Dim nilai As Integer

Dim keterangan As String

nilai = Text1.Text

Select Case nilai

Case 0 To 50

keterangan = "E"

Case 50 To 60

keterangan = "D"

Case 60 To 70

keterangan = "C"

Case 70 To 80

keterangan = "B"

Case Is <= 100

keterangan = "A"

Case Else

keterangan = "Tidak Ada Nilai"

End Select

Text3.Text = keterangan

Pada Command3, Klik Double Kemudian Ketikkan Listing Program sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Pada Command4, Klik Double Kemudian Ketikkan Listing Program sebagai berikut :

Unload me

B. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Adapun Komponen Yang digunakan termasukkan settingan yang digunakan adalah sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program Untuk Menghitung Nilai Siswa Kelas I RPL
Label 1	Caption	Masukkan Nilai MID
Label 2	Caption	Masukkan Hasil Nilai Akhir Semester
Label 3	Caption	Rata-Rata
Label 4	Caption	Keterangan
Label 5	Caption	:
Label 6	Caption	:
Label 7	Caption	:
Label 8	Caption	:
Text1	Text	Kosongkan
Text2	Text	Kosongkan
Text3	Text	Kosongkan
Text4	Text	Kosongkan
Command1	Caption	Proses Hitung Nilai
Command2	Caption	Bersihkan

Listing Program:

Pada Command1, Klik double kemudian ketikkan perintah sebagai berikut :

Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2

If Text3.Text >= 85 Then

Text4.Text = "Sangat Memuaskan"

Else

If Text3.Text >= 75 Then

Text4.Text = "Cukup Memuaskan"

Else

If Text3.Text >= 60 Then

Text4.Text = "Memuaskan"

Else

Text4.Text = "Tidak Ada Nilai"

End If

End If

End If

Pada Command2, klik double kemudian ketikkan perintah sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

C. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen yang dipakai dan aturan settingan sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Form1	Caption	Program Hitung Pembayaran Pembelian Barang
Label1	Caption	Jumlah Yang di Beli
Label2	Caption	Harga Barang
Label3	Caption	Total Bayar
Label4	Caption	:
Label5	Caption	:
Label6	Caption	:
Text1	Text	Kosongkan
Text3	Text	Kosongkan
Text3	Text	Kosongkan
Command1	Caption	Hitung
Command2	Caption	Bersih

Listing Program :

Command1, Klik double kemudian ketikkan perintah sebagai berikut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Text3.Text = Format(Text3.Text, "Rp ###,###,###") & ",-"

Command2, Klik double kemudian ketikkan perintah sebagai berikut :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

D. Rancanglah Form Seperti gambar di bawah ini dengan menggunakan visual basic ketentuan sebagai berikut :

Komponen dan settingan yang digunakan adalah sebagai berikut :

OBJEK	PROPERTIES	NILAI/ ISI
Option1	Caption	Penjumlahan
Option2	Caption	Pengurangan
Option3	Caption	Perkalian
Option4	Caption	Pembagian
Option5	Caption	Luas Persegi Panjang
Option6	Caption	Luas Segitiga
Option7	Caption	Luas Lingkaran
Text1	Text	Kosongan
Text2	Text	Kosongan
Text3	Text	Kosongan
Label1	Caption	Masukan Nilai I
Label2	Caption	Masukan Nilai II
Label3	Caption	Hasil
Label4	Caption	:
Label5	Caption	:
Label6	Caption	:

Listing Program :

Option1, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Option2, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Option3, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Option4, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Option5, klik double ketikkan perintah sebagai berkut :

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Option6, klik double ketikkan perintah sebagai berkut :

Text3.Text = (Val(Text1.Text) * Val(Text2.Text)) / 2

Option7, klik double ketikkan perintah sebagai berkut :

Text3.Text = (Val(Text1.Text) * Val(Text2.Text)) * 3.14