Archive for Mei 2018

Latihan membuat program pada VB net 2008

Assalamualaikum semua, kali ini saya akan berbagi tentang bagaimana cara membuat program sederhana menggunakan microsoft visual basic 2008. Oke simak baik-baik yahhh.

Pertama kita akan membuat program mengihtung luas persegi panjang.

Usahakan untuk desain form agak dibedakan agar supaya kalian mengerti dan berkreasi sendiri.

selanjutnya skrip kodenya dibawah ini

Public Class Form2

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        txtpanjang.Clear()
        txtlebar.Clear()
        txtluas.Clear()
        txtkeliling.Clear()
    End Sub

    Private Sub txtp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpanjang.TextChanged

    End Sub

    Private Sub txtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlebar.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim panjang, lebar As Integer
        Dim Luas As Integer
        Dim Keliling As Integer

        panjang = Val(txtpanjang.Text)
        lebar = Val(txtlebar.Text)
        Luas = Val(txtluas.Text)
        Keliling = Val(txtkeliling.text)

        Luas = (panjang * lebar)
        txtluas.Text = Luas

        Keliling = (2 * (panjang + lebar))
        txtkeliling.Text = Keliling
    End Sub
End Class

Kedua kita akan membuat program luas lingakaran

Sama usahakan untuk desain form kalian kreasikan sendiri.

untuk skrip kodenya dibawah ini

Public Class MenghitungLuasLigkaran

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

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        luas.Text = 22 / 7 * jari_jari.Text * jari_jari.Text
        keliling.Text = 2 * 22 / 7 * jari_jari.Text
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        jari_jari.Text = ""
        luas.Text = ""
        keliling.Text = ""

    End Sub

    Private Sub jari_jari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jari_jari.TextChanged

    End Sub
End Class

Ketiga kita akan membuat program menghitung volume tabung

Desain form bisa kalian kreasikan menurut keinginan kalian

Untuk skrip kode ada dibawah ini

Public Class VolumeTabung

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        hasil.Text = 22 / 7 * radius.Text * radius.Text * tinggi.Text
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        radius.Text = ""
        tinggi.Text = ""
        hasil.Text = ""
    End Sub
End Class

Keempat kita akan membuat program mini market kita semua menggunakan combo box

Untuk desain form bisa kalian buat sekreatif mungkin

Skrip Kode dibawah ya sobb

Public Class Form4

    Private Sub Cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbokb.SelectedIndexChanged
        If Cbokb.Text = "PL01" Then
            TxtNb.Text = "PULPEN PILOT"
            TxtHb.Text = 1200
        ElseIf Cbokb.Text = "PL02" Then
            TxtNb.Text = "PULPEN STANDAR"
            TxtHb.Text = 1000
        ElseIf Cbokb.Text = "BK01" Then
            TxtNb.Text = "BUKU AA 60 LBR"
            TxtHb.Text = 3800
        Else : TxtNb.Text = "BUKU SINAR DUNIA 50"
            TxtHb.Text = 3000

        End If
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cbokb.Items.Add("PL01")
        Cbokb.Items.Add("PL02")
        Cbokb.Items.Add("BK01")
        Cbokb.Items.Add("BK02")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = TextBox1.Text * TxtHb.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TxtHb.Clear()
        TxtNb.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
        Cbokb.Text = ""
    End Sub

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        Close()
    End Sub
End Class

Terakhir kita akan membuat program form data barang

Skrip kodenya dibawah yaahh

Public Class Form1
    Dim A As Integer
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CboKode.Items.Add("H001")
        CboKode.Items.Add("H002")
        CboKode.Items.Add("Y001")
        CboKode.Items.Add("Y002")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboKode.SelectedIndexChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        ListView1.Items.Add(TxtTransaksi.Text)
        ListView1.Items(A).SubItems.Add(CboKode.Text)
        ListView1.Items(A).SubItems.Add(TxtMerk.Text)
        ListView1.Items(A).SubItems.Add(TxtType.Text)
        ListView1.Items(A).SubItems.Add(TxtSatuan.Text)
        ListView1.Items(A).SubItems.Add(TxtJumlah.Text)
        ListView1.Items(A).SubItems.Add(TxtTotal.Text)
        ListView1.Items(A).SubItems.Add(TxtDiskon.Text)
        ListView1.Items(A).SubItems.Add(TxtBayar.Text)
        A = A + 1
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtMerk.TextChanged

    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.Text
        If TxtType.Text = "Supra fit" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 5 / 100 = TxtTotal.Text
        ElseIf TxtType.Text = "Mio" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 10 / 100 = TxtTotal.Text
        Else
            TxtDiskon.Text = 0
        End If
        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtTransaksi.TextChanged

    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtBayar.Text = ""
        TxtDiskon.Text = ""
        TxtJumlah.Text = ""
        TxtMerk.Text = ""
        TxtSatuan.Text = ""
        TxtTotal.Text = ""
        TxtTransaksi.Text = ""
        TxtType.Text = ""
        CboKode.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CboKode.Text = "H001" Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra fit"
            TxtSatuan.Text = 9000000
        ElseIf CboKode.Text = "H002" Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra X"
            TxtSatuan.Text = 11000000
        ElseIf CboKode.Text = "Y001" Then
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Mio"
            TxtSatuan.Text = 13000000
        Else
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Jupiter"
            TxtSatuan.Text = 12000000

        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub
End Class

Oke itu dulu mengenai latihan membuat program pada vb net 2008. Silahkan kalian kreasikan sendiri. Wassalamualaikum wr wb

On :

Kuliah 6 Messagebox (MSGBOX) dan Perulangan (Looping) pada vb net 2008

MessageBox

Assalamualaikum wr wb. Pada kali ini saya akan menulis apa itu MsgBox. MsgBox artinya adalah kotak pesan, berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk perintah dari MsgBox ialah MsgBox("Isi Pesan", MsgBoxStyle,"Judul Pesan") hasilnya seperti gambar di bawah ini.

Keterangan gambar:

Œ Judul Pesan

MsgBoxStyle

Ž Isi Pesan

Ada beberapa MsgBoxStyle, yaitu:

1. MsgBoxStyle.Critical (16) : tombol OK dan gambar icon Critical

2. MsgBoxStyle.Question (32) : tombol OK dan gambar icon Question

3. MsgBoxStyle.Exclamation (48) : tombol OK dan gambar icon Exclamation

4. MsgBoxStyle.Information (64) : tombol OK dan gambar icon Information

5. MsgBoxStyle.AbortRetryIgnore (2) : tombol Abort, Retry dan Ignore.

6. MsgBoxStyle.OkCancel (1) : tombol OK dan Cancel.

7. MsgBoxStyle.OkOnly (0) : tombol OK.

8. MsgBoxStyle. RetryCancel (5) : tombol Retry dan Cancel.

9. MsgBoxStyle.YesNo (4) : tombol Yes dan No.

10. MsgBoxStyle. YesNoCancel (3) : tombol Yes, No dan Cancel.

Latihan 1 Membuat Form Login dengan Tampilan sbb:

Objek Name
TextBox1 TxtPas
Button1 BtnProses

Alur Program:

- Input Password.

- Klik Proses

- Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

· Isi pesan : Password yang Anda Masukkan Benar

· Judul Pesan : Info Login

· MsgBoxStyle : Tombol OK dengan gambar icon Information.

- Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

· Isi pesan : Password yang Anda Masukkan Salah”

· Judul Pesan : Info Login

MsgBoxStyle : Tombol OK dengan gambar icon Critical.

Kode Program:

Latihan:

Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.

1. Desain Program sbb:

Objek Name
TextBox1 TxtJPR
Button1 BtnProses
Button2 BtnTutup

2. Alur Program

- Input Jumlah Point Reward.

- Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.

Tabel Hadiah sebagai berikut:

Point Reward	Hadiah
500 – 1000	Mug Cantik
1001 – 1500	Boneka Cantik
1501 – 2000	Kipas Angin
2001 – 2500	Dispenser

- Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:

· Isi Pesan : Anda ingin menutup Program ini?

· MsgBoxStyle : OK dan Cancel dengan icon Question.

· Judul : Tutup Program

Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

Perulangan

Perulangan digunakan untuk mengulang kode program (repetition, looping, recursive). selama kondisi memenuhi, kode dalam statements akan diulang terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam penulisan kode, looping tidak akan berhenti dan menimbulkan error.

Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan untuk perulangan, yaitu:

a. For … Next

b. Do … Loop

c. While…End While

Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih sesuai dengan masalah yang dihadapi.

For … Next Statement

Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan jumlah yang pasti.

Bentuk Penulisan:

For Var = [Mulai] to [Selesai] Step [Lompatan]

Statement

Contoh:

Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox

Dim i As Integer

listbox1.Items.Clear()

For i = 1 to TXTBIL.TEXT

listbox1.Items.Add(“Visual Basic”)

Next

Membuat Deret angka 1 sampai 10

Dim i As Integer

listbox1.Items.Clear()

For i = 1 to 10

listbox1.Items.Add(i)

Next

Do … Loop Statement

Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.

Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.

Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

Do…Loop dengan Pemeriksaan diawal

1. Do Until … Loop

Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:

Do Until <kondisi>

statement

Loop

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do Until i > 10

listbox1.Items.Add(i)

i=i+1

Loop

2. Do While … Loop

Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:

Do While <kondisi>

statement

Loop

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do While i <= 10

listbox1.Items.Add(i)

i=i+1

Loop

Do…Loop dengan Pemeriksaan diakhir

1. Do … Loop Until

Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:

statement

Loop until <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

listbox1.Items.Add(i)

i=i+1

Loop Until i > 10

2. Do … Loop While

Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:

statement

Loop While <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

listbox1.Items.Add(i)

i = i + 1

Loop While i <= 10

While … End While

Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.

BP:

While <kondisi>

statement

End While

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

ListBox1.Items.Clear()

While i <= 10

ListBox1.Items.Add(i)

i = i + 1

End While

Sekian yang dapat saya tuliskan semoga bermanfaat. Assalamualaikum wr wb.

On :

Aldi Fikri Blog Perkuliahan

SELAMAT DATANG DI BLOG SAYA

Archive for Mei 2018

Latihan membuat program pada VB net 2008

Kuliah 6 Messagebox (MSGBOX) dan Perulangan (Looping) pada vb net 2008

For … Next Statement

Do … Loop Statement

Labels

Popular Posts

Blog Archive

Labels

About me

Acces dan Database Connection di Visual Basic