Thanks For your Donation

Terimakasih atas donasi anda

give more to me

Thursday 13 November 2014

cara membuat program sederhana " pengimputan nilai mahasiswa " dengan menggunakan VISUAL STUDIO 2008 atau VB.NET

asalamualaikum ....
.
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
 nah ....
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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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 :
Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        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.

http://www.resepkuekeringku.com/2014/11/resep-donat-empuk-ala-dunkin-donut.html http://www.resepkuekeringku.com/2015/03/resep-kue-cubit-coklat-enak-dan-sederhana.html http://www.resepkuekeringku.com/2014/10/resep-donat-kentang-empuk-lembut-dan-enak.html http://www.resepkuekeringku.com/2014/07/resep-es-krim-goreng-coklat-kriuk-mudah-dan-sederhana-dengan-saus-strawberry.html http://www.resepkuekeringku.com/2014/06/resep-kue-es-krim-goreng-enak-dan-mudah.html http://www.resepkuekeringku.com/2014/09/resep-bolu-karamel-panggang-sarang-semut-lembut.html