Membuat Cek Hadiah Sesuai Jumlah Point Reward Dalam Visual Basic

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	-
2	Label1	Text	Cek Hadiah Sesuai Point Reward
3	Label2	Text	Jumlah Point Reward
4	Label3	Text	Hadiah
5	Textbox1	Name	TxtJPR
6	Textbox2	Name	TxtHadiah
7	Button1	Text	Proses
		Name	Btnproses
8	Button2	Text	Bersih
		Name	Btnbersih
9	Button3	Text	Tutup
		Name	Btntutup

3. Tampilan program setelah pengaturan properties sebagai berikut:

 

4. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Masukkan nilai pada label1 (Jumlah Point Reward) pada bagian Textbox1 (Txtnilai) sesuai dengan hasil perintah program.

b.    Setelah itu klik Button1 (Proses) jika nilai yang di peroleh 1000 ke bawah maka hadiahnya Mug Cantik,jika  1500 ke bawah maka memperoleh hadiah Boneka Cantik, jika nilainya sampai 2000 ke bawah maka hadiahnya Kipas Angin dan jika nilai yang diperoleh 2500 ke bawah akan mendapat hadiah Dispenser. Jika selain dari pada nilai di atas maka hasilnya Tidak Ada memperoleh hadiah.

c.    Jika diklik tombol Button2 (Bersih), maka:

a.      Nilai yang terdapat pada Textbox1 (Txtnilai) akan hilang.

b.      Nilai yang terdapat pada Textbox2 (Txthasil) akan hilang.

d.    Jika diklik tombol Button3(Tutup), maka program akan ditutup (keluar dari program)

4.Perintah Program :

PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

SelectCase Val(TxtJPR.Text)

CaseIs<= 1000

                TxtHadiah.Text = "Mug Cantik"

CaseIs<= 1500

                TxtHadiah.Text = "Boneka Cantik"

CaseIs<= 2000

                TxtHadiah.Text = "Kipas Angin"

CaseIs<= 2500

                TxtHadiah.Text = "Dispenser"

CaseElse

                TxtHadiah.Text = "Tidak Ada"

EndSelect

EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        TxtHadiah.Text = " "

        TxtJPR.Text = " "

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click

End

EndSub

EndClass

     Tampilan Program setelah dijalankan berdasarkan nilai diperoleh sebagai berikut :

Untuk menjalankan program, klik tombol Start Debugging        atau tekan tombol F5 pada keyboard.

 

Untuk menutup program, klik tombol Stop Debugging