Translate

Sabtu, 27 Oktober 2012

String


Latihan V
                        Fungsi tring
            Fungsi string sangat efisien dalam hal pengolahan data,karna dengan string kita dapat menampilkan beberapa data hanya dengan 1 variable,bisa berupa kumpulan angka,huruf ataupun gabungan angka dan huruf. Kumpulan angka dan huruf itu bisa dijadikan sebuah kode atau ketetapan untuk menampilkan variable yang lain. Di bawah ini contoh pengunaan string pada pemograman VB, mari kita pelajari dan kita pahami.
Langkah-langkah
1.      Kita disain project,buat didalam form tampilan program kita beri nama saja dengan pendataan mahasiswa seperti contoh lihat disain dibawah ini :



2.      Ubahlah text pada label,button sesuai dengan gambar diatas,kemudian ubah pula name pada tools yang digunakan sesuai dengan nama text label disampingnya agar kita tidak bngung.
3.      Setelah siap dalam pendisaian mari kita buat perintahnya :
a.      Klik 2x pada combobox “npm” ketikkan perintah dibawah ini

Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        Select Case x
            Case "11"
                prody.Text = "teknik informatika"
                jenjang.Text = "S1"
            Case "02"
                prody.Text = "manajeman informatika"
                jenjang.Text = "D3"
        End Select
        daftar.Text = Microsoft.VisualBasic.Right(npm.Text, 3)
      tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
        If npm.Text = "1011167" Then nama.Text = "chayrizarahman"
        If npm.Text = "0902168" Then nama.Text = "Prasetiawan"
        If npm.Text = "1011334" Then nama.Text = "Wilda sari"
        If npm.Text = "0902190" Then nama.Text = "Akbarabsanjani"
    End Sub

Penjelasan :
-    “x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)” ketikan berwarna merah diartikan 2 digit pada urutan ke 3 dari depan contoh : 1011167 = 1 dan 1. Sehingga apabila 2 digit pada urutan ke 3 “11” maka otomatis tampil pada textbox prody teknik informatika dan jenjang S1. Apabila 2 digit pada urutan ke 3 dari depan “02” maka otomatis tampil pada textbox prody manajemen informatika dan jenjang D3.
-    “daftar.Text = Microsoft.VisualBasic.Right(npm.Text, 3)” ketikkan yang berwarna merah dapat diartikan dengan pada nomor NPM 3 digit dari kanan, nomor itulah yang akan muncul pada textbox no pendaftaran. Contoh : 1011168 maka yang akan tampil “168”
-    tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) ketikan yang berwarna merah dapat diartikan tampil angka 20 pada tahun.text dan 2 digit dari kiri pada no npm menjadi tampilan disebelah angka 20. Contoh : 0902190 = “maka tampilkan 20 dan berurut kemudian 09 menjadi “2009”
-    If npm.Text = "1011167" Then nama.Text = "chayrizarahman" Perintah ini berarti jika no NPM 1011167 maka nama akan otomatis tampil chayriza rahman
b.      Sebagai tools tambahan kita masukkan tombol “hapus” dan “Keluar” dengan klik 2x button “Keluar” ketikkan didalamnya :

  npm.Text = ""
        nama.Text = ""
        prody.Text = ""
        jenjang.Text = ""
        daftar.Text = ""
        tahun.Text = ""

Perintah menyatakan kosongkan text pa semu tools
c.       Klik 2x keluar dan ketikkan END maka perintah untuk keluar dari tampilan hasil

Demikian pembahasan tentang fungsi string mudah-mudahan berguna. Jangan lupa komentarnya!!!!!

latihan IV


Latihan IV

          Case

            Kemarin kita telah mempelajari tentang if jamak,nah sekarang kita akan mempelajari case. Case adalah event VB yang digunakan dalam pemilihan stateman (decition) seperti halnya fungsi IF.Tetapi ada perbedaan IF dengan case yaitu pada efisiensi dan efek pemogramannya. Pada if penetapan atau pemilihan stateman langsung pada tujuan yang diinginkan tetapi rumit di pengetikan sedangkan case akan menentukan statement apa bila seluruh statement teridentifikasi sehingga waktu yang dibutuhkan relatif lama dibandingkan IF
            Dibawah ini kita menggunakan case sebagai program utama dalam decition, mari kita kerjakan bersama :
A.      Langkah pertama kita bangun disain sederhan pada form kita namakanlah penentuan harga barang.
B.      Masukkan pada form tools yang dibutuhkan yaitu 4 label,5 text box dan 1 button dimana 4 label kita ubah text dengan nama kode barang,nama barang,jumlah dan Total
C.      Susunlah text box disebelah label kemudian kita ubah name text boxt menjadi inisial agar dapat dipanggil dalam pemograman, buat saja sesuai dengan lebel agar kita tidak bingung.
D.     Tempatkan 1 button dimana anda inginkan sebagai atribut untuk menghapus semua text yang ada pada text box
E.      Disain sederhana telah siap mari kita mulai mengerjakan perintahnya
1.      Ketikkan program ini pada main program text box kode barang dengan mengkliknya 2x
Select Case kode.Text
            Case "A01"
                nama.Text = "Kulkas"
                harga.Text = 2400000
            Case "A02"
                nama.Text = "Kipas angin"
                harga.Text = 840000
            Case "A03"
                nama.Text = "Televisi"
                harga.Text = 3000000
            case ???
               lanjutkan case berikutnya sesuai keinginan anda berapa kode yang ingin anda masukkan
        End Select

Apa bila anda masukkan kode yang tertera pada program anda maka akan otomatis akan muncul pada textbox nama dan harga yang anda sertakan pada pemilihan dapat kita umpamakan “Ketik pada kode barang,apabila kode barang A01 maka nama barang = kulkas dan harga barang 2400000
2.      Disini kita tambahkan total harga demana apa bila kita ketikkan di pada textbox jumlah maka harga dikalikan dengan text yang tertera dijumlah seperti sebagai berikut :

If e.KeyChar = Chr(13) Then
            total.Text = harga.Text * jlh.Text
        End If

Sebelumnya kita ubah terlebih dahulu nethot name yang berada dipojok atas program ubah menjadi keypress dimana agar saat kita tekan enter maka akan muncul hasil di textbox total.
3.      Sekarang kita memberikan perintah untuk button tools agar text pada semua textbox terhapus. Ketik program dibawah ini :

  kode.Text = ""
        harga.Text = ""
        nama.Text = ""
        total.Text = ""
        jlh.Text = ""
Penjelasan program diatas ialah kita mengubah atau mengosongkan text pada textbox-textbok yang ada. Program selesai mari kita jalankan program dan lihat hasilnya seperti dibawah ini :



Demikian artikel ini saya perbuat mudah-mudahan anda dapat memahami dan artikel ini berguna untuk anda

Senin, 22 Oktober 2012

Latihan III


LOOPING


Latihan III
            Looping adalah pengurutan variable bisa urutan dari bawah ke atas atau kebalikannya contoh urutan nomor 1 sampai setrusnya A sampai Z dan lain-lain. Di dalam looping akan kita temukan yang namanya “Do until”,”Do while”,”For”.Pada Visual basic kita mencoba menerapkan looping didalamnya. Silahkan melihat langkah-langkahnya dibawah ini.

Langkah-langkah
1.      Buatlah tampilan seperti gambar dibawah ini text disesuaikan dengan contoh gambar,jangan lupa name pada properti masing-masing tools



2.      Klik 2x pada button do until ketik programnya seperti dibawah ini

Dim z As Byte
        ListBox1.Items.Clear()
        z = 1
        Do Until z = 11
            ListBox1.Items.Add(z)
            z = z + 1
        Loop

3.      Klik 2x pada button do while kembali kita ketik program dibawah ini

Dim x As Byte
        ListBox2.Items.Clear()
        x = 1
        Do While x <= 10
            ListBox2.Items.Add(x)
            x = x + 1
        Loop

4.      Klik 2x button for next ketik program dibawah ini

Dim y As Integer
        ListBox3.Items.Clear()
        For y = 20 To 1 Step -5
            ListBox3.Items.Add(y & "b")
        Next
5.      Klik 2x button while F while ketik program dibawah ini

dim b As Byte
        ListBox4.Items.Clear()
        b = 1
        While b <= 10
            ListBox4.Items.Add(b)
            b = b + 1
        End While
6.       Dan yang terakhir klik 2x for next ke 2 ketik program dibawah ini

Dim a As Integer
        ListBox5.Items.Clear()
        For a = 1 To 10
            ListBox5.Items.Add("STMIK")
        Next

Jalankanlah VB anda liat hasilnya,inilah contoh pengunaan looping pada proram VB dan dapat kita simpulkan pula perbedaan for dengan while yaitu pada for perintah akan dikerjakan apa bila statemen salah dan kebalikannya pa while perintah akan dikerjakan bila statemen benar
Demikian pembahasan kita mengenai looping mudah-mudahan dapat bermanfaat buat diri saya pribadi dan anda sekalian