MEMBUAT PERKALIAN ATU SAMPAI SEPULUH

MEMBUAT PERKALIAN SATU SAMPAI SEPULUH

 

ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)

 

SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING MENGENAI  PROGRAM VISUAL BASIC 10 YANG SAYA BUAT

PROJECT LATIHAN   14

BERIKUT ADALAH CODING DARI MEMBUAT PERKALIAN SATU SAMPAI SEPULUH:

Public Class frmlat14

    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 richtexbox

        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 ke kanan sebanyak 15-20 karakter

            Me.Rtxperkalian.AppendText(Chr(13))

            baris += 1

        End While

    End Sub

    Private Sub Formlat14_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        utama.Enabled = True

        utama.Show()

        Me.Hide()

    End Sub

    Private Sub Formlat14_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        utama.Enabled = True

        utama.Show()

        Me.Hide()

    End Sub

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

        Call perkalian()

    End Sub

End Class