Bahasa VB

Sabtu, 03 September 2011

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!

Buka Visual Basic 6.0, buat project baru Standard EXE
Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
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
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
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!

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"  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="  7  " onClick="NumPressed(7)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnEight" type="Button" value="  8  " onClick="NumPressed(8)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnNine" type="Button" value="  9  " 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="  4  " onClick="NumPressed(4)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnFive" type="Button" value="  5  " onClick="NumPressed(5)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnSix" type="Button" value="  6  " onClick="NumPressed(6)">
</td>
<td bgcolor="#DFDFDF"><input name="btnPlus" type="Button" value="  +  "
onClick="Operation('+')"></td>
<td bgcolor="#DFDFDF"><input name="btnMultiply" type="Button" value="  *  "
onClick="Operation('*')"></td>

</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnOne" type="Button" value="  1  " onClick="NumPressed(1)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnTwo" type="Button" value="  2  " onClick="NumPressed(2)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnThree" type="Button" value="  3  " onClick="NumPressed(3)">
</td>
<td bgcolor="#DFDFDF"><input name="btnMinus" type="Button" value="  -  "
onClick="Operation('-')"></td>
<td bgcolor="#DFDFDF"><input name="btnDivide" type="Button" value="  /  "
onClick="Operation('/')"></td>

</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnZero" type="Button" value="  0  " onClick="NumPressed(0)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnDecimal" type="Button" value="  .  " onClick="Decimal()">
</td>
<td colspan="3"  bgcolor="#797979">
<input name="btnClear" type="Button" value="  C  " onClick="Clear()">
<input name="btnClearEntry" type="Button" value=" CE " onClick="ClearEntry()">
<input name="btnEquals" type="Button" value="  =  " 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.

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!

Rabu, 17 Agustus 2011

Source Code Program Sederhana untuk Belajar Visual Basic

Karena kemarin
ada seorang pengunjung yang ingin sekali belajar pemrograman, tapi tidak ada bisa yang mengajari, jadi saya akan memposting Source Code Program Sederhana Untuk Belajar Visual Basic.

Pertama, kalian harus mempunyai Visual Basic dulu, Bisa di download di postingan sebelumnya.(Klik Disini)

Sekarang, kalian bisa mendownload Source Code di SINI

Thank'z Mainpedia atas Komentarnya.

Kamis, 11 Agustus 2011

Cara Membuat Label Berkedip di Visual Basic 6

Mungkin, sudah banyak yang Posting tentang Cara Membuat Label Berkedip di Visual Basic 6, tapi tidak ada salahnya jika saya juga memposting cara ini.
Oke, Langusng saja ya!

Buat label baru beranama Label1. Caption nya terserah.
Lalu, Buat Timer baru Bernama Timer1.
Masukkan Kode berikut (klik kanan, view code)

Private Sub Form_Load()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

Angka 200 diganti sesuai selera. Semakin kecil angkanya, maka semakin cepat berkedip. Begitu juga sebaliknya.

Sekian dari saya, semoga bermanfaat.

Jumat, 29 Juli 2011

Membuat Simple Web Browser menggunakan Microsoft Visual Basic 6

Mungkin sudah banyak yang mempunyai Web Browser seperti Mozila Firefox, Chrome, Opera. Tapi, kali ini saya akan menyediakan tutorial Cara Membuat Web Browser menggunakan Visual Basic 6. Langsung saja silakan ikuti tata cara berikut:

Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]

Lanhkah - Langkah:

Buka Visual Basic 6, buat project baru.
Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
Dobel klik Web Browser di Toolbox, beri nama WebBrowser1

Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:

Kontrol:	Nama:	Caption:
Text Box	txtUrl	(kosongkan)
Command Button	cmdGo	GO!
Command Button	cmdBack	Back
Command Button	cmdFoward	Foward
Command Button	cmdRefresh	Refresh
Command Button	cmdStop	Stop

Masukkan coding berikut(klik kanan pada form, view code):
Private Sub cmdBack_Click()
'Untuk Kembali
WebBrowser1.GoBack
End Sub
Private Sub cmdFoward_Click()
'Untuk maju ke halaman yg telah di klik kembali
WebBrowser1.GoForward
End Sub
Private Sub cmdGo_Click()
'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
WebBrowser1.Navigate (txtUrl.Text)
End Sub
Private Sub cmdRefresh_Click()
'Untuk merefres halaman
WebBrowser1.Refresh
End Sub
Private Sub cmdStop_Click()
'Untuk menyetop loading halaman
WebBrowser1.Stop
End Sub
Private Sub Form_Load()
'Untuk menetapkan sebuah situs web sebagai homepage
WebBrowser1.Navigate ("http://www.google.co.id/")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Untuk merubah Caption Form1
Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
txtUrl.Text = (WebBrowser1.LocationURL)
End Sub
Klik File > Make Project1.exe

Silakan download punya saya di SINI
Akhir kata, sekian da terimakasih.

Download Visual Basic 6 Enterprise Edition Full Version

Penjelasan tentang Visual Basic yang saya ambil dari wikipedia:

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Download: KLIK DISINI