Untuk membuat tabel gunakan komponen ListView
Atur Properties ListView
Properties ListView1 | ||
GridLines | True | - |
Views | Details | - |
Colums | ColumsHeader1 ColumsHeader2 ColumsHeader3 | Pangkat-1 Pangkat-2 Pangkat-3 |
Tambahka 4 Textbot, 1 Label dan 1 Buttons
Setelah itu masukan listing kode dibawah ini.
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim baris As Integer, batas As Integer, tot1 As Integer, tot2 As Integer, tot3 As Integer
batas = txtbatas.Text
'melakukan perhitungan pangkat'
For baris = 1 To batas Step 1
lsttable.Items.Add(baris)
lsttable.Items(baris - 1).SubItems.Add(baris * baris)
lsttable.Items(baris - 1).SubItems.Add(baris * baris * baris)
'melakukan perhitungan total'
tot1 = tot1 + baris
tot2 = tot2 + baris * baris
tot3 = tot3 + baris * baris * baris
Next
txtp1.Text = tot1
txtp2.Text = tot2
txtp3.Text = tot3
End Sub
Kemudian jalankan progra ( tekan F5 )
Jika berhasil hasil/output akan sesuai dengan inputan tang kita masukan..sekian postingan kali ini semoga bermanfaat untuk kita semua..Amiiin.
tHankz gan
BalasHapusgimana agar bisa datax dklik...
BalasHapus