Aplikasi Cetak Karakter
- Form Design
- Code
Dim banyak As Integer
Dim karakter, karen As String
Sub cetak_hasil()
Dim i, r As Integer
banyak = Val(Me.txtBPerulangan.Text)
karakter = (Me.txtKarakter.Text)
'step 1
i = banyak - 1
While (i >= 1)
r = 1
While (r <= i)
karen = karen & karakter
r += 1
End While
karen = karen & Chr(13)
i -= 1
End While
'step 2
i = 1
While (i <= banyak)
r = 1
While (r <= i)
karen = karen & karakter
r += 1
End While
karen = karen & Chr(13)
i += 1
End While
Me.lbHasil.Text = karen
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(Me.txtBPerulangan.Text) >= 1 And Me.txtKarakter.Text <> "" And Me.txtKarakter.Text <> " " Then
'ok
Call cetak_hasil()
Else
'Bermasalah
MsgBox("jumlah perulanga benat atau karakter kosong !", vbCritical, "masalah")
End If
End Sub
- Start Debugging
