Membuat program PERBANDINGAN NILAI VARIABEL dengan Visual Basic 6.0

Kali ini saya akan memberikan tutorial untuk membuat program PERBANDINGAN NILAI VARIABEL seperti pada gambar di bawah ini :

Program ini akan membandingkan nilai dari ketiga variabel A,B,C yang diinputkan pada masing-masing textbox untuk memperoleh mana nilai variabel yang terbesar dengan asumsi tidak ada nilai yang sama. Pada saat program dijalankan (start), nilai variabel A,B,C diinputkan kemudian klik tombol PROSES CEK untuk melakukan perbandingan nilai variabel dan hasil dari program di atas nampak seperti pada gambar di bawah ini :

Inilah kode program tersebut agar program dapat dijalankan dengan benar :

Private Sub Command1_Click()

If Val(Text1.Text) = Val(Text2.Text) Then

Label5.Caption = "Ada Nilai Yang Sama, Harap Diganti"

Else

If Val(Text1.Text) = Val(Text3.Text) Then

Label5.Caption = "Ada Nilai Yang Sama, Harap Diganti"

Else

If Val(Text2.Text) = (Val(Text3.Text)) Then

Label5.Caption = "Ada Nilai Yang Sama, Harap Diganti"

Else

If Val(Text1.Text) > Val(Text2.Text) And Val(Text1.Text) > Val(Text3.Text) Then

Label5.Caption = "Nilai Variabel A PALING BESAR"

Else

If Val(Text2.Text) > Val(Text1.Text) And Val(Text2.Text) > Val(Text3.Text) Then

Label5.Caption = "Nilai Variabel B PALING BESAR"

Else

If Val(Text3.Text) > Val(Text1.Text) And Val(Text3.Text) > Val(Text2.Text) Then

Label5.Caption = "Nilai Variabel C PALING BESAR"

End If

End If

End If

End If

End If

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Begitulah kode programnya..

SELESAI J