LATIHAN PENGGUNAAN STRING MENGGUNAKAN DO WHILE

Dibawah ini adalah Form Latihannya

 

Di bawah ini adalah LISTING PROGRAMNYA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Byte

        i = 2

        Do While i <= 5

            ListBox1.Items.Add(i)

            i = i + 1

        Loop

        For j = 10 To 1 Step -1

            ListBox2.Items.Add(j)

        Next j

        Dim x As String

        x = "STMIK"

        textboxt1.Text = textboxt1.Text & i & x & vbCrLf

        i = 5

        Do While i >= 1

            textboxt1.Text = textboxt1.Text & i & x & vbCrLf

            i = i - 1

        Loop

    End Sub

End Class

KETIKA DI PROSES

LATIHAN SINGKAT PENGGUNAAN STRING DENGAN MERUBAH KALIMAT MENJADI KODE ASCI

Dibawah ini adalah FORM desainnya

    Di bawah ini adalah LISTING program FORM yang di atas

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        huruf.Items.Clear()

        For i = 1 To Len(kalimat.Text)

            x = Microsoft.VisualBasic.Mid(kalimat.Text, i, 1)

            x = x & "=" & Asc(x)

            huruf.Items.Add(x)

        Next i

    End Sub

End Class

CARA PROSESNYA

*Input  kalimat sesuai yang kkita inginkan

 

    PROSES

*Setelah itu tekan TOMBOL PROSES, Maka kalimat akan di rubah ke dalam bentuk kode asci

 

Catatan...

Huruf besar dan huruf kecil berbeda jumlahnya pada kode asci saat di PROSES.