Calculator Sederhana Visual Basic 6.0 Part II

<b>4.</b>Berikutnya, tinggal membuat coding untuk kalkulator tersebut. Jika Anda mengikuti semua<br> setting properties seperti di posting sebelumnya <a href="http://bergerak-untuk-hidup.blogspot.com/2011/11/calculator-sederhana-menggunakan-visual.html">Calculator Sederhana Visual Basic 6.0 Part I </a><a href="http://bogorend.blogspot.com/2011/11/calculator-sederhana-menggunakan-visual.html"></a>, maka codingnya  seperti ini:<br> <blockquote class="tr_bq" style="background-color: yellow;"> <div class="MsoNormal" style="line-height: normal;"> <b>Private</b> Hasil <b>As Double</b></div> <div class="MsoNormal" style="line-height: normal;"> <b>Private</b> <b>Const</b> opNol = 0</div> <div class="MsoNormal" style="line-height: normal;"> <b>Private Const</b> opTambah = 1</div> <div class="MsoNormal" style="line-height: normal;"> <b>Private Const</b> opKurang = 2</div> <div class="MsoNormal" style="line-height: normal;"> <b>Private Const</b> opKali = 3</div> <div class="MsoNormal" style="line-height: normal;"> <b>Private Const</b> opBagi = 4</div> <div class="MsoNormal" style="line-height: normal;"> <b>Private </b>Operator <b>As Integer</b></div> <div class="MsoNormal" style="line-height: normal;"> <b>Private</b> NilaiBaru <b>As Boolean</b></div> <div class="MsoNormal" style="line-height: normal;"> <br></div> <div class="MsoNormal" style="line-height: normal;"> <b>Private Sub </b>Hapus()</div> <div class="MsoNormal" style="line-height: normal;"> <b> Dim</b> txt <b>As String</b></div> <div class="MsoNormal" style="line-height: normal;">  <b>Dim</b> min_len <b>As Integer</b></div> <div class="MsoNormal" style="line-height: normal;">      txt = TxtDisplay.Text</div> <div class="MsoNormal" style="line-height: normal;">  <b>If</b> Left$(txt, 1) = "-" <b>Then</b></div> <div class="MsoNormal" style="line-height: normal;">     min_len = 2</div> <div class="MsoNormal" style="line-height: normal;">  <b>Else</b></div> <div class="MsoNormal" style="line-height: normal;">     min_len = 1</div> <div class="MsoNormal" style="line-height: normal;">  <b>End If</b></div> <div class="MsoNormal" style="line-height: normal;"> <b> If</b> Len(txt) > min_len <b>Then</b></div> <div class="MsoNormal" style="line-height: normal;">     TxtDisplay.Text = Left$(txt, Len(txt) - 1)</div> <div class="MsoNormal" style="line-height: normal;">  <b>Else</b></div> <div class="MsoNormal" style="line-height: normal;">     TxtDisplay.Text = "0?"</div> <div class="MsoNormal" style="line-height: normal;">  <b>End If</b></div> <div class="MsoNormal" style="line-height: normal;"> <b>End Sub</b><br> </div></blockquote>

4. Berikutnya, tinggal membuat coding untuk kalkulator tersebut. Jika Anda mengikuti semua setting properties seperti di posting sebelumnya...

Read more »

Calculator Sederhana Visual Basic 6.0 Part I

lagi-lagi tugas lagi-lagi tugas..<br> mungkin kalo nggak ada tugas, gak pernah posting.. hehehehehe..<br> <br> kali ini saya mau posting tugas dari dosen saya Ir.Tateng Sukondar, MT yaitu "Calculator Sederhana Menggunakan Visual Basic 6.0"<br> langsung aja gan..<br> <br> <b>1.</b>Buka program VB 6.0 (VisualBasic 6.0) lalu pilih Standard EXE<br> <br> <div class="separator" style="clear: both; text-align: left;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-BNLZw0oGw6i5iCDf3zO7uHO9uhndPitm-huytgakRh4To3BdoVbocbG1kRx4MlxGfvDwLWV_l-xDWli_yfYfo3dFQ50Fsq3mosfsdYFqzsroWfElrnh1i0Gpyvdp3qAi-JIoSLfs1cxx/s1600/Stdrexe.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-BNLZw0oGw6i5iCDf3zO7uHO9uhndPitm-huytgakRh4To3BdoVbocbG1kRx4MlxGfvDwLWV_l-xDWli_yfYfo3dFQ50Fsq3mosfsdYFqzsroWfElrnh1i0Gpyvdp3qAi-JIoSLfs1cxx/s320/Stdrexe.JPG" width="320"></a></div> <br>

lagi-lagi tugas lagi-lagi tugas.. mungkin kalo nggak ada tugas, gak pernah posting.. hehehehehe.. kali ini saya mau posting tugas dari do...

Read more »

Memprotect Folder Tanpa Software

<m:smallfrac m:val="off"> <m:dispdef> <m:lmargin m:val="0"> <m:rmargin m:val="0"> <m:defjc m:val="centerGroup"> <m:wrapindent m:val="1440"> <m:intlim m:val="subSup"> <m:narylim m:val="undOvr"> </m:narylim></m:intlim> </m:wrapindent> </m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac><br> <div class="MsoNormal"><span style="color: black;">Udah lama gak posting.. hehe</span><span lang="EN-US" style="color: black;"><br> Mungkin </span><span style="color: black;">agan-agan udah banyak</span><span lang="EN-US" style="color: black;"> yang </span><span style="color: black;">tau </span><span lang="EN-US" style="color: black;">cara yang ingin saya </span><span style="color: black;">postingin</span><span lang="EN-US" style="color: black;"> ini. Akan tetapi, saya tetap akan </span><span style="color: black;">memposting tutorial ini</span><span lang="EN-US" style="color: black;"> untuk </span><span style="color: black;">buat agan-agan</span><span lang="EN-US" style="color: black;"> yang masih belum </span><span style="color: black;">tahu</span><span lang="EN-US" style="color: black;">. <br> <br> </span><span style="color: black;"></span></div><div class="MsoNormal"><span style="color: black;">Mungkin ada sebagian agan-agan yang kadang ngerasa resah dan risih dengan file-file privacynya ketika komputer,flashdisk, atau laptop kita ada yg minjem..<br> maka kali ini saya mau bagi-bagi tutorial buat memPROTECT folder tanpa menggunakan software/ (manual)..langsung aja..</span></div><div class="MsoNormal"><span lang="EN-US" style="color: black;"><br> untuk mengunci folder tanpa sofware ini sangatlah mudah, caranya adalah sebagai berikut :<br> 1. Bukalah program Notepad(ketik "Notepad" di menu RUN lalu ENTER) atau new text document.txt di directory mana saja di computer atau laptop anda.<br> 2. Setelah itu copy-paste script di bawah ini ke notepad tadi :<br> </span><br> </div>

Udah lama gak posting.. hehe Mungkin agan-agan udah banyak yang tau cara yang ingin saya postingin ini...

Read more »

Mitos Bisnis Amoral

<div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <div style="text-align: left;"> Mengungkapkan suatu keyakinan bahwa antara bisnis dan moralitas atau etika tidak ada hubungan sama sekali Etika justru bertentangan dengan bisnis dan akan membuat pelaku bisnis kalah dalam persaingan bisnis yang ketat Orang bisnis tidak perlu memperhatikan imbauan-imbauan, norma-norma dan nilai moral</div> <div style="text-align: left;"> <br></div> </div> <div class="MsoNormal"> <b><span lang="EN-US">Argumen:</span></b></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">v<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Bisnis adalah suatu persaingan, sehingga pelaku bisnis harus berusaha dengan segala cara dan upaya untuk bisa menang </span></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">v<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Aturan yang dipakai dalam permainan penuh persaingan, berbeda dari aturan yang  dikenal dalam kehidupan sosial sehingga tidak bisa dinilai dengan aturan moral dan sosial </span></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">v<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Orang bisnis yang mau mematuhi aturan moral atau etika  akan berada pada posisi yang tidak menguntungkan </span></div> <div class="MsoNormal"> <b><span lang="EN-US">Mitos bisnis amoral tidak sepenuhnya benar </span></b></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">q<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Beberapa perusahaan ternyata bisa berhasil  karena memegang teguh kode etis dan komitmen moral tertentu </span></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">q<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Bisnis adalah bagian aktivitas yang penting dari masyarakat, sehingga norma atau nilai yang dianggap baik dan berlaku di masyarakat ikut dibawa serta dalam kegiatan bisnis </span></div> <div class="MsoNormal" style="margin-left: 36pt; text-indent: -18pt;"> <span style="font-family: Wingdings;">q<span style="font: 7pt 'Times New Roman';">  </span></span><span lang="EN-US">Harus dibedakan antara legalitas dan moralitas </span></div> <div class="MsoNormal"> <span lang="EN-US">Suatu praktek atau kegiatan bisnis mungkin saja diterima secara legal karena ada dasar hukum, tetapi tidak diterima secara moral (monopoli?)</span></div> <div class="MsoNormal"> <span lang="EN-US">Etika harus dibedakan dari ilmu empiris </span></div> <div class="MsoNormal"> <span lang="EN-US">Etika tidak mendasarkan norma atau prinsipnya pada kenyataan faktual yang terus berulang.  </span></div> <div class="MsoNormal"> <span lang="EN-US">Menurut Hume :dari kenyataan yang ada (<i>is</i>) tidak bisa ditarik sebuah perintah normatif (<i>ought)</i></span></div> <div class="MsoNormal"> <span lang="EN-US">contoh : sogok, suap,kolusi, monopoli,nepotisme </span></div> <div class="MsoNormal"> <span lang="EN-US">Berbagai aksi protes yang mengecam berbagai pelanggaran dalam kegiatan bisnis menunjukkan bahwa bisnis harus dijalankan secara baik dan tetap mengindahkan norma-norma moral </span><br> <span lang="EN-US"></span><br> </div>

Mengungkapkan suatu keyakinan bahwa antara bisnis dan moralitas atau etika tidak ada hubungan sama sekali Etika justru bertentangan deng...

Read more »