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

Thu, 09 Feb 2006 01:46:47 -0800

Title: Message
ada baiknya juga dilengkapi dgn tombol "cancel" mas. antisipasi jk perhitungannya jd sangat lama dan ingin dihentikan
akan dilengkapi dgn counter utk menghitung looping
 
Jk utk mempercepat, mk saya ada saran sbb :
 
DIM A as integer 'ini di bagian general biar bisa digunakan secara umum (jgn di prosedur)
 
Sub CariCari()
Dim xJumlah, s2, s5 As Double
Dim B as Long
 
s2 = CCur(text2)
xJumlah = CCur(text4)
s5 = CCur(text5)
 
a=0 : B=0
DO WHILE A=0
      doevents
    B=B+1
    xJumlah = CCur(Text1.Text) + s2 + CCur(Text3.Text)
    s5= 0.05 * xJumlah
 
    Me.Caption = "Jumlah looping = " Cstr(B)
 
    if Text2.text=Text5.text then
        A=1
        text4 = FormatNumber(xJumlah, 0, vbTrue, vbFalse) 'hanya dimasukkan diakhir utk mempercepat
        text5 = s5 'hanya dimasukkan diakhir utk mempercepat
        exit sub
    else
            s2 = s5   'diganti variabel akan lbh cepat drpd akses ke control text box
      end if
LOOP
End Sub
 
Private SUb TombolCancel_Click ()
   A = 1   'akan menghentikan proses loop
End Sub
 
Private Sub TombolHitung ()
   if not isnumeric(text1) or not isnumeric(text2) or not isnumeric(text3) or not isnumeric(text5) then
      msgbox "data salah"
   else
      text4=text1 + text2 + text3
      text2 = text5
      CariCari
   end if
End SUb

------------------------------------------------------

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.



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