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/
Minggu, 08 Desember 2013
Sabtu, 07 Desember 2013
Belajar Bahasa Pemrograman VB (Visual Basic) 2008
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)
Next
For i = 100 To 1 Step -1
NilaiTugas.Items.Add(i)
Next
For i = 100 To 1 Step -1
NilaiUTS.Items.Add(i)
Next
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
s
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 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
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
NB :
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
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
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
Senin, 11 November 2013
Contoh Bahasa Pemrograman VB (Visual Basic) 2008
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)
Next
For i = 100 To 1 Step -1
NilaiTugas.Items.Add(i)
Next
For i = 100 To 1 Step -1
NilaiUTS.Items.Add(i)
Next
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
Langganan:
Postingan (Atom)