Rabu, 10 Oktober 2012

fix code VB latihan for...next


Private Sub cmdhitung_Click()
bil = Val(txtbil.Text)
vproses = 1
For i = 1 To bil
vproses = i * vproses
Next i
txtfak.Text = vproses
i = bil
Do
deret = i * (i + 1) * 0.5
Loop Until i + deret
txtn.Text = deret
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Minggu, 07 Oktober 2012

Latihan For...Next dan Do..Loop

ini code nya

Private Sub cmdhitung_Click()
bil = Val(txtbil.Text)
vproses = 1
For i = 1 To bil
vproses = i * vproses
Next i
txtfak.Text = vproses
i = bil
Do
deret = (i - 1) * i - i
Loop Until i + deret
txtn.Text = deret
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub