tag:blogger.com,1999:blog-8148667740651608472024-03-13T23:06:19.674-07:00Pemrograman blogBlog ini merupakan personal blog yang berisi kumpulan script-script logika sederhana. irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.comBlogger55125tag:blogger.com,1999:blog-814866774065160847.post-56610841470004992902018-08-11T21:29:00.001-07:002018-08-11T21:33:08.852-07:00Cara Menggunakan Virtualenv<br />
<br />
Vritualenv adalah tools untuk membuat lingkungan python virtual yang terisolasi.<br />
<br />
<br />
Terisolasi artinya tertutup dan tidak bisa diakses dari dunia luar.<br />
<br />
<br />
Program Python yang berjalan di dalam virtualenv memiliki modul-modulnya sendiri dan program dari luar tidak bisa mengaksesnya.<br />
<br />
<br />
Cara Menggunaka Virtualenv dengan Mudah.<br />
<br />
<br />
Pertama, install virtualEnv dengan perintah:<br />
<br />
<br />
Virtualenv dapat kita instal dengan berbagai cara, salah satunya bisa melalui apt.<br />
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;">sudo apt-get <span class="token function" style="box-sizing: border-box; color: #dd4a68;">install</span> virtualenv
</code></pre>
<div style="background-color: white; box-sizing: border-box; color: #343a40; font-family: Merriweather, Georgia, sans-serif; font-size: 16px; letter-spacing: 0.01rem; margin-bottom: 1.5em;">
atau:</div>
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;">sudo apt-get <span class="token function" style="box-sizing: border-box; color: #dd4a68;">install</span> python-virtualenv
</code></pre>
<div style="background-color: white; box-sizing: border-box; color: #343a40; font-family: Merriweather, Georgia, sans-serif; font-size: 16px; letter-spacing: 0.01rem; margin-bottom: 1.5em;">
atau (untuk python3):</div>
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;">sudo apt-get <span class="token function" style="box-sizing: border-box; color: #dd4a68;">install</span> python3-virtualenv
</code></pre>
<div style="background-color: white; box-sizing: border-box; color: #343a40; font-family: Merriweather, Georgia, sans-serif; font-size: 16px; letter-spacing: 0.01rem; margin-bottom: 1.5em;">
Atau bisa juga menggunakan <code style="box-sizing: border-box; color: #e83e8c; font-family: SFMono-Regular, Menlo, Monaco, Consolas, "Liberation Mono", "Courier New", monospace; font-size: 14px; word-break: break-word;">pip</code>:</div>
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;"><span class="token punctuation" style="box-sizing: border-box; color: #999999;">[</span>sudo<span class="token punctuation" style="box-sizing: border-box; color: #999999;">]</span> pip <span class="token function" style="box-sizing: border-box; color: #dd4a68;">install</span> virtualenv</code></pre>
Menggunaka virtualenv :<br />
<br />
1. Buat Folder:<br />
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;"><span class="token function" style="box-sizing: border-box; color: #dd4a68;">mkdir</span> my-project
</code></pre>
<div style="box-sizing: border-box; margin-bottom: 1.5em;">
<span style="color: #343a40; font-family: merriweather, georgia, sans-serif;"><span style="background-color: white; letter-spacing: 0.01rem;">2</span></span>. Setelah itu, buat virtual environment di sana.</div>
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><code class=" language-bash" style="background: 0px 0px; box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: inherit; hyphens: none; line-height: 1.5; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-spacing: normal; word-wrap: normal;"><span class="token function" style="box-sizing: border-box; color: #dd4a68;">cd</span> my-project</code></pre>
3. Buat File dan beri nama Pipfile didalam folder my-project. Setelah itu masukan segala sesuatu yang perlu diinstall ke bagian packeges, Untuk isi filenya seperti dibawah ini :<br />
<br />
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid; box-sizing: border-box; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><span style="color: #dd4a68; font-family: "consolas" , "monaco" , "andale mono" , "ubuntu mono" , monospace;"><span style="font-size: 14px;">[[source]]
url = "https://pypi.python.org/simple"
verify_ssl = true
name = "pypi"
[requires]
python_version = "3.5"
[packages]
django = "==2.0.5"
django-tenant-schemas = "*"
djangorestframework = "*"
django-tenants = "*"
"python3-openid" = "*"</span></span></pre>
4. Ketikan perintah :<br />
<br />
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><span style="color: #dd4a68;">pipenv install --three</span></pre>
Secara otomatis pipenv akan menginstall semua package yang dimasukkan ke dalam list package. --three artinya Anda menginstal pada paket python versi 3.5<br />
<br />
5. Masuk ke virtualenv dengan cara mengetikan :<br />
<br />
Pipenv shell<br />
<br />
6. Untuk meilhat package yang telah terinstall Anda bisa menggunakan perintah :<br />
<br />
<pre class=" language-bash" style="background: rgb(245, 242, 240); border: 1px solid var(--border-color); box-sizing: border-box; font-family: Consolas, Monaco, "Andale Mono", "Ubuntu Mono", monospace; font-size: 14px; hyphens: none; line-height: 1.5; margin-bottom: 1.5em; margin-top: 0.5em; overflow: auto; padding: 1em; tab-size: 4; text-shadow: rgb(255, 255, 255) 0px 1px; word-break: normal; word-wrap: normal;"><span style="color: #dd4a68;">pip freeze</span></pre>
7. Untuk keluar cukup tekan ctrl + d saja..<br />
<br />
Mudah bukan..irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-3887035578433550782018-06-28T19:08:00.004-07:002018-06-28T19:08:59.157-07:00Cara Merubah Nama Modul DjangoUntuk merubah nama modul default atau app di django Anda bisa merubahnya di file apps.py yang berada di namaapp/apps.py dengan menambahkan : verbose_name = "Nama yang anda inginkan" . Lengkapnya seperti ini :<br /><br /><br /><span style="font-family: "Courier New", Courier, monospace;">from django.apps import AppConfig<br /><br /><br />class DataCenterConfig(AppConfig):<br /> name = 'data_center'<br /> verbose_name = "Data Center"</span><br />
<span style="font-family: "Courier New", Courier, monospace;"></span><br />
<span style="font-family: "Courier New", Courier, monospace;"></span><br />
<span style="font-family: "Courier New", Courier, monospace;"><br /></span>
Lalu tambahkan di <span style="font-family: "Courier New", Courier, monospace;">__init__.py <span style="font-family: inherit;">seperti ini :</span> <br /><br />default_app_config = 'data_center.apps.DataCenterConfig'</span>irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-37426338695239586902018-06-07T00:36:00.002-07:002018-06-07T00:41:19.858-07:00Mengubah tanggal format ISO menjadi millisecond di JavascriptTernyata merubah tanggal format iso seperti ini 2018-06-07T05:00:21.695001841Z cukup sederhana yaitu seperti ini :<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-family: "courier new" , "courier" , monospace;">var myDate= new Date("2018-06-07T05:00:21.695001841Z");</span><br />
<span style="font-family: "courier new" , "courier" , monospace;">console.log(myDate.getTime())</span><br />
<br />
<br />
Format Javascript millisecond adalah <span class="" id="result_box" lang="id"><span class="">Jam internal dalam JavaScript yang dimulai pada tengah malam 1 Januari 1970.</span></span><span class="" id="result_box" lang="id"><span class=""></span></span>irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-102978484324389722018-06-01T02:59:00.002-07:002018-06-01T03:02:11.142-07:00Mengambil Data Bentuk Json pada PythonMisalnya kita punya data dalam json :<br />
<br />
<br />
<br />
<iframe src="https://pastebin.com/embed_iframe/KGdnBt94" style="border: none; height: 400px; width: 100%;"></iframe>
<br />
Dan kita ingin mengambil semua data nama <br />
Maka cara mengambil data tersebut pada python sebagai berikut, kita dapat menggunakan <i>perulangan for </i>:<br />
<div>
<br />
<iframe src="https://pastebin.com/embed_iframe/Du5AW1u0" style="border: none; height: 400px; width: 100%;"></iframe>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://2.bp.blogspot.com/-YX-rm-FGl1Q/WxEZj3P-RCI/AAAAAAAAAA4/CZ9TCeFQV7Q-3C4FTQDVft75phhiLADmgCLcBGAs/s1600/pythonjson.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="122" data-original-width="664" height="72" src="https://2.bp.blogspot.com/-YX-rm-FGl1Q/WxEZj3P-RCI/AAAAAAAAAA4/CZ9TCeFQV7Q-3C4FTQDVft75phhiLADmgCLcBGAs/s400/pythonjson.JPG" width="400" /></a></div>
</div>
irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-55821058926533297182018-03-19T00:33:00.002-07:002018-03-24T21:13:14.017-07:00Demo dan Download CRUD Laravel dengan upload gambarSaya akan menjelaskan sedikit menngenai<b> CRUD Laravel</b> ini. CRUD Laravel ini adalah CRUD biasa yang terdiri dari operasi Create, Update , Delete yang menggunakan framework Laravel. Alur MVC dari framework Laravel kira-kira seperti ini :<br />
<br />
<br />
<span style="color: black;"><a href="http://www.programmersblog.net/Images/Uploads/mvcarchetecture.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://www.programmersblog.net/Images/Uploads/mvcarchetecture.png" data-original-height="525" data-original-width="800" height="262" width="400" /></a></span><br />
<br />
<b><i><u>ROUTES</u></i></b> di Laravel berada di dalam folder <u>routes/web.php</u>. Berisi seperti berikut :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<iframe src="https://pastebin.com/embed_iframe/gTFDpC03" style="border: none; height: 300px; width: 100%;"></iframe><br />
<br />
<br />
Route::get('tambah','BlogController@tambah');<br />
<b><br />Tambah</b> adalah bagian dari<b> <i>url</i></b> nantinya, misalnya : <u>laravelapp.com/tambah</u><br />
<b>BlogController </b>adalah nama<b> <i>controller </i></b><br />
@tambah adalah nama <b style="font-style: italic;">function </b>di dalam <b><i>controller. </i></b><br />
<br />
<b>Controller</b> di Laravel berada di dalam folder <u>app/Http/Controllers/NamaControllernya.php.</u><br />
catatan: aturan penamaan controller adalah <b><i>CamelCase</i></b>, artinya setiap kata pembentuknya ditandai dengan huruf besar dan disambung.<br />
<b><i><br /></i></b>
<b><i><br /></i></b>
<iframe src="https://pastebin.com/embed_iframe/mVgRFP0e" style="border: none; height: 400px; width: 100%;"></iframe><br />
<br />
<br />
<b>Model </b>di Laravel berada dalam folder <i><b>/app/Model . </b></i>Isi dari file model kira-kira seperti ini :<br />
<br />
<br />
<br />
<iframe src="https://pastebin.com/embed_iframe/cDxp8vET" style="border: none; height: 200px; width: 100%;"></iframe><br />
<br />
<br />
<br />
Dan <b>Views</b> di Laravel terletak dalam folder <i><b>laravelapp/resources/views :</b></i><br />
<b>Blade </b>adalah <i>template engine</i> Laravel.<br />
Perintah <b>@</b><b>Yield() </b>adalah perintah blade. Gunanya untuk menandai, bahwa dibagian itu akan ditempati potongan kode yang biasa disebut <i style="font-weight: bold;">section. </i>Nama dari section tersebut disertakan dalam tanda kurung pada perintah @yields(). misal : yiled('footer').<br />
contohnya berada pada file utama master.blade.php :<br />
<br />
<iframe src="https://pastebin.com/embed_iframe/J397ytcC" style="border: none; height: 300px; width: 100%;"></iframe>
<br />
<br />
file master.blade diatas kita extends pada file lainnya sesuai route . dengan format namafolder.namafilemaster, file dibawah berada pada <b style="font-style: italic;">laravelapp/resources/views/daftar_pegawai.blade.php, </b>kurung kurawal dobel adalah pengganti echo ,<br />
<br />
<iframe src="https://pastebin.com/embed_iframe/ck6RUYgT" style="border: none; height: 500px; width: 100%;"></iframe><br />
<br />
<br />
<div style="text-align: center;">
<b><a href="http://ouo.io/DtYhPr" target="_blank">DEMO</a> | DOWNLOAD</b> (Coming Soon .. ) </div>
irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-34414732020671622482018-03-04T06:39:00.000-08:002018-03-19T00:40:47.200-07:00Membuat Link Cantik Menggunakan Regex htaccess<span style="font-family: "georgia" , "times new roman" , serif;">Link yang cantik akan bermanfaat terutama link menjadi mudah dibaca dan tidak terlalu panjang. Sehingga dapat membantu website kita dalam peringkat mesin pencari.<br /><br />Contoh regex untuk mempercantik link yang sering digunakan:</span><br />
<span style="font-family: "Helvetica Neue", Arial, Helvetica, sans-serif;"><span style="font-size: small;"><br />Options -Indexes<br />RewriteEngine On<br />RewriteOptions inherit<br /><br />RewriteRule ^detailproduk-([a-zA-Z0-9\-]+).html$ detail.php?Idproduk=$1 [L,QSA]<br />RewriteRule ^konten([0-9]*)/([a-zA-Z0-9\-]+).html$ index.php?action=konten&id_konten=$1 [L,QSA]</span></span><span style="font-family: "courier new" , "courier" , monospace;"><br /></span>
<br />
<div class="line number7 index6 alt2">
<span style="font-family: "georgia" , "times new roman" , serif;">$1 dibelakang Idproduk biasanya merupakan kode produk, kalau nggak ya nama produk yang unik. Nah kode unik itu bisa diletakan seperti didetail produk didepanya, ([a-zA-Z0-9\-]+) maksudnya kodenya mau angka besar kecil atau strip gak masalah, kalau ([0-9]*) artinya harus terdiri dari angka 1-9 . Artinya jika link sebenarnya seperti ini : detail.php?Idproduk=pro-00213 maka bisa dirubah seperti ini : detailproduk-pro-00213.html. Kira-kira seperti itu. Biasanya kode unik gak bisa dihilangkan, karena akan digunakan dihalaman selanjutnya.</span></div>
irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-86328397519128048452017-12-03T05:08:00.001-08:002017-12-26T20:07:31.908-08:00Menyisipkan baris baru disetiap beberapa perulanganTerkadang saat membuat kolom menjadi tidak rapi karena panjang pendeknya isi pada kolom tidak sama. Untuk merapikannya mungkin ada beberapa solusi, salah satu salusinya adalah menyisipkan baris untuk menjeda kolom ditas dengan kolom perulangan dibawahnya. Pokoknya ingin ada jeda atau jarak lah.. Anda bisa menggunakan contoh semacam ini :<br />
<br />
<br />
<iframe src="https://pastebin.com/embed_iframe/JP2HudyP" style="border: none; height: 300px; width: 100%;"></iframe>
<br />
kode diatas menampilkan satu baris ada 4 kolom setiap 4 kolom maka ganti baris (dijeda dengan kode row).
<br />
<br />
Anda bisa coba kodingnya disini : http://phpio.net/irfanhttp://www.blogger.com/profile/03277270920752928230noreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-37008447788546531242015-09-19T06:57:00.000-07:002015-09-20T17:32:45.547-07:00Contoh Switch Case PHP Sederhana dengan Form<b>Contoh penggunaan Switch Case menggunakan PHP memilih nama siswa.</b><br />
<br />
Perintah Switch Case dapat digunakan sebagai pengganti perintah if..else.<br />
Perintah switch akan menyeleksi kondisi yang diberikan dan membandingkan hasilnya dengan konstanta-konstanta yang berada pada case.<br />
Jika hasil dari kondisi sama dengan konstanta tertentu, maka pernyataan pada konstanta tersebut akan dijalankan sampai ditemukan pernyataan break. Jika hasil dari kondisi tidak ada yang sama dengan konstanta-konstanta yang diberikan, maka pernyataan pada default yang akan dijalankan. Berikut contoh program case php:<br />
<a name='more'></a><br />
<br />
<br />
<html><br />
<head><br />
<title>Struktur Kendali dengan Switch</title><br />
<br />
</head><br />
<br />
<body><br />
<br />
<br />
<form action="" method="POST"><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><input type="text" name="absen"><br><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><input type="submit" value="kirim"><br />
</form><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><?php<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>if (isset($_POST['absen'])){<br />
$absen = $_POST['absen'];<br />
switch ($absen){<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case 1;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>echo 'Ahmad Arifin';<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>break;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case 2;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>echo 'Indra Setya Rian Pradana';<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>break;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case 3;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>echo 'Muhammad Irfan';<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>break;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case 4;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>echo 'Surya Napitulu';<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>break;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>default;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>echo 'dst';<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>break;<br />
}<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>}<br />
?><br />
</body><br />
</html><br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div>
<br />
<br />
tampilan:<br />
<br />
<a href="http://4.bp.blogspot.com/-N6OMgYPvSyM/Vf1pZFJVL3I/AAAAAAAADds/rPM4tegkhr0/s1600/switch%2Bcase%2Bamikom.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://4.bp.blogspot.com/-N6OMgYPvSyM/Vf1pZFJVL3I/AAAAAAAADds/rPM4tegkhr0/s1600/switch%2Bcase%2Bamikom.JPG" /></a></div>
Unknownnoreply@blogger.com3tag:blogger.com,1999:blog-814866774065160847.post-63239605884753242522015-08-31T22:54:00.001-07:002015-08-31T22:55:36.018-07:00Cara Mengatasi Galat: Index hilang pada kolom di phpMyAdmin<br />
<br />
<a href="http://irfanmuhluster.blogspot.com/" target="_blank"><br /></a>
<br />
<h3 class="r" style="background-color: white; color: #222222; font-family: arial, sans-serif; font-size: 18px; font-weight: normal; margin: 0px; overflow: hidden; padding: 0px; text-overflow: ellipsis; white-space: nowrap;">
<a href="http://irfanmuhluster.blogspot.com/" target="_blank">SQL FOREIGN KEY Constraint</a><br /><br />Kalau kamu menemui kasus seperti itu, biasanya indeks memang gak</h3>
<h3 class="r" style="background-color: white; color: #222222; font-family: arial, sans-serif; font-size: 18px; font-weight: normal; margin: 0px; overflow: hidden; padding: 0px; text-overflow: ellipsis; white-space: nowrap;">
ada jadi buat indeks dulu</h3>
1. Pada tabel yang akan dijadikan foreign key, klik indeks data yang ingin dihubungkan menjadi foreign key.<br />
<br />
<a href="http://3.bp.blogspot.com/-8aBbOo5QXaM/VeU8Jye6gfI/AAAAAAAADdI/9hDaobXGgoo/s1600/yee.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="117" src="http://3.bp.blogspot.com/-8aBbOo5QXaM/VeU8Jye6gfI/AAAAAAAADdI/9hDaobXGgoo/s400/yee.jpg" width="400" /></a><br />
<br />
<br />
2. Buka data tabel yang akan dijadikan primary. Klik struktur>pilih relation view. Disana akan ada foreign key constraint. Pilih data tabel pertama sebagai primary key,lalu pilih database, pilih kolom tabel kedua sebagai foreign key lalu data tabel. Jangan lupa pilih on delete cascade on delete cascade<br />
Semoga berhasil.<br />
<br />
<span style="background-color: white; color: #141823; font-family: helvetica, arial, sans-serif; font-size: 14px; line-height: 19.3199996948242px;"><a href="http://irfanmuhluster.blogspot.com/">Galat : Index hilang pada kolom</a></span>Unknownnoreply@blogger.com3tag:blogger.com,1999:blog-814866774065160847.post-70062314462490893102015-03-11T22:35:00.001-07:002015-03-11T22:35:54.171-07:00Pengertian Intelligent Tutoring <strong><em>Intelligent Tutoring/Intelligent Computer-Aided Instructio</em></strong><em>n <strong>(CAI)</strong></em><br />
<em>CAI</em> adalah<span class="" id="result_box" lang="id"><span class="hps"> sebuah sistem komputer</span> <span class="hps">yang bertujuan</span> <span class="hps">untuk memberikan</span> <span class="hps">instruksi</span> <span class="hps">langsung</span> <span class="hps">dan disesuaikan</span> <span class="hps">atau</span> <span class="hps">umpan balik kepada</span> <span class="hps">peserta didik</span><span class="">,</span> <span></span> <span class="hps">biasanya tanpa</span> <span class="hps">intervensi dari</span> <span class="hps">seorang guru</span> <span class="hps">manusia</span><span class="">. Atau dengan kalimat sederhana Intellegent Tutoring adalah </span></span>Komputer yang mampu mengajari manusia. Belajar
melalui komputer sudah lama digunakan, namun dengan menambahkan aspek
kecerdasan di dalamnya, dapat tercipta komputer “guru” yang dapat
mengatur teknik pengajarannya untuk menyesuaikan dengan kebutuhan
“murid” secara individiual. Unsur sistem database dan query yang canggih
sangat dominan dalam CAI. Sistem ini juga mendukung pembelajaran bagi
orang yang mempunyai kekurangan fisik atau kelemahan belajar. Kelebihan
CAI ini, yaitu : material dapat diatur sesuai dengan kebutuhan/kemampuan
pemakai, perbaikan dapat langsung diberikan, umpan balik secara cepat,
pengajaran yang konsisten, materi belajar mudah diedit, dan tidak ada
batasan lokasi.Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-32333631303539420022015-02-04T04:10:00.001-08:002015-02-04T04:10:30.200-08:00Contoh Program C++ Stack (Tumpukan) untuk Membalikan Kata / KalimatContoh Program Stack (Tumpukan) untuk membalikan kalimat:<br /><br /><br />
#include <stdio.h><br />
#include <conio.h><br />
#include <string.h><br />
#include <iostream.h><br />
#define MaxElemen 200 //menentukan batas max elemen<br />
<a name='more'></a><br />struct Tumpukan<br />
{<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>char Isi[MaxElemen];<br />
int Atas;<br />
} T;<br />
<br />
//sub program PUSH berfungsi memasukkan elemen ke dalam STACK<br />
void PUSH (char x){ //fungsi push<br />
if(T.Atas == MaxElemen){ //untuk mengecek apakah stack sudah penuh<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>cout<<"Tumpukan Sudah Penuh";<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>getch();<br />
}<br />
else{<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>T.Atas = T.Atas + 1;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>T.Isi[T.Atas] = x;<br />
}<br />
}<br />
<br />
//sub program POP berfungsi mengambil elemen dari STACK<br />
char POP(){<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>char hasil;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>if(T.Atas == 0){<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>cout<<"Tumpukan sudah kosong";<br />
hasil = ' ';<br />
}<br />
else{<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>hasil = T.Isi[T.Atas];<br />
T.Atas = T.Atas - 1;<br />
}<br />
return hasil;<br />
}<br />
<br />
//program utama<br />
void main ()<br />
{<br />
int I; // pencacah<br />
char Kalimat[MaxElemen]; //kalimat yang akan dibalik<br />
clrscr();<br />
T.Atas =0; // nilai awal tumpukan<br />
cout<<"Aplikasi Stack untuk Membalik kalimat\n";<br />
cout<<"----------------------------------------\n\n";<br />
<br />
// Inputkan kalimat yang akan dibalik<br />
cout<<"Masukkan sembarang kalimat : ";gets(Kalimat);<br />
<br />
clrscr();<br />
cout<<"Kalimat Asli : "<<Kalimat;<br />
<br />
//Mem-PUSH huruf dari kalimat ke dalam tumpukan<br />
for(I=0;I<strlen(Kalimat);I++)<br />
{<br />
PUSH(Kalimat[I]);<br />
}<br />
<br />
cout<<"\nKalimat Setelah di Balik : ";<br />
<br />
//Mem-POP sekaligus mencetak isi tumpukan sehingga diperoleh kalimat yang terbalik<br />
for (I=0;I<strlen(Kalimat);I++)<br />
{<br />
cout<<""<<POP();<br />
}<br />
getch();<br />
} //Akhir Program Utama<br />
<br />
<b><br /></b>
<b>Output Program :</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-YwZJS1GoTqw/VNILrLtO0dI/AAAAAAAADK8/2zx0aF4CFA0/s1600/balik%2Bkata%2Bkalimat%2Bc%2B%2B.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-YwZJS1GoTqw/VNILrLtO0dI/AAAAAAAADK8/2zx0aF4CFA0/s1600/balik%2Bkata%2Bkalimat%2Bc%2B%2B.PNG" height="187" width="400" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-678eiZp-3Ok/VNIL6F8KJGI/AAAAAAAADLE/cmySQOGpRi4/s1600/balik%2Bkalimat.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-678eiZp-3Ok/VNIL6F8KJGI/AAAAAAAADLE/cmySQOGpRi4/s1600/balik%2Bkalimat.PNG" height="186" width="400" /></a></div>
<b><br /></b><br />
<br />
<br />
<br />Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-814866774065160847.post-87654937646217091872014-12-28T06:03:00.002-08:002014-12-28T06:03:54.861-08:00Mematikan Update Otomatis Adobe CS6<b>Cara mematikan Adobe Updater. </b><br /><br />1. Silahkan cari koneksi internet terlebih dahulu<br />
2. Lalu cari aplikasi<span style="background-color: white; color: #333333; font-family: inherit; font-size: 14px; font-style: inherit; font-weight: inherit; line-height: 19px;"> AdobeUpdater.exe di ...\Program Files\Common Files\Adobe\Updater 6</span><br />
<span style="background-color: white; color: #333333; font-family: inherit; font-size: 14px; font-style: inherit; font-weight: inherit; line-height: 19px;">3. Setelah tampilan jendela Adobe Update muncul, lalu klik tombol Preferences.</span><br />
<span style="background-color: white; color: #333333; font-family: inherit; font-size: 14px; font-style: inherit; font-weight: inherit; line-height: 19px;"><br /></span>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-hFk5je8vJhw/VKANUl6_lkI/AAAAAAAADH0/XItlsiFoI58/s1600/kjb.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/-hFk5je8vJhw/VKANUl6_lkI/AAAAAAAADH0/XItlsiFoI58/s1600/kjb.JPG" height="293" width="320" /></a></div>
<br />
<span style="background-color: white; color: #333333; font-family: inherit; font-size: 14px; font-style: inherit; font-weight: inherit; line-height: 19px;">4. Setelah itu hilangkan centang pada Automatically Check for updates.<br /><br />Good Luck</span>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-4758151888579513532014-09-05T17:56:00.001-07:002014-12-28T06:06:09.632-08:00Mengatasi Server-PC Tidak Terbaca setelah Install Microsoft SQL 2000 di Windows 7 64 bit<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<span style="text-align: center;"> Mungkin ada dianatara kalian yang gagal melulu menginstall SQL 2000.Padahal,sebenarnya windows 64 bit sama saja dengan windows 32 bit. Hanya mungkin ada sedikit pengaturan yang kelupaan.</span><br />
<br />Kalau kamu mengalami server pc Service Manager tidak muncul atau kosong sehingga gagal saat di tekan start, mungkin langkah-langkah dibawah ini bisa membantu.<br />
<a name='more'></a><br />1. Klik Start - Control Panel<br />
2. Pilih User Account and Family Safety<br /><a href="http://3.bp.blogspot.com/-mR9-NYcUGC0/VApaYMqBSPI/AAAAAAAACl4/aQFAOmLdi6o/s1600/Capture2.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://3.bp.blogspot.com/-mR9-NYcUGC0/VApaYMqBSPI/AAAAAAAACl4/aQFAOmLdi6o/s1600/Capture2.PNG" height="191" width="400" /></a><br />
<br />
3. Pilih User Account<br /><a href="http://1.bp.blogspot.com/-sVY2n-JXQjA/VApaa10T5KI/AAAAAAAACmE/dyBNCbTAeiA/s1600/Capture3.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-sVY2n-JXQjA/VApaa10T5KI/AAAAAAAACmE/dyBNCbTAeiA/s1600/Capture3.PNG" height="168" width="400" /></a><br />
4. Pilih Change User Account Control Setting<br /><br /><a href="http://1.bp.blogspot.com/-S1_G1GODsoY/VApaal9cyyI/AAAAAAAACmA/jp8R0T-uL8k/s1600/Capture4.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-S1_G1GODsoY/VApaal9cyyI/AAAAAAAACmA/jp8R0T-uL8k/s1600/Capture4.PNG" height="147" width="400" /></a><br />
<br />
5. Turunkan itu, ya itu.. haha ke paling bawah<br /><a href="http://1.bp.blogspot.com/-MMUXBVLJ5es/VApaarw_grI/AAAAAAAACmI/AYzrcuf1v0w/s1600/Capture5.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-MMUXBVLJ5es/VApaarw_grI/AAAAAAAACmI/AYzrcuf1v0w/s1600/Capture5.PNG" height="206" width="400" /></a><br /><br />6. Nah, sekarang coba Install SQLnya seperti biasa.<br />Semoga Berhasil.<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-33157847756221016312014-09-05T05:16:00.004-07:002014-09-05T05:16:47.997-07:00Perulangan Java Segitiga Sederhana dengan Satu Baris Mempunyai Angka Sama.Perulangan Java Segitiga Sederhana dengan Satu Baris Mempunyai Angka Sama semakin Menurun Semakin banyak.<br /><br /><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">public class Perulangan{</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">public static void main (String [] Args){</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">for(int i=1;i<=7;i++){</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">for(int j=1;j<=i;j++){</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">System.out.print(i+" ");</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">}</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">System.out.println(" ");</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">}</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">}</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">}<br /><br />Sreen Shoot:</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<a href="http://1.bp.blogspot.com/-fA6EFZqrPZY/VAmpOcXfaPI/AAAAAAAACls/iCzHXWVcQsE/w294-h125-no/perulangan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-fA6EFZqrPZY/VAmpOcXfaPI/AAAAAAAACls/iCzHXWVcQsE/w294-h125-no/perulangan.jpg" /></a><span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /><br /></span>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-4169254012041988932014-05-29T07:12:00.003-07:002014-05-29T07:42:39.751-07:00Cara Membuat Koneksi Ke Database di Vb 6 <b style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;">Buatlah Module terlebih dahulu</b><br />
<br style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;" />
<i style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;">Fungsi Module sendiri adalah sebagi berikut :</i><br />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">Untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.</span><br />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">Dengan penjelasan diatas maka penulisan coding akan menjadi ringkas, dan kita bisa memanggilnya di Module tersebut</span><br />
<br style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;" />
<img border="0" src="http://2.bp.blogspot.com/-b5sS2a8rHsY/UYEkTE9zURI/AAAAAAAAAEE/JuwVLHynjYE/s1600/Republikvb-Module.jpg" style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; max-width: 100%; padding: 0px; text-align: justify;" /><br />
<br style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;" />
<br style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;" />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">Langkah-langkah membuat Module :</span><br />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">1. Buka Project VB anda</span><br />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">2. Klik Project</span><br />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">3. Add Module</span><br />
<br style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;" />
<span style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; text-align: justify;">Silahkan Isi Coding dibawah ini kedalam </span><b style="background-color: white; color: #555555; font-family: Arial, Geneva, sans-serif; font-size: 13px; line-height: 18.031999588012695px; margin: 0px; padding: 0px; text-align: justify;">Module1</b><br />
modul koneksi database penjualan<br />
<br />
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">Public dbConn As New Connection</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">Public strConn As String</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;"><br /></span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">Sub ActConn()</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">On Error Resume Next</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">strConn = "Driver={SQL Server};Server=USER-PC;Database=penjualan,uid=sa,pwd=;" '(Masukkan nama server , 'database, user, password (kalau gk ada user dan password maka hapus saja sa dan pwdnya))</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;"><br /></span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">dbConn.CursorLocation = adUseClient</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">If dbConn.State = adStateClosed Then</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">dbConn.Open strConn</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">If dbConn.State = adStateClosed Then</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">MsgBox "Koneksi Gagal ! ", vbCritical + vbOKOnly, "Kesalahan "</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">End If</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">End If</span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;"><br /></span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;"><br /></span></span></div>
<div style="text-align: justify;">
<span style="color: #555555;"><span style="font-family: Courier New, Courier, monospace; line-height: 18.031999588012695px;">End Sub</span></span></div>
Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-814866774065160847.post-11118218058089063722014-04-18T18:57:00.001-07:002014-04-18T19:10:39.229-07:00Cara Konversi Bilangan Biner ke Desimal, Oktal dan Hexadesimal dengan CEPAT dan MUDAHTrik Menrubah bilangan Bilangan Desimal, Biner , Oktal dan Hexadesimal dengan CEPAT dan MUDAH<br />
<br />
<br />
Tuliskan seperti dibawah ini:<br />
1. Bilangan Hexa Desimal 1-F<br />
2. Dibawahnya tulis 2 pangkat 0 sampai 2 pangkat 7<br />
3. baris 3 pangatkan , dikotaki karena itu intinya.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-Z-3YvOoCOcs/U1HMEy3ZmgI/AAAAAAAABK8/AYUGwCRxb-E/s1600/Haha.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-Z-3YvOoCOcs/U1HMEy3ZmgI/AAAAAAAABK8/AYUGwCRxb-E/s1600/Haha.jpg" height="47" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
Kalau sudah ditulis begitu kan merubah ke bentuk bilangan apapun jadi mudah.</div>
<a name='more'></a><br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div style="text-align: left;">
<b>A. Merubah Bilangan Biner ke Oktal</b><br />
Bilangan Biner 10111000.<br />
Bilangan Biner dikelompokkan menjadi<b> 3 Bilangan </b>dari belakang.<br />
10 101 000<br />
10=2 (2+0)<br />
101=5 ( 1+0+4)<br />
000=0</div>
<div style="text-align: left;">
<br />
10 jadi 2 itu didapat dari 2+0, itu lho seperti bilangan yang ada di atas, jadi begini:<br />
128 64 32 16 8 4 2 1<br />
2+0=2<br />
<br />
<br />
seperti angka 2, angka 5 didapat dari 1+0+4</div>
<div style="text-align: left;">
<b>B. Merubah Bilangan Biner ke Desimal</b>bilangan biner 10111100<br />
Kalau ke desimal <b>dijumlahkan semua 8 bilangan binernya</b>, jadi<br />
1+0+1+1+1+1+0+0<br />
128+0+32+16+8+4+0+0</div>
<div style="text-align: left;">
pasti jawabanya =188<br />
<b>C. Merubah Bilangan Biner Ke Hexa Desimal.</b>bilangan biner 11110001<br />
kalau ke Hexa desimal bilangan biner <b><u>dibagi 4</u></b> bilangan:<br />
1+1+1+1 </div>
<div style="text-align: left;">
8+4+2+1 = 15 , <i>15 itu = F</i></div>
<div style="text-align: left;">
0+0+0+1</div>
<div style="text-align: left;">
0+0+0+1= 1</div>
<div style="text-align: left;">
Jadi 11110001 = F1</div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<b>D. Merubah Bilangan Oktal Ke Biner</b><br />
Bilangan Oktal 277<br />
2 itu berapa tambah berapa?<br />
ya 0+2+0(berdasarkan deret bilangan diatas)</div>
<div style="text-align: left;">
ingat yang gak bisa dijumlah/gak cocok tulis nol (0)</div>
<div style="text-align: left;">
ingat juga Oktal tu dibagi 3 -3 bilangna binernya.<br />
010<br />
7 itu berapa tambah berapa?<br />
ya 4+2+1</div>
<div style="text-align: left;">
111<br />
7 lagi sama<br />
4+2+1</div>
<div style="text-align: left;">
111</div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<b>E. Merubah Bilangan Desimal ke Biner</b><br />
Bilangan 188<br />
kan kebalikan yang tadi ya, jadi berapa tambah berapa dideret bilangan agar jadi 188?<br />
<br />
128+0+32+16+8+4+0+0</div>
<div style="text-align: left;">
1+0+1+1+1+1+0+0<br />
<br />
<b>F. Merubah bilangan Hexa desimal ke Biner</b><br />
berapa tambah berapa biar jadi F1 (ingat dibagi 4-4)<br />
8+4+2+1 = 15 /F </div>
<div style="text-align: left;">
1+1+1+1 </div>
<div style="text-align: left;">
0+0+0+1=1</div>
<br />
<div>
0+0+0+1</div>
<div>
<div>
Jadi 11110001</div>
<div>
<br /></div>
<div>
Ya, cara ini lebih mudah kalau disuruh mengkonversikan ke banyak tipe bilangan yang lain, jadi bilangan itu konversikan ke bilangan biner dulu lalu konversikan ke bilangan lainnya.</div>
<br />
<br />
<br />
<br />
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div style="text-align: left;">
<i><br /></i>
<br />
<br /></div>
<br />
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-77349622843390792172014-04-13T21:20:00.001-07:002014-04-13T21:20:41.943-07:00Memasukkan data ke Tabel dan Menghapus Data dari Tabel di Java Netbeans<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<b>Memasukkan / insert data / biodata ke tabel, Menampilkan data / biodata ke tabel dan menghapus data / biodata dari tabel.</b><br />Insert Nama, Email, Pesan, data. ditampilkan ke tabel.<br /><br /><br />Seperti biasa buat tampilan GUI seperti di bawah ini :<br />
<a href="http://3.bp.blogspot.com/-j75gotbgeOs/U0tf5w1FyjI/AAAAAAAABJs/OeSBi8fQLts/s1600/Capture8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://3.bp.blogspot.com/-j75gotbgeOs/U0tf5w1FyjI/AAAAAAAABJs/OeSBi8fQLts/s1600/Capture8.JPG" height="320" width="307" /></a><br /><br />
<a name='more'></a><br />Nama Atribut : jTextFieldNama, jFieldEmail, jTextFieldPane, dan jTable1.<br />
<br />Lalu untuk Action performed tombol Simpan isikan kode script dibawah ini:<br />
<br />
<br />
private void jButtonSimpanActionPerformed(java.awt.event.ActionEvent evt) { <br />
DefaultTableModel model = (DefaultTableModel) jTable1.getModel();<br />
model.addRow(new Object[]{<br />
jTable1.getRowCount()+1, jTextFieldNama.getText(), jTextFieldEmail.getText(), jTextPanePesan.getText()});<br />
<br />
} <br />
<br />
Untuk Tombol Hapus isikan:<br />
<br />
private void jButtonHapusActionPerformed(java.awt.event.ActionEvent evt) { <br />
DefaultTableModel model = (DefaultTableModel) jTable1.getModel();<br />
int row = jTable1.getSelectedRow();<br />
if(row>=0){<br />
int ok=JOptionPane.showConfirmDialog(null, "Yakin Mau Hapus?","Konfirmasi",JOptionPane.YES_NO_OPTION);<br />
if(ok==0){<br />
model.removeRow(row);<br />
<br />
} <br />
}<br />
} <br />
<br />
<br />
Hasil:<br />
<a href="http://2.bp.blogspot.com/-BPLtsBP31Rg/U0tf6FXCsUI/AAAAAAAABJw/RBNHLu_pozI/s1600/memasukkan+data.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://2.bp.blogspot.com/-BPLtsBP31Rg/U0tf6FXCsUI/AAAAAAAABJw/RBNHLu_pozI/s1600/memasukkan+data.JPG" height="320" width="305" /></a><br /><br />Unknownnoreply@blogger.com3tag:blogger.com,1999:blog-814866774065160847.post-21967102005120281512014-04-13T06:40:00.000-07:002014-04-13T06:40:20.833-07:00Membuat Program Konversi sederhana dengan Java Netbeans<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
Membuat program Java Konversi suhu Sederhana Menggunakan Netbeans<br />Program Konversi untuk mengkonversikan suhu dari Celcius ke Kelvin, Reamur, dan Fahrenheit .<br /><br />Pertama seperti biasa buat Tampilan GUI dengan jFrame seperti gambar dibawah ini:<br /><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;"> jFrame yang terdiri dari beberapa komponen: jTextFieldC,</span><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;">jButtonProses,</span><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;"> jTextFieldF, jTextFieldK, dan jTextFieldR.</span><a href="https://1.bp.blogspot.com/-nRZPzztYkO4/U0qPELja5AI/AAAAAAAABI8/eOHD09Gscjo/s1600/Capture.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-nRZPzztYkO4/U0qPELja5AI/AAAAAAAABI8/eOHD09Gscjo/s1600/Capture.JPG" height="162" width="320" /></a><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span><br />
<a name='more'></a><br /><span style="background-color: white; font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: 15px; line-height: 20.790000915527344px;">Ketikan Script code dibawah ini untuk tombol Action Perfomed Proses (Klik kanan tombol Proses lalu Action>>Action Performed):</span><br />
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;">private void jButtonProsesActionPerformed(java.awt.event.ActionEvent evt) { </span></span></div>
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;">double c = Double.valueOf(jTextFieldC.getText());</span></span></div>
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;">jTextFieldF.setText(String.valueOf( c*1.8 + 32));</span></span></div>
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;">jTextFieldK.setText(String.valueOf(c+273.15));</span></span></div>
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;">jTextFieldR.setText(String.valueOf(c*0.8));</span></span></div>
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;"><br /></span></span></div>
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="background-color: white; line-height: 20px; text-align: justify;"></span></span><br />
<div style="text-align: justify;">
<span style="color: #333333; font-family: verdana; font-size: x-small;"><span style="line-height: 20px;"> } <br /><br />Hasil:</span></span><a href="http://3.bp.blogspot.com/-A7RZ2iuuK-w/U0qPEWRi5YI/AAAAAAAABJA/bU7SvuRKyBs/s1600/Konversi+Suhu.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://3.bp.blogspot.com/-A7RZ2iuuK-w/U0qPEWRi5YI/AAAAAAAABJA/bU7SvuRKyBs/s1600/Konversi+Suhu.JPG" height="204" width="320" /></a></div>
<!-- Blogger automated replacement: "https://images-blogger-opensocial.googleusercontent.com/gadgets/proxy?url=http%3A%2F%2F1.bp.blogspot.com%2F-nRZPzztYkO4%2FU0qPELja5AI%2FAAAAAAAABI8%2FeOHD09Gscjo%2Fs1600%2FCapture.JPG&container=blogger&gadget=a&rewriteMime=image%2F*" with "https://1.bp.blogspot.com/-nRZPzztYkO4/U0qPELja5AI/AAAAAAAABI8/eOHD09Gscjo/s1600/Capture.JPG" --><!-- Blogger automated replacement: "https://1.bp.blogspot.com/-nRZPzztYkO4/U0qPELja5AI/AAAAAAAABI8/eOHD09Gscjo/s1600/Capture.JPG" with "https://1.bp.blogspot.com/-nRZPzztYkO4/U0qPELja5AI/AAAAAAAABI8/eOHD09Gscjo/s1600/Capture.JPG" -->Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-814866774065160847.post-8040049716258150652014-04-12T07:49:00.001-07:002014-04-12T07:49:57.725-07:00Java Netbeans Memasukkan Nilai dan Menghitung Rata-rata ke Tabel<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">Contoh cara membuat program java menggunakan netbeans.<br />Program insert nilai, nama ke tabel dan menghitung rata-ratanya.</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span><span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">membuat program sederhana netbean java </span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">Jika kolom isian nama, nilai matematika, nilai Bahasa Indonesia, nilai IPA diisikan lalu tombol simpan di klik maka data yang diisikan tadi akan ditampilkan pada tabel dengan nomor urut. Kemudian jika data pada tabel dipilih salah satu dan tombol hapus di klik maka data yang terpilih akan terhapus.<br /><br /> No urut tampil secera otomatis dan untuk menghitung rata-rata ketiga nilai yang dimasukkan.<br /></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-TGg6Xi6sebw/U0lRtszpj4I/AAAAAAAABHE/dm8ryN-TSSM/s1600/Hitung+rata-rata1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-TGg6Xi6sebw/U0lRtszpj4I/AAAAAAAABHE/dm8ryN-TSSM/s1600/Hitung+rata-rata1.JPG" height="239" width="320" /></a></div>
<a name='more'></a><br />
<span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;">Buatlah bentuk GUInya </span><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;">(seperti gambar diatas)</span><span style="background-color: white; color: #333333; font-family: verdana; font-size: 13px; line-height: 20px; text-align: justify;"> menggunakan jFrame yang terdiri dari beberapa komponen: jTextFieldNama(untuk Nama) jTextFieldMtk (untuk Nilai Matematika), jTextFieldBIndo (untuk Nilai Bahasa Indonesia), jTextFieldIPA (untuk Nilai IPA), jButtonsIMPAN (untuk tombol Simpan), jButtonhAPUS (untuk tombol Hapus), dan jTableNilai</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> </span><span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif;"><br /> </span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">Ketikan Script code dibawah ini untuk tombol Action Perfomed Simpan (Klik kanan tombol simpan lalu Action>>Action Performed):</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> private void jButtonSimpanActionPerformed(java.awt.event.ActionEvent evt) { </span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">DefaultTableModel tableModel = (DefaultTableModel) jTableNilai.getModel();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">String [] dataNilai = new String[6];</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">double jml = Float.valueOf(jTextFieldMtk.getText())</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> +Float.valueOf(jTextFieldBIndo.getText())</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> +Float.valueOf(jTextFieldIPA.getText());</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[0]=String.valueOf(1 + jTableNilai.getRowCount());</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[1]=jTextFieldNama.getText();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[2]=jTextFieldMtk.getText();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[3]=jTextFieldBIndo.getText();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[4]=jTextFieldIPA.getText();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">dataNilai[5]=String.valueOf(jml/3);</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">tableModel.addRow(dataNilai);// TODO add your handling code here:</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> } </span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>
<span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif;">Ketikan Script code dibawah ini untuk tombol Action Perfomed Hapus (Klik kanan tombol Hapus lalu Action>>Action Performed):</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> private void jButtonHapusActionPerformed(java.awt.event.ActionEvent evt) { </span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">DefaultTableModel tableModel = (DefaultTableModel)jTableNilai.getModel();</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;">tableModel.removeRow(jTableNilai.getSelectedRow());// TODO add your handling code here:</span><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"> } <br /><br />coba di run hasilnya:<br /><br /></span><a href="http://1.bp.blogspot.com/-880DTS4maZM/U0lLvIP3ktI/AAAAAAAABG0/PPpu6JaAeRM/s1600/Hitung+rata-rata.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="http://1.bp.blogspot.com/-880DTS4maZM/U0lLvIP3ktI/AAAAAAAABG0/PPpu6JaAeRM/s1600/Hitung+rata-rata.JPG" height="327" width="400" /></a><br />
<span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif;"><br /></span>Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-814866774065160847.post-57541913139901441552014-04-03T05:41:00.000-07:002014-04-03T05:41:00.885-07:00Membuat Text Box dengan menulis karakter dibatasi.cara Membuat kotak teks untuk menulis kata atau<br />
kalimat dengan jumlah karakter dibatasi hanya sampai 160 karakter, setelah itu tidak bisa menulis lagi. seperti di sms/twitter sederhana.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<span style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-HiEWVNH99UE/Uz1Uhz_J9hI/AAAAAAAABFA/_wX6Lgoe3PA/s1600/sms+dibatasi.JPG" height="156" width="320" /></span></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a name='more'></a><br /><br />
Private Sub Text1_Change()<br />
Label1.Caption = Len(Text1.Text) & " /160"<br />
If Len(Text1.Text) >= 160 Then<br />
MsgBox "Sudah habis", vbCritical<br />
<br />
End If<br />
Text1.Text = Left(Text1.Text, 160)<br />
<br />
<br />
End Sub<br />
<span style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br /></span><span style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"></span>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-24897574447983285952014-03-22T07:19:00.002-07:002014-03-22T07:19:44.116-07:00Program Menampilkan Bilangan Ganjil dan Banyaknya Bilangan Ganjil pada Visual Basic<span style="background-color: white; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; line-height: 20.790000915527344px;">Program Menampilkan Jumlah Bilangan Ganjil dari suatu bilangan ( 1 sampai bilangan ke- x ) yang diinputkan di text box dan cacah atau banyaknya bilangan ganjil itu disebutkan. Bilangan ganjil itu apa saja gitu..\</span><div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-2IrbEtVUPJ0/Uy2baIZOt-I/AAAAAAAABC0/UZhOKKHB00c/s1600/bilangan+ganjil.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-2IrbEtVUPJ0/Uy2baIZOt-I/AAAAAAAABC0/UZhOKKHB00c/s1600/bilangan+ganjil.JPG" height="128" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="background-color: white; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; line-height: 20.790000915527344px;">Kode program yang di taruh di tombol CEK adalah :</span></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="background-color: white; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; line-height: 20.790000915527344px;">sebenarnya hampir sama sih dengan mencari bilangan genap, hanya merubah 0 nya menjadi 1</span></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="background-color: white; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; line-height: 20.790000915527344px;"><br /></span></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="background-color: white; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; line-height: 20.790000915527344px;"><br /></span></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Command1_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
Dim Hasil As String</div>
<div class="separator" style="clear: both; text-align: left;">
Dim i As Integer</div>
<div class="separator" style="clear: both; text-align: left;">
For i = 1 To Val(Text1.Text)</div>
<div class="separator" style="clear: both; text-align: left;">
If i Mod 2 = 1 Then</div>
<div class="separator" style="clear: both; text-align: left;">
Hasil2 = Hasil2 + 1</div>
<div class="separator" style="clear: both; text-align: left;">
Hasil = Hasil & i & ","</div>
<div class="separator" style="clear: both; text-align: left;">
End If</div>
<div class="separator" style="clear: both; text-align: left;">
Next</div>
<div class="separator" style="clear: both; text-align: left;">
Label1.Caption = "bilangan genap dari 1 sampai " & Text1.Text & " ada " & Hasil2 & " yaitu " & Hasil</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-82461291403439296272014-03-22T04:14:00.000-07:002014-03-22T04:14:08.176-07:00Program Menampilkan Jumlah Bilangan Genap dan Bilangan Genap pada Visual BasicProgram Menampilkan Jumlah Bilangan Genap dari suatu bilangan ( 1 sampai bilangan ke- x ) yang diinputkan di text box dan cacah atau banyaknya bilangan genap itu disebutkan. Bilangan genap itu apa saja gitu..\<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-DHxv9xE8-Fg/Uy1wJKX1k8I/AAAAAAAABCk/3CpU-VU76AU/s1600/bilangan+genap.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-DHxv9xE8-Fg/Uy1wJKX1k8I/AAAAAAAABCk/3CpU-VU76AU/s1600/bilangan+genap.JPG" height="153" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Kode program yang di taruh di tombol CEK adalah :</div>
<a name='more'></a><br /><br />
<div class="separator" style="clear: both;">
Private Sub Command1_Click()</div>
<div class="separator" style="clear: both;">
Dim Hasil As String</div>
<div class="separator" style="clear: both;">
Dim i As Integer</div>
<div class="separator" style="clear: both;">
For i = 1 To Val(Text1.Text)</div>
<div class="separator" style="clear: both;">
If i Mod 2 = 0 Then</div>
<div class="separator" style="clear: both;">
Hasil2 = Hasil2 + 1</div>
<div class="separator" style="clear: both;">
Hasil = Hasil & i & ","</div>
<div class="separator" style="clear: both;">
End If</div>
<div class="separator" style="clear: both;">
Next</div>
<div class="separator" style="clear: both;">
Label1.Caption = "bilangan genap dari 1 sampai " & Text1.Text & " ada " & Hasil2 & " yaitu " & Hasil</div>
<div class="separator" style="clear: both;">
End Sub</div>
<div class="separator" style="clear: both;">
<br /></div>
<div class="separator" style="clear: both;">
<br /></div>
<div class="separator" style="clear: both;">
sekian.</div>
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-1986803422126070202014-03-19T04:09:00.001-07:002014-03-22T06:27:45.311-07:00Membuat Listbox di Visual Basic 6.0 (Menambah, Menghapus, dan Memindah) Sudah lama gak mempostingkan artikel di blog ini, dan ada kabar baik bagi pengunjung, sekarang blog ini ada kategori baru, yaitu kategori visual basic, dan ini adalah artikel pertama di blog ini tentang visual basic.<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-tiAW6qpC8T0/UylzWp0VSQI/AAAAAAAABAw/A0oXvUN0HcM/s1600/ListBox.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-tiAW6qpC8T0/UylzWp0VSQI/AAAAAAAABAw/A0oXvUN0HcM/s1600/ListBox.JPG" height="192" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<b>'Kode Untuk Tombol Add'</b></div>
<div class="separator" style="clear: both; text-align: left;">
<b>'(menambah daftar ke listbox, syarat jika daftar sudah ada maka tidak bisa tambahkan lagi / akan muncul peringatan)'</b></div>
<a name='more'></a><br />
<div class="separator" style="clear: both; text-align: left;">
Private Sub Command1_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
Dim i As Integer</div>
<div class="separator" style="clear: both; text-align: left;">
Dim ada As Boolean</div>
<div class="separator" style="clear: both; text-align: left;">
For i = 0 To List1.ListCount - 1</div>
<div class="separator" style="clear: both; text-align: left;">
If List1.List(i) = Text1.Text Then</div>
<div class="separator" style="clear: both; text-align: left;">
MsgBox "Data sudah ada . ", vbOKOnly + vbInformation </div>
<div class="separator" style="clear: both; text-align: left;">
ada = True</div>
<div class="separator" style="clear: both; text-align: left;">
Exit For</div>
<div class="separator" style="clear: both; text-align: left;">
End If</div>
<div class="separator" style="clear: both; text-align: left;">
Next</div>
<div class="separator" style="clear: both; text-align: left;">
If ada = False Then</div>
<div class="separator" style="clear: both; text-align: left;">
List1.AddItem Text1.Text</div>
<div class="separator" style="clear: both; text-align: left;">
End If</div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div class="separator" style="clear: both; text-align: left;">
Call updatejml <b>'memanggil fungsi Private Sub updatejml() '</b></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
'<b>Tombol pindah semua kekanan'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Command2_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
Dim i As Integer</div>
<div class="separator" style="clear: both; text-align: left;">
For i = 0 To List1.ListCount - 1</div>
<div class="separator" style="clear: both; text-align: left;">
List2.AddItem List1.List(i)</div>
<div class="separator" style="clear: both; text-align: left;">
Next</div>
<div class="separator" style="clear: both; text-align: left;">
List1.Clear</div>
<div class="separator" style="clear: both; text-align: left;">
Call updatejml</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
'<b>Tombol pindah semua kekiri'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Command3_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
Dim i As Integer</div>
<div class="separator" style="clear: both; text-align: left;">
For i = 0 To List2.ListCount - 1</div>
<div class="separator" style="clear: both; text-align: left;">
List1.AddItem List2.List(i)</div>
<div class="separator" style="clear: both; text-align: left;">
Next</div>
<div class="separator" style="clear: both; text-align: left;">
List2.Clear</div>
<div class="separator" style="clear: both; text-align: left;">
Call updatejml</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
'<b>Tombol hapus'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Command4_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
If List1.ListIndex < 0 Then</div>
<div class="separator" style="clear: both; text-align: left;">
MsgBox "Data Tidak Ada Pilihan", vbOKOnly + vbInformation, "Validasi"</div>
<div class="separator" style="clear: both; text-align: left;">
Else</div>
<div class="separator" style="clear: both; text-align: left;">
List1.RemoveItem (List1.ListIndex)</div>
<div class="separator" style="clear: both; text-align: left;">
End If</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
'<b>tombol pindah kekiri'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Hapus_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
List1.AddItem List2</div>
<div class="separator" style="clear: both; text-align: left;">
List2.RemoveItem (List2.ListIndex)</div>
<div class="separator" style="clear: both; text-align: left;">
Call updatejml</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<b>'Tombol pindah kekanan'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Pilih_Click()</div>
<div class="separator" style="clear: both; text-align: left;">
List2.AddItem List1</div>
<div class="separator" style="clear: both; text-align: left;">
List1.RemoveItem (List1.ListIndex)</div>
<div class="separator" style="clear: both; text-align: left;">
Call updatejml</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<b>'Sub label untuk menghitung kata / daftar yang masuk'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub updatejml()</div>
<div class="separator" style="clear: both; text-align: left;">
Label1.Caption = List1.ListCount</div>
<div class="separator" style="clear: both; text-align: left;">
Label2.Caption = List2.ListCount</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<b>'Key frame agar langsung bisa menggunakan tombol enter'</b></div>
<div class="separator" style="clear: both; text-align: left;">
Private Sub Text1_KeyPress(KeyAscii As Integer)</div>
<div class="separator" style="clear: both; text-align: left;">
If KeyAscii = 13 Then</div>
<div class="separator" style="clear: both; text-align: left;">
Command1.SetFocus</div>
<div class="separator" style="clear: both; text-align: left;">
End If</div>
<div class="separator" style="clear: both; text-align: left;">
End Sub</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
catatan : ListCount = Jumlah Baris</div>
<div class="separator" style="clear: both; text-align: left;">
ListIndex = No baris</div>
<div style="text-align: left;">
<br /></div>
<div>
<br /></div>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-48970754189804667242013-12-23T07:15:00.000-08:002013-12-23T16:01:38.433-08:00Program Perhotelan berbasis GUI sederhanaProgram Perhotelan berbasis GUI atau Java.awt atau biasa disebut AWT (Abstract Window Toolkit) dan java.swing<br />
<br />
ketentuan:<br />
-Pelanggan Member yang menginap lebih dari atau sama dengan 4 hari akan memdapakan diskon 20%.<br />
-Pelanggan Member yang menginap lebih dari atau sama dengan 1 minggu akan memdapakan diskon 35%. --Pelanggan bukan member yang menginap lebih dari atau sama dengan 4 hari akan memdapakan diskon 10%.<br />
-Pelanggan Member yang menginap lebih dari 1 minggu akan memdapakan diskon 15%. "<br />
menggunakan JRadioButton<br />
<br />
<br />
///////////////<br />
import java.awt.*;<br />
import java.awt.event.*;<br />
import javax.swing.*;<br />
<br />
public class SewaHotel extends JFrame implements ActionListener {<br />
Container konten = getContentPane();<br />
<br />
private final JLabel lblIDPelanggan = new JLabel("ID Pelanggan :");<br />
private final JLabel lblNama = new JLabel("Nama :");<br />
private final JLabel lblTgl = new JLabel("Tanggal Cek In :");<br />
private final JLabel lblAlamat = new JLabel("Alamat :");<br />
private final JLabel lblJenisKamar = new JLabel("JenisKamar:");<br />
private final JLabel lblMember = new JLabel("Member :");<br />
private JLabel lbllama = new JLabel("Lama Menginap :");<br />
private JLabel lblTelp = new JLabel("Telp :");<br />
private JTextField txtIDPelanggan = new JTextField();<br />
private JTextField txtNama = new JTextField();<br />
private JTextField txtTgl = new JTextField();<br />
private JTextField txtAlamat = new JTextField();<br />
private final JRadioButton rDeluxeRoom = new JRadioButton("1. Deluxe Room Rp 275.000/hari");<br />
private final JRadioButton rSuiteRoom = new JRadioButton("2. Suite Room Rp 300.000/hari");<br />
private final JRadioButton rPresidentRoom = new JRadioButton("3. President Room Rp 370.000/hari");<br />
private final ButtonGroup btnGrup;<br />
private final JRadioButton rMember = new JRadioButton("Member");<br />
private final JRadioButton rNonMember = new JRadioButton("Non Member");<br />
private final ButtonGroup btGrup = new ButtonGroup();<br />
private JTextField txtlama = new JTextField();<br />
private JTextField txtTelp = new JTextField();<br />
private JButton btnTampil = new JButton("Tampil");<br />
private JButton btnKeluar = new JButton("Keluar");<br />
<a name='more'></a><br />
public SewaHotel(){<br />
super("PERHOTELAN");<br />
this.btnGrup = new ButtonGroup();<br />
setVisible(true);<br />
setSize(500,500);<br />
setLocationRelativeTo(null);<br />
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);<br />
<br />
konten.setLayout(null);<br />
<br />
btnGrup.add(rDeluxeRoom);<br />
btnGrup.add(rSuiteRoom);<br />
btnGrup.add(rPresidentRoom);<br />
<br />
rDeluxeRoom.setSelected(true);<br />
<br />
btGrup.add(rMember);<br />
btGrup.add(rNonMember);<br />
<br />
rMember.setSelected(true);<br />
<br />
lblIDPelanggan.setBounds(20,20,100,25);<br />
lblNama.setBounds(20,55,100,25);<br />
lbllama.setBounds(20,90,120,25);<br />
lblJenisKamar.setBounds(20,125,100,25);<br />
lblMember.setBounds(20,160,100,25);<br />
lblTgl.setBounds(20,195,100,25);<br />
lblAlamat.setBounds(20,230,100,25);<br />
lblTelp.setBounds(20,265,100,25);<br />
txtIDPelanggan.setBounds(150,20,100,25);<br />
txtNama.setBounds(150,55,100,25);<br />
txtlama.setBounds(150,90,100,25);<br />
rDeluxeRoom.setBounds(150,125,90,25);<br />
rSuiteRoom.setBounds(250,125,90,25);<br />
rPresidentRoom.setBounds(350,125,90,25);<br />
rMember.setBounds(150,160,90,25);<br />
rNonMember.setBounds(250,160,90,25);<br />
txtTgl.setBounds(150,195,100,25);<br />
txtAlamat.setBounds(150,230,200,25);<br />
txtTelp.setBounds(150,265,100,25);<br />
btnTampil.setBounds(30,300,90,25);<br />
btnKeluar.setBounds(250,300,90,25);<br />
<br />
konten.add(lblIDPelanggan);<br />
konten.add(lblNama);<br />
konten.add(lbllama);<br />
konten.add(lblJenisKamar);<br />
konten.add(lblMember);<br />
konten.add(lblTgl);<br />
konten.add(lblAlamat);<br />
konten.add(lblTelp);<br />
konten.add(txtIDPelanggan);<br />
konten.add(txtNama);<br />
konten.add(txtlama); <br />
<br />
konten.add(rDeluxeRoom);<br />
konten.add(rSuiteRoom);<br />
konten.add(rPresidentRoom);<br />
konten.add(rMember);<br />
konten.add(rNonMember);<br />
<br />
konten.add(txtTgl);<br />
konten.add(txtAlamat);<br />
konten.add(txtTelp);<br />
konten.add(btnTampil);<br />
konten.add(btnKeluar);<br />
btnTampil.addActionListener(this);<br />
btnKeluar.addActionListener(this);<br />
}<br />
<br />
@Override<br />
public void actionPerformed(ActionEvent act) {<br />
double lama=Double.parseDouble(txtlama.getText());<br />
double tarif=0,diskon=0,bayar=0;<br />
Object obj = act.getSource();<br />
if (obj==btnTampil) {<br />
<br />
String JenisKamar="";<br />
String Member="";<br />
<br />
{<br />
<br />
if (rDeluxeRoom.isSelected()){<br />
<br />
tarif = lama*275000;<br />
JenisKamar="Deluxe Room";<br />
}else if (rSuiteRoom.isSelected()){<br />
tarif = lama*300000;<br />
JenisKamar="Suite Room";<br />
}else{<br />
tarif = lama*375000;<br />
JenisKamar="President Room";<br />
}<br />
<br />
if (rMember.isSelected()){<br />
Member = " Member";<br />
if(lama>=4 && lama<=7){<br />
diskon = 0.20 * tarif;<br />
}else if (lama>7) {<br />
diskon = 0.35 * tarif;<br />
}<br />
}else if (rNonMember.isSelected()){<br />
Member = "Non Member";<br />
if (lama>=4 && lama<=7){<br />
diskon = 0.10 * tarif;<br />
}else if (lama>7){<br />
diskon = 0.15 * tarif;<br />
}<br />
}<br />
<br />
bayar = tarif-diskon;<br />
}<br />
JOptionPane.showMessageDialog(null,"ID Pelanggan \t\t: " + txtIDPelanggan.getText() +<br />
"\nNama \t\t: " + txtNama.getText() +<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>"\nJenis Kamar \t\t :"+ JenisKamar +<br />
<br />
"\nMember \t\t: " + Member +<br />
"\nTanggal CekIn \t: " + txtTgl.getText() +<br />
"\n Tarif \t\t: " + tarif +<br />
" \n diskon \t\t :" + diskon +<br />
"\n bayar \t\t: " +bayar +<br />
"\nAlamat \t\t: " + txtAlamat.getText() +<br />
"\nTelp \t\t: " + txtTelp.getText());<br />
} else if (obj == btnKeluar) {<br />
System.exit(0);<br />
}<br />
}<br />
<br />
public static void main (String [] form) {<br />
SewaHotel sewaHotel = new SewaHotel();<br />
}<br />
}<br />
////////<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-TI_VNTp9MaU/UrhS-Ve45SI/AAAAAAAAA18/dec7MZnaG9M/s1600/perhotelan.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="342" src="http://3.bp.blogspot.com/-TI_VNTp9MaU/UrhS-Ve45SI/AAAAAAAAA18/dec7MZnaG9M/s400/perhotelan.JPG" width="400" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-8ozn-MJlmRA/UrjNujM8TyI/AAAAAAAAA2U/jghtOVm9FHs/s1600/perhotelan2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-8ozn-MJlmRA/UrjNujM8TyI/AAAAAAAAA2U/jghtOVm9FHs/s1600/perhotelan2.JPG" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<br />
<br />
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-814866774065160847.post-84375067450245237192013-11-29T20:07:00.000-08:002013-11-29T20:07:19.717-08:00Program C++ Menghitung Diskon Pembelian oleh PelangganContoh Program C++ untuk Menghitung Diskon Pembelian oleh Pelanggan , dimana pelanggan yang melakukan pembelian sama dengan atau diatas 50000 akan mendapatkan diskon 10% dari total belinya.<br />Program menggunakan perulangan while dan fungsi if - else .<br />program perkasiran, swalayan, supermarket sederhana . kasir. pembeli. beli.<br /><br />
#include <conio.h><br />
#include <iostream.h><br />
main(){<br />
char nama_brg [20];<br />
int jmlh_beli=0,tot_beli=0, x, y;<br />
long int harga=0,hrg_brg=0,total=0,bayar=0,diskon;<br />
cout<<" ==== Program Perkasiran untuk Menghitung Diskon Sederhana ==== \n\n";<br />
cout<<"Masukkan jumlah macam barang yang sudah dibeli:";cin>>y;<br />
x=1;<br />
<br />
<a name='more'></a><br />
while(x<=y){<br />
cout<<"\nMasukkan Nama Barang ke "<<x<<" : ";cin>>nama_brg;<br />
cout<<"Masukkan Harga Barang : ";cin>>harga;<br />
cout<<"Masukkan Jumlah beli : ";cin>>jmlh_beli;<br />
hrg_brg = harga * jmlh_beli;<br />
total=total + hrg_brg;<br />
tot_beli+=jmlh_beli;<br />
x++;<br />
}<br />
if(total>=50000){<br />
diskon = 0.1*total;<br />
}<br />
else {<br />
diskon = 0;<br />
}<br />
<br />
bayar = total - diskon;<br />
cout<<"\nTotal beli :"<<tot_beli<<endl;<br />
cout<<"Total Pembelian : "<<total<<endl;<br />
cout<<"Mendapatkan diskon sebesar : "<<diskon<<endl;<br />
cout<<"\nTotal yang harus dibayar = "<<bayar<<endl;<br />
<br />
getch();<br />
<br />
}<br />
<br />
Tampilan :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-ukaV1pLTyJI/UplitOh7c3I/AAAAAAAAAy0/UT2cH7xN0W8/s1600/perkasiran.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="180" src="http://2.bp.blogspot.com/-ukaV1pLTyJI/UplitOh7c3I/AAAAAAAAAy0/UT2cH7xN0W8/s400/perkasiran.JPG" width="400" /></a></div>
<br />Unknownnoreply@blogger.com14