Dear Agus Aguseu,
Untuk mencari nilai terbesar dari sekumpulan data sebenarnya ada beberapa
hal penting yang harus kita ketahui ya.
Pada contoh anda, karena anda memberikan nilai dalam bentuk Integer, maka
saya akan memberikan contoh cara penyelesaian yang baru untuk kasus anda.
1. nilai masing-masing text..
txtnilai1.Text = "10"
txtnilai2.Text = "20"
txtnilai3.Text = "30"
txtnilai4.Text = "40"
berikutnya kita akan menggunakan array untuk melakukan penghitungan.
tapi daripada kita mendeclarasikan variable baru, maka saya lebih suka
merubah textboxnya saya menjadi array ya. Biar gak berbelit-belit.
Sehingga textbox menjadi:
Txtnilai(0).Text = "10"
Txtnilai(1).Text = "20"
Txtnilai(2).Text = "30"
Txtnilai(3).Text = "40"
dim Pembanding as integer 'Tipe data yang anda inginkan sebagai contoh
Pembanding = - 32768 ' kenapa - 32768
' ingat jangkauan tipe data ini? Integer?
' dari - 32768 sampai 32767
' karena kita mau mencari nilai terbesar, jadi kita mulai
' titik perbandingan dari nilai yang terkecil.
' atau kita saja mulai dari 0 kalau anda mau :)
Dim i as integer
For I = 0 to txtnilai.count -1
If cint(txtnilai(i)) > Pembanding then
Pembanding = cint(txtnilai(i))
End if
Next i
Nilai_terbesar = Pembanding
Disini, kita bisa langsung dapat nilai terbesar dengan cara membandingkan
nilai-nilai tersebut.
silahkan di coba :)
big smile and great regards in advance,
-----------------------------------------------------------------
Jacky Supit
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dekstop or web programming,
anything i can do 4 you ;-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----------------------------------------------------------------
-----Original Message-----
From: agus aguseu [mailto:[EMAIL PROTECTED]
Sent: Friday, September 29, 2006 10:23 AM
To: [email protected]
Subject: [indoprog-vb] Tanya Operator Pembanding
Dears programmer's all
Saya mo nanya tentang operator pembanding
yang dapat membandingkan nilai sehingga didapat
sebuah nilai yang paling besar...
Dibawah ada code simulasi program untuk pembanding
tiga buah nilai, tetapi setelah dieksekusi beberapa kali
terkadang hasilnya tidak sesuai dengan yang diinginkan
bisa kasih solusi ngga ?? makasih
Private Sub cmdinput_Click()
proses
End Sub
Private Sub Form_Activate()
txtnilai1.Text = ""
txtnilai2.Text = ""
txtnilai3.Text = ""
txtnilai4.Text = ""
cmdinput.SetFocus
End Sub
Private Sub proses()
Dim nilai1 As Integer
Dim nilai2 As Integer
Dim nilai3 As Integer
Dim nilai4 As Integer
nilai1 = InputBox("Masukkan angka pertama !!", "Masukkan angka")
txtnilai1.Text = Format(nilai1, "0.000")
nilai2 = InputBox("Masukkan angkat kedua !!", "Masukan angka")
txtnilai2.Text = Format(nilai2, "0.000")
nilai3 = InputBox("Masukkan angka ketiga !!", "Masukan angka")
txtnilai3.Text = Format(nilai3, "0.000")
If nilai1 > nilai2 Then
nilai4 = nilai1
Else
nilai4 = nilai2
If nilai4 > nilai3 Then
nilai4 = nilai4
txtnilai4.Text = nilai4
Else
nilai4 = nilai3
txtnilai4.Text = nilai3
End If
End If
End Sub
---------------------------------
Get your email and more, right on the new Yahoo.com
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
