Membuat Kalkulator Sederhana dengan Visual Basic 6.0

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp3OBmt5Vb8tvlY2GcMG21Y2kyqtlLOjZ0_2v3jvdoZ99ArpQWPDYRl6hvAjLgfMNyb5SCsJDTYDi5t7FVenRub6tYaLDuK_0PrbR2oZSvwdiSNPPrFb0gK73zMWFLL8_udhPuWhBnB24/s1600/Hitung+Jumlah.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp3OBmt5Vb8tvlY2GcMG21Y2kyqtlLOjZ0_2v3jvdoZ99ArpQWPDYRl6hvAjLgfMNyb5SCsJDTYDi5t7FVenRub6tYaLDuK_0PrbR2oZSvwdiSNPPrFb0gK73zMWFLL8_udhPuWhBnB24/s400/Hitung+Jumlah.jpg" width="300" /></a></div> •<span class="Apple-tab-span" style="white-space: pre;"> </span>Coding Penjumlahan<br /> <br /> Private Sub tambah_Click()<br /> Text3.Text = Val(Text1) + Val(Text2)<br /> End Sub<br /> <br /> •<span class="Apple-tab-span" style="white-space: pre;"> </span>Coding Pengurangan<br /> <br /> Private Sub kurang_Click()<br /> Text3.Text = Val(Text1) - Val(Text2)<br /> End Sub<br /> <br /> •<span class="Apple-tab-span" style="white-space: pre;"> </span>Coding Perkalian<br /> <br /> Private Sub kali_Click()<br /> Text3.Text = Val(Text1) * Val(Text2)<br /> End Sub<br /> <br /> •<span class="Apple-tab-span" style="white-space: pre;"> </span>Coding Pembagian<br /> <br /> Private Sub Bagi_Click()<br /> Text3.Text = Val(Text1) / Val(Text2)<br /> End Sub<br /> <br /> <a href="http://www.4shared.com/file/LtNr46FY/Kalkulator_Sederhana.html">Download Project Kalkulator Sederhana</a><br /> <div> <br /></div>

Membuat Kalkulator Sederhana dengan Visual Basic 6.0

• Coding Penjumlahan Private Sub tambah_Click() Text3.Text = Val(Text1) + Val(Text2) End Sub • Coding Pengurangan Private Sub ku...

Baca selengkapnya »

Membatasi Jumlah Angka yang diinputkan Pada Kalkulator Sederhana

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZuEW_nCJSq8C6btf2CObjzqr2VnyLZzWwMvhnDzNA-bUuPkeHeNkceBazQvG2AJyuYBRcXR-MZa0NlKOZ0TBWNA2xkXq9Ng3E-i0lpTmjDFHcXLN0e8vBRR2cjxjLL5kkq4Qqs6QmKpE/s1600/kalkulator2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="516" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZuEW_nCJSq8C6btf2CObjzqr2VnyLZzWwMvhnDzNA-bUuPkeHeNkceBazQvG2AJyuYBRcXR-MZa0NlKOZ0TBWNA2xkXq9Ng3E-i0lpTmjDFHcXLN0e8vBRR2cjxjLL5kkq4Qqs6QmKpE/s640/kalkulator2.jpg" width="640" /></a></div> <br /> Klik Textbox<br /> Pilih Maxlength pada Properties<br /> Ubah dan Ketikkan jumlah angka yang akan diinputkan<br /> Contoh : 10

Membatasi Jumlah Angka yang diinputkan Pada Kalkulator Sederhana

Klik Textbox Pilih Maxlength pada Properties Ubah dan Ketikkan jumlah angka yang akan diinputkan Contoh : 10

Baca selengkapnya »

Validasi Angka Kalkulator Sederhana

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjviTeC74nceQRwfJ4g4mWpk1IoavWVEbTJ9dZMvyzBeumHw4N86tEMaZXjlLh2zPVyHvTG3QA-6tca3pY9dS3t9fe1fQaCTn1IwR1XaOnT0reiiy75bv36haUl4wUTpPvFTKLViPCljMQ/s1600/kalkulator+sederhana.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjviTeC74nceQRwfJ4g4mWpk1IoavWVEbTJ9dZMvyzBeumHw4N86tEMaZXjlLh2zPVyHvTG3QA-6tca3pY9dS3t9fe1fQaCTn1IwR1XaOnT0reiiy75bv36haUl4wUTpPvFTKLViPCljMQ/s320/kalkulator+sederhana.jpg" width="247" /></a></div> •    Coding Validasi Angka untuk menginputkan Nilai 1<br /> <br /> Private Sub Text1_KeyPress(KeyAscii As Integer)<br /> Const Number = "-9-8-7-6-5-4-3-2-10123456789"<br /> <br /> If KeyAscii <> 8 And KeyAscii <> 13 Then<br />    If InStr(Number, Chr(KeyAscii)) = 0 Then<br />       KeyAscii = 0<br />       Exit Sub<br />    End If<br /> End If<br /> End Sub<br /> <br /> •    Coding Validasi Angka untuk menginputkan Nilai 2<br /> <br /> Private Sub Text2_KeyPress(KeyAscii As Integer)<br /> Const Number = "-9-8-7-6-5-4-3-2-10123456789"<br /> <br /> If KeyAscii <> 8 And KeyAscii <> 13 Then<br />    If InStr(Number, Chr(KeyAscii)) = 0 Then<br />       KeyAscii = 0<br />       Exit Sub<br />    End If<br /> End If<br /> End Sub<br /> <br /> •    Coding Validasi Angka untuk Hasil<br /> <br /> Private Sub Text3_KeyPress(KeyAscii As Integer)<br /> If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0<br /> End Sub

Validasi Angka Kalkulator Sederhana

•    Coding Validasi Angka untuk menginputkan Nilai 1 Private Sub Text1_KeyPress(KeyAscii As Integer) Const Number = "-9-8-7-6-5-4...

Baca selengkapnya »

Klinik Rawat Inap PKU Muhammadiyah Cilacap

<div style="text-align: center;"> <div style="text-align: justify;"> <strong>Klinik Rawat Inap PKU Muhammadiyah Cilacap</strong> adalah tempat penyelenggaraan pelayanan kesehatan bagi masyarakat, yang terletak di Jl. Kutilang Timur no.174  Rt.01 Rw.05 Kel. Tegalreja, Kec. Cilacaap Selatan, Kabupaten Cilacap</div> <br /></div> <div style="text-align: center;"> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5xxxQHHI7hbZK-91z4DD5AvQOoFixHYhXSS_sx70YynrAjulsyDChWDKS9YTzJbZNK7hZd0Y4q72LgUgyn0LgMK7vcPWbcpB4zuLvpUA8kkKgi3DXb3gyeCqehZlC9g1NcDmHdB2IFFo/s1600/72631_4339526095613_732791015_n.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="496" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5xxxQHHI7hbZK-91z4DD5AvQOoFixHYhXSS_sx70YynrAjulsyDChWDKS9YTzJbZNK7hZd0Y4q72LgUgyn0LgMK7vcPWbcpB4zuLvpUA8kkKgi3DXb3gyeCqehZlC9g1NcDmHdB2IFFo/s640/72631_4339526095613_732791015_n.jpg" width="640" /></a></div> <br /></div> <div style="text-align: center;"> <br /></div> <div style="text-align: center;"> <div style="text-align: left;"> <strong>Melayani</strong> :</div> </div> <div style="text-align: center;"> <div style="text-align: left;"> 1. Pengobatan Umum Rawat Inap dan Rawat Jalan</div> <div style="text-align: left;"> 2. Memberikan Pertolongan Pertama pada Kecelakaan dan Gawat Darurat</div> <div style="text-align: left;"> 3. Menyelenggarakan Rujukan ke Rumah Sakit</div> <div style="text-align: left;"> 4. Pelayanan ANC</div> <div style="text-align: left;"> 5. Pelayanan KB</div> <div style="text-align: left;"> 6. Pelayanan Rawat Inap Kasus Medik Dasar</div> <div style="text-align: left;"> 7. Pelayanan Khitan</div> <div style="text-align: left;"> 8. Memberikan Pelayanan Penunjang Diagnostik (laboratoium, Rontgen, dll)</div> <div style="text-align: left;"> 9. Perawatan dan Pemasangan Gigi</div> <div style="text-align: left;"> 10. Pemeriksaan Kadar Gula, Asam, Kolesterol, dll</div> <div style="text-align: left;"> New ~ Khitan Hipnoterapy</div> </div> <div style="text-align: center;"> <div style="text-align: left;"> <br /></div> </div> <div style="text-align: center;"> <div style="text-align: left;"> <strong>Dokter Jaga</strong> :</div> <div style="text-align: left;"> Pagi : dr. Intan Paramita Wardhani</div> <div style="text-align: left;"> Sore : dr. Rista Ria Febriani</div> <div style="text-align: left;"> Dokter Gigi : drg. Yan Santos Karrisha</div> </div> <div style="text-align: center;"> <div style="text-align: left;"> <strong>Official Site :</strong> <a href="http://pkumuh-clp.blogspot.com/" target="_blank">http://pkumuh-clp.blogspot.com</a></div> <div style="text-align: left;"> <br /></div> </div>

Klinik Rawat Inap PKU Muhammadiyah Cilacap

Klinik Rawat Inap PKU Muhammadiyah Cilacap adalah tempat penyelenggaraan pelayanan kesehatan bagi masyarakat, yang terletak di Jl. Kuti...

Baca selengkapnya »