welcome in my maya world

A.TEORI
1. Type Data
Ada dua jenis data yang dapat diolah :
1. Karakter : Meliputi abjad A- Z atau a – z serta semua karakter yang ada di keyboard
2. Angka (bilangan) atau numerik
Meliputi angka yang dapat dioperasikan matematik, ada 4 janis bilangan :
a. Bilangan bulat biasa (integer)
Berkisar antara -32.768 s/d +32.767 (Penulisannya %)
Contoh : HARGA% = 15000
b. Bilangan bulat berskala besar (long integer)
Berkisar antara -2.147.483 s/d +2.147.483.647 (Penulisannya &)
Contoh : JUMLAH& = 500000
c. Bilangan berpresisi biasa (Single presision floating point)
Berkisar antara 1038 s/d 10-38 , mempunyai 6 digit maksimum (penulisan !)
Contoh : AWAL! = 6411.92
d. Bilangan berpresisi ganda (Double presision floating point)
Berkisar antara 10308s /d 10-308, mempunyai digit maksimum 16 (penulisannya #). Contoh :PT# = 12345678

2. Variabel dan konstanta
a.) Variabel
adalah tempat dalam memori computer yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data.Sesuai data yang ditampung maka variabel harus mempunyai type data yang sesuai dengan aslinya. Pertama dengan menggunakan perintah-perintah DIM , PRIVATE , STATIC, dan PUBLIC yaitu mendeklamasikan nama variable beserta type datanya pada awal prosedur,seperti contoh dibawah ini:
Dim nama as string
Dim alamat as string * 30
Dim gaji as long
Kedua yang disebut dengan deklarasi implicit,seperti contoh dibawah ini ,
Nama $ = “Fariza”
Alamat $ = “jl.Slamet Riyadi no 58 A / Surakarta”
Gaji $ = 750000
b.) konstanta
- Konstanta : Suatu harga yang selalu tetap,baik pada saat compiling maupun running program.
Ada 3 jenis konstanta :
1. Konstanta huruf ( String Constanta )
Merupakn huruf yang dibatasi oleh tanda petik ganda ( “ “ )
Contoh : “ STMIK DUTA BANGSA SURAKARTA “ , “ 123456 “
2. Konstanta angka ( Numeric Constanta )
Bilangan yang diberi angka 0 s/d 9,baik pecahan atau tidak.
Contoh : 12345, 12345.7865
3. Konstanta terdefinisi ( Named Constanta )
Pendefinisian suatu konstanta berdasarkan nama konstanta tersebut. Biasanya diawali dengan %.
Contoh : %JUMLAH = -2

3. Operator
Operator adalah suatu tanda yang digunakan untuk menghubungkan suatu variable / konstanta dengan variable / konstanta lain dengan tujuan melakukan berbagai manipulasi dan pengolahan data.
Macam- macam operator pada MS.Visual Basic 6.0 :
1. operator penegasan (assignment)
operator penegasan ditimbulkan dengan tanda sama dengan (=) dan berfungsi untuk memasukkan suatu data kedalam suatu variable.

2. operator aritmatika
operator aritmatika digunakan untuk melakukan operasi aritmatika.operator aritmatika mempunyai hirarki paling tinggi dibaning operator pembanding dan operator logika. Penulisan operator aritmatika dengan hirarki paling tinggi ke paling rendah, sebagai berikut :
operator Operasi
^ Pemangkatan
- Tanda negative
* , / Perkalian & pembagian
\ Pembagian integer
Mod Modulus (sisa hasil bagi)
+ , - Penambahan & pengurangan
+ , & Penggabungan string

3. operator pembanding
operator pembanding digunakan untuk membandingkan suatu data (espresi) dengan data (espresi) lain dan menghasilkan nilai logika (Boolean) benar atau salah. Tentu saja antara kedua data yang dibandingkan harus mempunyai type data yang sama.
Bentuk dari operator Relasional/Pembanding seperti yang terpampang pada table berikut:
Operator Operasi
= Sama dengan
<> Tidak Samadengan
<,>,<=,>= Lebih kecil, lebih besar, lebh kecil samadengan, lebih besar samadengan
Like Mempunyai irri yang sesuai
Is Sama reference object

4. Operator Logika
Operator Logika digunakan untuk mengekspresikan satu atau lebih data (ekspresi) logika (Boolean) yang menghasilkan data logika baru. Tabel Operator Logika dengan hirarki dari atas ke bawah adalah sebagai berikut :
Operator Keterangan
Not Tidak
End, Or, X Or Dan, Atau, Exclusif Or
Eqv Equivalen
Imp Implikasi


4. Option,checkbox dan frame
a). OptionButton
Fasilitas pada Ms. Visual Basic 6.0 gunanya untuk menerangkan atau mewakili suatu informasi itu secara keseluruhan, contoh : warna.


b).Checkbox
Berfungsi untuk menerangkan suatu informasi yang akan dibuat atau dipilih, contoh : model tulisan.


c). Frame
Media atau fasilitas untuk menempatkan informasi yang dibuat dari OptionButton maupun ChekBox.


B. SOAL
1.Perkalian


2. Font color dan font style


C. pembahasan
1. Rancangan Form


2. Property Value

Object Property
Form 1 Nama : frKali
Caption : Perkalian
Label 1 Nama : lblJudul
Caption : Perkalian Dua Bilangan
Text 1 Nama : txtBill1
Label 2 Nama : lblKali
Caption : X
Text 2 Nama : txtBill2
Label 3 Nama : lblSamaDengan
Caption : =
Text 3 Nama : txtBill3
Command 1 Nama : cmdHitung
Caption := &Hitung
Command 2 Nama : cmdBersih
Caption : &Bersih
Command 3 Nama : cmdKeluar
Caption : &Keluar

Object Property
Form 2 Nama : frText
Caption : Font Colour & Font Style
Label Nama : lblJudul
Caption : Microsoft Visual Basic 6.0
Frame 1 Nama : frmColour
Caption : Font Colour
Option 1 Nama : optRed
Caption : Red
ForeColor : Red
Option 2 Nama : optYellow
Caption : Yellow
ForeColor : Yellow
Option 3 Nama : optBlue
Caption : Blue
ForeColor : Blue
Option 4 Nama : optGreen
Caption : Green
ForeColor : Green
Frame 2 Nama : frmStyle
Caption : Font Style
Check 1 Nama : chkBold
Caption : Bold
Check 2 Nama : chkUnder
Caption : Underline
Check 3 Nama : chkStrik
Caption : Strikeout
Ckeck 4 Nama : chkItalic
Caption : Italic
Command Nama : cmdExit
Caption : &Exit

3. Kode Program
Perkalian :
Private Sub cmdBersih_Click()
'Mengosongkan isi TextBox
txtBill1.Text = ""
txtBill2.Text = ""
txtHasil.Text = ""
txtBill1.SetFocus
End Sub

Private Sub cmdHitung_Click()
'Deklarasi Variabel Lokal
Dim a As Single
Dim b As Single
Dim Hasil As Single


If txtBill1.Text = "" Then
MsgBox "Bilangan 1 belum diisi", vbCritical, "Perhatian"
txtBill1.SetFocus
ElseIf txtBill2.Text = "" Then
MsgBox "Bilangan 2 belum diisi"
txtBill2.SetFocus
Else
a = txtBill1.Text
b = txtBill2.Text
Hasil = a * b
txtHasil.Text = Hasil
End If

End Sub

Private Sub cmdKeluar_Click()
'Mengakhiri Program
pesan = MsgBox("Anda yakin akan keluar?", vbOKCancel, "Keluar")
If pesan = vbOK Then End
End Sub

Font Colour & Font Style :
Private Sub optBlue_Click()
lblText.ForeColor = vbBlue
End Sub

Private Sub optGreen_Click()
lblText.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
lblText.ForeColor = vbRed
End Sub

Private Sub chkBold_Click()
If chkBold.Value = 1 Then
lblText.FontBold = True
Else
lblText.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
If chkItalic.Value = 1 Then
lblText.FontItalic = True
Else
lblText.FontItalic = False
End If
End Sub

Private Sub chkStrik_Click()
If chkStrik.Value = 1 Then
lblText.FontStrikethru = True
Else
lblText.FontStrikethru = False
End If
End Sub

Private Sub chkUnder_Click()
If chkUnder.Value = 1 Then
lblText.FontUnderline = True
Else
lblText.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub optYellow_Click()
lblText.ForeColor = vbYellow
End Sub


D. Tampilan Program



E. Tampilan Program Setelah Dijalankan
a. perkalian


b. Font color dan font style