Berikut kita akan mencoba membuat contoh database baru dengan menggunakan mysql command line. Perhatikan langkah - langkah berikut :
1. Login ke MySQL Server
Gunakan perintah mysql -u root -p , ketika muncul pesan Enter password : , masukkan password MySQL anda. jika Anda pengguna aplikasi XAMP, biasanya password root masih kosong. tekan saja tombol Enter.
2. Membuat database baru
Untuk membuat database baru, perintah yang digunakan adalah sebagai berikut :
CREATE DATABASE nama_database;
Contoh kalau kita akan membuat database dengan nama sekolah, perintah yang digunakan :
CREATE DATABASE sekolah;
jangan lupa untuk mengakhiri perintah mysql dengan tanda ( ; ) supaya pada waktu kita tekan enter perintah tersebut akan di eksekusi. kalau kita lupa menuliskan tanda ;, maka kursor akan turun kebawah dam artian ganti baris saja, akan tetapi perintah tidak dieksekusi. untuk mengatasi hal tersebut, ketik saja ; kemudian tekan tombol Enter.
3. Masuk ke database untuk pengelolaan
Untuk masuk ke database tertentu, perintah yang digunakan adalah USE, dengan struktur perintahnya yaitu :
USE nama_database
Contoh penerapannya adalah:
USE sekolah;
Jika perintah yang kita ketikkan benar, maka akan dicetak pesan Database Change, kemudian kita bisa mengolah database tersebut.
4. Membuat tabel
Struktur perintah untuk membuat tabel adalah sebagai berikut :
CREATE TABLE nama_tabel(
kolom1 type_data(ukuran) atribut ,
kolom1 type_data(ukuran) atribut,
kolom1 type_data(ukuran) atribut,
kolom1 type_data(ukuran) ,
...
kolom_n type_data(ukuran)
);
Pada contoh berikut akan dibuat tabel siswa dengan struktur tabel tersebut terdiri dari beberapa kolom, diantaranya (NIS , Nama, Alamat, TTL, Telp, Angkatan).
Perintah yang harus dibuat adalah sebagai berikut :
CREATE TABLE siswa (
NIS varchar(10) not null primary key,
Nama varchar(30) not null,
Alamat varchar(255) not null,
TTL varchar(50) not null,
Telp varchar(30) not null,
Angkatan varchar(2) not null
);
Jika perintah diatas berhasil, maka akan dicetak pesan Query Ok , sedangkan jika ditemukan kesalahan dalam perintah diatas, maka akan dicetak pesan kesalahan berserta dengan petunjuk lokasi kesalahannya.
5. Melihat daftar tabel dalam database
Untuk mengetahui ada berapa tabel dalam database sekolah, maka gunakan perintah berikut :
SHOW TABLES;
setelah perintah tersebut dijalankan, maka akan ditampilkan daftar tabel yang ada pada database sekolah.
6. Memasukkan data ke dalam tabel
Untuk memasukkan data / record pada tabel siswa, maka perintah yang kita gunakan adalah perintah insert, struktur perintahnya adalah :
INSERT INTO siswa (kolom1, kolom2, kolom3, kolom_n) values (' isi 1 ', ' isi 2 ', ' isi 3 ', ' isi n ')
Pada contoh berikut kita akan memasukkan record pada tabel siswa yang telah kita buat sebelumnya.
INSERT INTO siswa (NIS, Nama, Alamat, TTL, Telp, Angkatan ) values (' 0912912 ', ' Edi s ', ' Malang ', ' Malang 29 Februari 1994 ', ' 0341 567890 ', ' 2009 ' )
jika perintah diatas kita jalankan, maka akan dimasukkan data siswa bernama Edi s kedalam tabel siswa. Jika perintah berhasil, akan dicetak pesan Query Ok, 1 row affected
7. Menampilkan data atau record tabel
Untuk melihat data dari sebuah tabel, maka kita gunakan perintah select , yang srtuktur perintahnya adalah sebagai berikut :
SELECT kolom1,kolom2,kolom_n FROM nama_tabel
pada contoh berikut kita akan menampilkan isi dari tabel siswa, maka kita gunakan perintah berikut :
SELECT * FROM siswa ;
Perintah diatas akan menampilkan isi semua kolom dalam tabel siswa, sedangkan jika perintanya kita ubah menjadi :
SELECT NIS,Nama,Alamat FROM siswa;
Maka hanya akan ditampilkan isi dari Kolom NIS,Nama dan kolom Alamat
Penjelasan lebih detail dari perintah diatas akan dibahas dalam Mysql query
8. Mengubah data tabel
Untuk melakukan perubahan data pada tabel, maka perintah yang digunakan adalah perintah UPDATE, struktur perintahnya adalah sebagai berikut :
UPDATE nama_tabel SET kolom1='isi baru' , kolom2='isi baru' WHERE kolom_unik='kode_unik' ;
Pada contoh berikut kita akan mengubah Nama siswa yang berada pada tabel siswa. Perlu diketahui bahwa kolom unik atau primary key dari tabel siswa adalah NIS, maka kita akan mengubah data siswa dengan NIS tertentu.
UPDATE siswa SET Nama=' Arman', Alamat='Jl Bougenville no 1', Angkatan=' 2010 ' WHERE NIS=' 0912913 '
Jika perintah tersebut dijalankan, maka data siswa yang memiliki NIS = 0912913 akan diubah, yaitu Nama = Edi s akan dibah menjadi Arman , Alamat diubah menjadi Jl Bougenville no 1 dan angkatan diubah menjadi 2010.
Untuk melihat hasilnya, silahkan tampilkan dengan menggunakan perintah SELECT
9. Menghapus data
Untuk menghapus data pada tabel, perintah yang digunakan adalah perintah DELETE . Struktur perintahnya adalah sebagai berikut :
DELETE FROM nama_tabel WHERE kolom_unik = 'angka_unik';
Contoh penerapannya pada tabel siswa adalah ketika kita akan menghapus data siswa yang memiliki NIS 0912913, maka perintah yang digunakan adalah sebagai berikut :
DELETE FROM siswa WHERE NIS=' 0912913 ';
Rabu, 27 November 2013
Terapi Jari
KILLING ME INSIDE - TORMENTED
[intro] Dm A# Dm A#
Dm A# C 2x
Dm
For the last time
A#
You waste my tears now
C Dm
No more torment
A# C
But don`t just say you`ve gone away
Dm
You tell a fuckin` tale
A# C
Swallow me and spit me out
Dm
How do I get trought of this?
A# C
I can`t stand it anymore
Dm
Can, you, see, me…
A# C
Smiling when I sing this song
Dm
Right, now…
A# C
I just want to be alive
Dm
You know I was dying when you told me
A# C
That I`m not yours anymore
Dm
You know I was dying when you told me
A# C
You`re just playing and fooling around with me
Dm A#
When the time she comes and wakes me
C
She comes and wakes me
Dm A# C
And when she bit my lips and kissed me there
Dm A# C
And when she holds my hand and lives my life tonight
Dm A#
When she said that she really loves me
C
Were the worst fucking days
[intro] Dm A# C 2x
Dm
I`m dying and bleeding of my past
A# C
I`m dying and bleeding of my past
Dm
Now slit my throat and let me bleed
A# C
Now slit my throat and let me bleed
Dm
Can, you, see, me…
A# C
Smiling when I sing this song
Dm
Right, now…
A# C
I just want to be alive
Dm
You know I was dying when you told me
A# C
That I`m not yours anymore
Dm
You know I was dying when you told me
A# C Dm
You`re just playing and fooling around with me
Dm A#
When the time she comes and wakes me
C
She comes and wakes me
Dm A# C
And when she bit my lips and kissed me there
Dm A# C
And when she holds my hand and lives my life tonight
Dm A#
When she said that she really loves me
C
Were the worst fucking days
A#
But suddenly you came to me,
and begged me to be yours again
Right now you`re holding my hand but sorry baby,
but all I can say is...
Dm
No, hell no…!!!
[intro] Dm C A# C
Dm C
Can you see the times grows older
A# C
She blew my dreams away
Dm C
It`s all done, the time is over
A# C Dm
I don`t know how to say to you
Dm F
Can you see the times grows older
Gm A#
She blew my dreams away
Dm F
It`s all done, the time is over
Gm A#
I don`t know how to say to you
Dm
The time is over!!!
The time, NO!!!
[intro] Dm A# Dm A#
Dm A# C 2x
Dm
For the last time
A#
You waste my tears now
C Dm
No more torment
A# C
But don`t just say you`ve gone away
Dm
You tell a fuckin` tale
A# C
Swallow me and spit me out
Dm
How do I get trought of this?
A# C
I can`t stand it anymore
Dm
Can, you, see, me…
A# C
Smiling when I sing this song
Dm
Right, now…
A# C
I just want to be alive
Dm
You know I was dying when you told me
A# C
That I`m not yours anymore
Dm
You know I was dying when you told me
A# C
You`re just playing and fooling around with me
Dm A#
When the time she comes and wakes me
C
She comes and wakes me
Dm A# C
And when she bit my lips and kissed me there
Dm A# C
And when she holds my hand and lives my life tonight
Dm A#
When she said that she really loves me
C
Were the worst fucking days
[intro] Dm A# C 2x
Dm
I`m dying and bleeding of my past
A# C
I`m dying and bleeding of my past
Dm
Now slit my throat and let me bleed
A# C
Now slit my throat and let me bleed
Dm
Can, you, see, me…
A# C
Smiling when I sing this song
Dm
Right, now…
A# C
I just want to be alive
Dm
You know I was dying when you told me
A# C
That I`m not yours anymore
Dm
You know I was dying when you told me
A# C Dm
You`re just playing and fooling around with me
Dm A#
When the time she comes and wakes me
C
She comes and wakes me
Dm A# C
And when she bit my lips and kissed me there
Dm A# C
And when she holds my hand and lives my life tonight
Dm A#
When she said that she really loves me
C
Were the worst fucking days
A#
But suddenly you came to me,
and begged me to be yours again
Right now you`re holding my hand but sorry baby,
but all I can say is...
Dm
No, hell no…!!!
[intro] Dm C A# C
Dm C
Can you see the times grows older
A# C
She blew my dreams away
Dm C
It`s all done, the time is over
A# C Dm
I don`t know how to say to you
Dm F
Can you see the times grows older
Gm A#
She blew my dreams away
Dm F
It`s all done, the time is over
Gm A#
I don`t know how to say to you
Dm
The time is over!!!
The time, NO!!!
BELAJAR VISUAL BASIC DASAR
PENGENALAN VISUAL BASIC 6.0
Pertemuan 1
1. MENGENAL VISUAL BASIC 6.0
Visual Basic 6.0 merupakan salah satu bahasa pemrograman yang bekerja dalam Ms. Word. Karena merupakan bahasa pemograman maka di dalam nya berisi perintah-perintah atau intruksi yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.
Beberapa kemampuan dari Visual Basic :
1. Membuat program aplikasi berbasis Windows.
2. Membuat obyek-obyek pembantu program. Misalnya file Help, kontrol ActiveX dan sebagainya.
3. Menguji program dan menghasilkan program akhir berekstensi EXE yang langsung dapat dijalankan
1. Menjalankan Visual Basic
Langkah untuk menjalankan VB:
a. Klik tombol Start, kemudian arahkan pada pilihan All Programs.
b. Arahkan mouse pada group Microsoft Visual Basic 6.0
c. Control Menu, klik pilihan Standart EXE, kemudian klik tombolOPEN. Di layar akan terlihat lembar kerja Project dari Ms. VB 6.0
Tool box
Menu Bar
Project Explore
Properti Windows
2. Mengenal Elemen Visual Basic
2.1 Menu Bar
Menu Bar pada VB ini terdiri dari beberapa pilihan yang berfungsi untuk melakukan tugas dan kegiatan tertentu. Menu Bar tersebut terdiri dari File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help.
2.2 Control Menu
Control menu merupakan salah satu bagian dalam barisan judul (Title Bar) yang digunakan untuk memanipulasi jendela Visual Basic. Menu ini berada di pojok kiri atas jendela VB. Apabila anda klik pilih terlihat bebrapa pilihan, yaitu:
® Restore : digunakan untuk mengembalikan ukuran jendela ke dalam ukuran sebelumnya.
® Move : digunakan untuk memindahkan jendela sesuai dengan keinginan.
® Size : digunakan untuk merubah ukuran jendela.
® Minimize : digunakan untuk mengecilkan ukuran jendela, sehingga aplikasi akan terparkir.
® Maximize : digunakan untuk memperbesar ukuran jendela dalam satu layar penuh.
® Close : digunakan untuk mengakhiri/menutup jendela.
2.3 Toolbar
Toolbar merupakan cara cepat di dalam menjalankan suatu perintah, karena tombol-tombol yang berada dalam toolbar tersebut mewakili suatu perintah tertentu. Perintah yang digunakan untuk mengaktifkan atau menyembunyikan toolbar tersebut adalah dengan memilih menu View → Toolbars, kemudian klik salah satu toolbar yang diinginkan.
2.4 Toolbox
Toolbox merupakan salah satu fasilitas pada VB yang berisi beberapa obyek atau kontrol yang dibutuhkan dalam aplikasi yang di buat dan diletakkan dalam suatu form.
Gambar 1.3 Toolbox
2.5. Jendela Form
Jendela Form (Form Windows) merupakan jendela utama dalam bekerja dengan VB. Karena pada form inilah kita akam memubuat beberapa obyek, misalnya label atau text, gambar atau tombol-tombol perintah dan sebagainya. Semua obyek yang di tempatkan pada form akan dijalan kan atau di tampilakan pada layar window.
2.6. Project Explorer
Project explorer merupakan salah satu jendela pada Visual Basic yang berisi semua file dalam aplikasi yang kita buat merupakan suatu Project yang akan berisi beberapa file, misal nya form, modul, class, dan sebagainya.
2.7. Jendela Properties
Properties berisi semua informasi tentang sifat dari sebuah obyek. Anda dapat menentukan propeties ini sesuai obyek. Properties tersebut antara lain, nam obyek, warna, ukuran, posisi dan lain sebagainya.
2.8. Form Layout
Form layout adalah jendela yang menggambarkan posisi form dalam layar monitor. Dengan tampilan tersebut anda akan melihat posisi aplikasi yang anda buat saat dijalankan dalam layar monitor.
3 . Menyimpan Project
Langkah-langkah menyimpan aplikasi yang dibuat dengan VB sebagai berikut:
1. Klik File→Save Project
2. Tentukan folder dan nama file pada kotak dialog Save File As dari form yang disimpan, kemudian klik tombol Save.
1. Tipe Data
Tipe Keterangan
Integer Tipe data numeric yang berupa bilangan bulat
Long Tipe data numeric yang berupa bilangan bulat dengan range yang lebih besar
Single Merupakan jenis data numerik
Double Jenis data numeric dengan range nilai yang sangat besar
Currency Jenis data yang digunakan untuk mrnyimpan data dalam bentuk nilai mata uang suatu negara
String Tipe data yang memiliki nilai alfanumerik (angka,huruf, dan karakter khusus)
Byte Tipe data berupa nilai bulat positif
Boolean Tipe data dengan dua buah nilai yaitu Truedan False.
Date Jenis data yang digumakan untuk menyimpan tanggal dan jam.
Object Jenis data untuk menyimpan obyek, misalnya form, control dll.
Variant Jenis data yang berisi segala macam jenis data yang berbeda.
2. Variabel
Variabel adalah suatu tempat dalam memori computer yang telah di beri nama dan berdifat sementara.
a. Diawali dengan statemen Dim
Dim kependekan dari dimension yang merupakan pernyataan dari Visual Basic dalam pendeklarasian varisbel. Penulisan Dim dapat diletakkan dimana saja. Pada umumnya diletakkan di atas control form, yaitu pada bagian General.
b. Nama Variabel
• Diawali dengan karakter alphabet, tidak diawali dengan symbol atau angka
• Maksimim 255 karakter, tetapi hanya 40 karakter pertama yang dianggap sebagai nama variable.
• Tidak mengandung titik atau karakter khusus lainnya.
c. Menentukan Jenis Variabel
Jenis variable haruslah sesuai dengan dengan data yang akan digunakan dalam program yang akan dibuat.
d. Penulisan Pendeklarasian Variabel
Bentuk umum pendeklarasian variable dapat ditulis sebagai berikut:
Dim namavariabel As tipevariabel
Keterangan:
• Dim : pernyataan untuk mendeklarasikan variable.
• Namavariabel : nama yang digunakan untuk menyimpan nilai.
• Tipevariabel : jenis variable yang tergantung kepada jenid data yang akan disimpan dalam variable tersebut.
Apabila variable bertipe Variant yaitu variable dengan jenis data bebas, maka penulisan pendeklarasian variable adalah:
Dim namavariabel As variant atau Dim nama variant
3. Operator
Untuk melakukan perubahan dan manipulasi data, maka diperlukan operator-operator yang telah tersedia dalam Visual Basic. Operator-operator tersebut adalah:
a. Operator penugasan (Assignment)
Operator ini dilambangkan dengan sama dengan (=) dan berfungsi untuk emasukkan data ke dalam suatu variable. Penulisan operator ini:
Variable = ekspresi
Contoh:
Jumlah=4
Harga=500
Tbayar=jumlah*Harga
No=No+1
b. Operator Aritmatika
Operator ini digunakan untuk melakukan operasi aritmatika. Operator ini mempunyai hirarki paling tinggi dibandingkan dengan operator lain, misalnya operator perbandingan dan operator logika.
Operator Keterangan
^ Pangkat
*atau / Perkalian atau pembagian
+ atau - Penjumlahan atau Pengurangan
& atau + Penggabungan String
EVENT
Pada Form yang anda buat dapat dilengkapi dengan Event atau kejadian pada saat form tersebut
Diposkan oleh Hari Rachmadi
Ok yang pertama adalah kode program PENJUMLAHAN
PENJUMLAHAN
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
ketikkan kode program seperti gambar diatas yaaa...
lalu jalankan program dengan menekan tombol F5 pada Keyboard
Mengubah nama form dengan command button
Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub
Pengurangan
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
Latihan Membuat Kalkulator
Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = Str(c)
End Sub
Private Sub Command3_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub
Private Sub Command4_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a \ b
Text3.Text = Str(c)
End Sub
Private Sub Command5_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = Str(c)
End Sub
Private Sub Command6_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ b
Text3.Text = Str(c)
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
End Sub
Belajar Tentang Variabel
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
Membuat Grafik
Dim r As Single
Private Sub Form_Load()
r = 100
End Sub
Private Sub Form_Paint()
Circle (1500, 1500), 1500
Circle (2500, 3500), 1500
Circle (3500, 1500), 1500
Circle (4500, 3500), 1500
Circle (5500, 1500), 1500
Circle (10000, 1500), 1000
Circle (10000, 3500), 1000
Circle (12000, 1500), 1000
Circle (12000, 3500), 1000
Circle (11000, 2500), 1000
End Sub
Private Sub pct1_paint()
pct1.Line (0, 0)-(3000, 3000)
pct1.Line (-10, 10)-(3000, 3000)
End Sub
Private Sub Timer1_Timer()
pct1.Circle (pct1.ScaleWidth / 2, pct1.ScaleHeight / 2), r
r = r + 50
If r > 1000 Then
r = 100
pct1.Cls
End If
End Sub
Private Sub Timer2_Timer()
pct1.Top = pct1.Top + 50
If pct1.Top > FrmGrafik.Height Then
pct1.Top = -pct1.Height
End If
End Sub
Private Sub Timer3_Timer()
pct1.Left = pct1.Left + 50
If pct1.Left > FrmGrafik.Height Then
pct1.Left = -pct1.Height
End If
End Sub
Belajar Membuat Print tulisan di FORM
Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub
Private Sub Form_Load()
End Sub
MEMBUAT GAME
Private Sub CmdAtas_Click()
Timer1.Enabled = True
CmdAtas.Enabled = False
CmdKiri.Enabled = True
End Sub
Private Sub CmdBawah_Click()
PctGambar.Top = PctGambar.Top + 30
End Sub
Private Sub CmdKanan_Click()
PctGambar.Left = PctGambar.Left + 30
End Sub
Private Sub CmdKiri_Click()
Timer1.Enabled = False
CmdAtas.Enabled = True
CmdKiri.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
PctGambar.Top = PctGambar.Top - 30
End Sub
Private Sub Timer2_Timer()
PctGambar.Left = PctGambar.Left - 50
End Sub
MEMBUAT PENENTUAN BEASISWA
Private Sub Label2_Click()
End Sub
Private Sub Cmdbeasiswa_Click()
Dim ip As Single
ip = Val(TxtIP.Text)
TxtKet.Text = "Tidak Dapat Beasiswa"
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub
Private Sub Cmdexit_Click()
End
End Sub
Private Sub TxtIP_Change()
Dim ip As Single
ip = Val(TxtIP.Text)
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub
MEMBUAT ZODIAK
Dim tanggal As Date
Dim tglLhr, blnLhr As Integer
Dim panggil As String
Private Sub cmdbersih_Click()
Text1.Text = " "
lblZodiak.Caption = " "
End Sub
Private Sub cmdEnter_Click()
tanggal = Me.DTPicker1.Value
tglLhr = Day(tanggal)
blnLhr = Month(tanggal)
If (tglLhr >= 22 And blnLhr = 12) Or (tglLhr <= 20 And blnLhr = 1) Then
zodiak = "Capricorn"
ElseIf (tglLhr >= 21 And blnLhr = 1) Or (tglLhr <= 19 And blnLhr = 2) Then
zodiak = "Aquarius"
ElseIf (tglLhr >= 20 And blnLhr = 2) Or (tglLhr <= 20 And blnLhr = 3) Then
zodiak = "Pisces"
ElseIf (tglLhr >= 21 And blnLhr = 3) Or (tglLhr <= 19 And blnLhr = 4) Then
zodiak = "Aries"
ElseIf (tglLhr >= 20 And blnLhr = 4) Or (tglLhr <= 20 And blnLhr = 5) Then
zodiak = "Taurus"
ElseIf (tglLhr >= 21 And blnLhr = 5) Or (tglLhr <= 21 And blnLhr = 6) Then
zodiak = "Gemini"
ElseIf (tglLhr >= 22 And blnLhr = 6) Or (tglLhr <= 22 And blnLhr = 7) Then
zodiak = "Cancer"
ElseIf (tglLhr >= 23 And blnLhr = 7) Or (tglLhr <= 23 And blnLhr = 8) Then
zodiak = "Leo"
ElseIf (tglLhr >= 24 And blnLhr = 8) Or (tglLhr <= 22 And blnLhr = 9) Then
zodiak = "Virgo"
ElseIf (tglLhr >= 23 And blnLhr = 9) Or (tglLhr <= 23 And blnLhr = 10) Then
zodiak = "Libra"
ElseIf (tglLhr >= 24 And blnLhr = 10) Or (tglLhr <= 22 And blnLhr = 11) Then
zodiak = "Scorpio"
ElseIf (tglLhr >= 23 And blnLhr = 11) Or (tglLhr <= 21 And blnLhr = 12) Then
zodiak = "Sagitarius"
End If
Me.lblZodiak.Caption = zodiak
End Sub
Private Sub Cmdkeluar_Click()
MsgBox ("Yakin anda ingin keluar? Jika anda yakin, tekan OK")
MsgBox (" OK la kalo begitu...")
End
End Sub
Pertemuan 1
1. MENGENAL VISUAL BASIC 6.0
Visual Basic 6.0 merupakan salah satu bahasa pemrograman yang bekerja dalam Ms. Word. Karena merupakan bahasa pemograman maka di dalam nya berisi perintah-perintah atau intruksi yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.
Beberapa kemampuan dari Visual Basic :
1. Membuat program aplikasi berbasis Windows.
2. Membuat obyek-obyek pembantu program. Misalnya file Help, kontrol ActiveX dan sebagainya.
3. Menguji program dan menghasilkan program akhir berekstensi EXE yang langsung dapat dijalankan
1. Menjalankan Visual Basic
Langkah untuk menjalankan VB:
a. Klik tombol Start, kemudian arahkan pada pilihan All Programs.
b. Arahkan mouse pada group Microsoft Visual Basic 6.0
c. Control Menu, klik pilihan Standart EXE, kemudian klik tombolOPEN. Di layar akan terlihat lembar kerja Project dari Ms. VB 6.0
Tool box
Menu Bar
Project Explore
Properti Windows
2. Mengenal Elemen Visual Basic
2.1 Menu Bar
Menu Bar pada VB ini terdiri dari beberapa pilihan yang berfungsi untuk melakukan tugas dan kegiatan tertentu. Menu Bar tersebut terdiri dari File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help.
2.2 Control Menu
Control menu merupakan salah satu bagian dalam barisan judul (Title Bar) yang digunakan untuk memanipulasi jendela Visual Basic. Menu ini berada di pojok kiri atas jendela VB. Apabila anda klik pilih terlihat bebrapa pilihan, yaitu:
® Restore : digunakan untuk mengembalikan ukuran jendela ke dalam ukuran sebelumnya.
® Move : digunakan untuk memindahkan jendela sesuai dengan keinginan.
® Size : digunakan untuk merubah ukuran jendela.
® Minimize : digunakan untuk mengecilkan ukuran jendela, sehingga aplikasi akan terparkir.
® Maximize : digunakan untuk memperbesar ukuran jendela dalam satu layar penuh.
® Close : digunakan untuk mengakhiri/menutup jendela.
2.3 Toolbar
Toolbar merupakan cara cepat di dalam menjalankan suatu perintah, karena tombol-tombol yang berada dalam toolbar tersebut mewakili suatu perintah tertentu. Perintah yang digunakan untuk mengaktifkan atau menyembunyikan toolbar tersebut adalah dengan memilih menu View → Toolbars, kemudian klik salah satu toolbar yang diinginkan.
2.4 Toolbox
Toolbox merupakan salah satu fasilitas pada VB yang berisi beberapa obyek atau kontrol yang dibutuhkan dalam aplikasi yang di buat dan diletakkan dalam suatu form.
Gambar 1.3 Toolbox
2.5. Jendela Form
Jendela Form (Form Windows) merupakan jendela utama dalam bekerja dengan VB. Karena pada form inilah kita akam memubuat beberapa obyek, misalnya label atau text, gambar atau tombol-tombol perintah dan sebagainya. Semua obyek yang di tempatkan pada form akan dijalan kan atau di tampilakan pada layar window.
2.6. Project Explorer
Project explorer merupakan salah satu jendela pada Visual Basic yang berisi semua file dalam aplikasi yang kita buat merupakan suatu Project yang akan berisi beberapa file, misal nya form, modul, class, dan sebagainya.
2.7. Jendela Properties
Properties berisi semua informasi tentang sifat dari sebuah obyek. Anda dapat menentukan propeties ini sesuai obyek. Properties tersebut antara lain, nam obyek, warna, ukuran, posisi dan lain sebagainya.
2.8. Form Layout
Form layout adalah jendela yang menggambarkan posisi form dalam layar monitor. Dengan tampilan tersebut anda akan melihat posisi aplikasi yang anda buat saat dijalankan dalam layar monitor.
3 . Menyimpan Project
Langkah-langkah menyimpan aplikasi yang dibuat dengan VB sebagai berikut:
1. Klik File→Save Project
2. Tentukan folder dan nama file pada kotak dialog Save File As dari form yang disimpan, kemudian klik tombol Save.
1. Tipe Data
Tipe Keterangan
Integer Tipe data numeric yang berupa bilangan bulat
Long Tipe data numeric yang berupa bilangan bulat dengan range yang lebih besar
Single Merupakan jenis data numerik
Double Jenis data numeric dengan range nilai yang sangat besar
Currency Jenis data yang digunakan untuk mrnyimpan data dalam bentuk nilai mata uang suatu negara
String Tipe data yang memiliki nilai alfanumerik (angka,huruf, dan karakter khusus)
Byte Tipe data berupa nilai bulat positif
Boolean Tipe data dengan dua buah nilai yaitu Truedan False.
Date Jenis data yang digumakan untuk menyimpan tanggal dan jam.
Object Jenis data untuk menyimpan obyek, misalnya form, control dll.
Variant Jenis data yang berisi segala macam jenis data yang berbeda.
2. Variabel
Variabel adalah suatu tempat dalam memori computer yang telah di beri nama dan berdifat sementara.
a. Diawali dengan statemen Dim
Dim kependekan dari dimension yang merupakan pernyataan dari Visual Basic dalam pendeklarasian varisbel. Penulisan Dim dapat diletakkan dimana saja. Pada umumnya diletakkan di atas control form, yaitu pada bagian General.
b. Nama Variabel
• Diawali dengan karakter alphabet, tidak diawali dengan symbol atau angka
• Maksimim 255 karakter, tetapi hanya 40 karakter pertama yang dianggap sebagai nama variable.
• Tidak mengandung titik atau karakter khusus lainnya.
c. Menentukan Jenis Variabel
Jenis variable haruslah sesuai dengan dengan data yang akan digunakan dalam program yang akan dibuat.
d. Penulisan Pendeklarasian Variabel
Bentuk umum pendeklarasian variable dapat ditulis sebagai berikut:
Dim namavariabel As tipevariabel
Keterangan:
• Dim : pernyataan untuk mendeklarasikan variable.
• Namavariabel : nama yang digunakan untuk menyimpan nilai.
• Tipevariabel : jenis variable yang tergantung kepada jenid data yang akan disimpan dalam variable tersebut.
Apabila variable bertipe Variant yaitu variable dengan jenis data bebas, maka penulisan pendeklarasian variable adalah:
Dim namavariabel As variant atau Dim nama variant
3. Operator
Untuk melakukan perubahan dan manipulasi data, maka diperlukan operator-operator yang telah tersedia dalam Visual Basic. Operator-operator tersebut adalah:
a. Operator penugasan (Assignment)
Operator ini dilambangkan dengan sama dengan (=) dan berfungsi untuk emasukkan data ke dalam suatu variable. Penulisan operator ini:
Variable = ekspresi
Contoh:
Jumlah=4
Harga=500
Tbayar=jumlah*Harga
No=No+1
b. Operator Aritmatika
Operator ini digunakan untuk melakukan operasi aritmatika. Operator ini mempunyai hirarki paling tinggi dibandingkan dengan operator lain, misalnya operator perbandingan dan operator logika.
Operator Keterangan
^ Pangkat
*atau / Perkalian atau pembagian
+ atau - Penjumlahan atau Pengurangan
& atau + Penggabungan String
EVENT
Pada Form yang anda buat dapat dilengkapi dengan Event atau kejadian pada saat form tersebut
Diposkan oleh Hari Rachmadi
Ok yang pertama adalah kode program PENJUMLAHAN
PENJUMLAHAN
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
ketikkan kode program seperti gambar diatas yaaa...
lalu jalankan program dengan menekan tombol F5 pada Keyboard
Mengubah nama form dengan command button
Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub
Pengurangan
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
Latihan Membuat Kalkulator
Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = Str(c)
End Sub
Private Sub Command3_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub
Private Sub Command4_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a \ b
Text3.Text = Str(c)
End Sub
Private Sub Command5_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = Str(c)
End Sub
Private Sub Command6_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ b
Text3.Text = Str(c)
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
End Sub
Belajar Tentang Variabel
Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub
Membuat Grafik
Dim r As Single
Private Sub Form_Load()
r = 100
End Sub
Private Sub Form_Paint()
Circle (1500, 1500), 1500
Circle (2500, 3500), 1500
Circle (3500, 1500), 1500
Circle (4500, 3500), 1500
Circle (5500, 1500), 1500
Circle (10000, 1500), 1000
Circle (10000, 3500), 1000
Circle (12000, 1500), 1000
Circle (12000, 3500), 1000
Circle (11000, 2500), 1000
End Sub
Private Sub pct1_paint()
pct1.Line (0, 0)-(3000, 3000)
pct1.Line (-10, 10)-(3000, 3000)
End Sub
Private Sub Timer1_Timer()
pct1.Circle (pct1.ScaleWidth / 2, pct1.ScaleHeight / 2), r
r = r + 50
If r > 1000 Then
r = 100
pct1.Cls
End If
End Sub
Private Sub Timer2_Timer()
pct1.Top = pct1.Top + 50
If pct1.Top > FrmGrafik.Height Then
pct1.Top = -pct1.Height
End If
End Sub
Private Sub Timer3_Timer()
pct1.Left = pct1.Left + 50
If pct1.Left > FrmGrafik.Height Then
pct1.Left = -pct1.Height
End If
End Sub
Belajar Membuat Print tulisan di FORM
Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub
Private Sub Form_Load()
End Sub
MEMBUAT GAME
Private Sub CmdAtas_Click()
Timer1.Enabled = True
CmdAtas.Enabled = False
CmdKiri.Enabled = True
End Sub
Private Sub CmdBawah_Click()
PctGambar.Top = PctGambar.Top + 30
End Sub
Private Sub CmdKanan_Click()
PctGambar.Left = PctGambar.Left + 30
End Sub
Private Sub CmdKiri_Click()
Timer1.Enabled = False
CmdAtas.Enabled = True
CmdKiri.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
PctGambar.Top = PctGambar.Top - 30
End Sub
Private Sub Timer2_Timer()
PctGambar.Left = PctGambar.Left - 50
End Sub
MEMBUAT PENENTUAN BEASISWA
Private Sub Label2_Click()
End Sub
Private Sub Cmdbeasiswa_Click()
Dim ip As Single
ip = Val(TxtIP.Text)
TxtKet.Text = "Tidak Dapat Beasiswa"
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub
Private Sub Cmdexit_Click()
End
End Sub
Private Sub TxtIP_Change()
Dim ip As Single
ip = Val(TxtIP.Text)
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub
MEMBUAT ZODIAK
Dim tanggal As Date
Dim tglLhr, blnLhr As Integer
Dim panggil As String
Private Sub cmdbersih_Click()
Text1.Text = " "
lblZodiak.Caption = " "
End Sub
Private Sub cmdEnter_Click()
tanggal = Me.DTPicker1.Value
tglLhr = Day(tanggal)
blnLhr = Month(tanggal)
If (tglLhr >= 22 And blnLhr = 12) Or (tglLhr <= 20 And blnLhr = 1) Then
zodiak = "Capricorn"
ElseIf (tglLhr >= 21 And blnLhr = 1) Or (tglLhr <= 19 And blnLhr = 2) Then
zodiak = "Aquarius"
ElseIf (tglLhr >= 20 And blnLhr = 2) Or (tglLhr <= 20 And blnLhr = 3) Then
zodiak = "Pisces"
ElseIf (tglLhr >= 21 And blnLhr = 3) Or (tglLhr <= 19 And blnLhr = 4) Then
zodiak = "Aries"
ElseIf (tglLhr >= 20 And blnLhr = 4) Or (tglLhr <= 20 And blnLhr = 5) Then
zodiak = "Taurus"
ElseIf (tglLhr >= 21 And blnLhr = 5) Or (tglLhr <= 21 And blnLhr = 6) Then
zodiak = "Gemini"
ElseIf (tglLhr >= 22 And blnLhr = 6) Or (tglLhr <= 22 And blnLhr = 7) Then
zodiak = "Cancer"
ElseIf (tglLhr >= 23 And blnLhr = 7) Or (tglLhr <= 23 And blnLhr = 8) Then
zodiak = "Leo"
ElseIf (tglLhr >= 24 And blnLhr = 8) Or (tglLhr <= 22 And blnLhr = 9) Then
zodiak = "Virgo"
ElseIf (tglLhr >= 23 And blnLhr = 9) Or (tglLhr <= 23 And blnLhr = 10) Then
zodiak = "Libra"
ElseIf (tglLhr >= 24 And blnLhr = 10) Or (tglLhr <= 22 And blnLhr = 11) Then
zodiak = "Scorpio"
ElseIf (tglLhr >= 23 And blnLhr = 11) Or (tglLhr <= 21 And blnLhr = 12) Then
zodiak = "Sagitarius"
End If
Me.lblZodiak.Caption = zodiak
End Sub
Private Sub Cmdkeluar_Click()
MsgBox ("Yakin anda ingin keluar? Jika anda yakin, tekan OK")
MsgBox (" OK la kalo begitu...")
End
End Sub
Langganan:
Postingan (Atom)