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

Padu Arsana W Wed, 08 Feb 2006 18:31:35 -0800

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

Yahoo! Mail - Helps protect you from 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

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

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

Kirim email ke