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

Wed, 08 Feb 2006 19:35:03 -0800

Thanks ya Bung Heru, kayaknya mesti di coba dan di compare cepetan yang mana ?? soalnya data yang akan ditangani procedure ini sangat complicated
 
salam,
Padu Arsana I Wayan

Heru Rahadyan <[EMAIL PROTECTED]> wrote:
kalo pake do .. while
 
Sub CariCari()
Dim A as integer
a=0
DO WHILE A=0
      doevents
    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
        A=1
        exit sub
    else
            text2.text=text5.text
      end if
LOOP
End Sub
 
cuman kalo text2 <> text5 terus, loop nya bisa panjang .. kayak hang malah
 
------------------------------------------------------
Heru Rahadyan
----------------------------------------------------------------------------------
isi imel ini bukanlah hal yang rahasia, boleh diperbanyak sebanyak apapun yang anda mau
pengirim tidak bertanggungjawab atas segala risiko yang muncul akibat perbanyakan isi imel
ini secara ilegal, termasuk virus - flu burung, polio, antrax dll- serta segala tetek bengek lainnya.
Isi dari email ini tidak bisa dipertanggungjawabkan kebenarannya.
Percaya atau tidak percaya atas email ini adalah tanggungjawab pembaca sendiri.
 
 
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Padu Arsana W
Sent: Wednesday, February 08, 2006 6:31 PM
To: [email protected]
Subject: [Programmer-VB] Do While ....Loop

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
 
Ada yang punya saran lain ?? misal pake Do While .. Loop, saya akan berterima kasih sekali jika VB-iers memberi saya masukkan. :)
 


Matur suksma,

Padu Arsana W
Penida Island, Klungkung - Bali

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