04
Apr
2009

Program pencetak nilai mahasiswa

Buat temen-temen yang sedang bingung dengan tugas praktek vb, mungkin postingan kali ini sangat cocok buat kalian semua. Kenapa…? Ya karena pada postingan saya kali ini saya akan memberikan tutorial dan source code lengkap tentang bagaimana cara membuat program pencetak nilai mahasiswa yang mungkin berguna buat temen-temen dalam mempelajari VB.

Ok… daripada kita banyak basa-basi sampai pada lupa apa maksud tujuan kita kali ini coba kalian semua buat design programnya dulu…! Seperti yang telah saya buat dibawah ini.



Gimana… sudah belum…? Mungkin untuk designnya sendiri dapat dibuat sesukamu asal jangan asal-asalan ya…! Biar gak dibilang program ecek-ecek… .
Setelah itu pada masing-masing teksbox dan command button dapat diganti name controlnya sesuka kalian. Lalu setelah itu kamu catat source code di bawah ini.

‘==========================COPY HERE========================’
Private Sub Form_Load()
txtnilai.Enabled = False
txtgrade.Enabled = False
txtket.Enabled = False
End Sub

Private Sub ket()
If txtnilai >= 80 Then
txtket = "Lulus"
Else
If txtnilai >= 60 Then
txtket = "Lulus"
Else
If txtnilai >= 40 Then
txtket = "Lulus"
Else
If txtnilai >= 20 Then
txtket = "Gagal"
Else
txtket = "Gagal"
End If
End If
End If
End If
End Sub

Private Sub grade()
If txtnilai >= 80 Then
txtgrade = "A"
Else
If txtnilai >= 60 Then
txtgrade = "B"
Else
If txtnilai >= 40 Then
txtgrade = "C"
Else
If txtnilai >= 20 Then
txtgrade = "D"
Else
txtgrade = "E"
End If
End If
End If
End If
End Sub

Private Sub cmdbersih_Click()
txtnama = ""
txtnim = ""
txtabsen = ""
txttugas = ""
txtuas = ""
txtuts = ""
txtnilai = ""
txtgrade = ""
txtket = ""
txtnama.SetFocus
End Sub

Private Sub cmdhitung_Click()
If txtabsen = "" Then
MsgBox "Absensi harus diisi...!", vbInformation, "Error"
txtabsen.SetFocus
Else
If txttugas = "" Then
MsgBox "Tugas harus diisi...!", vbInformation, "Error"
txttugas.SetFocus
Else
If txtuts = "" Then
MsgBox "Nilai uts harus diisi...!", vbInformation, "Error"
txtuts.SetFocus
Else
If txtuas = "" Then
MsgBox "Nilai uas harus diisi...!", vbInformation, "Error"
txtuas.SetFocus
Else
txtnilai = Val(txtabsen) + Val(txttugas) + Val(txtuts) + Val(txtuas) / 4
End If
End If
End If
End If
Call ket
Call grade
End Sub

Private Sub keluar_Click()
pesan = MsgBox("Yakin Mau Keluar...?", vbQuestion + vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub

‘========================END HERE=========================’
Gimana mudah bukan…. Untuk temen-temen yang males nulis source code diatas bisa langsung download disini. Buat yang belum install vb bisa download vb protable disini. Bila di run program akan berjalan seperti ini

[+/-] Selengkapnya...

03
Apr
2009

Gambar Yang Menimbulkan Perseteruan

Riuhnya grup Ganyang Indonesia melawan Ganyang Malaysia membangkitkan sentimen permusuhan dua negara yang sebenarnya serumpun. Semua gara-gara babi?

Anggota Facebook dengan nama 'Ganyang', pelaku pendiri grup 'Ganyang Indonesia', menjadi penggiat anti Indonesia di Facebook. Diduga ini semua berawal dari gambar babi.


Gambar babi yang dimaksud adalah yang digunakan sebagai foto profil grup 'Ganyang Malaysia'. Foto hasil olah digital itu menampilkan seekor babi sedang menyeringai di atas bendera Malaysia.

Ganyang mengaku dirinya 'lahir' dari grup Ganyang Malaysia yang notabene didirikan untuk menghina Malaysia. Dalam grup itu ia meminta foto babi yang digunakan diubah.

"Gw dilahirkan dari group ganyang malaysia, gw masuk grup itu lebih 6 bulan dan minta admin2 dan officer2 (yang post di sini jugak!!!) tukar HANYA logo ganyang malaysia. mereka degil, tak nak dengar, gw kena ban lebih 20 kali, bayangkan betapa takut dia orang kepada gw," sebut Ganyang dalam grup Indo-Malay Damai.

"Pelik ye, dia orang nak sangat guna logo babi atas bendera tetangga. dia tahu bumi melayu itu orang beragama islam, tapi tak kisah jugak, pijak bendera bumi melayu, buat sesuka hati. tapi dengan itu gw dilahirkan," lanjut Ganyang.

Akibat permintaannya tak digubris itulah, Ganyang kemudian mendirikan Ganyang Indonesia. Tak cukup di situ, ia pun mengaku mengajak rekan-rekan lain untuk melancarkan serangan ke grup Ganyang Malaysia. (detikinet.com)

[+/-] Selengkapnya...

Facebook jadi ajang saling berseteru..



Sepertinya perseteruan antara indonesia dan malaysia tidak berhenti cukup sampai disini. Pada sebuah situs pertemanan yang seharusnya dipergunakan secara positif ternyata menjadi sarana untuk menunjukkan permusuhana diantara keduanya. Sebagaimana informasi yang saya dapatkan dari detikinet.com


Segelintir orang membuat kelompok 'Ganyang Malaysia' di Facebook. Pihak Malaysia pun membalas dengan 'Ganyang Indonesia'. Duh!

Malaysia dan Indonesia memiliki hubungan yang unik. Di satu sisi kedua negara ini adalah saudara serumpun. Di sisi lain, kerap ada sentimen Indonesia versus Malaysia yang dihembus-hembuskan.

Salah satunya adalah melalui fasilitas Groups di Facebook. Segelintir pengguna internet asal Malaysia dilaporkan telah membuat kelompok bernama 'Ganyang Indonesia!!!'.

Informasi yang diterima detikINET dari pembaca, Kamis (2/4/2009) menyebutkan adanya kelompok tersebut.

Saat dikunjungi detikINET, Kamis (2/4/2009) pukul 14:15 WIB, kelompok itu telah menjaring 274 anggota. Selain dari Malaysia, beberapa anggota nampaknya juga berasal dari Indonesia.

Dalam deskripsinya, grup 'Ganyang Indonesia' agaknya didirikan sebagai reaksi atas grup bernama 'Ganyang Malaysia'. Sang pembuat grup Ganyang Indonesia pun nampak penuh marah dan dendam dalam deskripsi tersebut.

Kata-kata kotor, caci maki dan umpatan menghiasi deskripsi tersebut. "Kalau nak lawan, 'no holds barred'. Lihat macam mana kawan kawan kita dari Ganyang Malaysia!!! maki hamun orang Malaysia. Tak pe rakan rakan, biar indon tunjuk dia ***, kerana dia memang ***! GANYANG INDONESIA!!!"

Dalam kedua grup itu, binatang babi jadi ikon. Di 'Ganyang Indonesia', Babi ditampilkan dalam bentuk kartun sedangkan di 'Ganyang Malaysia' berbentuk foto olah digital.

[+/-] Selengkapnya...