.
wah wah wah....
udah hampir setengah taon ni saya tidak ngepos di bloger gratis ni ..... :D
maap yah maapp :D
nah kali ini saya akan memberi sedikit tutorial cara membuat program sederhana menggunakan visual studio 2008 ato yg sering di kenal dengan VB.NET.
oke langsung ajah
#langkah ke-1
di sini saya menunjukan hasil form 1 yg akan kita design
sebelum nya sedakan dahulu komponen kompenen dalam fom 1
ambil dari toolbox
-label
-textbox
-combobox
-botton
setelah itu desain sesuai selera anda....
langkah ke-2
setelah selesai mendisain ...
ubah nama dari ;
-textbox
-combobox,dan
-botton
menjadi nama sesuai pada label
contoh :
pada kotak label "nama"
pada kotak textbox ubah menjadi "nama" di (name) yg terdapat pada properties
setelah selesai merubah semuanya ...
sekarang saaat nya mengetik bahasa program nya...
#langkah ke-3
klik sembarang tempat pada form 1
**(ingat sembarang tempat dan jangan di label,textbox,combobox,dan botton)
#langkah ke-4
setelah terbuka layar FORM1 yg anda kelik di smbarang tempat tadi ...
ketikan bahsa program yg berwarna merah ini
NPM.Items.Add("12010111")
NPM.Items.Add("12020112")
NPM.Items.Add("12030113")
NPM.Items.Add("12040114")
NPM.Items.Add("12050115")
KODEDOSEN.Items.Add("D-01")
KODEDOSEN.Items.Add("D-02")
KODEDOSEN.Items.Add("D-03")
KODEDOSEN.Items.Add("D-04")
KODEDOSEN.Items.Add("D-05")
KODEMATAKULIAH.Items.Add("MK-01")
KODEMATAKULIAH.Items.Add("MK-02")
KODEMATAKULIAH.Items.Add("MK-03")
KODEMATAKULIAH.Items.Add("MK-04")
KODEMATAKULIAH.Items.Add("MK-05")
Dim i As Integer
For i = 1 To 100
NILAIKEHADIRAN.Items.Add(i)
Next i
i = 1
Do While i <= 100
NILAITUGAS.Items.Add(i)
i = i + 1
Loop
i = 100
Do Until i = 0
NILAIUTS.Items.Add(i)
i = i - 1
Loop
i = 100
While i >= 1
NILAIUAS.Items.Add(i)
i = i - 1
End While
End Sub
setelah selesai kembali ke FORM1.vb design
#langkah ke-5
sekarang anda dobble klik combobox "NPM" anda
kemudian anda ketik lagi yg berwarna merah ini :
Private Sub ComboBoxEx1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12010111"
NAMA.Text = "ARI IRAWAN"
Case "12020112"
NAMA.Text = "ARDIANSYAH PUTRA"
Case "12030113"
NAMA.Text = "IRMA SUSANTI"
Case "12040114"
NAMA.Text = "NOVI ANDRIANI"
Case "12050115"
NAMA.Text = "IKE WIWIK PASARIBU"
Case Else
NAMA.Text = "-"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
Select Case x
Case "01"
JENJANG.Text = "S1"
JURUSAN.Text = "Sistem Informasi"
Case "02"
JENJANG.Text = "D3"
JURUSAN.Text = "Teknik Informatika"
Case "03"
JENJANG.Text = "S1"
JURUSAN.Text = "Sistem Informasi"
Case "04"
JENJANG.Text = "D3"
JURUSAN.Text = "Teknik Informatika"
Case Else
JENJANG.Text = "D1"
JURUSAN.Text = "Desain Grafis"
End Select
end sub
setelah selesai kembali ke FORM1.vb design
#langkah ke-6
sekarang anda dobble klik combobox "kodedosen" anda
kemudian anda ketik lagi yg berwarna merah ini :
Select Case KODEDOSEN.Text
Case "D-01"
NAMADOSEN.Text = "IZUL M.KOM"
Case "D-02"
NAMADOSEN.Text = "ARI M.KOM"
Case "D-03"
NAMADOSEN.Text = "RAMAYANA M.KOM"
Case "D-04"
NAMADOSEN.Text = "DUDUNG M.KOM"
Case "D-05"
NAMADOSEN.Text = "PUTRA M.KOM"
End Select
End Sub
setelah selesai kembali ke FORM1.vb design
#langkah ke-7
sekarang anda dobble klik combobox "kodematakuliah" anda
kemudian anda ketik lagi yg berwarna merah ini :
Private Sub KODEMATAKULIAH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEMATAKULIAH.SelectedIndexChanged
Select Case KODEMATAKULIAH.Text
Case "MK-01"
MATAKULIAH.Text = "BAHASA INDONESIA"
Case "MK-02"
MATAKULIAH.Text = "BAHASA INGGRIS"
Case "MK-03"
MATAKULIAH.Text = "BAHASA PEMPROGRAMAN"
Case "MK-04"
MATAKULIAH.Text = "BAHASA ASEMBLI"
Case "MK-05"
MATAKULIAH.Text = "BAHASA PASKAL"
End Select
End Sub
setelah selesai kembali ke FORM1.vb design
#langkah ke-8
sekarang anda dobble klik botton "btnproses" anda
kemudian anda ketik lagi yg berwarna merah ini :
NILAIAKHIR.Text = 0.1 * Val(NILAIKEHADIRAN.Text) + 0.15 * Val(NILAITUGAS.Text) + 0.35 * Val(NILAIUTS.Text) + 0.4 * Val(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 = "Lulus"
Case 50 To 59
NILAIHURUF.Text = "D"
KETERANGAN.Text = "Gagal"
Case Is <= 49
NILAIHURUF.Text = "E"
KETERANGAN.Text = "Gagal"
End Select
End Sub
setelah selesai kembali ke FORM1.vb design
#langkah ke-9
sekarang anda dobble klik botton "btnhapus" anda
kemudian anda ketik lagi yg berwarna merah ini :
Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
NPM.Text = ""
NAMA.Text = ""
JENJANG.Text = ""
JURUSAN.Text = ""
KODEDOSEN.Text = ""
NAMADOSEN.Text = ""
KODEMATAKULIAH.Text = ""
MATAKULIAH.Text = ""
NILAIKEHADIRAN.Text = ""
NILAITUGAS.Text = ""
NILAIAKHIR.Text = ""
NILAIUAS.Text = ""
NILAIUTS.Text = ""
NILAIHURUF.Text = ""
KETERANGAN.Text = ""
NPM.Focus()
End Sub
#langkah ke-10
sekarang anda dobble klik botton "btnkeluar" anda
kemudian anda ketik lagi yg berwarna merah ini :
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
#langkah ke-11
sekarang tinggal anda klik logo"PLAY" yg terdapat di bar ke 2 dan jalan kan ..
silah kan anda isi sesuai keinginan anda dannn....
taaadaaaaaaaaa.....
SELAMAT PROGRAM ANDA SUDAH BISA BERJALAAAN DENGAN BAIK
ini contoh program yg berhasil...
NB: -pastikan program yg anda ketik semua nya benar...
mulai dari titik koma dan andara pembuka dan penutup
-jika sudah jalan disain lagi dengan mennambahkan background pada form1 dan bottton
se suai dengan keinginan anda ....
dikutip dari blog myfriend ariegopek.blogspot.com
0 komentar:
Post a Comment
Terimakasih anda telah berkomentar di halaman ini, kami akan mempertimbangkan komentar anda untuk kemajuan blog ini.