Pelajaran Awal VisualBasic.Net

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Contoh Program Form Nilai Mahasiswa


algoritmanya sederhana saja.

���������
input
���������
nama mahasiswa    : textbox
mata kuliah            : Combobox
nilai quiz                : Textbox, nilai tidak boleh lebih dari 100 (0�100)
nilai UTS               : Textbox
nilai UAS              : textbox
���������
proses
���������
nilai akhir    : textbox �> 20% dari nilai quiz + 30% dari UTS + 50% dari UAS
���������
output
���������
nilai huruf    : textbox
jika nilai akhir >= 80 maka nilai huruf = �A�
jika nilai akhir >= 70 maka nilai huruf = �B�
jika nilai akhir >= 60 maka nilai huruf = �C�
jika nilai akhir < 60 maka nilai huruf = �D�

---

jadi� skrip yang aku buat adalah: Public Class Form1
Dim kuis As Single
Dim uts As Single
Dim uas As Single
Dim nilai_akhir As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txt_nQuiz.Text > 100 Then
MsgBox(�Tidak Boleh Melebihi dari 100?)
txt_nQuiz.Text = ��
txt_nQuiz.Focus()
Else : kuis = txt_nQuiz.Text
End If
If txt_nUts.Text > 100 Then
MsgBox(�Tidak Boleh Melebihi dari 100?)
txt_nUts.Text = ��
txt_nUts.Focus()
Else : uts = txt_nUts.Text
End If
If txt_nUas.Text > 100 Then
MsgBox(�Tidak Boleh Melebihi dari 100?)
txt_nUas.Text = ��
txt_nUas.Focus()
Else : uas = txt_nUas.Text
End If
nilai_akhir = ((kuis * (20 / 100)) + (uts * (30 / 100)) + (uas * (50 / 100)))
txt_nAkhir.Text = nilai_akhir
If nilai_akhir >= 80 Then
lbl_nhuruf.Text = �A�
ElseIf nilai_akhir >= 70 Then
lbl_nhuruf.Text = �B�
ElseIf nilai_akhir >= 60 Then
lbl_nhuruf.Text = �C�
Else
lbl_nhuruf.Text = �D�
End If
End Sub
End Class

---

ya begitulah. silakan kembangkan sendiri.haha� tampilan akhirnya begini :
ada yang kurang? mau protes? silakan isi pada kolom komentar. hehe� ^^v mari kita sama-sama belajar. yang udah mahir ajarin yang belum mahir, yang belum mahir, jangan malu bertanya pada yang sudah mahir. jadi, bagaimana pak/bu mahir? mau ajari saya???
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Pelajaran Awal VisualBasic.Net, Diterbitkan oleh scodeaplikasi pada Jumat, 07 Oktober 2011. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.