Kelas : XI Teknik Komputer & Jaringan
Guru : Umam Al Muqtasid
LAPORAN
PRAKTIKUM
PEMROGAMAN
VISUAL
SILFIA
IRDIANA ROHMA
262
/ 132 . 071
SMK
INDUSTRI AL KAAFFAH
JURUSAN
TEKNIK KOMPUTER & JARINGAN
FEBRUARI
2015
Praktikum
Ke-3
STRING
TUJUAN
1. Mengenal
beberapa properti dari string.
2. Memisahkan
dan menggabungkan string.
HASIL TUGAS PRAKTIKUM
1. Buatlah
sebuah project yang mengandung minimal 5 fungsi string sesuai dengan kreasi
anda.
Tampilan :
Source Code :
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
input, kiri, kanan As String
Dim
karakter As Integer
input = TextBox1.Text
karakter = input.Length
kiri =
Microsoft.VisualBasic.Left(input, 2)
kanan = Microsoft.VisualBasic.Right(input,
3)
ListBox1.Items.Add("Input kata : " & input)
ListBox1.Items.Add("Huruf besar : " & input.ToUpper())
ListBox1.Items.Add("Karakter a pertama di posisi : " &
InStr(input, "a"))
ListBox1.Items.Add("Panjang karakter : " & CStr(karakter) + "
karakter")
ListBox1.Items.Add("2 karakter depan : " & kiri)
ListBox1.Items.Add("3 karakter belakang : " & kanan)
End Sub
End Class
|
2. Buat
sebuah project seperti pada latihan dua. Tambahkan beberapa baris dalam listbox
yang menampilkan masing masing karakter pada index huruf ke 1, 3, 5, 7
(misal:
Input String = pendtium. Maka karakter yang ditampilkan adalah:p, n, t,u)
Tampilan :
Source Code :
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
data, besar, kecil, satu, tiga, lima, tujuh As String
Dim
panjang As Integer
data = TextBox1.Text
panjang = data.Length
satu = Mid(data, 1, 1)
tiga = Mid(data, 3, 1)
lima = Mid(data, 5, 1)
tujuh = Mid(data, 7, 1)
besar = data.ToUpper
kecil = data.ToLower
ListBox1.Items.Add("Asli : " & data)
ListBox1.Items.Add("Panjang string : " & CStr(panjang))
ListBox1.Items.Add("Huruf Besar : " & besar)
ListBox1.Items.Add("Huruf Kecil : " & kecil)
ListBox1.Items.Add("Karakter ke-1 : " & satu)
ListBox1.Items.Add("Karakter ke-3 : " & tiga)
ListBox1.Items.Add("Karakter ke-5 : " & lima)
ListBox1.Items.Add("Karakter ke-7 : " & tujuh)
End Sub
End Class
|
. HASIL
TUGAS RUMAH
1.
Buatlah sebuah project yang mengandung minimal 5 fungsi string sesuai
dengan
kreasi anda.
Tampilan
:
Source
Code :
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
Input, kiri, kanan As String
Dim
karakter As Integer
Input = TextBox1.Text
karakter = Input.Length
kiri =
Microsoft.VisualBasic.Left(Input, 3)
kanan =
Microsoft.VisualBasic.Right(Input, 3)
ListBox1.Items.Add("Input kata : " & Input)
ListBox1.Items.Add("Huruf besar : " & Input.ToUpper())
ListBox1.Items.Add("Huruf kecil : " & Input.ToLower())
ListBox1.Items.Add("Panjang karakter : " & CStr(karakter) + "
karakter")
ListBox1.Items.Add("3 karakter depan : " & kiri)
ListBox1.Items.Add("3 karakter belakang : " & kanan)
End Sub
End Class
|
2. Program
pada latihan tiga hanya menerima input
dua kata. Buatlah sebuah project
baru seperti program pada latihan tiga yang bisa menerima input lebih dari dua kata
dan dapat menghilangkan spasi yang tidak diperl ukan
di depan dan belakang kata.
Tampilan
:
Source
Code :
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
input, delspasi As String
Dim
blok, karakter As Integer
input = TextBox1.Text
blok = input.IndexOf(" ")
karakter = input.Length
delspasi = Trim(input)
ListBox1.Items.Add("Input kata : " & input)
ListBox1.Items.Add("Panjang karakter : " & CStr(karakter) + "
karakter")
ListBox1.Items.Add("Kata pertama : " & Split(delspasi, " ")(0))
ListBox1.Items.Add("Kata kedua : " & Split(delspasi, " ")(1))
ListBox1.Items.Add("Kata ketiga : " & Split(delspasi, " ")(2))
ListBox1.Items.Add("Kata keempat : " & Split(delspasi, " ")(3))
ListBox1.Items.Add("spasi kosong dihilangkan : " &
delspasi)
End Sub
End Class
Tidak ada komentar:
Posting Komentar