BELAJAR VISUAL BASIC

1.     latihan LABEL PADA MENAMPILKAN

LISTINGAN EKSEKUSI (PROGRAM PENGKODEAN)

Private Sub cmdkeluar_Click ()

p = MsgBox ("Yakin Mau Keluar Andari", vbQuestion + vbOKCancel, "info")

Jika vbOK = p Kemudian

Akhir

End If

End Sub

Private Sub cmdtampil_Click ()

Label3.Caption = "Nama Saya:" + textnama.Text

Label4.Caption = "Nim Saya:" + textnim.Text

Jika optlaki.Value = Benar Kemudian

Label5.Caption = "Suku Bunga Kelamin:" + optlaki.Caption

Jika optperempuan.Value = Benar Kemudian

Label5.Caption = "Suku Bunga Kelamin:" + optperempuan.Caption

End If

End If

End Sub

Private Sub cmdbersih_Click ()

textnim.Text = ""

textnama.Text = ""

optlaki.Value = False

optperempuan.Value = False

Label3.Caption = ""

Label4.Caption = ""

Label5.Caption = ""

End Sub

HASIL EKSEKUSI

1.  LISTINGAN MENAMPILKAN Warna 

OBYEK	PROPERTI	Nilai
FORMULIR 1	Perbatasan Tyle Keterangan Posisi Startup	1 - Fixed Single Latihan 2 2 - Layar Center
Label 1	Keterangan Auto Ukuran Font Style Font Ukuran	Pengenalan warna dan Tulisan Benar Times New Roman 18
Text Box 1	Nama Kotak teks	Texthasil kosongkan
Bingkai	Keterangan	Pilihan
Option1	Keterangan Nama	Kuning optyellow
Option2	Keterangan Nama	Blue optblue
Option3	Keterangan Nama	Merah optred
Option4	Keterangan Nama	Berani optbold
Option5	Keterangan Nama	Italic optitalic
Option6	Keterangan Nama	Menggarisbawahi optunderline
Comandbutton1	Keterangan Nama	& Bersih cmdbersih
Commandbutton2	Keterangan Nama	& Keluar cmdkeluar

KODE LISTING

Private Sub Texthasil_Change ()

Form1.BackColor = vbBlack

Texthasil.BackColor = & H80000007

End Sub

Private Sub Optyellow_Click ()

Texthasil.ForeColor = vbYellow

End Sub

Private Sub Optblue_Click ()

Texthasil.ForeColor = vbBlue

End Sub

Private Sub Optred_Click ()

Texthasil.ForeColor = vbRed

End Sub

Private Sub Optbold_Click ()

Texthasil.FontBold = True

Texthasil.FontUnderline = False

Texthasil.FontItalic = False

End Sub

Private Sub Optitalic_Click ()

Texthasil.FontItalic = True

Texthasil.FontBold = False

Texthasil.FontUnderline = False

End Sub

Private Sub Optunderline_Click ()

Texthasil.FontUnderline = True

Texthasil.FontItalic = False

Texthasil.FontBold = False

End Sub

Private Sub cmdbersih_Click ()

Texthasil = ""

Texthasil.SetFocus

End Sub

Private Sub cmdkeluar_Click ()

p = MsgBox ("Yakin Mau Keluar Andari", vbQuestion + vbOKCancel, "info")

Jika vbOK = p Kemudian

Akhir

End If

End Sub

HASIL EKSEKUSI

PROGRAM Membuat Pasword mengunakan JIKA DAN YANG LAIN

Obyek	Penilaian	Nilai
Form1	Keterangan StartUpPosition	Struktur JIKA ... Maka 2 - CenterScreen
Image1	Meregang Gambar Terlihat	Benar Komputer.wmf FALSE
Label1	Keterangan	Password:
Text1	PasswordChar Teks	* kosongkan
Command1	Keterangan Default	OK Benar

Buka Jendela Code dan PADA Name of Code Editor ketikkan kode programnya sebagai berikut:

Private Sub Command1_Click ()

Jika Text1.Text = "nusantara" Lalu Image1.Visible = True

End Sub

Simpan Form5 (nama file: Lat5.frm).

Catatan:

file Andari pria Bisa-download Lat5.frm dan Komputer.wmf.

Klik menu Project> Project1 Properties Lalu klik tab General. Gantilah Startup Object-nya menjadi

Form5.

Coba jalankan Project1:

�� Ketikkan sembarang Teks PADA TextBox Lalu klik OK atau tekan Enter html �� regular tidak terjadi apaapa.

�� Ketikkan "nusantara" PADA TextBox Lalu klik OK atau tekan Enter html �� Komputer gambar

akan muncul.

Penjelasan kode program:

Jika Text1.Text = "nusantara" Lalu Image1.Visible = True

Modifikasi kode programnya menjadi sebagai berikut:

Private Sub Command1_Click ()

Jika Text1.Text = "nusantara" Lalu

Image1.Visible = True

Text1.Enabled = False

Command1.Enabled = False

Lain

MsgBox "Passwordnya Salah!"

kondisi kode program Yang dikerjakan

Bila kondisi TRUE

Kuliah Berseri IlmuKomputer.Com

Copyright © 2003 IlmuKomputer.Com

Cepat Mahir Visual Basic 6.0

Krisna D. Octovhiana

4

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Coba jalankan Project1:

�� Ketikkan sembarang Teks PADA TextBox Lalu klik OK atau tekan Enter html �� Kotak muncul

Pesan "Passwordnya Salah!". Klik PADA Kotak Pesan tersebut html OK.

�� Ketikkan "nusantara" PADA TextBox Lalu klik OK atau tekan Enter html �� Komputer gambar

akan muncul. TextBox menjadi html OK dan menonaktifkan (regular tidak bisan perlengkapan).

Penjelasan kode program:

Jika Text1.Text = "nusantara" Lalu

Image1.Visible = True

Text1.Enabled = False

Command1.Enabled = False

Lain

MsgBox "Passwordnya Salah!"

Text1.Text = ""

Text1.SetFocus

End If

Catatan Transaksi:

�� Teks "nusantara" Harus diketik * Semua Huruf Kecil. Ingat: data string pajaknya case sensitive !

�� Agar password-nya pajaknya regular tidak case sensitive, modifikasi pernyataan kondisinya menjadi:

Jika LCase (Text1.Text) = "nusantara" Lalu

LCase adalah fungsi untuk mengkonversi string * Semua Yang diinput ke Text1.Text menjadi Huruf

Kecil, pengguna menginputnya walaupun Artikel Baru Huruf Kapital.

3.OPERATOR aritmatika

OBYEK	PROPERTI	Nilai
Form4	Keterangan StartUpPosition	Operator Test 2.center layar
Label1-2	Keterangan Text1-2 Teks	Var 1: Var 2: <kosong>
Frame1-3	Keterangan	Op. Aritmatika Op. Perbandingan Op. Logika
Option1-14	Keterangan	+, -, *, /, & & >, <, =, <>,> =, <= Tidak, Atau, Dan
Label3	Penjajaran BackColor ForeColor keterangan	2 - Pusat Palette: <putih> Palette: <merah> <kosong>

Buka Jendela Code dan PADA Name of Code Editor ketikkan kode programnya sebagai berikut:

Dim var1 Sebagai Single, var2 Sebagai Single

Dim Hasil Sebagai Single

Private Sub Option1_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = var1 + var2

Label3.Caption = Hasil

End Sub

Private Sub Option2_Click ()

var1 = Text1.Text

var2 = Text2.Text

Kuliah Berseri IlmuKomputer.Com

Copyright © 2003 IlmuKomputer.Com

Cepat Mahir Visual Basic 6.0

Krisna D. Octovhiana

4

Hasil = var1 - var2

Label3.Caption = Hasil

End Sub

Private Sub Option3_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = var1 * var2

Label3.Caption = Hasil

End Sub

Private Sub Option4_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = var1 / var2

Label3.Caption = Hasil

End Sub

Private Sub Option5_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = var1 & var2

Label3.Caption = Hasil

End Sub

Private Sub Option6_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1> var2)

'Label3.Caption = Hasil

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option7_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1 <var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option8_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1 = var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option9_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1 <> var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option10_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1> = var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Kuliah Berseri IlmuKomputer.Com

Copyright © 2003 IlmuKomputer.Com

Cepat Mahir Visual Basic 6.0

Krisna D. Octovhiana

5

Private Sub Option11_Click ()

var1 = Text1.Text

var2 = Text2.Text

Hasil = (var1 <= var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option12_Click ()

var1 = ika (Text1.Text = "True", -1, 0)

Hasil = Tidak (var1)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option13_Click ()

var1 = ika (Text1.Text = "True", -1, 0)

var2 = ika (Text2.Text = "True", -1, 0)

Hasil = (var1 Or var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Private Sub Option14_Click ()

var1 = ika (Text1.Text = "True", -1, 0)

var2 = ika (Text2.Text = "True", -1, 0)

Hasil = (var1 dan var2)

Label3.Caption = Format (Hasil, "True / False")

End Sub

Simpan Form4 (nama file: Lat4.frm).

Baca Selengkapnya »

MEMBUAT KURSOR ANIMASI ULAR DI BLOQ

Guys Kita Dapat cara ini, Dari Bloq Kepunyaan Orang Dan kita terima kasih juga Atas Bagi2 ilmunya.
Dan Disini kita Mo Sharing and Bagi2 ilmu sama kalian semua pengunjung blog kita.

Jangan khawatir, tips membuat animasi kursor ini tidak berdampak terhadap kecepatan loading blog Anda. Langsung saja kita bahas satu persatu cara membuat animasi kursor di blog :


1. Langkah pertama login dahulu ke akun blogger Anda
2. Pada dashboard, pilih Edit Layout–&gt; Edit HTML.

PENTING : Sebelum melakukan edit template, sebaiknya simpan dulu template blog Anda mengklik tulisan “Download Template Lengkap”. Kemudian simpan dalam harddisk atau media penyimpanan lainnya, sehingga jika terjadi hal-hal yang tidak diinginkan Anda sudah memiliki back-up untuk mengembalikannya seperti semula.


3. Jika sudah, cari kode dan Copy-Paste kode berikut di atasnya :

<style type='text/css'>
/* Circle Text Styles */
#outerCircleText {
/* Optional - DO NOT SET FONT-SIZE HERE, SET IT IN THE SCRIPT */
font-style: regular;
font-weight: bold;
font-family: 'bell mt', tahoma, arial;
color: #0080FF;
/* End Optional */

/* Start Required - Do Not Edit */
position: absolute;top: 0;left: 0;z-index: 3000;cursor: default;}
#outerCircleText div {position: relative;}
#outerCircleText div div {position: absolute;top: 0;left: 0;text-align: center;}
/* End Required */
/* End Circle Text Styles */
</style>
<script type='text/javascript'>
//<![CDATA[
/* Circling text trail- Tim Tilton
Website: http://www.tempermedia.com/
Visit: http://www.dynamicdrive.com/ for Original Source and tons of scripts
Modified Here for more flexibility and modern browser support
Modifications as first seen in http://www.dynamicdrive.com/forums/
username:jscheuer1 - This notice must remain for legal use
*/

;(function(){

// Your message here (QUOTED STRING)
var msg = "Ketik Teks Anda di Sini";

/* THE REST OF THE EDITABLE VALUES BELOW ARE ALL UNQUOTED NUMBERS */

// Set font's style size for calculating dimensions
// Set to number of desired pixels font size (decimal and negative numbers not allowed)
var size = 16;

// Set both to 1 for plain circle, set one of them to 2 for oval
// Other numbers & decimals can have interesting effects, keep these low (0 to 3)
var circleY = 0.75; var circleX = 2;

// The larger this divisor, the smaller the spaces between letters
// (decimals allowed, not negative numbers)
var letter_spacing = 5;

// The larger this multiplier, the bigger the circle/oval
// (decimals allowed, not negative numbers, some rounding is applied)
var diameter = 10;

// Rotation speed, set it negative if you want it to spin clockwise (decimals allowed)
var rotation = 0.4;

// This is not the rotation speed, its the reaction speed, keep low!
// Set this to 1 or a decimal less than one (decimals allowed, not negative numbers)
var speed = 0.3;

////////////////////// Stop Editing //////////////////////

if (!window.addEventListener && !window.attachEvent || !document.createElement) return;

msg = msg.split('');
var n = msg.length - 1, a = Math.round(size * diameter * 0.208333), currStep = 20,
ymouse = a * circleY + 20, xmouse = a * circleX + 20, y = [], x = [], Y = [], X = [],
o = document.createElement('div'), oi = document.createElement('div'),
b = document.compatMode && document.compatMode != "BackCompat"? document.documentElement :

document.body,

mouse = function(e){
e = e || window.event;
ymouse = !isNaN(e.pageY)? e.pageY : e.clientY; // y-position
xmouse = !isNaN(e.pageX)? e.pageX : e.clientX; // x-position
},

makecircle = function(){ // rotation/positioning
if(init.nopy){
o.style.top = (b || document.body).scrollTop + 'px';
o.style.left = (b || document.body).scrollLeft + 'px';
};
currStep -= rotation;
for (var d, i = n; i > -1; --i){ // makes the circle
d = document.getElementById('iemsg' + i).style;
d.top = Math.round(y[i] + a * Math.sin((currStep + i) / letter_spacing) * circleY - 15) +

'px';
d.left = Math.round(x[i] + a * Math.cos((currStep + i) / letter_spacing) * circleX) + 'px';
};
},

drag = function(){ // makes the resistance
y[0] = Y[0] += (ymouse - Y[0]) * speed;
x[0] = X[0] += (xmouse - 20 - X[0]) * speed;
for (var i = n; i > 0; --i){
y[i] = Y[i] += (y[i-1] - Y[i]) * speed;
x[i] = X[i] += (x[i-1] - X[i]) * speed;
};
makecircle();
},

init = function(){ // appends message divs, & sets initial values for positioning arrays
if(!isNaN(window.pageYOffset)){
ymouse += window.pageYOffset;
xmouse += window.pageXOffset;
} else init.nopy = true;
for (var d, i = n; i > -1; --i){
d = document.createElement('div'); d.id = 'iemsg' + i;
d.style.height = d.style.width = a + 'px';
d.appendChild(document.createTextNode(msg[i]));
oi.appendChild(d); y[i] = x[i] = Y[i] = X[i] = 0;
};
o.appendChild(oi); document.body.appendChild(o);
setInterval(drag, 25);
},

ascroll = function(){
ymouse += window.pageYOffset;
xmouse += window.pageXOffset;
window.removeEventListener('scroll', ascroll, false);
};

o.id = 'outerCircleText'; o.style.fontSize = size + 'px';

if (window.addEventListener){
window.addEventListener('load', init, false);
document.addEventListener('mouseover', mouse, false);
document.addEventListener('mousemove', mouse, false);
if (/Apple/.test(navigator.vendor))
window.addEventListener('scroll', ascroll, false);
}
else if (window.attachEvent){
window.attachEvent('onload', init);
document.attachEvent('onmousemove', mouse);
};

})();
//]]>
</script>

Baca Selengkapnya »