Langkah - langkah yang perlu dilakukan adalah sebagai berikut :
1. Buka jendela Visual Studio 2008
2. Design form sperti gambar dibawah ini
3. Beri nama textbox1 : Bil
Beri nama textbox2 : Hasil
Beri nama button : Proses
Beri nama text button : Proses
4. setelah selesai memberi nama pada textbox dan button maka ketikan program seperti dibawah ini
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Dim total As Double = 1
hasil.Text = "1"
For i = 2 To Val(bil.Text)
hasil.Text = hasil.Text & "x" & i
total = total * bil.Text
Next i
hasil.Text = hasil.Text & "=" & total
End Sub
5. Lalu jalankan progrm anda (f5) maka akan tampil form yang anda buat, pada textbox "Bil" inputkan angka sesuai perkalian yang diinginkan seperti angka "5" maka akan tampil gambar seperti dibawah ini
1. Buka jendela Visual Studio 2008
2. Design form sperti gambar dibawah ini
Beri nama textbox2 : Hasil
Beri nama button : Proses
Beri nama text button : Proses
4. setelah selesai memberi nama pada textbox dan button maka ketikan program seperti dibawah ini
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Dim total As Double = 1
hasil.Text = "1"
For i = 2 To Val(bil.Text)
hasil.Text = hasil.Text & "x" & i
total = total * bil.Text
Next i
hasil.Text = hasil.Text & "=" & total
End Sub
5. Lalu jalankan progrm anda (f5) maka akan tampil form yang anda buat, pada textbox "Bil" inputkan angka sesuai perkalian yang diinginkan seperti angka "5" maka akan tampil gambar seperti dibawah ini
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam id libero non erat fermentum varius eget at elit. Suspendisse vel mattis diam. Ut sed dui in lectus hendrerit interdum nec ac neque. Praesent a metus eget augue lacinia accumsan ullamcorper sit amet tellus.
Hasilnya salah tu.. harusnya, 1x2x3x4x5 = 120
BalasHapusharusnya scriptnya ganti ini:
total = total * bil.Text
diganti dengan
total = total * i