Laporan Pemrograman Visual 3

 

LAPORAN PRAKTIKUM PEMROGRAMAN VISUAL

MODUL 3

STRING

 

Untuk memenuhi tugas matakuliah Praktikum Pemrograman Visual

yang dibimbing oleh Bapak Wahyu Sakti Gunawan Irianto

 

 

 

 

 

 

Oleh :

ARIF NURNANTO

(120533430966)

 

 

FAKULTAS TEKNIK

JURUSAN TEKNIK ELEKTRO

PRODI S1 PENDIDIKAN TEKNIK INFORMATIKA

UNIVERSITAS NEGERI MALANG

Februari 2013

 

1. TUJUAN
   
   1. Mengenal beberapa properti dari string

          2. Memisahkan dan menggabungkan string

 

1. LATIHAN
   
2. Pengenalan String
   Source Code :

Public Class Form1  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim input1 As String = TextBox1.Text Dim input2 As String = TextBox2.Text Dim input3 As String = TextBox3.Text Dim total As String total = input1 & " " & input2 & " " & input3 TextBox4.Text = total End Sub End Class

 

Tampilan :

 

1. Mengenal Properti String
   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 As String Dim panjang As Integer data = TextBox1.Text panjang = data.Length 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) End Sub End Class

 

 

Tampilan :

 

1. Memisahkan dan menggabungkan String
   Sintaks Program
   

   Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim data As String Dim blok, krktr As Integer data = TextBox1.Text blok = data.IndexOf(" ") krktr = data.Length ListBox1.Items.Add("Input Kata : " & data) ListBox1.Items.Add("Panjang Karakter : " & CStr(krktr) + "Karakter") ListBox1.Items.Add("Kata Depan : " & data.Substring(0, blok)) ListBox1.Items.Add("Kata Belakang : " & data.Substring(blok,data.Length() - blok)) End Sub End Clas

   • Tampilan Program

    

 

1. PRAKTIKUM
   
2. Buatlah sebuah projrct yang mengandung minimal 3 fungsi string sesuai dengan kreasi anda !
   Sintaks program

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As String Dim b As String Dim c As String a = Microsoft.VisualBasic.Left(TextBox1.Text, 3) Label1.Text = a b = InStr(TextBox1.Text, "A") Label2.Text = b c = Mid(TextBox1.Text, 2, 3) Label3.Text = c Label5.Text = a & b & c End Sub End Class

 

 

 

 

 

Tampilan Program :

 

• Keterangan :
  Pada program ini terdapat beberapa fungsi string, Setelah usir memberi inputan maka program akan mencari atau menampilkan 3 huruf dari depan. Kemudian program akan menampilkan jumlah berapa banyak dalam kata yang diinputkan usir mengandung huruf i seberapa banyak. Dan selanjutnya Program akan menampilkan 3 huruf dari belakang, dan yang terakhir program menampilkan gabungan dari hasil semua fungsi string yang sudah dilakukan.
  
   

1. Buat sebuah projrct seperti pada latihan dua. Tambahkan beberapa baris dalam lisbox yang menampilkan asing-masing karakter pada index huruf ke 1,3,5,7 !

• Sintaks program

  Public Class Form1 Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click Dim kata, besar, kecil, satu, tiga, lima, tujuh As String Dim panjang As Integer kata = txtinput.Text panjang = kata.Length besar = kata.ToUpper kecil = kata.ToLower satu = Mid(kata, 1, 1) tiga = Mid(kata, 3, 1) lima = Mid(kata, 5, 1) tujuh = Mid(kata, 7, 1) lsthasil.Items.Add("Input : " & kata) lsthasil.Items.Add("Jumlah karakter : " & CStr(panjang)) lsthasil.Items.Add("Huruf besar : " & besar) lsthasil.Items.Add("Huruf kecil : " & kecil) lsthasil.Items.Add("Karakter ke -1 : " & satu) lsthasil.Items.Add("Karakter ke -3 : " & tiga) lsthasil.Items.Add("Karakter ke -5 : " & lima) lsthasil.Items.Add("Karakter ke -7 : " & tujuh) End Sub End Class

  
   
  Tampilan Program :
  
  
  
  
• Keterangan
  Pada masing-masing variabel yang dideklarasikan sebagai string memiliki fungsi string yang mengambil kata dari teks yang dimasukkan user. teks yang dimasukkan user berada pada variabel kata. Dan akan diproses oleh variabel yang mendeklarasikan dirinya sebagai fungsi string.

1. Buatlah fungsi cor, hem, ain dan dan dalam 1 form. Mulai dari angka 1-10 !
   
    
2. TUGAS RUMAH
   1. Buatlah sebuah project yang mengandung minimal 5 fungsi string sesuai dengan
      kreasi anda.
      Sintaks :

Public Class form1 Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click Dim data As String = txtInput.Text Dim panjang As Integer = data.Length lsthasil.Items.Add("Jumlah karakter : " & CStr(panjang)) lsthasil.Items.Add("Huruf besar : " & data.ToUpper) lsthasil.Items.Add("Huruf kecil : " & data.ToLower) lsthasil.Items.Add("Huruf pertama: " & Microsoft.VisualBasic.Left(data, 1).ToLower) lsthasil.Items.Add("Huruf ke-3 : " & Mid(data, 3, 1).ToLower) lsthasil.Items.Add("Huruf terakhir: " & Microsoft.VisualBasic.Right(data, 1).ToLower) End Sub End Class

 

Tampilan :

Keterangan :

Untuk program ini hampir sama dengan program di latihan, user memasukkan kalimat kemudian dengan fungsi string program akan menegetahui dan menampilkan fungsi string yang berbeda.

 

1. Program pada latihan tiga hanya menerima input dua kata. Buatlah sebuah Prospect baru seperti program pada latihan tiga yang bisa menerima input lebih dari dua kata dan dapat menghilangkan spasi yang tidak diperlukan di depan dan belakang kata.
   Sintaks :

Public Class Form1 Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click Dim data As String = txtInput.Text Dim panjang As Integer = data.Length lsthasil.Items.Add("Jumlah karakter : " & CStr(panjang)) lsthasil.Items.Add("Huruf besar : " & data.ToUpper) lsthasil.Items.Add("Huruf kecil : " & data.ToLower) lsthasil.Items.Add("Huruf pertama: " & Microsoft.VisualBasic.Left(data, 1).ToLower) lsthasil.Items.Add("Huruf ke-4 : " & Mid(data, 4, 1).ToLower) lsthasil.Items.Add("Huruf terakhir: " & Microsoft.VisualBasic.Right(data, 1).ToLower) lsthasil.Items.Add("kalimat akhir :" & Microsoft.VisualBasic.Trim(data).ToUpper) End Sub End Class

 

Tampilan :

Keterangan :

Untuk program ini hampir sama dengan program di latihan, user memasukkan kalimat kemudian dengan fungsi string program akan menegetahui dan menampilkan fungsi string yang berbeda.

 

1. KESIMPULAN
   Pada Visual Basic mempunyai tipe data berupa String. Tipe data tersebut berupa karakter seperti huruf angka dan karakter lainnya. Fungsi String pada Visual Basic. Fungsi toUpperber fungsi untuk menjadikan string berupa karakter huruf menjadi huruf capital semua, dan toLower digunakan untuk mengubah semua huruf menjadi kan huruf kecil.
   
   
    
2. DAFTAR PUSTAKA
   

• Modul Praktikum
  

NB : Untuk Syntaks maaf jika tidak sesuai karena saya memosting melalui MS Word

Posted in: Pemrograman Visual