Cara Membuat Label Berjalan di Visual Basic

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!

1. Buka Visual Basic 6.0, buat project baru Standard EXE
2. Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
3. Coding berjalan dari kiri ke kanan:

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

4. Dan ini coding berjalan dari kanan ke kiri:
   

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, panjang - 1) & Left(kalimat, 1)
   Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

5. Ganti tulisan SELAMAT DATANG dengan tulisan yang ingin digerakkan. Ganti angka 100 dengan angka yang diinginkan. Semakin besar angkanya, semakin lambat jalannya. Begitu juga sebaliknya.

Selamat Mencoba! Semoga Berhasil!

[Read More...]

Membuat Kalkulator dengan Notepad 2

Setelah Memposting Cara Membuat Kalkulator dengan Notepad, sekarang saya memposting Bagian Keduanya. Bagian pertama menggunakan bahasa pemrograman Batch, sedangkan bagian kedua menggunakan bahasa pemrograman HTML. Simple saja, siapkan Notepad atau Notepad++. Jangan lupa languagenya HTML(khusus yang ++).

Baca, dan Lakukan dengan Sabar!

• Pastekan kode dibawah ini di Notepad atau Notepad++ :
  

  <html>
  <head>
  <title>HTML Kalkulator</title>
  </head>
  <body>
  <form name="Keypad" action>
  <table border="1"&nbsp; bgcolor="#838383">
  <tr>
  <td colspan="5" bgcolor="#DFDFDF">
  <input name="ReadOut" type="Text" size="30" value="0">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DFDFDF">
  <input name="btnSeven" type="Button" value="&nbsp; 7&nbsp; " onClick="NumPressed(7)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnEight" type="Button" value="&nbsp; 8&nbsp; " onClick="NumPressed(8)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnNine" type="Button" value="&nbsp; 9&nbsp; " onClick="NumPressed(9)">
  </td>
  <td bgcolor="#DFDFDF"><input name="btnNeg" type="Button" value=" +/- " onClick="Neg()"></td>
  <td bgcolor="#DFDFDF"><input name="btnPercent" type="Button" value=" % " onClick="Percent()"></td>
  
  </tr>
  <tr>
  <td bgcolor="#DFDFDF">
  <input name="btnFour" type="Button" value="&nbsp; 4&nbsp; " onClick="NumPressed(4)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnFive" type="Button" value="&nbsp; 5&nbsp; " onClick="NumPressed(5)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnSix" type="Button" value="&nbsp; 6&nbsp; " onClick="NumPressed(6)">
  </td>
  <td bgcolor="#DFDFDF"><input name="btnPlus" type="Button" value="&nbsp; +&nbsp; "
  onClick="Operation('+')"></td>
  <td bgcolor="#DFDFDF"><input name="btnMultiply" type="Button" value="&nbsp; *&nbsp; "
  onClick="Operation('*')"></td>
  
  </tr>
  <tr>
  <td bgcolor="#DFDFDF">
  <input name="btnOne" type="Button" value="&nbsp; 1&nbsp; " onClick="NumPressed(1)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnTwo" type="Button" value="&nbsp; 2&nbsp; " onClick="NumPressed(2)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnThree" type="Button" value="&nbsp; 3&nbsp; " onClick="NumPressed(3)">
  </td>
  <td bgcolor="#DFDFDF"><input name="btnMinus" type="Button" value="&nbsp; -&nbsp; "
  onClick="Operation('-')"></td>
  <td bgcolor="#DFDFDF"><input name="btnDivide" type="Button" value="&nbsp; /&nbsp; "
  onClick="Operation('/')"></td>
  
  </tr>
  <tr>
  <td bgcolor="#DFDFDF">
  <input name="btnZero" type="Button" value="&nbsp; 0&nbsp; " onClick="NumPressed(0)">
  </td>
  <td bgcolor="#DFDFDF">
  <input name="btnDecimal" type="Button" value="&nbsp; .&nbsp; " onClick="Decimal()">
  </td>
  <td colspan="3"&nbsp; bgcolor="#797979">
  <input name="btnClear" type="Button" value="&nbsp; C&nbsp; " onClick="Clear()">
  <input name="btnClearEntry" type="Button" value=" CE " onClick="ClearEntry()">
  <input name="btnEquals" type="Button" value="&nbsp; =&nbsp; " onClick="Operation('=')"></td>
  </tr>
  </table>
  </form>
  <script LANGUAGE="JavaScript">
  
  var FKeyPad = document.Keypad;
  var Accum = 0;
  var FlagNewNum = false;
  var PendingOp = "";
  function NumPressed (Num) {
  if (FlagNewNum) {
  FKeyPad.ReadOut.value = Num;
  FlagNewNum = false;
  }
  else {
  if (FKeyPad.ReadOut.value == "0")
  FKeyPad.ReadOut.value = Num;
  else
  FKeyPad.ReadOut.value += Num;
  }
  }
  function Operation (Op) {
  var Readout = FKeyPad.ReadOut.value;
  if (FlagNewNum && PendingOp != "=");
  else
  {
  FlagNewNum = true;
  if ( '+' == PendingOp )
  Accum += parseFloat(Readout);
  else if ( '-' == PendingOp )
  Accum -= parseFloat(Readout);
  else if ( '/' == PendingOp )
  Accum /= parseFloat(Readout);
  else if ( '*' == PendingOp )
  Accum *= parseFloat(Readout);
  else
  Accum = parseFloat(Readout);
  FKeyPad.ReadOut.value = Accum;
  PendingOp = Op;
  }
  }
  function Decimal () {
  var curReadOut = FKeyPad.ReadOut.value;
  if (FlagNewNum) {
  curReadOut = "0.";
  FlagNewNum = false;
  }
  else
  {
  if (curReadOut.indexOf(".") == -1)
  curReadOut += ".";
  }
  FKeyPad.ReadOut.value = curReadOut;
  }
  function ClearEntry () {
  FKeyPad.ReadOut.value = "0";
  FlagNewNum = true;
  }
  function Clear () {
  Accum = 0;
  PendingOp = "";
  ClearEntry();
  }
  function Neg () {
  FKeyPad.ReadOut.value = parseFloat(FKeyPad.ReadOut.value) * -1;
  }
  function Percent () {
  FKeyPad.ReadOut.value = (parseFloat(FKeyPad.ReadOut.value) / 100) * parseFloat(Accum);
  }
  </script>
  </body>
  </html>

• Simpan dengan Nama Kalkulator2.html
• Tes dulu kalkulator anda.

Semoga Bermanfaat.

[Read More...]

Cara Membuat Kalkulator dengan Notepad

Karena hari ini masih bulan syawal, jadi saya mengucapkan Selamat Hari Raya Idul Fitri 1432 H, Mohon Maaf Lahir dan Batin, maaf kalo telat ngucapinnya. Nah pada kesempatan kali ini, saya ingin memposting tentang Cara Membuat Kalkulator dengan Notepad. Program ini menggunakan bahasa pemrograman Batch, jadi sangat simpel, dan pembuatannya sangatlah mudah. Langsung saja,

Tools

• Komputernya Windows
• Notepad atau Notepad++

Step

• Buka Notepad atau Notepad++. Kalau Notepad++ Language nya Batch
• Masukkan Kode Dibawah Ini:
  

  @echo off
  title Simple Calculator by ariqxp.blogspot.com
  color f0
  :a
  cls
  echo Masukkan angka tang ingin anda hitung
  set/p "a=.Angka Pertama: "
  set/p "b=.Angka Kedua : "
  echo.
  echo Input karakter:
  echo 1. Tambah
  echo 2. Kurang
  echo 3. kali
  echo 4. bagi
  echo 5. keluar
  echo.
  set/p "car=>"
  if %car%==1 goto plus
  if %car%==2 goto min
  if %car%==3 goto kali
  if %car%==4 goto bagi
  if %car%==5 goto exit
  pause>nul
  GOTO a
  :plus
  set/a c=%a%+%b%
  echo %a% ditambah %b% hasilnya adalah %c%
  echo visit http://ariqxp.blogspot.com/
  pause>nul
  goto a
  :min
  set/a c=%a%-%b%
  echo %a% dikurangi %b% hasilnya adalah %c%
  echo visit http://ariqxp.blogspot.com/
  pause>nul
  goto a
  :kali
  set/a c=%a%*%b%
  echo %a% dikali %b% hasilnya adalah %c%
  echo visit http://ariqxp.blogspot.com/
  pause>nul
  goto a
  :bagi
  set/a c=%a%/%b%
  echo %a% dibagi %b% hasilnya adalah %c%
  echo visit http://ariqxp.blogspot.com/
  pause>nul
  goto a

• Simpan dengan nama Kalkulator.Batch
• Test kalkulator anda.

Sekian dari saya, Terima Kasih. Jangan lupa untuk menuggu bagian keduanya!

[Read More...]

Source Code Program Sederhana untuk Belajar Visual Basic

Karena kemarin

[Read More...]