Eri Mardiani,M.Kom 1

Matakuliah Pemrograman Terstruktur

Eri Mardiani,M.Kom 1


Toolbars Standars

Menu Bar Toolbox Form Designer

Window Project Explorer

Window Properties

Window Form Layout

Menu Bar Menu dasar untuk Edit, View, Project, Debug dan lainnya.

Toolbar Fasilitas ini dapat mempercepat pengaksesan perintah – perintah yang ada dalam pemrograman. Secara default, toolbar jenis standard yang akan ditampilkan saat anda memulai Visual Basic. Untuk menampilkannya dengan memilih menu view – toolbars – kemudian beri tanda centang pada pilihan Standard.

Toolbox Sebuah window yang berisi tombol – tombol kontrol yang akan anda gunakan untuk mendesain atau membangun sebuah form atau report. Selain tombol kontrol standard, anda juga dapat menambahkan sendiri tombol kontrol yang lain. Window Project Explorer Window ini menampilkan daftar form, modul serta objek lain yang ada dalam project yang aktif. Sebuah project merupakan sekumpulan file yang anda gunakan untuk membangun sebuah aplikasi.

Window Properties Window ini digunakan untuk mengatur properti sebuah objek atau kontrol yang anda pilih. Sebuah properti merupakan karakteristik objek, seperti size, caption, atau color. Untuk menampilkannya dengan memilih menu view – kemudian pilih properties window.


Matakuliah Pemrograman Terstruktur Window Form Layout Window ini dapat anda gunakan untuk mengotrol posisi form pada aplikasi anda dengan menggunakan sistem grafik dalam sebuah layar. Dengan menggunakan fasilitas ini anda dapat melihat dan mengetahui posisi form yang baru anda desain. Untuk menampilkannya dengan memilih menu view – kemudian pilih Form Layout Window. Form Designer Yaitu sebuah window yang dapat anda gunakan untuk mengatur tampilan aplikasi yang Anda susun, atau dengan kata lain sebagai tempat untuk mendesain sebuah form. Dalam form ini Anda dapat menambahkan kontrol, grafik, dan gambar ke dalam form pada posisi yang anda inginkan. ISTILAH – ISTILAH DALAM PEMROGRAMAN VISUAL Active Control ActiveX Control ini merupakan program yang terpisah dari Microsoft Visual Basic. ActiveX control ini digunakan untuk menambah kontrol – kontrol standard yang disediakan Visual Basic Event Event merupakan aktivitas yang terjadi saat menggunakan aplikasi. Event terjadi karena adanya tindakan dari pemakai, seperti klik mouse, atau penggunaan keyboard. Namun event dapat juga terjadi karena adanya pengaturan oleh timer atau oleh aplikasi itu sendiri. Nama event yang dapat terjadi adalah : Click

Klik dari mouse

DblClick

Klik ganda dari mouse

Change

Perubahan nilai terjadi

GotFocus

Field Input menjadi aktif, kursor berada pada field tersebut

KeyPress

Tombol keyboard ditekan

Load

program dimulai (startup)

LostFocus

Field Input tidak lagi aktif

MouseDown

Mouse ditekan

MouseUp

Tombol pada mouse dilepas (dari posisi down)

File Eksekusi Adalah file program yang telah diterjemahkan ke dalam bahasa mesin. File eksekusi ini dijalankan dari luar aplikasi pembuatnya, dan biasanya mempunyai ekstensi.exe.


Matakuliah Pemrograman Terstruktur Fungsi Fungsi merupakan senuah prosedur yang mengembalikan sebuah nilai tunggal. Ikon Ikon adalah sebuah gambar kecil yang mengembalikan sebuah aplikasi. Kontrol Kontrol merupakan pengganti dari tool yang sudah disediakan oleh Visual Basic. Dengan menggunakan fasilitas ini maka program akan dapat menciptakan event agar dapat menerima input.

Objek Objek merupakan bagian dari perlengkapan suatu aplikasi yang mempunyai spesifikasi properti sendiri. Sebagai contoh form (lembaran yang kita gunakan untuk mendesain tampilan) adalah sebuah objek. Demikian juga dengan kontrol (salah satu tombol yang ada pada toolbox). Untuk mengakses sebuah objek menjadi perintah atau fungsi yang diasosiasikan dengannya. Sedangkan event merupakan tindakan yang terjadi saat menjalankan aplikasi untuk diberikan kepada kontrol objek. Objek tidak terbatas pada form dan kontrol saja, tetapi anda bisa mengambil dari aplikasi lain, misalnya gambar dari Microsoft Paint atau dokumen Microsoft Word. Properti Properti adalah bagian yang membangun sebuah objek. Properti ini sangat menentukan objek yang sedang dibuat. Anda dapat menyamakan sebuah objek dengan seorang manusia, sedangkan propertinya, dapat anda samakan dengan namanya, tingginya, beratnya, jenis kelamin dan sebagainya. Atau bisa juga properti itu adalah nilai/karakteristik yang dimiliki oleh sebuah objek Visual basic. Contoh : Name, Captions, Size, Color, Position,dan text. Prosedur Prosedur adalah sekumpulan kode rutin yang ditulis dalam satu blok tersendiri. Blok tersebut hanya dieksekusi jika judul atau namanya dipanggil Proyek Proyek adalah sekumpulan dari sejumlah objek dan modul yang teroganisir dan membentuk sebuah program

User Interface User interface adalah bagian aplikasi yang dapat anda lihat. User Interface ini berisi kontrol yang tersedia untuk pemakai apliaksi, seperti tombol, window, grafik, suara, dan lainnya.


Matakuliah Pemrograman Terstruktur Window Window merupakan kotak persegi panjang pada layar yang berisi aplikasi atau bagian dari aplikasi. Window ini mirip dengan selembar kertas dimeja yang dapat anda buka dan anda tutup, ditutupi dengan kertas lain, ditulisi bagian atasnya, dan yang lainnya. Konstanta -

Adalah bilangan atau String tetap yang nilainya tidak dapat diganti.

-

Konstanta didefinisikan dengan kunci kata Const.

Contoh : Const NAMAPT =”Gunamulya” Const PI = 4.13 Const MAXVALUE = 2000 Const ALPHA = -8.7E-3 VB mempunyai banyak konstanta untuk sistem, ummunya diberi awalan “vb” vbBlack

Warna Hitam

vbRed

Warna Merah

vbGreen

Warna Hijau

vbBlue

Warna Biru

vbCyan

Warna Cyanida

vbMagenta

Warna Magenta

vbYellow

Warna Kuning

vbWhite

Warna Putih

Contoh : Private Sub Form_Load MsgBox “Selamat Datang” FrmContoh.BackColor =vbRed EndSub Variable Adalah referensi ketempat penyimpanan data yang merepresentasikan tipe dan nilai data tersebut. Nilai dari sebuah variable dapat dirubah, namun tipe variable bila telah ditetapkan, maka tipe tersebut tidak dapat dirubah. TIPE DATA

NILAI

KETERANGAN

Integer

-32768 s/d 32767

Bilangan bulat

Long

-2,147,483,648 s/d

Bilangan bulat

2,147,483,647 Single

1.4E-45 s/d 3.4E38

Bilangan pecahan


Matakuliah Pemrograman Terstruktur -3.4E38 s/d –1.4E-45 Double

4.9E-324 s/d 1.7E308

Bilangan ganda

-49E-324 s/d –1.7E308 Currency

-922,337,203,685,477.5088 922,337,203,685,477.5088

Byte

0 s/d 255

Boolean

True atau False

Date

1 Januari 100 s/d 31 Desember 9999

Object

Gambar

String

Maksimum 65,500 karakter

Variant

Salah satu dari tipe diatas

pecahan

presisi

s/d Mata Uang

Deret karakter

Deklarasi Variable dilakukan dengan kunci kata DIM DIM Nama As String DIM Jumlah As Integer DIM Hutang As Currency DIM Berat, Jumlah, Total As Long DIM Grafitasi As Single DIM Rate As Double Pemberian nama atas variable dibatasi dengan:  Tidak lebih dari 256  Hanya menggunakan alfabet, angka dan garis bawah “_”  Huruf pertama harus alfabet  Tidak boleh menggunakan kunci kata Visual Basic seperti Sub, Private, End, If, Else dan lainnya  Tidak membedakan huruf besar atau huruf kecil Variable sebenarnya tidak perlu dideklarasikan karena secara implisit pada saat sebuah nama variable diberikan nilai awal, maka tipe variable tersebut akan disesuaikan dengan nilai tersebut. Untuk menghindari penggunaan variable yang tidak dideklarasikan sebelumnya, programmer dapat menggunakan instruksi “Option Explicit” Option Explicit Private Sub …. …. …. End Sub Beberapa karakter khusus dapat membantu menjelaskan tipe varibel secara implisit yaitu : %

Integer

&

Long

!

Single


Matakuliah Pemrograman Terstruktur #

Double

@

Currency

$

String

Contoh : I%, Jumlah&, NAMA$ GAJI@ = 230,000.50 ARITMETIKA +

Tambah

-

Kurang

*

Kali

/

Bagi

\

Pembagian dengan hasil bulat

mod

Modulo

^

Pangkat (expone)

contoh: Dim v,w,x,y,z as Integer V = 7^3 W = 7*3 X = 7/3 Y = 7\3 Z = 7 mod 3 MENGENAL KONTROL Kontrol adalah sebuah alat bantu yang dipakai untuk membuat sebuah objek pada form Visual Basic. Setelah kontrol ditambahkan ke form, kontrol tersebut berubah menjadi sebuah objek yaitu elemen perantara pemakai yang dapat diprogram. Gambar Kontrol

Nama Kontrol Picture Box Label Text Box

Awalan

Fungsi

Pic

Untuk menamapilkan file gambar : .bmp,

Lbl

.jpg, .gif, .wmf dan .ico Menampilkan teks tetapi pemakai tidak dapat

Txt

berinteraksi dengannya atau mengubahnya. Menampilkan teks dimana pemakai dapat mengisi atau melihat teks yang ditampilkan sebagai output suatu proses.


Matakuliah Pemrograman Terstruktur Frame

Fra

Mengidentifikasikan

Command

cmd

pengontrolan. Memberikan sebuah perintah atau tindakan

chk

ketikan digunakan. Memberikan perintah

Button Check Box

sebuah

pilihan

group

benar/salah

(True/False) atau ya/tidak (Yes/No). Pemakai dapat memilih beberapa check box secara Option Button

bersamaan. Memberikan grup pilihan.

opt

Pemakai hanya dapat memilih satu option Combo Box

pada grup pilihan. Unit kontrol kombinasi antara text box dengan

cbo

list box. Pemakai List Box Horizontal

bisa

mengetikkan

pilihan

atau

lst

memilih lewat daftar drop – down. Menampilkan daftar item yang dapat dipilih

hsb

salah satu oleh pemakai. Menampilkan balok gulung horizontal.

Scroll Bar Vertical Scrol vsb

Menampilkan balok gulung vertikal.

Bar Timer

tmr

Untuk mengeksekusi waktu kejadian pada

drv

rutin program termauk selang waktu (interval) Menampilkan daftar drive.

Directory List dir

Menampilkan daftar direktori pada drive

Box File List Box

fil

terpilih. Menampilkan daftar file pada drive dan

Shape

shp

direktori terpilih. Membuat lingkaran, elips dan kotak pad form.

Line

lin

Membuat garis lurus pada form.

Image

img

Menampilkan gambar : .bmp, .gif, .jpg, .wmf

Drive List Box

dan .ico. Perbedaan dengan picture box adalah, kontrol ini memberikan perintah seperti command button

saat

pemakai

menggunakan mouse.


mengklik

gambar


Data

dat

OLE

(Object ole

Linking

Menampilkan database pada suatu form. Memungkinkan pemkai menampilkan suatu

and

objek dari aplikasi yang mendukung OLE ke

embedding)

aplikasi Visual Basic.

Metode Setiap objek/kontrol memiliki sebuah metode “built-in” yang berupa fungsi. Fungsi disini dapat terjadi atas perubahan parameter atau property dari objek yang bersangkutan, namun bisa juga suatu metode tidak memiliki parameter. Contoh : Metode yang terjadi atas perubahan property (memiliki parameter) Text1.Move(200,300) Hasil dari penggunaan metode tersebut sama dengan : Text1.Left=200 Text1.Top=300 Metode tanpa paramater Text1.SetFocus Metode tersebut digunakan untuk melaksanakan focus/posisi kursor pada objek Text1.

String Terdiri atas deretan karakter dan digunakan umunya untuk memanipulasi teks. String dapat digabungkan dengan menggunakan karakter “&” Dim namaDepan As String Dim namaKeluarga As String Dim strLengkap namaDepan = “Ali” namaKeluarga = “Baba” strLengkap = “Bpk. “&namaDepan & “ “ & namaKeluarga Sting yang tidak mempunyai isi, seperti contoh dibawah, disebut sebgai Null String Dim strVar As String strVar = “ ”


Matakuliah Pemrograman Terstruktur Beberapa fungsi Basic populer untuk String Val(str) Konversi dari string menjadi Integer Contoh: I% = Val(“26”) Left (str,n) Mengambil n karakter dari sebelah kiri Contoh: newStr$ = Left(“mardiani”, 4); Right(str,n) Mengambil n karakter dari sebelah kanan Contoh: newStr$ = Right(“mardiani”,4) Ltrim(str) Membuang semua awal spasi yang ada disebelah kiri str Contoh: newString= Ltrim(“ mardiani “) Rtrim(str) Membuang semua spasi dari sebelah kanan sampai ke str Contoh: newString= Rtrim(“ mardiani “) Trim(str) Membuang semua spasi dari sebelah kiri dan dari sebelah kanan sampai ke str Contoh: newString= Trim(“

mardiani ”)

Identis dengan newString=Ltrim(Rtrim*str)) Mid(str, awal, n) Mengambil str dari posisi awal sebanyak n karakter Contoh: newString= Mid(“ mardiani “, 3, 3) Len(str) Memberikan nilai balik Integer sebagai panjang dari String tersebut. Contoh: n% = Len(“Jakarta”) Lcase(str) Mengubah string menjadi huruf kecil semua Ucase(str) Mengubah string menjadi huruf besar semua


Matakuliah Pemrograman Terstruktur Str(int) Mengubah bilangan menjadi String(konversi) IF THEN ELSE If Then Else mengendalikan alur program berdasarkan keputusan atas hasil suatu kondisi. Kondisi ini mempunyai nilai boolean, yaitu True atau False. If kondisi Then Instruksi If kondisi Then Instruksi …. Instruksi …. End If If kondisi Then Instruksi …. Instruksi …. Else Instruksi …. Instruksi …. End If Komparator Dibutuhkan untuk membandingkan 2 variabel, yaitu : =

Sama dengan

<>

Tidak sama dengan

<

Lebih kecil

>

Lebih besar

<=

Lebih kecil atau sama

>=

Lebih besar atau sama

Contoh: If A = B then C=B else C=A End IF ElseIf Penggunaan If adakalanya saling berkait(nested) sehingga menjadi seperti berikut ini :


Matakuliah Pemrograman Terstruktur If kondisi1 Then Instruksi …. Instruksi …. Else If kondisi2 Then Instruksi …. Instruksi …. Else If kondisi3 Then Instruksi …. Instruksi …. Else Instruksi …. Instruksi …. End If End If End If Untuk menyederhanakan blok tersebut, maka dibuat kunci kata ElseIf yang berfungsi sebagai berikut: If kondisi1 Then Instruksi …. Instruksi …. ElseIf Kondisi2 Then Instruksi …. Instruksi …. ElseIf kondisi3 Then Instruksi …. Instruksi …. Else Instruksi …. Instruksi …. EndIf Fungsi Date Visual Basic mempunyai banyak fungsi untuk mengolah tanggal. Dim tglHari1 As Date Dim tglHari2 As Date Dim jam

As Date

Dim tgl

As Date


Matakuliah Pemrograman Terstruktur TglHari1 = Date TglHari2 = Now Jam = Time tgl = “7/27/1998” tgl = “27 Feb 1998” tgl = “7 27 1998” Beberapa fungsi untuk Tanggal: IsDate (str_param) Memberikan nilai balik boolean. True jika parameter adalah sebuah Tanggal. Contoh: If Not IsDate(txtTanggal) Then MsgBox((“Tanggal Salah !”) End If DateValue(str) Konversi string menjadi Date Contoh: Dim tgl As Date tgl = DateValue(“23 Juni 1986”) Day(date), Month(date), Year(date) Memberikan nilai integer dari variable Date untuk hari, bulan dan tahun Contoh: Dim hari, bulan, tahun As Integer Dim tgl As Date tgl = Now hari = Day(tgl) bulan = Month(tgl) tahun = Year(tgl) Hour(date), Minute(date), Second(date) Memberikan nilai integer dari variable Date untuk jam, menit dan detik. Contoh: Dim jam, menit, detik As Integer Dim tgl As Date tgl = Now jam = Hour(tg)


Matakuliah Pemrograman Terstruktur minute = Minute(tgl) detik = Second(tgl) TimeValue(str) Konversi string ke variable Date Contoh: Dim waktu As Date waktu = TimeValue(“7:30:45PM”) Case Digunakan untuk memilah pilihan berdasarkan nilai dari variable. Dim n As Integer Select Case n Case 0 instruksi …. instruksi …. Case 1 instruksi …. instruksi …. End Select Public, Private Sebelum deklarasi fungsi, subroutine atau variable, dapat dijumpai kunci kata Public atau Private. Kedua kunci kata ini menunjukkan jangkauan (daerah berlaku) variable tersebut. Private berarti bahwa variable, fungsi/subroutine tersebut hanya dapat digunakan/dipanggil oleh program dalam satu modul(satu form). Sedangkan public menyatakan, bahwa variable, fungsi/subroutine tersebut boleh digunakan oleh program lainnya diluar form tersebut. NB: Default untuk jangkauan fungsi adalah Public. Sedangkan variable berlaku lokal pada prosedur/fungsi dimana variable tersebut dideklarasikan. Static Variable Variable jika didefinisikan sebagai static, maka nilai variable akan dipertahankan.


Matakuliah Pemrograman Terstruktur Function Tambah ( A As Integer) As Integer Static Jumlah As Integer Jumlah = Jumlah + A Tambah = Jumlah End Fuction Dim S As Integer Dim J As Integer S = Tambah(100) Print S S = Tambah(300) Print S Hasil: 100 400 Bila variable Jumlah tidak dideklarasikan sebagai static, maka hasilnya akan berbeda! Function Tambah (A As Integer) As Integer Static Jumlah As Integer Jumlah = Jumlah + A Tambah = Jumlah End Fuction Kata static untuk fungsi/subroutine menjelaskan bahwa variable dalam fungsi/sub tersebut adalah static. Box Input/Output MsgBox digunakan untk menampilkan pesan dengan format sebagai berikut: MsgBox(Text, Button, Titel, Helpfile, Context) Text

adalah string pesan yang ditmapilkan

Button

Menampilkan jenis tombol yang diinginkan

Titel

ditampilkan pada window

Helpfile

Bersama dengan context mengimplementasikan sistem “onLine Help”


Matakuliah Pemrograman Terstruktur Latihan 1. Buatlah tampilan form berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Label1 Text1 Label2

Pengaturan Properties Properti Pengaturan Caption Property Test Caption Tuliskan Nama Anda: BackColor Pallete:

Command1 Command2

Font Caption Caption

Size:24 OK Selesai

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub

Latihan 2. Buatlah tampilan form berikut :



Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Frame1 Option1 Option2 Check1 Check2

Pengaturan Properties Properti Pengaturan Caption Pilihan: Caption Biru Caption Merah Caption Tebal Caption Miring

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check1.Value End Sub Latihan 3. Buatlah tampilan form berikut :



Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Text Box1

Pengaturan Properties Properti Pengaturan Caption Text Box Name Text1

Command1

Text Name

cmdsisip

Command2

Caption Name

Sisipkan Tanggal cmdhapus

Caption

Hapus Teks

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdsisip_Click() Dim tgl tgl = Format(Date, "dddd,d mmm yyyy") Text1.Text = "sekarang hari dan tanggal: " + tgl End Sub Latihan 4. Buatlah tampilan form berikut :



Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Label1

Pengaturan Properties Properti Pengaturan Caption Kalender Name lblhari Text

Sabtu

Alignment

2 – Center

Font Name

Times New Roman, Bold, 24 lbljam

Text

00:00:00

Alignment

2 – Center

Font Name

Times New Roman, Bold, 24 lblbulan

Caption

Januari

Font Name

Times New Roman, Bold, 24 lblangka

Caption

1

Font Name

Arial, Bold, 72 lbltahun

Caption

2007

Timer

Font Name

Times New Roman, Bold, 24 timtampilan

Command1

Interval Name

1000 cmdkeluar

Caption

&Keluar

Label2

Label3

Label4

Label5

Setelah itu ketikkan code program berikut pada jendela code. Private Sub TimTampilan_Timer() Dim Hari_ini As Variant Hari_ini = Now lblHari.Caption = Format(Hari_ini, "dddd") lblBulan.Caption = Format(Hari_ini, "mmmm") lblTahun.Caption = Format(Hari_ini, "yyyy") lblangka.Caption = Format(Hari_ini, "d") lblJam.Caption = Format(Hari_ini, "hh:mm:ss") End Sub Private Sub cmdKeluar_Click() Unload Me End Sub




Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form

Pengaturan Properties Properti Pengaturan Name FrmMetode

Command1

Caption Name

Mengenal Metode CmdFocus1

Command2

Caption Name

Ke Text1 CmdFocus2

Command3

Caption Name

Ke Text2 CmdTukar

Caption

Tukar Posisi

Setelah itu tampilan form akan tampak seperti berikut :

Setelah itu ketikkan code program berikut pada jendela code.


Matakuliah Pemrograman Terstruktur Private Sub cmdFocus1_Click() Text1.SetFocus End Sub Private Sub cmdFocus2_Click() Text2.SetFocus End Sub Private Sub cmdTukar_Click() Dim SimpanLeft As Integer Dim SimpanTop As Integer SimpanLeft = Text1.Left SimpanTop = Text1.Top Text1.Left = Text2.Left Text1.Top = Text2.Top Text2.Left = SimpanLeft Text2.Top = SimpanTop End Sub Latihan 6. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name FrmMetod

List1 Combobox Command1

Caption Text Name

Method Test cmdadd

Caption

Add


Matakuliah Pemrograman Terstruktur Command2

Name

cmddelete

Command3

Caption Name

Delete cmdclear

Caption

Clear

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Combo1.AddItem "Eri" Combo1.AddItem "Nurman" Combo1.AddItem "Umar" Combo1.AddItem "Shafira" End Sub Private Sub cmdadd_Click() List1.AddItem Combo1.Text End Sub Private Sub cmddelete_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub cmdclear_Click() List1.Clear End Sub Latihan 7. Buat form dengan tampilan sebagai berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut :



Objek Form1

Text1

Pengaturan Properties Properti Pengaturan Name frmDftPeg Caption

Daftar Pegawai

ControlBox Name

False txtSales

Text

Text2

Multiline

True

ScrollBars

2 – Vertical

TabStop

False

Locked Name

True txtMrkt

Text Multiline

True

ScrollBars

2 – Vertical

TabStop

False

Command1

Locked Name

True cmdTmbSI

Command2

Caption Name

Tambah &Sales cmdTmbMr

Command3

Caption Name

Tambah &Marketing cmdKeluar

Text2

Caption Name

&Keluar txtHarga

Text Pada menu Project, Klik perintah AddModule, lalu klik open untuk membuat baru. Pada jendela code dari objek Module, ketikkan listing berikut : Sub TambahNama(Angg$, ReturnString$) Pesan$ = "Masukan Nama Anggota dari Divisi " & Angg$ Nm$ = InputBox(Pesan$, "input Anggota") GantiBaris$ = Chr(13) + Chr(10) ReturnString$ = Nm$ & GantiBaris$ End Sub Latihan 8. Buatlah tampilan form berikut :




Pengaturan Properties Properti Pengaturan Name frmoperator

Label1 Label2 Text1 Text2 Frame1 Option1 Option2 Option3 Option4 Label3

Caption Caption Caption Text Text Caption Caption Caption Caption Caption Name

Operator Test Var1 Var2 Matematika + * / lblhasil

Caption

-

Alignment

2 - Center

Setelah itu ketikkan code program berikut pada jendela code. Dim var1 as Single, var2 as Single Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 + var2 lblhasil.Caption = hasil End Sub Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 - var2 lblhasil.Caption = hasil End Sub


Matakuliah Pemrograman Terstruktur Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 * var2 lblhasil.Caption = hasil End Sub Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 / var2 lblhasil.Caption = hasil End Sub Latihan 9. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmtest

Label1 Label2 Text1 Text2 Frame1 Option1 Option2 Option3 Option4

Caption Caption Caption Text Text Caption Caption Caption Caption Caption

Operator Test1 Var1 Var2 Operator Perbandingan > < = <>


Matakuliah Pemrograman Terstruktur Option5 Option6 Label3

Caption Caption Name

>= <= lblhasil

Caption

-

Alignment

2 - Center

Setelah itu ketikkan code program berikut pada jendela code. Dim var1 As Single, var2 As Single Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 > var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 < var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 = var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <> var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option5_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 >= var2) lblhasil.Caption = Format(hasil, "True/False") End Sub



Private Sub Option6_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <= var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Latihan 10. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmoperasi

Label1 Label2 Text1 Text2 Command1

Caption Caption Caption Text Text Name

Operasi Matematik Var1 Var2 cmdtambah +

Command2

Caption Caption

Command3

Caption

cmdkali

Command4

Caption

* cmdbagi

Caption

/ cmdkeluar

Name

Keluar lblhasil

Command5 Label3

cmdkurang


Matakuliah Pemrograman Terstruktur Caption

-

Alignment

2 - Center

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdtambah_Click() lblhasil.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub cmdkurang_Click() lblhasil.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub cmdkali_Click() lblhasil.Caption = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub cmdbagi_Click() lblhasil.Caption = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub



Matakuliah Pemrograman Terstruktur Setelah itu rubahlah property dari masing – masing objek seperti berikut :

Objek Form

Pengaturan Properties Properti Pengaturan Name frmdebug

Label1 Label2 Label3 Text1 Text2 Command1

Caption Caption Caption Caption Text Text Name

Test Debug Ujian Ms Visual Basic Nilai : Hasil : cmdproses

Command2

Caption Name

Proses cmdkeluar

Caption

Keluar

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdproses_Click() If Text1 > 60 Then Text2.Text = "Lulus" Else Text2.Text = "Tidak Lulus" End If End Sub Private Sub cmdkeluar_Click() End End Sub





Pengaturan Properties Properti Pengaturan Name frmif

Image1 Label1 Text1 Command1

Caption Caption Name

Struktur If Then Password cmdok

Caption

OK

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdok_Click() If Text1.Text = "nusantara" Then Image1.Visible = True Text1.Enabled = False cmdok.Enabled = False Else MsgBox "Passwordnya Salah!" Text1.Text = "" Text1.SetFocus End If End Sub Latihan 13. Buatlah tampilan form berikut:




Pengaturan Properties Properti Pengaturan Name frminput

Command1

Caption Name

Input Box cmdinput

Command2

Caption Name

Input cmdkeluar

Caption

OK

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdinput_Click() Dim pesan, usia pesan = "masukan usia anda!" usia = InputBox(pesan, "Masukan") If usia < 17 Then MsgBox ("Usiamu baru " + Str(usia) + "tahun." & _ "Cuci Kaki Lalu Bobo!"), , "Pesan" Else MsgBox ("Usia Anda " + Str(usia) + " tahun." & _ "Anda boleh nonton!"), , "Pesan" End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub





Pengaturan Properties Properti Pengaturan Name frmoperasi

Label1 Label2 Text1 Text2 Option1 Option2 Option3 Option4 Command1

Caption Caption Caption Text Caption Caption Caption Caption Name

Operasi Matematik II Bilangan 1 Bilangan 2 Penjumlahan Pengurangan Perkalian Pembagian cmdhitung

Label3

Caption Name

Hitung txthasil

Text1

Caption Text

Hasil -

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Option1.Value = True End Sub Private Sub cmdhitung_Click() If Option1.Value = True Then txthasil.Text = Val(Text1.Text) + Val(Text2.Text) Else If Option2.Value = True Then


Matakuliah Pemrograman Terstruktur txthasil.Text = Val(Text1.Text) - Val(Text2.Text) Else If Option3.Value = True Then txthasil.Text = Val(Text1.Text) * Val(Text2.Text) Else If Option4.Value = True Then txthasil.Text = Val(Text1.Text) / Val(Text2.Text) End If End If End If End If End Sub Latihan 15. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmanimasi

Timer Image1

Caption Interval Height

Animasi 500 855

Width

855

Picture

c:\program files\ microsoft Visual studio\common\ graphics\icons\misc\face02.ico

Strech

True

Setelah itu ketikkan code program berikut pada jendela code.


Matakuliah Pemrograman Terstruktur Private Sub Form_Load() Image1.Left = 0 Image1.Top = 3820 End Sub Private Sub Timer1_Timer() Static blnwajah As Boolean If (Image1.Left < 4800) And _ (Image1.Top > 500) Then Image1.Left = Image1.Left + 100 Image1.Top = Image1.Top - 100 Else Image1.Left = 0 Image1.Top = 0 End If If blnwajah = True Then Image1.Picture = LoadPicture("c:\program files\" & _ "microsoft Visual studio\common\" & _ "graphics\icons\misc\face03.ico") blnwajah = False Else Image1.Picture = LoadPicture("c:\program files\" & _ "microsoft Visual studio\common\" & _ "graphics\icons\misc\face02.ico") blnwajah = True End If End Sub




Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1

Pengaturan Properties Properti Pengaturan Name frmPmsBrg

Label1

Caption Caption

form Pemesanan Barang Beri Tanda centang pada kotak disebelah barang yang ingin anda

Pesan Check1 Caption Komputer Check2 Caption Televisi Check3 Caption Radio Check4 Caption VCD Player Text1 Text Text2 Text Setelah itu ketikkan code program berikut pada jendela code. Dim harga As Double Dim jumlah As Integer Private Sub check1_Click() If chkKomp.Value = 0 Then jumlah = jumlah - 1 harga = harga - 3500000 Else jumlah = jumlah + 1 harga = harga + 3500000 End If text1.Text = jumlah text2.Text = harga End Sub



Private Sub check2_Click() If check2.Value = 0 Then jumlah = jumlah - 1 harga = harga - 2600000 Else jumlah = jumlah + 1 harga = harga + 2600000 End If text1.Text = jumlah text2.Text = harga End Sub Private Sub check3_Click() If check3.Value = 0 Then jumlah = jumlah - 1 harga = harga - 1000000 Else jumlah = jumlah + 1 harga = harga + 1000000 End If text1.Text = jumlah text2.Text = harga End Sub Private Sub check4_Click() If check4.Value = 0 Then jumlah = jumlah - 1 harga = harga - 800000 Else jumlah = jumlah + 1 harga = harga + 800000 End If text1.Text = jumlah text2.Text = harga End Sub


Matakuliah Pemrograman Terstruktur Private Sub Form_Load() harga = 0 jumlah = 0 text1.Text = 0 text2.Text = 0 End Sub Latihan 17. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmkonfirm

Command1

Caption Name

Konfirmasi Dengan Message Box cmdtampil

Label1

Caption Name

Tampilkan Message Box lblkode

Alignment

2 – Center

BorderStyle

1 – Fixed Single

Caption Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdtampil_Click() x = MsgBox("Silahkan Anda Pilih/Tekan" & Chr(13) & "Salah Satu tombol berikut", vbYesNoCancel + vbInformation, "Pesan") lblkode.Caption = x Select Case x Case 6


Matakuliah Pemrograman Terstruktur lblket = "Anda Telah Menekan Tombol Yes" Case 7 lblket = "Anda Telah Menekan Tombol No" Case 2 lblket = "Anda Telah Menekan Tombol Cancel" End Select End Sub

Latihan 18. Buatlah tampilan form berikut


Pengaturan Properties Properti Pengaturan Name frmAnimasi

Label1

Caption Name

Animasi Warna Latar lblUrut

Alignment

2 – Center

Font

Font : MS Sans Serif Font Style : Bold Size : 24

Timer1

Caption Name

timer1

Command1

Interval Name

1000 cmdStart

Command2

Caption Name

&Start cmdStop

Caption

&Stop


Matakuliah Pemrograman Terstruktur Setelah itu ketikkan code program berikut pada jendela code. Dim i As Integer Private Sub Form_Load() i=0 lblurut.Caption = 0 frmanimasi.BackColor = "&H00FFFFFF" lblurut.BackColor = "&H00FFFFFF" cmdStart.Enabled = False End Sub Private Sub Timer1_Timer() If i = 9 Then i = -1 End If i=i+1 lblurut.Caption = i Select Case i Case 0 frmanimasi.BackColor = "&H00FFFFFF" lblurut.BackColor = "&H00FFFFFF" Case 1 frmanimasi.BackColor = "&H00C0C0FF" lblurut.BackColor = "&H00C0C0FF" Case 2 frmanimasi.BackColor = "&H00C0E0FF" lblurut.BackColor = "&H00C0E0FF" Case 3 frmanimasi.BackColor = "&H00C0FFFF" lblurut.BackColor = "&H00C0FFFF" Case 4 frmanimasi.BackColor = "&H00C0FFC0" lblurut.BackColor = "&H00C0FFC0" Case 5 frmanimasi.BackColor = "&H00FFFF80" lblurut.BackColor = "&H00FFFF80" Case 6 frmanimasi.BackColor = "&H00FFC0C0" lblurut.BackColor = "&H00FFC0C0"


Matakuliah Pemrograman Terstruktur Case 7 frmanimasi.BackColor = "&H00FFC0FF" lblurut.BackColor = "&H00FFC0FF" Case 8 frmanimasi.BackColor = "&H00E0E0E0" lblurut.BackColor = "&H00E0E0E0" Case 9 frmanimasi.BackColor = "&H000080FF" lblurut.BackColor = "&H000080FF" End Select End Sub Private Sub cmdStart_Click() Timer1.Enabled = True cmdStop.Enabled = True cmdStart.Enabled = False End Sub Private Sub cmdStop_Click() Timer1.Enabled = False cmdStart.Enabled = True cmdStop.Enabled = False End Sub Latihan 19. Buatlah tampilan form berikut:


Matakuliah Pemrograman Terstruktur Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form

Pengaturan Properties Properti Pengaturan Name frmstruktur Caption Caption

Struktur Select Case Pilih Barang:

Caption Name

Jumlah : cmdok

Label3

Caption Name

OK lblbarang

Label4

BackColor Name

Putih lblharga

Label5

BackColor Name

Putih lbljumlah

Label6

BackColor Name

Putih lbldiskon

Label7

BackColor Name

Putih lbltotal

Label1 List1 Label2 Text1 Command1

BackColor Putih Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() List1.AddItem "Disket" List1.AddItem "Buku" List1.AddItem "Kertas" List1.AddItem "Pulpen" End Sub Private Sub cmdok_Click() Dim harga As Currency, total As Currency Dim jumlah As Integer Dim diskon As Single Dim satuan As String If List1.Text = "" Then MsgBox "Anda Belum Memilih Barang!!" List1.ListIndex = 0 Exit Sub End If


Matakuliah Pemrograman Terstruktur If Text1.Text = "" Then MsgBox "Anda Belum Mengisi Jumlah Barang" Text1.SetFocus Exit Sub End If Select Case List1.Text Case "Disket" harga = 35000 satuan = "Box" Case "Buku" harga = 20000 satuan = "Lusin" Case "Kertas" harga = 25000 satuan = "Rim" Case "Pulpen" harga = 10000 satuan = "Pak" End Select lblbarang.Caption = "Barang :" & List1.Text lblharga.Caption = "Harga :" & Format(harga, "Currency") & "/" & satuan lbljumlah.Caption = "Jumlah :" & Text1.Text & "" & satuan jumlah = Text1.Text Select Case jumlah Case Is < 10 diskon = 0 Case 10 To 20 diskon = 0.15 Case Else diskon = 0.2 End Select total = jumlah * (harga * (1 - diskon))


Matakuliah Pemrograman Terstruktur lbldiskon.Caption = "diskon :" & Format(diskon, "0%") lbltotal.Caption = "Total Bayar :" & Format(total, "Currency") End Sub Latihan 20. Buatlah tampilan form berikut:


Pengaturan Properties Properti Pengaturan Name frmmy

Label1 Label2 Label3 List1 Command1

Caption Caption Caption Caption Name

MyItalian Italian Vaocabulary Double Click Word For Definition This Week’s Verb cmdquit

Caption Quit Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() List1.AddItem "aprire" List1.AddItem "ascoltare" List1.AddItem "bere" List1.AddItem "cucinare" List1.AddItem "dormire" List1.AddItem "pagare" List1.AddItem "scrivere" End Sub


Matakuliah Pemrograman Terstruktur Private Sub List1_Click() Select Case List1.ListIndex Case 0 def = "to open" Case 1 def = "to listen" Case 2 def = "to drink" Case 3 def = "to cook" Case 4 def = "to sleep" Case 5 def = "to pay,pay for" Case 6 def = "to write" End Select Load frmMyItalian frmdefinition.Label1.Font = True frmdefinition.Label1.FontSize = 11 frmdefinition.Label1 = List1.Text frmdefinition.Text1 = def frmdefinition.Show End Sub Private Sub cmdQuit_Click() End End Sub


Matakuliah Pemrograman Terstruktur Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form

Pengaturan Properties Properti Pengaturan Name frmdefinition

Image1

Caption Strech

Definition True

Picture

c:\program

files\microsoft

Visual

studio\common\graphics\icons \flags\flgitaly.ico Text1 Command1

Name

cmdclose

Caption

Close

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdClose_Click() frmdefinition.Hide End Sub

Latihan 21. Buatlah tampilan form berikut:


Pengaturan Properties Properti Pengaturan Name frmbentuk

Label1

Caption Name

Format Bentuk Tulisan lblcetak

Alignment

2 – Center

Autosize

True

Caption Name Name

MARI BELAJAR VISUAL BASIC cbojenis cboukur

Combo1 Combo2



Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() lblcetak.FontBold = True cbojenis.AddItem "Book Antiqua" cbojenis.AddItem "Comic Sans MS" cbojenis.AddItem "Times New Roman" cboukur.AddItem "8" cboukur.AddItem "10" cboukur.AddItem "12" cbojenis.Text = "Book antiqua" cboukur.Text = "8" End Sub Private Sub cbojenis_Click() Select Case cbojenis.ListIndex Case 0 lblcetak.FontName = "Book Antiqua" Case 1 lblcetak.FontName = "Comic Sans MS" Case 2 lblcetak.FontName = "Times New Roman" End Select End Sub Private Sub cboukur_Click() Select Case cboukur.ListIndex Case 0 lblcetak.FontSize = 8 Case 1 lblcetak.FontSize = 10 Case 2 lblcetak.FontSize = 12 End Select End Sub





Image1

Pengaturan Properties Properti Pengaturan Name frmanimasi Caption

Animasi I

Height

5985

Width Picture

3105 c:\program

files\microsoft

Visual

studio\common\graphics\icons\ind Command1

Name

ustry\rocket.ico cmdgo

Caption

GO

Setelah itu ketikkan code program berikut pada jendela code Private Sub cmdgo_Click() For A = 4800 To 0 Step -10 Image1.Move Image1.Left, A Next A For A = 0 To 4800 Step 10 Image1.Move Image1.Left, A Next A End Sub Latihan 23. Buatlah tampilan form berikut :



Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form Timer1 Picturebox1 Image1

Pengaturan Properties Properti Pengaturan Caption About Interval 1 Backcolor Hitam Picture [Nama file BMP anda] Top

0

Left

0

Strech

False

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Image1_Click() Unload Me End Sub Private Sub Timer1_Timer() If Image1.Top > (Picture1.ScaleHeight - Image1.Height) Then Image1.Top = Image1.Top - 20 Else For i = 1 To 4500000 Next i Image1.Top = Picture1.ScaleHeight End If End Sub Latihan 24. Buatlah tampilan form berikut :




Pengaturan Properties Properti Pengaturan Name frmstruktur

List1 Command1

Caption Name

Struktur Looping cmdnext1

Command2

Caption Name

For Next1 cmdnext2

Command3

Caption Name

For Next2 cmduntil

Command4

Caption Name

Do Until cmdwhile

Caption

Do While

Setelah itu ketikkan code program berikut pada jendela code. Dim i As Integer Private Sub cmdnext1_Click() List1.Clear For i = 1 To 100 List1.AddItem "Angka" & i Next i End Sub Private Sub cmdnext2_Click() List1.Clear For i = 100 To 1 Step -2 List1.AddItem "Angka" & i Next i End Sub


Matakuliah Pemrograman Terstruktur Private Sub cmduntil_Click() List1.Clear i = Asc("A") Do Until i > Asc("Z") List1.AddItem "Huruf" & Chr(i) i=i+1 Loop End Sub Private Sub cmdwhile_Click() List1.Clear i = Asc("Z") Do While i >= Asc("A") List1.AddItem "Hu ruf" & Chr(i) i=i-1 Loop End Sub



Pengaturan Properties Properti Pengaturan Name frmpangkat

Label1

Caption Name

Pangkat lblbilangan

Label2

Caption Name

Bilangan lblpangkat



Label3

Caption Name

Pangkat lblhasil

Text1 Text2 Text3 Command1

Caption Name Name Name Name

Hasil Perhitungan txtbilangan txtpangkat txthasil cmdhitung

Caption Hitung Setelah itu ketikkan code program berikut pada jendela code. Dim Bilangan, Pangkat As Integer Function Hasilpangkat(Bilangan, Pangkat) Dim i As Integer Dim b As Double b=1 For i = 1 To Abs(Pangkat) b = b * Bilangan Next Hasilpangkat = b End Function Private Sub cmdhitung_Click() Bilangan = txtbilangan.Text Pangkat = txtpangkat.Text If Pangkat = 0 Then txthasil.Text = 1 ElseIf Pangkat > 0 Then txthasil.Text = Hasilpangkat(Bilangan, Pangkat) Else: txthasil.Text = 1 / Hasilpangkat(Bilangan, Pangkat) End If End Sub





Pengaturan Properties Properti Pengaturan Name frmmenghitung

Text1

Caption Name

Menghitung Kata txtcontoh

Text

Contoh teks Yang akan dihitung

Name

Jumlah Kata cmdhitung

Caption

Hitung Kata

Command1

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdhitung_Click() Dim Posisi As Long Dim Kata As Long Dim Teks As String Posisi = 1 Teks = txtcontoh.Text Teks = Replace(Teks, Chr(13) & Chr(10), " ") Teks = Replace(Teks, Chr(9), " ") Teks = Trim(Teks) If Len(Teks) > 0 Then Kata = 1 Do While Posisi > 0 Posisi = InStr(Posisi, Teks, " ") If Posisi > 0 Then Kata = Kata + 1


Matakuliah Pemrograman Terstruktur While Mid(Teks, Posisi, 1) = " " Posisi = Posisi + 1 Wend End If Loop MsgBox "Textbox berisi " & Kata & " Kata" End Sub



Pengaturan Properties Properti Pengaturan Name frmlatihan

Command1

Caption Name

Latihan Matematika cmduji

Command2

Text Name

Uji Kemampuan Matematikamu ! cmdkeluar

Caption

Keluar

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Randomize End Sub Private Sub cmduji_Click() Dim DtSebelum As Long Dim DtSesudah As Long Dim DtSelisih As Long Dim Jawab As Long


Matakuliah Pemrograman Terstruktur Dim Angka1 As Long Dim Angka2 As Long Dim Jumlah As Long Angka1 = Int(Rnd * 1000) + 1 Angka2 = Int(Rnd * 1000) + 1 Jumlah = Angka1 + Angka2 DtSebelum = Timer Do Jawab = InputBox("Berapa hasilnya " + Str(Angka1) + " + " + Str(Angka2) + "?", "Cepat") Loop Until Jawab = Jumlah DtSesudah = Timer DtSelisih = DtSesudah - DtSebelum MsgBox ("Anda Membutuhkan Waktu" & Str(DtSelisih) & " detik!") End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Latihan 28. Membuat Database 1.

Pastikan SQL Server Service Manager anda telah aktif. Apabila belum aktifkan dengan cara, klik tombol Start pada windows taskbar

2.

Kemudian klik Programs Microsoft SQL Server  Service Manager

3.

Didalam jendela SQL Server Manager. Pastikan bagian Server isi sesuai dengan nama komputer anda. Kemudian klik tombol Start/Continue

4.

Selanjutnya aktifkan jendela Enterprise Manager dengan cara klik tombol Start pada windows taskbar

5.

Klik Programs  Microsoft SQL Server  Enterprise Manager


Matakuliah Pemrograman Terstruktur 6.

Didalam jendela SQL Server Enterprise Manager, Klik ganda pada masing-masing item yang terdapat pada folser Console Root sehingga muncul folder Databases.

7.

Kemudian klik kanan pada area folder Databases dan pilih New Database, perhatikan gambar dibawah ini.

8.

Selanjutnya buatlah database dengan Naba Education dan Klik OK

9.

Setelah anda melakukan langkah kedelapan, maka akan tercipta sebuah database baru dengan nama Naba Education didalam folder Databases.

Membuat Tabel 1.

Klik Tools  Sql Query Analyzer

2.

Pastikan anda memilih database Naba Education

3.

Buat Tabel Buku pada area query create table tb_buku( kode varchar(3) not null primary key, judul varchar(50) not null, pengarang varchar(20) not null, penerbit varchar(2) not null,


Matakuliah Pemrograman Terstruktur qty int not null default(0)) 4.

Klik Execute Query(F5)

5.

Perintah query yang anda buat dapat disimpan dengan cara, klik menu File  Save

6.

Didalam kotak dialog Save Query, isi file name dengan tabel perpust

7.

Tutuplah jendela SQL Query Analyzer dan jendela SQL Server Enterprise Manager.

Membuat Koneksi Ke Database Untuk membuat koneksi ke dalam database, penulis akan membuat driver ODBC dengan jenis koneksi System DSN. Koneksi dengan jenis System DSN berarti semua user yang menggunakan komputer dapat mengakses driver ODBC tersebut. Langkah-langkahnya sebagai berikut: 1.

Bukalah jendela Control Panel anda dengan cara, klik tombol Start  Setting  Control Panel

2.

Klik ganda ikon Data Sources(ODBC)

3.

Didalam kotak dialog ODBC Data Source Administrator, aktifkan tab System DSN, kemudian klik tombol Add untuk membuat koneksi baru

4.

Pada kotak dialog Create New Data Source, seleksilah driver SQL Server, kemudian klik Finish.


Matakuliah Pemrograman Terstruktur 5.

Kemudian tampil kotak dialog Create a New Data Source to SQL Server. Isilah kotak input Name dengan nama Naba Education dan isi kotak combo Server sesuai dengan nama server anda. Klik Next

6.

Klik option With Windows NT authentication using the network login ID. Kemudian Klik tombol Next

7.

Klik tanda centang pada pilihan Changethe default database to, kemudian pilihlah database Naba Education. Klik Next

8.

Kemudian pada langkah terakhir klik tombol Finish, maka tampil kotak dialog ODBC Microsoft SQL Server Setup. Klik Test Data Source



9.

Apabila muncul TEST COMPLETED SUCCESSFULLY!, maka koneksi yang anda buat berhasil. Klik OK, kemudian klik OK kembali pada tampilan gambar diatas.

10.

Tutuplah kotak dialog ODBC Data Source Administrator


Eri Mardiani,M.Kom 1

Recommend Documents