Thursday, January 17, 2013

CARA MENAMPILKAN HURUF ABJAD


Dibawah ini adalah desain FORMnya
 
Disain di atas menggunakan TEXT BOX

Berikut ini adalah LISTING PROGRAM Form di atas
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For X = 65 To 90
            TextBox1.Text = TextBox1.Text & " " & Chr(X)
        Next
        For X = 90 To 65 Step -1
            TextBox2.Text = TextBox2.Text & " " & Chr(X)
        Next
    End Sub
End Class

KETIKA DI PROSES ATAU F5

No comments:

Post a Comment