HITUNG NILAI MAHASISWA SEDERHANA VB.NET 2008
Assalamu'alaikum Wr.Wb
sebelum kopi ini kusrupurt sebelum rokok ini kunyalakan dan ku hisap, terlebih dulu saya membuka buku kecil saya yang berisi rangkaian tugas-tugas dari setiap MK yang sedang saya tempuh sekarang, ternyata oh ternyata banyak banget dan menurut saya teramat sulit. bagaimana tidak ! bukan hanya sekedar sulit secara materi namun secara praktek saya mengalamai beberapa kendala, karena saya sangat asing dengan yang namanya bahasa pemograman VB.NET 2008. Tapi setelah berjibaku dengan sang guru pencari ( Google ) akhirnya saya dapat pencerahan untuk menyelesaikan beberapa tugas yang diberikan sang dosen. di sini saya bukan mau pamer atau so pintar tapi hanya sekedar ingin berbagi untuk teman-teman di dunia maya umumnya dan teman-teman seperjuangan khususnya.
oke langsung saja ke pokok permasalahan
TUGAS 1 : HITUNG NILAI MAHASISWA
1. Buatlah Design seperti gambar di bawah ini ( Ini Versi Saya )
Nah setelah kalian selesai membuat design seperti diatas coba input codingnya :
Public Class Form1
Dim s As String = " Tugas WANDI IRAWAN - HITUNG NILAI AKHIR MAHASISWA "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Text = Microsoft.VisualBasic.Left(s, 60)
s = Microsoft.VisualBasic.Right(s, Len(s) - 1) & Microsoft.VisualBasic.Left(s, 1)
End Sub
( Coding diatas hanya untuk text berjalan di Form, jika mau pakai saja, jika tidak yah jangan :) )
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Dim f = MsgBox("Apakah anda yakin ingin keluar?", vbYesNo, "KONFIRMASI")
If f = vbYes Then
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.DefaultButton1, "KONFIRMASI")
Me.Close()
ElseIf f = vbNo Then
Exit Sub
End If
End Sub
Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
ComboBox1.Text = "---------Silahkan Pilih-------"
TxtNama.Text = ""
TxtAbsen.Text = ""
TxtTugas.Text = ""
TxtUts.Text = ""
TxtUas.Text = ""
Nakhir.Text = "--"
Npredikat.Text = "--"
ComboBox1.Focus()
End Sub
Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
Nakhir.Text = Val(TxtAbsen.Text * 0.1) + Val(TxtTugas.Text * 0.2) + Val(TxtUts.Text * 0.3) + Val(TxtUas.Text * 0.4)
If Nakhir.Text >= 80 Then
Npredikat.Text = "A"
ElseIf Nakhir.Text >= 70 And Nakhir.Text < 80 Then
Npredikat.Text = "B"
ElseIf Nakhir.Text >= 60 And Nakhir.Text < 70 Then
Npredikat.Text = "C"
ElseIf Nakhir.Text >= 45 And Nakhir.Text < 60 Then
Npredikat.Text = "D"
ElseIf Nakhir.Text < 45 Then
Npredikat.Text = "E"
End If
End Sub
Private Sub nim_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "09360003" Then
TxtNama.Text = "Wandi Irawan"
ElseIf ComboBox1.Text = "09360012" Then
TxtNama.Text = "Rodin Sonjaya"
ElseIf ComboBox1.Text = "09360016" Then
TxtNama.Text = "Nadia Fevaliana"
ElseIf ComboBox1.Text = "09360020" Then
TxtNama.Text = "Oktavia Eka Setiani"
ElseIf ComboBox1.Text = "09360023" Then
TxtNama.Text = "Ismu Widodo"
ElseIf ComboBox1.Text = "09360026" Then
TxtNama.Text = "Gunadi"
ElseIf ComboBox1.Text = "09360027" Then
TxtNama.Text = "Dedy Prayanto"
ElseIf ComboBox1.Text = "09360028" Then
TxtNama.Text = "Syahroni"
ElseIf ComboBox1.Text = "09360029" Then
TxtNama.Text = "Azis Ahmad Zaelani"
ElseIf ComboBox1.Text = "09330033" Then
TxtNama.Text = "Fahmi M Zuaeni"
End If
End Sub
End Class
ini merupakan hasil modifikasi saya, dan untuk sumbernya bisa kalian lihat di
http://fathimubarak.blogspot.com/2011/04/membuat-program-sederhana-dengan-vbnet.html
TUGAS 2 : HITUNG FAKTORIAL VB.NET 2008
Seperti biasa buatlah design sederhana seperti di bawah ini :
TUGAS 2 : HITUNG FAKTORIAL VB.NET 2008
Seperti biasa buatlah design sederhana seperti di bawah ini :
Langsung masukin Codingnya
Public Class Form2
Dim a, b As Integer
Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
If TxtInputFaktorial.Text = String.Empty Then
MsgBox("Anda Belum Memasukan Nilai", MsgBoxStyle.Exclamation, "Info")
TxtInputFaktorial.Text = ""
TxtInputFaktorial.Focus()
Else
a = TxtInputFaktorial.Text
b = a
While a <> 1
a = a - 1
b = b * a
End While
TxtHasil.Text = b
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TxtInputFaktorial.Text = ""
TxtHasil.Text = ""
TxtInputFaktorial.Focus()
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
TUGAS 3 : APLIKASI TIKET KERETA API
buatlah design sederhana seperti di bawah ini :
Coding :
Nyusul yah hehehehe ( Pusing )
maaf saya tidak bisa jelaskan secara detail
Oke teman-teman sekian dului postingan kali ini , semoga bermanfaat
Salam Blogger
