Contoh Project Visual Basic 2010 Membuat suatu perkalian

Membuat suatu perkalian Tidak menggunakan menu utama.

• Form project

 

•  Atur Propertis form sesuai dengan data berikut ;

• Coding project

Public Class frmLat_14

    Dim jbaris, jkolom, hasil As Integer

    Dim cetakkolom, cetakbaris As String

    Sub perkalian()

        Dim baris, kolom As Integer

        'Cetak di listbox

        jbaris = 10

        jkolom = 10

        For baris = 1 To jbaris

            For kolom = 1 To jkolom

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.lsPerkalian.Items.Add(cetakkolom)

            Next

            Me.lsPerkalian.Items.Add(Chr(13))

        Next

        'Cetak di richtextbox

        baris = 1

        While (baris <= jbaris)

            kolom = 1

            While (kolom <= jkolom)

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.rtxPerkalian.AppendText(cetakkolom)

                kolom += 1

            End While

            'Code untuk pindah ke atas / baris 1 dan digeser kenama sebanyak 15-20 karakter

            Me.rtxPerkalian.AppendText(Chr(13))

            baris += 1

        End While

    End Sub

    Private Sub frmLat_14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call perkalian()

    End Sub

End Class