buyung alamsyah: Desember 2013

Minggu, 08 Desember 2013

blog dosen ku [mesran.blogspot.com]

blog di bawah ini adalah blog dosen mata kuliah "pemograman visual" saya .
blog ini berisi tentang berita terkini tentang STMIK BUDIDARMA medan dan berisi tentang tutorial Visual Studio 2008

SILAHKAN KUNJUNGI AJA BLOG ATAU WEBSITE NYA

http://mesran.blogspot.com/

http://mesran.net/

Sabtu, 07 Desember 2013

Belajar Bahasa Pemrograman VB (Visual Basic) 2008

Belajar Bahasa Pemrograman

Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHapus.Click

Nama.Text = ""

NPM.Text = ""

MataKuliah.Text = ""

NamaDosen.Text = ""

NilaiKehadiran.Text = ""

NilaiTugas.Text = ""

NilaiUTS.Text = ""

NilaiUAS.Text = ""

NilaiAkhir.Text = ""

Jenjang.Text = ""

Jurusan.Text = ""

KodeDosen.Text = ""

KodeMataKuliah.Text = ""

NIlaiHuruf.Text = ""

Keterangan.Text = ""

End Sub

Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NPM.SelectedIndexChanged

Select Case NPM.Text

Case "12110695"

Nama.Text = "Siti annisa"

Jenjang.Text = "S1"

Jurusan.Text = "TI"

Case "12110741"

Nama.Text = "Budi"

Jenjang.Text = "D3"

Jurusan.Text = "MI"

Case "12110574"

Nama.Text = "Ayu"

Jenjang.Text = "S1"

Jurusan.Text = "TI"

Case "12110927"

Nama.Text = "Putri"

Jenjang.Text = "S1"

Jurusan.Text = "SI"

Case "1202208"

Nama.Text = "Lisa Ati"

Jenjang.Text = "D3"

Jurusan.Text = "KA"

End Select

End Sub

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

Dim i As Integer

For i = 100 To 1 Step -1

NilaiKehadiran.Items.Add(i)

For i = 100 To 1 Step -1

NilaiTugas.Items.Add(i)

For i = 100 To 1 Step -1

NilaiUTS.Items.Add(i)

For i = 100 To 1 Step -1

NilaiUAS.Items.Add(i)

Next i

NPM.Items.Add("12110574")

NPM.Items.Add("12110741")

NPM.Items.Add("12110695")

NPM.Items.Add("12110927")

NPM.Items.Add("1202208")

KodeMataKuliah.Items.Add("123")

KodeMataKuliah.Items.Add("456")

KodeMataKuliah.Items.Add("789")

KodeMataKuliah.Items.Add("012")

KodeDosen.Items.Add("012")

KodeDosen.Items.Add("345")

KodeDosen.Items.Add("678")

KodeDosen.Items.Add("901")

NilaiAkhir.Enabled = False

End Sub

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnKeluar.Click

End

End Sub

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnProses.Click

NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

Select Case NilaiAkhir.Text

Case Is >= 80

NIlaiHuruf.Text = "A"

Keterangan.Text = "LULUS"

Case 70 To 79

NIlaiHuruf.Text = "B"

Keterangan.Text = "LULUS"

Case 60 To 69

NIlaiHuruf.Text = "C"

Keterangan.Text = "GAGAL"

Case 50 To 59

NIlaiHuruf.Text = "D"

Keterangan.Text = "GAGAL"

Case Is <= 49

NIlaiHuruf.Text = "E"

Keterangan.Text = "GAGAL"

End Select

NilaiAkhir.Enabled = False

End Sub

Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

Select Case KodeMataKuliah.Text

Case "123"

MataKuliah.Text = "VB"

Case "456"

MataKuliah.Text = "Matriks"

Case "789"

MataKuliah.Text = "arsitektur dan organisasi kom"

Case "012"

MataKuliah.Text = "struktur data"

End Select

NilaiAkhir.Enabled = False

End Sub

Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles KodeDosen.SelectedIndexChanged

Select Case KodeDosen.Text

Case "012"

NamaDosen.Text = "Mesran"

Case "345"

NamaDosen.Text = "Kennedi Tampubolon"

Case "678"

NamaDosen.Text = "Pilipus tarigan."

Case "901"

NamaDosen.Text = "alex riki s."

End Select

End Sub

Private Sub NilaiKehadiran_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles NilaiKehadiran.SelectedIndexChanged

End Sub

Private Sub NilaiAkhir_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NilaiAkhir.TextChanged

End Sub

End Class

form pembayaran PDAM ~visual studio

Public Class Form1

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("RUM-MED-103")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        If x = "100" Then
            np.Text = "munawar khalil"
        ElseIf x = "101" Then
            np.Text = "buyung alamsyah"
        ElseIf x = "102" Then
            np.Text = "rinaldi jambak"
        ElseIf x = "103" Then
            np.Text = "syawal"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        If x = "PAB" Then
            tip.Text = "pabrik"
            bb.Text = 25000
            hm.Text = 500
        ElseIf x = "TOK" Then
            tip.Text = "toko"
            bb.Text = 25000
            hm.Text = 300
        ElseIf x = "SWA" Then
            tip.Text = "swalayan"
            bb.Text = 15000
            hm.Text = 200
        ElseIf x = "RUM" Then
            tip.Text = "rumah"
            bb.Text = 10000
            hm.Text = 100
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            dae.Text = "medan"
        ElseIf x = "BEL" Then
            dae.Text = "belawan"
        End If

    End Sub

    Private Sub jp_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) + hm.Text * jp.Text
            paj.Text = 0.01 * tt.Text
            pem.Text = Val(paj.Text) + Val(jp.Text)
        End If

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kp.Text = ""
        np.Text = ""
        tip.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        pem.Text = ""
        dae.Text = ""
        hm.Text = ""
        paj.Text = ""

    End Sub
End Class

End Sub

Pengertian dari DELPHI

Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan . Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini memiliki versi Borland Delphi .

     Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP ini memiliki beberapa unsur yaitu ; Encapsulation ( pemodelan ) , Inheritance ( Penurunan ) , Polymorphism ( Polimorfisme ) .

     Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft .NET . Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE .

     Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool ( Rapid Apllication Development ) tahun 1995 . Sehinnga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual Component Library ) ini .

Pembelajaran Komunikasi Data

tutorial kali ini saya akan menjelaskan sedikit tentang :

Model Komunikasi

Komunikasi merupakan cara untuk menyampaikan atau menyebar luaskan data dan informasi. Teknologi Komunikasi terus di kembangkan dengan tujuan memudahkan manusia dalam melakukan Komunikasi.

Komunikasi Data merupakan cara mengirim data menggunakan sistem transmisi elektronik dan satu komputer ke komputer lainnya atau dari satu komputer ke terminal tertentu. Sedangkan data itu sendiri merupakan sinyal elektromagnetik yang dibangkitkan oleh sumber data yang dapat di tangkap dan diterima lalu dikirimkan ke terminal tertentu.

Tujuan utama dari Komunikasi Data adalah untuk menukar informasi antara dua perantara. Data adalah sebuah gambaran dari kenyataan, konsep atau intruksi dalam bentuk formal yang sesuai untuk komunikasi, interpretasi, atau proses oleh manusia atau peralatan otomatis.

Sistem Sumber Sistem Tujuan

Agent => Input Device => Transmiter => Media Transmisi => Receiver => Output Device => A.B.C

Hal-hal yang berhubungan dengan Komunikasi Data adalah :

Media Transmisi
Kapasitas Data
Tipe Saluran Transmisi
Protokol
Mode Transmisi
Check Error

Contoh Program Visual Basic 2 Mengenal & Mengetahui Cara Penggunaan Listview
Tutorial kali ini saya akan memberikan contoh VisualBasic 2008 yang kedua

Langkah-langkahnya:
1. Membuka Program Visual Basic (VB) 2008
2. Klik create : Project
3. Ubah Project dengan Nama Anda sendiri
4. Maka setelah itu akan muncul sebuah FROM1 pada project Anda
5. Desain from dengan label, Textbox, Buttom, ListView
Tampilan From

6. Listing Program

Public Class Form2

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

buattabel()

End Sub

Sub buattabel()

LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = NPM.Text

lst.SubItems.Add(Nama.Text)

LV.Items.Add(lst)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

isitabel()

NPM.Text = ""

Nama.Text = ""

End Sub

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

LV.Items.Clear()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

LV.Items.Remove(LV.SelectedItems(0))

End Sub

End Class

7. Tampilan Form setelah dijalankan

NB :

Ketikan NPM Anda pada TextBox NPM
Ketikan Nama Anda pada TextBox Nama
Klik => buttton (Simpan Ke ListView)
Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)

Silahkan di coba programnya ya :-* :-)

Public Class Form1

Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
Dim a As String = ""
Dim xkalimat As String = ""
For i = 1 To Len(plain.Text)
a = Mid(plain.Text, i, i)
a = Chr(Asc(a) - 3)
xkalimat = xkalimat + a
Next
chiper.Text = xkalimat
End Sub

Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
Dim a As String = ""
Dim xkalimat As String = ""
For i = 1 To Len(chiper.Text)
a = Mid(chiper.Text, i, i)
a = Chr(Asc(a) - 3)
xkalimat = xkalimat + a
Next
plain.Text = xkalimat
End Sub
End Class

form tentang case

desain form berikut :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NIK.Items.Add("PM010")
NIK.Items.Add("PS111")
NIK.Items.Add("KU101")
NIK.Items.Add("GD100")
NIK.Items.Add("PM011")
Jabatan.Items.Add("Kepala Divisi")
Jabatan.Items.Add("Staf")
Jabatan.Items.Add("Wakil Kepala")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
Dim i As Integer
For i = 1 To 2
JumlahAnak.Items.Add(i)
Next i
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
NIK.Text = ""
Nama.text = ""
Bagian.text = ""
Jabatan.Text = ""
GajiPokok.Text = ""
Pajak.Text = ""
Status.Text = ""
JumlahAnak.Text = ""
TunjanganKeluarga.Text = ""
TunjanganAnak.Text = ""
TotalGaji.Text = ""
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "PM010"
Nama.Text = "buyung"
Case "PS111"
Nama.Text = "ronaldo"
Case "KU101"
Nama.Text = "giroud"
Case "GD100"
Nama.Text = "gerrard."
Case "PM011"
Nama.Text = "bale"
End Select
Dim x As String
x = Microsoft.VisualBasic.Left(NIK.Text, 2)
If x = "PM" Then
Bagian.Text = "Pemasaran"
ElseIf x = "PS" Then
Bagian.Text = "Personalia"
ElseIf x = "KU" Then
Bagian.Text = "Keuangan"
ElseIf x = "GD" Then
Bagian.Text = "Gudang"
End If
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
Select Case Status.Text
Case "Menikah"
TunjanganKeluarga.Text = 0.15 * GajiPokok.Text
Case "Tidak Menikah"
TunjanganKeluarga.Text = 0
End Select
End Sub
Private Sub Bagian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bagian.TextChanged

End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Jabatan.Text
Case "Kepala Divisi"
GajiPokok.Text = 5000000
Case "Staf"
GajiPokok.Text = 2000000
Case "Wakil Kepala"
GajiPokok.Text = 3500000
End Select
Pajak.Text = 0.1 * GajiPokok.Text
End Sub
Private Sub JumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged
If JumlahAnak.Text = 1 Then
TunjanganAnak.Text = 0.5 * GajiPokok.Text
ElseIf JumlahAnak.Text = 2 Then
TunjanganAnak.Text = 0.1 * GajiPokok.Text
End If
TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class