makasih ya.... dave-g <[EMAIL PROTECTED]> wrote: Program percabangannya salah Mas. TextBoxnya Anda buat Control Array saja untuk memudahkan pemrogramannya saja. SEMOGA MEMBANTU.
Dim Arr(), Max ReDim Arr(Text1.uBound, Text1.LBound) Max = Text1(0).Text For i = Text1.LBound To Text1.uBound If Max < Val(Text1(i).Text) Then Max = Text1(i).Text End If Next Text1(3).Text = Max -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of agus aguseu Sent: 30 September 2006 0:23 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] [Non-text portions of this message have been removed] --------------------------------- All-new Yahoo! Mail - Fire up a more powerful email and get things done faster. [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 <*> 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/
