KONSTANTA, VARIABEL, TIPE DATA dan OPERATOR

Microsoft Visual Basic 6.0

KONSTANTA, VARIABEL, TIPE DATA dan OPERATOR KONSTANTA Adalah bilangan atau string tetap yang nilainya tidak dapat diganti. Konstanta didefinisikan dengan kunci kata Const Cth : Const Kata Const PI

= “Pelatihan VB 6” = 3.14

VB mempunyai banyak konstanta untuk sistem, umumnya diberi awalan “vb”. vbBlack Warna Hitam vbRed Warna Merah vbGreen Warna Hijau vbBlue Warna Biru vbCyan Warna Cyanida vbMagenta Warna Magenta vbYellow Warna Kuning

VARIABEL Variabel Adalah sebuah tempat penyimpanan data sementara dan bisa berubah nilainya. Deklarasi Variabel : Bentuk Umum : Dim As Dim : Berlaku sampai suatu prosedur selesai dijalankan Cara penentuan Variabel : o Nama Variabel harus diawali dengan Huruf o Boleh terdiri atas huruf, angka, underscore( _ ) o Tidak boleh lebih dari 255 karakter Pendeklarasian Variabel Ada 2 : 1. Deklarasi Variabel Implicit Yaitu Mendeklarasikan nama variabel beserta tipe datanya dan langsung mengalokasikan nilainya didalam memori. 2. Deklarasi Variabel Eksplicit Yaitu Mendeklarasikan nama variabel beserta tipe datanya didalam prosedur.

TIPE DATA Tipe Data Integer Long Single Double

Nilai -32768 s/d 32767 -2 147 483 648 s/d 2 147 483 647 1.4 E-45 s/d 3.4 E 38 .-3.4 E38 s/d –1.7 E-45 4.9E-324 s/d 1.7 E308

Keterangan Bilangan Bulat Bilangan Bulat Bilangan Pecahan Bilangan pecahan presisi ganda

☺ syara26.wordpress.com

☺


Currency Byte Boolean Date Object String Variant

-4.9E-324 s/d –1.7E308 -922 337 203 685 477 5088 s/d 922 Mata Uang 337 203 685 477 5088 0 s/d 255 Bilangan Bulat True atau False 1/1/100 s/d 12/31/9999 Gambar Maksimum 65500 karakter Deret Karakter Salah satu dari tipe di atas

OPERATOR 1. Operator aritmatik Operator aritmatika adalah operator yang digunakan untuk perhitungan, antara lain :

2. Operator pembanding Operator pembanding adalah untuk membanding dua buah operand yang menghasilkan nilai true atau false. Operator pembanding antara lain :

3. Operator logika Operator logika adalah untuk komparasi dua buah perbandingan yang menghasilkan nilai true atau false. Operator pembanding antara lain :


☺


Untuk membuat form baru, • Buka Aplikasi Visual Basic 6.0

•

Pilih Menu OpenProject – Pilih tempat penyimpanan project – Open

•

Pilih Menu Project – Add Form – pilih tab new (form) – open


☺


Latihan part2_a

Objek

Properties

Option1

Nilai Biru OptBiru

Option2

Hijau OptHijau

Option3

Merah OptMerah

Option4

Miring OptMiring

Option5

Caption

Tebal

Name

OptTebal

Option6

Size OptSize

Option7

Kuning OptKuning

Option8

Putih OptPutih

Option9

Hitam OptHitam

Text1

Text

SYARA SYAHADA

Name

Text1

Command1

Command2

CmdKeluar Name

&Keluar

Caption

CmdBersih &Bersih


☺


Private Sub optbiru_Click() Text1.ForeColor = vbBlue End Sub Private Sub opthijau_Click() Text1.ForeColor = vbGreen End Sub Private Sub optmerah_Click() Text1.ForeColor = vbRed End Sub Private Sub opthitam_Click() Text1.BackColor = vbBlack End Sub Private Sub oprkuning_Click() Text1.BackColor = vbYellow End Sub Private Sub optputih_Click() Text1.BackColor = vbWhite End Sub Private Sub optmiring_Click() Text1.FontItalic = True End Sub

Private Sub opttebal_Click() Text1.FontBold = True End Sub Private Sub optsize_Click() Text1.FontSize = 20 End Sub Private Sub bbersih_Click() optbiru.Value = False opthijau.Value = False optmerah.Value = False optmiring.Value = False opttebal.Value = False optsize.Value = False optkuning.Value = False optputih.Value = False opthitam.Value = False End Sub Private Sub bkeluar_Click() End End Sub


☺


Latihan part2_b

Klu dah desain,, ganti name masing2 object y??? Biasakan sendiri,, Private Sub cmdbagi_Click() hasil.Text = Val(tnil1.Text) / Val(tnil2.Text) End Sub

Private Sub cmdkali_Click() thasil.Text = Val(tnil1.Text) * Val(tnil2.Text) End Sub

Private Sub cmdbersih_Click() tnil1.Text = "" tnil2.Text = "" thasil.Text = "" optand.Value = False optor.Value = False tnil1.SetFocus End Sub

Private Sub cmdkeluar_Click() ra = MsgBox("Yakin Nich Mau Keluar?", vbQuestion + vbYesNo, "Konfirmasi") If ra = vbYes Then End End If End Sub


☺


Private Sub cmdkurang_Click() thasil.Text = Val(tnil1.Text) Val(tnil2.Text) End Sub

Private Sub cmdtambah_Click() thasil.Text = Val(tnil1.Text) + Val(tnil2.Text) End Sub

Private Sub cmdlebihbesar_Click() thasil.Text = Val(tnil1.Text) > Val(tnil2.Text) End Sub

Private Sub optand_Click() thasil.Text = Val(tnil1.Text) >= 50 And Val(tnil2.Text) < 75 End Sub

Private Sub cmdlebihkecil_Click() thasil.Text = Val(tnil1.Text) < Val(tnil2.Text) End Sub

Private Sub optor_Click() thasil.Text = Val(tnil1.Text) <= 30 Or Val(tnil2.Text) > 45 End Sub


☺

Microsoft Visual Basic 6.0 Untuk menjalankan form selanjutnya, • Pilih Menu Project - ProjectProperties

•

Pilih StartUp Object

•

Coba run,, ☺ syara26.wordpress.com

☺



☺

KONSTANTA, VARIABEL, TIPE DATA dan OPERATOR

Recommend Documents