Membuat Aplikasi Perhitungan Nilai Sederhana Menggunakan VB 6.0


wah sudah lama gak posting posting lagihhhh ! hehehe… kali ini saya mau share mengenai pembuatan program sederhana berbasis GUI dengan menggunakan VB 6.0


Object Oriented Programming

  • berikut interface hasil desain form nya…

  • nah, setelah tampilan desain nya uda jadi, trus klik dua kali pada kontrol Command Button (CmdProses) untuk menuliskan listing program nya seperti dibawah ini…

=========================================================================================

Private Sub CmdProses_Click()

Dim Rata As Single

Dim Mutu As String

Rata = (Val(TxtUTS.Text) * 0.3) + (Val(TxtUAS.Text) * 0.4) + (Val(TxtTugas.Text) * 0.2) + (Val(TxtAbsen.Text) * 0.1)

If Rata >= 80 Then

Mutu = “A”

ElseIf Rata >= 70 Then

Mutu = “B”

ElseIf Rata >= 60 Then

Mutu = “C”

ElseIf Rata >= 40 Then

Mutu = “D”

Else

Mutu = “E”

End If

ListTampil.AddItem ” NIM = ” + TxtNIM.Text

ListTampil.AddItem ” Nama = ” + TxtNama.Text

If OptLk.Value = True Then

ListTampil.AddItem ” Jenis Kelamin = ” + OptLk.Caption

Else

ListTampil.AddItem ” Jenis Kelamin = ” + OptPr.Caption

End If

ListTampil.AddItem ” ”

ListTampil.AddItem ” Jurusan = ” + CmbJurusan.Text

ListTampil.AddItem ” Kelas = ” + TxtKelas.Text

ListTampil.AddItem ” Semester = ” + CmbSemester.Text

ListTampil.AddItem ” ”

ListTampil.AddItem ” Mata Kuliah = ” + TxtMatkul.Text

ListTampil.AddItem ” Nilai UTS = ” + TxtUTS.Text

ListTampil.AddItem ” Nilai UAS = ” + TxtUAS.Text

ListTampil.AddItem ” Nilai Tugas = ” + TxtTugas.Text

ListTampil.AddItem ” Nilai Absen = ” + TxtAbsen.Text

ListTampil.AddItem ” ”

ListTampil.AddItem ” Total Nilai = ” + Str(Rata)

ListTampil.AddItem ” Mutu = ” + Mutu

ListTampil.AddItem ” “

If Mutu = “A” Then

ListTampil.AddItem ” Sukses ! Terus Semangat Belajar !!”

ElseIf Mutu = “B” Then

ListTampil.AddItem ” Cukup Baik, Rajin & Tekun Belajar !”

ElseIf Mutu = “C” Then

ListTampil.AddItem “Kurang Baik, Disarankan Untuk Mengikuti Her !”

ElseIf Mutu = “D” Then

ListTampil.AddItem “Buruk, Fokus dan Serius Lagi Belajar !”

Else

ListTampil.AddItem “Teramat Buruk, Anda Harus Lebih Serius Belajar !”

End If

MsgBox “Nilai kamu untuk mata kuliah ini adalah ” + Mutu

End Sub

Private Sub CmdReset_Click()

TxtNIM.Text = Empty

TxtNama.Text = Empty

OptLk.Value = False

OptPr.Value = False

CmbJurusan.Text = ” ”

TxtKelas.Text = Empty

CmbSemester.Text = ” ”

TxtMatkul.Text = Empty

TxtUTS.Text = Empty

TxtUAS.Text = Empty

TxtTugas.Text = Empty

TxtAbsen.Text = Empty

ListTampil.Clear

End Sub

Private Sub CmdKeluar_Click()

x = MsgBox(“Anda Yakin Akan Keluar ??”, vbQuestion + vbOKCancel, “AnnaLee Exit”)

If x = vbOK Then

End

End If

End Sub

=======================================================

selamat mencoba… !


membuat kalkulator sederhana menggunakan HTML



<html>
<head>
<title>Kalkulator Online</title>
<script>
function hitung(angka1,angka2,operator)
{
var hasil;
if (operator==”tambah”){
hasil = parseInt(angka1) + parseInt(angka2);
}else if(operator==”kurang”){
hasil = parseInt(angka1) – parseInt(angka2);
}else if(operator==”kali”){
hasil = parseInt(angka1) * parseInt(angka2);
}else if(operator==”bagi”){
hasil = parseInt(angka1) / parseInt(angka2);
}
document.getElementById(“hasil”).innerHTML = “<b>” +hasil+ “</b>”;
return false;
}
</script>
</head>
<body>
<form name=”form1″ method=”post” action=”hitung.php” onsubmit=”return hitung
(form1.angka.value,form1.angka2.value,form1.operator.value);”>
<table align=”center” width=”28%” border=”5″ bgcolor=”lime”>
<tr>
<td align=”center”>
<h1><center><u>Online Calculator</u></center></h1>
<h3>
Bilangan 1<input name=”angka” type=”text” id=”angka”><br>
<center><select name=”operator” id=”operator”>
<option value=”tambah”>+</option>
<option value=”kurang”>-</option>
<option value=”kali”>*</option>
<option value=”bagi”>/</option>
</select></center>Bilangan 2<input name=”angka2″ type=”text” id=”angka2″><br>
<center><input type=”submit” name=”Submit” value=”Hitung”></center><div style=”float:left;”>- Hasil :</div><br>
<div id=”hasil”></div>
</h3>
<marquee><h6>Kalkulator Online dengan operator Aritmatika</h6></marquee>
</td>
</tr>
</table>
</form>
</body>
</html>

berikut adalah hasil nya…

Kalkulator Online

Mudah Mengganti Logon Screen di Windows7


setiadyagung@gmail.com
Logon Screen adalah tampilan gambar ketika windows 7 akan memasuki tampilan desktop dari windows 7 itu sendiri.
bila kita melihat tampilan dari gambar logon screen secara default windows 7, mungkin masih begitu standart serta mungkin terasa membosankan bagi mereka yang sudah cukup lama menggunakan sistem operasi windows 7 ini.

untuk itu, maka ada salah satu software untuk mengganti tampilan gambar logon screen.
tampilan  gambarnya pun bisa di ganti ganti dengan gambar apapun sesuka kita,pada tahap ini, saya mencoba pada type gambar atau picture JPG saja.


langsung saja tampilan dari software yang dapat mengganti logon screen secara mudah.


 

Software ini lumayang simple… kita tinggal klik choose a folder untuk mencari folder tempat wallpaper tersimpan,


 

Sedangkan tombol Apply digunakan untuk melakukan perubahan gambar.


 

Gampang bukan??? Tinggal klik klik beberapa kali tampilan logon akan terlihat gak membosankan lagi

 

Hehehehehehe… 



Untuk aplikasi nya bisa didownload disini….

http://www.mediafire.com/?j1no5zuevza

instalasi nya mudah, simple dan filesize nya kecil

 

selamat gonta-ganti