pertemuan IV - 12 maret Aplikasi Perhitungan Nilai Mahasiswa menggunakan Visual Basic 2010

helloo, kali ini saya akan membuat sebuah aplikasi Perhitungan Nilai Mahasiswa menggunakan Visual Basic 2010

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

 

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

aplikasi penghitung nilai mahasiswa menggunakan VB .Net 2008

Cara program penghitung nilai mahasiswa dengan menggunakan VB .Net 2008

Halo apa kabar sobat kali ini saya akan menjelaskan tutorial tentang membuat aplikasi penghitung nilai mahasiswa dengan menggunakan VB .Net 2008, oke tak perlu panjang lebar langsung saja saya mulai tutorialnya.

1.       Pertama buka terlebih dahulu program VB .Net 2008 nya, berikut adalah tampilan awal VB .Net 2008.

2.       Lalu buat project baru, pilih windows form application , berikan nama project yang akan kita buat yaitu “aplikasi penghitung nilai mahasiswa” , lalu pilih ok.

3.       Kemudian buatlah sebuah desain form seperti berikut, terdapat 1 group box, 6 label, 5 textbox, 2 button.

Komponen	Properties
	Name	Text	Auto Size
GroupBox 1	Group Box 1	Nilai Akhir Mahasiswa
Label 1	Label 1	Absen
Label 2	Label 2	Tugas
Label 3	Label 3	Keaktifan
Label 4	Label 4	UTS
Label 5	Label 5	UAS
Label 6	lblAkhir		False
Textbox 1	txtAbsen
Textbox 2	txtTugas
Textbox 3	txtAktif
Textbox 4	txtUTS
Textbox 5	txtUAS
Button 1	btnCek	Cek Nilai Akhir
Button 2	btnClose	Close

4.       Kemudian setelah selesai mendesain formnya, berikutnya masukan source code pada button Cek Nilai Akhir , berikut source codenya :

Private Sub btnCek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCek.Click

        Dim Absen, tugas, aktif, uts, uas As Integer

        Dim akhir As Integer

        Absen = txtAbsen.Text * 20 / 100

        tugas = txtTugas.Text * 15 / 100

        aktif = txtAktif.Text * 10 / 100

        uts = txtUTS.Text * 25 / 100

        uas = txtUAS.Text * 30 / 100

        akhir = Absen + tugas + aktif + uts + uas

        lblAkhir.Text = "nilai akhir kamu " & akhir

        If akhir > 85 Then

            MsgBox("nilai akhir kamu A")

        ElseIf akhir > 70 Then

            MsgBox("nilai akhir kamu B")

        ElseIf akhir > 55 Then

            MsgBox("nilai akhir kamu C")

        ElseIf akhir > 40 Then

            MsgBox("nilai akhir kamu D")

        Else

            MsgBox("nilai akhir kamu E")

        End If

    End Sub

            Masukan juga source code pada buttong Close :

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

           

                  Close()

            End Sub

            Disini presentase bobot penilaian adalah :

            Absen              = 20%

            Tugas              = 15%

            Keaktifan        = 10%

            UTS                = 25%

            UAS                = 30%

            Berikut ketentuan hasil nilai output dari nilai yang di inputkan :

            Jika nilainya > 85, maka nilai akhirnya adalah “A”

            Jika nilainya >70, maka nilai akhirnya adalah “B”

            Jika nilainya >55, maka nilai akhirnya adalah “C”

            Jika nilanya >40, maka nilai akhirnya adalah “D”

            Jika nilanya <40, maka nilai akhirnya adalah “E”

5.       Setelah semua button di masukan source code, langkah terakhir adalah menjalankan programnya,

Misalkan kita inputkan nilainya sebegai berikut :

Maka hasilnya  sebagai berikut :

 

6.       Demikianlah tutorial program aplikasi penghitung nilai menggunakan VB .Net 2008 semoga bermanfaat, selamat mencoba, jangan malu malu mecoba.

Pertemuan V - 9 maret program menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci menggunakan Visual Basic 2010.

helloo, kali ini saya akan membuat sebuah program menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci  menggunakan Visual Basic 2010.

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

petemuan III- 23 februari

Rabu, 25 Februari 2015 Contoh Program Pengcopyan dari Textbox ke Label
Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET Kali ini saya akan berbagi tentang bagaimana cara mengcopykan text yang kita tuliskan di Textbox ke Label yang kita inginkan Berikut ini adalah contoh pembuatan programnya. Seperti biasa buat project baru dan Form baru Kemudian desain form anda seperti ini Maksud dari txtUsername, lblGreeting, btnShowGreeting, btnClear, dan btnExit ini adalah adalah penamaan pada Properties masing-masing Toolbox yang kita pakai, kaya gini contoh di Propertiesnya Di bagian Name lah kita gunakan penulisan seperti txtKm, txtTank dan lain-lain tadi. Bila desain sudah anda desain seperti di atas, sekarang kita lanjut unutk mengcoding program tersebut Seperti ini lah contoh sintaks yang digunakan Sintaks untuk mengcopy dari txtUserName ke lblGreeting

Public Class Form1

   
 Private Sub btnShowGreeting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowGreeting.Click

        lblGreeting.Text = "Hello " & txtUserName.Text
    End Sub


Berikut ini Sintaks yang digunakan untuk btnExit

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

Dan yang ini adalah Sintaks untuk btnClear yang berfungsi untuk mengosongkan textbox kita.

  
  Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtUserName.Clear()
        lblGreeting.Text = String.Empty
    End Sub
End Class

Dan untuk yang sedikit lebih bagus, sekaligus bisa sedikit mengasah kemampuan kita cobalah buat program berikut ini. Dan berikut ini contoh sintaksnya : Public Class Form2

    Private Sub btnShowDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDate.Click
        lblDateString.Text = txtDayOfWeek.Text & " , " & txtMonth.Text & " " & txtDayOfMonth.Text & " , " & txtYear.Text
    End Sub

    Private Sub ctnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctnClear.Click
        txtDayOfMonth.Clear()
        txtDayOfWeek.Clear()
        txtMonth.Clear()
        txtYear.Clear()
        lblDateString.Text = String.Empty
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Seperti itulah sedikit tutorial yang dapat saya bagikan, semoga dapat bermanfaat bagi yang membutuhkan Aamiin.