RE: [Programmer-VB] Do While ....Loop

Wed, 08 Feb 2006 23:44:34 -0800

OK. Saya udah coba pd perhitungan yg sederhana dan tdk ada masalah dgn proc yg bung Heru kasih maupun punya saya. tentu,, smua isi text hrs di make sure numeric sebelum proc ini di panggil. Ok thanks ya Bung Heru ;)
 
 
Salam,
Padu Arsana I Wayan

Heru Rahadyan <[EMAIL PROTECTED]> wrote:
btw, maap kelupaan, DIM-nya tidak boleh didalam LOOP, mesti sebelumnya DO WHILE, biar ngga ada 2x DIM
trus, sebaiknya, di cek dulu apakah isi semua text box sdh berupa angka.
jk ya baru panggil prosedur CariCari tsb. jgn lupa DoEvents-nya biar komputernya ngga kayak orang bego saat proses berulang2 yg lama :)
 
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Padu Arsana W

Dear All
 
Saya punya kasus yang mgkn sederhana sekali
ceritanya begini : saya punya satu form berisi text1,text2,text3,text4 dan text5 serta command1
 
text4 = text1 + text2 + text3
text5 = 0.05% * text4
 
saya bermaksud u/ ambil nilai pd text5 ke text2   (text2.text =text5.text)
selanjutnya proc kembali melakukan  penghitungan sampai pada nilai hasil text2.text = text5.text
 
saya sih udah dapet dgn proc berikut ini :
 
Private Sub Command1_Click()
      Text2.Text = Text5.Text
      Call Text3_LostFocus
End Sub
 
Private Sub Text3_LostFocus()
    Dim xJumlah As Double
   
    xJumlah = CCur(Text1.Text) + CCur(Text2.Text) + CCur(Text3.Text)
   
    Text4.Text = FormatNumber(xJumlah, 0, vbTrue, vbFalse)
   
    Text5.Text = 0.05 * CCur(Text4.Text)
    
    If Text2.Text = Text5.Text Then 
         Exit Sub  'Disini proc akan berhenti saat hasil perhitungan sama
    End If
   
Call Command1_Click
End Sub

Relax. Yahoo! Mail virus scanning helps detect nasty viruses!

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke