Read more...

Modul XI

Bukan Array :

Dim t1,t2,t3,t4,t5 as single
t1=171,5
t2=177,8
t3=165,5
t4=150,9
t5=164,3

Variabel array :
Dim Nilai (5) As Byte
Nilai(1) = 90
Nilai(2) = 70
Nilai(3) = 85
Nilai(4) = 95
Nilai(5) = 75

Penghitungan dimensi Pada Array :
Cth :
1. Rancang antar muka seperti berikut :

2. Ketikkan kode brikut,carannya klik double CMD Proses

Private Sub Command1_Click()
Dim I As Byte
For I = 1 To 20
List1.AddItem (I * 5)
Next I
End Sub

Hasilnnya seperti brikut.

Read more...

Modul X

Pengenalan Array

Array atau larik atau jajaran variabel atau bisa juga variabel berindex.
Array adalah variabel tunggal tapi dapat di isi nilai banyak.Tapi nilai dibedakan oleh variabel.
contoh :
Dim Nilai (5) As Byte
Nilai(1) = 90
Nilai(2) = 70
Nilai(3) = 85
Nilai(4) = 95
Nilai(5) = 75

Beda variabel biasa dengan Variabel array
Mis:Diinginkan menyimpan tinggi 5 orang Mahasiswa

variabel biasa :
Dim t1,t2,t3,t4,t5 as single
t1=171,5
t2=177,8
t3=165,5
t4=150,9
t5=164,3

'cai jumlah
Jumlah = t1+t2+t3+t4+t5
'cari rata
Rata = Jumlah /5


Variabel array :
Dim Nilai (5) As Byte
Nilai(1) = 90
Nilai(2) = 70
Nilai(3) = 85
Nilai(4) = 95
Nilai(5) = 75

'cari jumlah
Jumlah=0
Jumlah = Jumlah + Nilai(5)
Next I
'Cari rata
Rata = Jumlah/5

Read more...

Modul IX

1. Buat rancangan antar muka seperti berikut.

2. Duble klik CMD Proses
3. Ketikkan Program berikut :

Private Sub Command1_Click()
Dim nama As String
Dim TB, BB, BI, B As Single
nama = Text1.Text
TB = Val(Text2.Text)
BB = Val(Text3.Text)
BI = (TB - 110) * 1.1
If (BB > (1.1 * BI)) Then
Text4.Text = "Hallo " + nama + " Anda GEMUK juga yah..."
Else
If (BB < (0.9 * BI)) Then Text4.Text = "Hallo " + nama + " Anda KURUS Banget..."
Else
Text4.Text = "Hallo " + nama + " Anda IDEAL juga ternyata..."
End If
End If
End Sub

Private Sub Command2_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

End Sub
Private Sub Command3_Click()
MsgBox "apa ANDA yakin ingin keluar.?", vbOKCancel + vbQuestion, "KONFIRMASI"

End
End Sub

Private Sub Form_Load()
End Sub
4. Hasilnya Seperti Berikut

Read more...

Modul VIII

Modul VIII ini adalah lanjutan dari modul VII yang membahas tentang FOR-NEXT dan WHILE-WEND.

Latihan I:
1.Rancang antar muka seperti berikut.

2.Dobel Klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte
I = 0
While (I <= 100) Print I I = I + 5 Wend End Sub
3.Klik RUN
4.Hasilnya seperti berikut.
Latihan II:
1.Rancang antar muka seperti berikut.

2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte
I = 1
a = 1
While (I <= 10)
Print "1*"; I; "="; I + 1, "2*"; I; "="; I * 2, "3*"; I; "="; I * 3, "4*"; I; "="; I * 4, "5*"; I; "="; I * 5 I = I + 1
Wend End Sub

3.Klik RUN
4.Hasilnya seperti berikut.


Latihan III :
1.Rancang antar muka seperti berikut.
2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte I = 20
While (I >= 1)
Print I
I = I - 1
Wend
End Sub

3.Klik RUN
4.Hasilnya seperti berikut.

Latihan IV :
1.Rancang antar muka seperti berikut.


2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I, J As Byte
I = 1
J = 1
For I = 1 To 9 Step 1

For J = 1 To I Step 1

Print I;
Next J

Print
Next I

End Sub

3.Klik RUN
4.Hasilnya seperti berikut.

Read more...

Modul VII

Tujuannya:
-Memahami Pernyataan Berulang

Terdapat 3 jenis pernyataan dari sisi pengerjaannya,yaitu :
-Pernyataan berurut (sequential satement)
-pernyataan bercabang (conditional statement)
-Pernyataan berulang lopping statement)

1.Pernyataan Berulang
Pernyataan Berulang yaitu pernyataan yang digunakan untuk menyimpan pengerjaan pada suatu pernyataan.
Pernyataan berulang di visual basic terbagi atas 3 jenis,yaitu :
- For-Next
- While-wend
- Do-while

1.For-Next
Pernyataan berulang For – Next digunakan bila diinginkan pengulangan pengerjaan pernyataan secara pasti.
Ditetapkan suatu variabel pencacah perulangan.
Selama pencacah perulangan masih dalam range Ekspresi1 dan Ekspresi2 maka pernyataan diantara For dan Next akan dikerjakan.

Syntak For-Next:

For Var=Expresi1 To Expresi2 [Step Expresi2]

Next Var

Contoh For-Next:
1.Rancang antar muka seperti berikut:

2.Dobel klik form Ketikkan kode berikut.

Private Sub Form_Load()
Dim I As Byte
Randomize (50)
For I = 1 To 10 Step 1
lstangka.AddItem (Rnd(10) * (10))
Next I

End Sub

3.Lalu tekan Ran
4.Hasilnya seperti berikut.


program ini berfungsi untuk merandom angka 10 yang dikali dengan 10 lompat-lompat 1.

Contoh Kedua dari For-next :
1.Rancang antar muka seperti berikut:

2.Dobel klik di CMDOK Ketikkan kode berikut.

Private Sub CMDOK_Click()
Dim I, N As Byte
N = Val(TXTN.Text)
LSTBIL.Clear
For I = 1 To N Step 1
LSTBIL.AddItem (Str(I))
Next I
End Sub

3.Dobel klik di Option ganjil Ketikkan kode berikut.

Private Sub OPTGANJIL_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1
If (LSTBIL.List(I) Mod 2 <> 0) Then
LSTHASIL.AddItem (LSTBIL.List(I))
End If
Next I
End Sub

4.Dobel klik di Option Genap Ketikkan kode berikut.

Private Sub OPTGENAP_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1
If (LSTBIL.List(I) Mod 2 = 0) Then
LSTHASIL.AddItem (LSTBIL.List(I))
End If
Next I
End Sub


5.Dobel klik di Option Semua Ketikkan kode berikut.

Private Sub OPTSEMUA_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1

LSTHASIL.AddItem (LSTBIL.List(I))

Next I
End Sub

6.Lalu tekan Ran
7.Klik tombol OK,perhatikan hasilnya

8.Klik tombol ganjil.


9.Klik tombol genap.

10.Klik tombol semua.

11.Hasilnya seperti berikut.

Program ini berfungsi untuk menampilka angka 1 sampai 10 di Text Box,mengetahui angka ganjil,genap dan angka semua yang dimulai dari angka 1 sampai 10.

2.While-Wend
Berulang sampai suatu kondisi tidak terpenuhi
Format penulisan:

While kondisi
[baris perintah]
Wend

3.Do-While
Pernyataan ini untuk mengulang suatu blok pernyataan untuk jumlah pengulangan tidak
pasti selama kondisi terpenuhi.
Format Penulisan :

Do [while | until] kondisi
Statement
End Do
Statement
Loop

Read more...

Modul III

Tujuan :
1.Memahami Pernyataan
2.Memahami Operator
3.Mampu menyelesaikan masalah dengan bantuan pernyataan dan operator

1.PERNYATAAN
Pernyataan adalah intruksi yang ditulis dan dipahami oleh VB, tersusun atas rangkaian karakter-karakter yang membentuk simbol dan memiliki makna khusus dan disusun secara sistematis untuk menyelesaikan suatu masalah.
Pernyataan di kelompokan menjadi 2 :
-. Pernyataan majemuk
Pernyataan majemuk adalah pernyataan dimana dalam penyusunannya terdiri dari lebih dari satu baris.
Contoh :
A = 5
If A>5 then
B=A
End if

-. Pernyataan tunggal
Pernyataan tunggal adalah pernyataan dimana dalam penyusunannya terdiri satu baris.


2.OPERATOR
Operator merupakan simbol yang biasa dilibatkan dalam program buat melakukan suatu operasi atau manipulasi,misalnya buat menjumlahkan 2 buah bilangan,memberikan nilai pada variable atau membandingkan 2 buah bilangan.
Operator mempunyai 3 buah sifat yaitu :

I.Unary, Operator yang melibatkan sebuah operand (Misal -5)
II.Binary, Operator yang melibatkan 2 buah operand (Misal a +b)
III.Ternary, Operator yang melibatkan 3 buah atau lebih operand (Misal 2 – 5 * 2)

1.Operator Pengerjaan
Operator Penugasan disimbolkan dengan tanda sama dengan (=) yang berfungsi untuk memasukkan data ke suatu variabel.
A = 5 ,
tanda = disebut sebagai operator pengerjaan

2.Operator Aritmatika
Operator aritmatika adalah Operator pembanding dan Operator logik.

1.*, Perkalian
2./, Pembagian Misal
3.%, Sisa pembagian
4.+, Penjumlahan
5.-, Pengurangan
6.++ Penaikan
7.- Penurunan

3.Operator Relasi
Operator relasi di guna ini buat membandingkan 2 buah Ungkapan kondisi menjadi 1 buah ungkapan kondisi.

1.= , sama dengan
2.< > , tidak sama
3., lebih besar
4.< , lebih kecil
5.= , lebih dari atao sama dengan
6.< = , kecil dari atao sama dengan

4.Operator Logika Operator logika di guna in.. buat menghubungkan 2 buah Ungkapan kondisi menjadi 1 buah ungkapan kondisi.

1.AND , dan
2.OR , atau
2.NOT , tidak
4.Xor, Exclusive Or
3.Eqv ,Ekivalen
4.Imp, Implikasi PROJEK PRAKTIKUM

Langkah-langkah membuat sebuah proyek :
1.Pada Sistem Operasi Windows, klik tombol Start, pilih Programs, lalu pilih Microsoft Visual Studio 6.0
2.Klik icon Microsoft Visual Basic 6.0 dan klik Open untuk menerima proyek baru default yaitu sebuah aplikasi Standart Exe
3.rANCANG ANTAR MUKA SEPERTI BERIKUT.

4.Silahkan anda ketik code-code dibawah ini pda tombol Command yang telah kita rancang.

Private Sub CmdAB_Click()
Dim A, B, AB As Double
A = Val(TextA.Text)
B = Val(TextB.Text)
AB = A + B
TextAB.Text = Str(AB)
End Sub

Private Sub CmdABC_Click()
Dim A, B, ABC As Double
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
ABC = A + B * C
TextABC.Text = Str(ABC)
End Sub

Private Sub CmdABC2_Click()
Dim A, B, ABC2 As Double
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
ABC2 = (A + B) * C
TextABC2.Text = Str(ABC2)
End Sub

Private Sub CmdABCD_Click()
Dim A, B, ABCD As Double
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
D = Val(TextD.Text)
ABCD = A + B + D * C
TextABCD.Text = Str(ABCD)
End Sub

Private Sub Command1_Click()
MsgBox ("BATAL")
End Sub

Private Sub Command5_Click()
MsgBox ("apakah anda ingin keluar program..? klik OK")
End
End Sub

5.Klik RUN
6.Hasilnya seperti brikut

Read more...

Modul II

I.Landasan Teori

1.Pengenalan Visual Basic
Visual basic adalah sebuah bahasa pemrograman aras tinggi (high level) yang merupakan pengembangan dari versi DOS sebelumnya yaitu BASIC.
VISUAL BASIC merupakan Bahasa Pemrograman VISUAL dan events driven dalam VISUAL BASIC, program dikerjakan dalam lingkungan grafis. Karena pengguna (user) dapat meng-click pada satu obyek tertentu secara random,
maka setiap obyek harus diprogram secara independen dapat merespon terhadap tindakan-tindakan itu (event).
Contoh hasil kerja Visual Basic:

2.PEMROGRAMAN
PEMROGRAMAN merupakan sekumpulan instruksi-instruksi yang terorganisasi dan ketika dieksekusi,
menyebabkan komputer berkelakuan seperti apa yang diinginkan oleh pembuat program.
Tanpa program, komputer tidak berguna.

1. Menulis Kode program
Langkah –langkah membuat sebuah program
1. Pilih Menu Start Pada Komputer Anda
2. Pilih program Visual Basic 6.0
3. Setelah anda masuk ke program Visual Basic 6.0
4. Klik menu File lalu pilih Sub Menu New Project atau klik Ctrl+N.
Tampilanya seperti ini:

1.1Menulis Kode Program
Menulis kode program (coding) di Visual Basic dapat dilakukan dengan 2(dua) cara :
1.Metode langsung
2.Metode Tidak Langsung

1.a Metode langsung
Metode langsung adalah metode penulisan code program yang hasilnya dapat diketahui.
Kode program dalam metode ini diterjemahkan baris per baris.Penerjemahan baris perbaris disebut penerjemahan secara Interpreter.

1.b Metode Tidak Langsung
Metode tidak langsung adalah kode program dilakukan dengan menulis kode secara keseluruhan,selanjutnya kode-kode itu diterjemahkan.
metode ini disebut penerjemahan Compiler

2. Mengkompile Kode program
Mengkomfile Kode Program Mengkomfile kode program adalah menguji apakah kode program yang telah di tulis sudah bebas dari kesalahan (syntax error) ataupun makna (sematic error) .
Lanngkah-langkah mengkomfile program.
1.Pilih menu File,pilih perintah Make Projek1.exe
2.Pilih tempat menyimpan file serta nama hasil kompilasi
3.Kelik tombol OK

3 Memahami IDE VB dengan lebih baik
Kepopuleran Visual Basic sebenarnya datang dari lingkungannya yang sering disebut Integrated Development Environment atau IDE.
IDE membantu membangun sebuah aplikasi besar, menulis sebuah program, menjalankan program, dan menghasilkan sebuah executable file.
Executable File yang dihasilkan oleh Visual Basic bersifat independen, dan karena itu file tersebut dapat dijalankan pada komputer tanpa harus menginstall Visual Basic.
Gambar Di bawah Adalah jendela IDE:

II.Analisa dan Pembahasan
Immediate Window

1.Immediate Window (Ctrl+G) merupakan sebuah jendela yang digunakan untuk mencoba beberapa perintah dengan mengetikkan baris program di dalamnya.Kita bias melihat hasilnya secara langsung.
Window ini digunakan untuk mencoba perintah baris dalam VB
Setiap perintah baris diawali dengan tanda tanya (?)
Contoh :


2.Compiler
Adalah program sistem yang digunakan sebagai alat bantu dalam pemrogaman.Perangkat lunakproses penterjemahan code (dibuat programmer) ke dalam bahasa mesin. Hasil dari terjemahan ini adalah bahasa mesin. Pada beberapa compiler output berupa bahasa mesin dilaksanakan dengan proses assembler yang berbeda yang melakukan

3.MenyimpanProjek
Langkah-langkah menyimpan:
Pada menu File, klik perintah Save Project As kemudian akan muncul Kotak dialog File Project seperti terlihat pada gambar. Melalui kotak dialog tersebut dapat menyimpan program Visual Basic tersebut.
Menyimpan Program Visual Basic dengan cara mengetik nama file “FVBmodulI” pada kontrol Text Box File name dan menekan tombol Save.

Read more...

Modul I

Pemerograman I

Program ialah rangkaian-rangkaian instruksi yang slaing berhubungan untuk mencapai suatu tujikan.
Programar yaitu orang yang membuat program
Programming yaitu kegiatan membuat rogram

Pokok bahasan Pemerograman I:
1.Struktur Program
2.variabel an Konstanta
4.Statement dan Ekspresi
5.Operator
6.Test Kondisi
7.Array
8.Record
9.Prosedur dan Fungsional

Tujuan Program yaitu:
- Menjumlahkan dua bilangan
- Mencari bilangan Prima
- mengurutkan data dengan metode Bubble Sort

Jenis-jenis Bahasa pemerograman:
1.Bahasa pemerograman tingkat rendah contoh: Bahasa Mesin
2.bahasa pemerograman tingkat menengah contoh:bahasa assmbly
3.bahasa pemerograman tingkat Tinggi contoh:Basic,pascal,delphi
4.bahasa pemerograman tingkat sangat tinggi contoh: Visual basic,C++

1.Flow chart
Flow chart adalah simbol-simbol yang digunakan atau yang di rangkai seara sistematis untuk mencapai suatu tujuan.

Flow chart terbagi atas:
- Flow chart Program
- Flow chart Sistem

2.Defenisi Algoritma
Menyatakan dengan pernyataan dan bebas untuk menyelesaikan suatu masalah.

contoh:Buatlah efenisi algoritma untuk menentuksn apakah A bilangan Genap atau bilangan Ganjil
Jawab:

1.Mulai
2.tentukan Bilangan A
3.jika A habis dibagi 2 maka A adalah bilanga genap.jika A tidak habis dibagi 2 maka A bilangan ganjil
4.selesai

3.Pesudo Code (bahasa samaran)
Menyatakan dengan pernyataan dalam bahasa inggris tersamar untuk menyelesaikan suatu masalah.

PEMEROGRAMAN BAHASA VISUAL BASIAC
- Identifier
- Variabel
- Konstanta

1.1Pengenal (Identifier)
Pengenal adalah simbol/lambang dibentuk untuk mendandai suatu variabel, konstanta, prosedur, fungsi, metoda, objek ataupun file.
Syarat-syarat penulisan pengenal adalah:
-.Karakter pertama harus dimulai abjad (A..Z atau a..z)
-.Karakter berikutnya dapat abjad, garis bawah atau angka
-.Karakter-karakter khusus seperti : $, %, !, &, #, @ hanya dapat diletakkan diakhir pengenal.
-.Panjang pengenal maksimum 40 karakter
-.Nama pengenal bukan kata-kata tercadang (reserved words) yang memiliki makna tersendiri bagi Visual Basic, seperti : dim, option, sub, dll.

1.2Variabel
Variabel merupakan pengenal yang nilainya dapat diubah selama eksekusi program.
Syarat penulisan Nama Variabel:

-.Karakter pertama harus dimulai abjad (A..Z atau a..z)
-.Karakter berikutnya dapat abjad, garis bawah atau angka
-.Karakter-karakter khusus seperti : $, %, !, &, #, @ hanya dapat diletakkan diakhir pengenal.

Perhatikan kode program berikut ini :
A=2 Variabel A isinya 2
B=5

print A+B

7
A=5 Variabel A isinya diubah menjadi 5
B=6
print A+B
11

*Variabel Yang dideklaasikan
Harus memeiliki Tipe data.Tipe data variabel adalah cakupan(range)data yang bisa disimpan oleh variabel.

Tipe data dalam Visual Basic:
Type Data Ukuran Storage Jangkuan
Byte 1 byte 0 s/d 255
Boolean 2 byte True atau False
Integer 2 byte -32,768 s/d 32767
Long 4 byte -2,147,483,648 s/d 2,147,483,647
Single 4 byte -3.402823E38 s/d -1.401298E-45 (-)
1.401298E-45 s/d 3.402823E38 (+)
Double 8 byte -1.79769313486232E308 s/d -4.94065645841247E-324 (-)
Currency 8 byte -922,337,203,685,477.5808 s/d 922,337,203,685,477.5807
Decimal 14 byte +/-79,228,162,514,264,337,593,543,950,335
Date 8 byte 1 Januari 100 s/d 31 Desember 9999
Object 4 byte Mengacu pada objek tertentu
String 10 byte + panjang string 0 sampai lebih kurang 2 milyar
String panjang dari string 1 sampai lebih kurang 65,400
Variant (dengan angka) 16 byte Sembarang angka sampai jangkauan jenis Double


1.3Konstanta (Constant)
Konstanta merupakan pengenal yang nilainya tidak bisa diubah selama eksekusi program. Pengenal konstanta diperlukan dalam program bila diperkirakan bahwa nilai pengenal tidak akan berubah selama eksekusi program, contoh : kop surat, defenisi tombol, dsb. Bila Anda mencoba melakukan perubahaan isi pengenal konstanta pada saat eksekusi program maka akan menimbulkan kesalahan (error).
contoh Kode konstanta:

Const Judul1 ="PT. ABC";
Const Judul2 ="Jln. Ahmad Yani No. 12 Yogyakarta"
Print Judul1
Print Judul2
Print "Telepon (0274) 886788, Fax. (0274) 886788"

ModulI:
Modul I

Tujuan modul I :
- mengenal lingkungan terpadu (Envernment)
- Menulis kode program di Visual Basic

1.Mengenal IDE
Langkah awal dari belajar Visual Basic adalah mengenal IDE (Integrated Development Environment)
Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya.Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable.
Penguasaan yang baik akan IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga dapat bekerja dengan efisien.

A.Mengaktifkan
Cara untuk mengaktifkan Visual Basic adalah menjalankannya dari
-Menu Start
-pilih Program dan
-pilih Microsoft Visual Basic 6.0.
-menentukan jenis proyek yang akan digunakan atau dikembangkan
-Pilih standart EXE
-Klik OK


Selanjutnya muncul window yang kita sebut IDE
Bagian-bagian IDE:
-Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dll
-Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.
-Jendela Project, jendela ini berisi gambaran dari semua modul yang terdapat dalam aplikasi anda. Anda dapat menggunakan icon Toggle Folders untuk menampilkan modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan nama.
Anda dapat menggunakan Ctrl+R untuk menampilkan jendela project, ataupun menggunakan icon Project Explorer.
-Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang user interface dari aplikasi anda. Jadi jendela ini menyerupai kanvas bagi seorang pelukis.
-Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda gunakan untuk mengembangkan user interface.
-Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan jendela ini dengan menggunakan kombinasi Shift-F7.
-Jendela Properties, merupakan daftar properti-properti object yang sedang terpilih. Sebagai contohnya anda dapat mengubah warna tulisan (foreground) dan warna latarbelakang (background). Anda dapat menggunakan F4 untuk menampilkan jendela properti.
-Jendela Color Palette, adalah fasilitas cepat untuk mengubah warna suatu object.
-Jendela Form Layout, akan menunjukan bagaimana form bersangkutan ditampilkan ketika runtime.

2. Memasukkan Komponen Ke Form
Untuk memasukkan komponen ke form dapat dilakukan dengan beberapa cara, yaitu :
a. Mengklikganda komponen (double click component)
Dengan melakukan klik ganda komponen pada toolbox secara otomatis komponen diletakkan di tengah-tengah form.
b. Mengkklik komponen kemudian menyeret mouse (drag) di daerah form otomatis membentuk komponen sesuai dengan besarnya wilayah seretan.
c. Bila Komponen yang sama akan Anda masukkan ke form berulangkali, cara cepatnya dapat dilakukan dengan terlebih dahulu menekan tombol control (simbol ctrl di keyboard), kemudian masukkan komponen yang Anda inginkan ke dalam form. Untuk memasukkan komponen yang sama langsung klik di dalam form.

Latihan I:
1.Rancang antar Muka seperti berikut.

2.Kelik Menu RAN
3.hasilnya seperti berikut

progra ini hanya untuk mengenal lingkungan terpadu Visual Basic

Read more...

modul VI

1.SELECT CASE
SELECT Case digunakan untuk menguji ekspresi apakah berada dalam nilai tertentu.
Penggunaan pernyatan bersyarat IF sangat sesuai bila pengujian dilakukan pada banyak nilai.

Syntax Select Case :

SELECT CASE (Ekspresi)

CASE Ekspresi :
CASE Ekspresi :
CASE Else :

END SELECT

2.FOR-NEXT
Pernyataan berulang For – Next digunakan bila diinginkan pengulangan pengerjaan pernyataan secara pasti.
Ditetapkan suatu variabel pencacah perulangan.
Selama pencacah perulangan masih dalam range Ekspresi1 dan Ekspresi2 maka pernyataan diantara For dan Next akan dikerjakan.

Syntax for-next :
For Var=Expresi1 To Expresi2 [Step Expresi2]



Next Var


Latihan Penggunaan Select Case & For-Next :

1.Rancang antar muka seperti berikut :



2.doubel kilk FORM1 maka dan ketikkan kode program berikut:

Private Sub Form_Load()
Dim I As Byte
For I = 1 To 10 Step 1
cbobil.AddItem (Str(I))
Next I
cbobil.ListIndex = 0
End Sub

3.angkah selanjutnya adalah dobel klik pada tombol CMDbil dan masukan kode program berikut:

Private Sub cmdbil_Click()
Dim ket As String * 10
Dim angka As Byte
angka = Val(cbobil.List(cbobil.ListIndex))
Select Case (angka)

Case 1: ket = "Satu"
Case 2: ket = "Dua"
Case 3: ket = "Tiga"
Case 4: ket = "Empat"
Case 5: ket = "lima"
Case 6: ket = "Enam"
Case 7: ket = "Tujuh"
Case 8: ket = "Delapan"
Case 9: ket = "Sembilan"
Case 10: ket = "Sepuluh"

End Select
txtket.Text = ket

End Sub


4.Klik menu Run
5.Hasilnya seperti berikut


dari program ini kita bisa mengetahui cara merubah nilai angka menjadi nilai huruf
dengan menggunakan fungsi pernyataan bersyarat SELECT-CASE dan perulangan FOR-NEXT.

Read more...

modul v

Tujuan modul V:
-.Memahami penggunaan If…Then…Else…

Percabangan Bersyarat If…Then…Else…

Digunakan untuk menjalankan satu blok perintah, bergantung pada nilai yang diuji.
Penulisannya adalah sebagai berikut :

If then
[satu atau lebh pernyataan program]
[ElseIf then]
[satu atau lebih pernyataan program]
Else
[satu atau lebih pernyataan program]

End If

Latihan ;
Untuk menentukan nilai akhir seorang mahasisawa diperoleh dari rumus berikut.

NA (Nilai akhir)=(nilai tugas) * 0,3 + nilai tengah semester * 0,2+ nilai akhir semester * 0,5 )/ 10
Na= nilai akhir
NT= nilai tugas
NTS= nilai tengah semester
NAS=nilai akhir semester

sedangkan untuk menentukan nilai huruf apakah A,b,C,D dan E di dapat dari posisi nilai akhir sesuai dengan
ketentuan berikut.
Jika;
NA > 90 -> NA='A"
80 <>="B"
70 <>="C"
60 <>="D"
<=60 -> NA ="E"

1. Rancang antar muka seperti berikut untuk menyelesaikan kasus di atas :

2. Doubel klik tombol Cetak nilai & Huruf
3. Ketikan kode program brikut ini :

Private Sub cmdcetak_Click()
Dim NT, NTS, NAS, NA As Single
NT = Val(txtnt.Text)
NTS = Val(txtnts.Text)
NAS = Val(txtnas.Text)
NA = NT * 0.3 + NTS * 0.2 + NAS * 0.5
txtna.Text = Str(NA)

If (NA > 90) Then
txtnh.Text = "A"
End If

If (NA > 80) And (NA <= 90) Then txtnh.Text = "B" End If If (NA > 70) And (NA <= 80) Then txtnh.Text = "c" End If If (NA > 60) And (NA <= 70) Then txtnh.Text = "d" End If If (NA <= 60) Then txtnh.Text = "e" End If End Sub

4. Klik tombol atau menu Run hasilnya akan seperti berikut:

Read more...

modul IV

Tujuannya :
-Memanipulasi obyek di form
-Pernyataan bersyarat IF

A. MEMANIPULASI OBJEK DI FORM
1.Buka standart EXE

Perlu di ketahui bahwa proyek ini terdiri atas banyak file;
1.file FORM (.FORM)
2.file UNIT (.CS)
3.file KODE (.BAS)

2.Perataan proyek di form
- masukan desain seperti berikut


- tempatkan secara sembarang obyek-obyek tersebut
- blog semua obyek-obyek tersebut
-lalu klik menu FORMAT padda menu ini semua sub menu mempunyai fungsi yang sama yaitu merapikan obyek:
Sub Menu Aligan :
1.Lefts(Rata Kiri)
2.Centres(Rata Tengah)
3.Rights(Rata Kanan)
4.Top(Rata Atas)
5.Middle(Rata Tengah)
6.Bottom(Rata Bawah)

3.Mengatur Ukuran Obyek
- masukan desain seperti berikut

- tempatkan secara sembarang obyek-obyek tersebut
- blog semua obyek-obyek tersebut
-lalu klik menu FORMAT :

sub Menu Make Same Size
1.Width(Sama lebar)
2.Height(Sama tinggi)
3.Both(Sama lebar dan tinggi)

4.Mengatur Jarak Spasi
- masukan desain seperti berikut

- tempatkan secara sembarang obyek-obyek tersebut
- blog semua obyek-obyek tersebut
-lalu klik menu FORMAT :

Sub MenuHorizontal Spacing
1.Make Equal(Jarak spasi sama)
2.Increase(Jarak spasi dinaikkan)
3.Decrease(Jarak spasi diturunkan)

Sub Menu Vertical Spacing
1.Make Equal(Jarak spasi sama)
2.Increase(Jarak spasi dinaikkan)
3.Decrease(Jarak spasi diturunkan)

B.PERNYATAAN BERSYARAT 'IF'

pernyataan bersyarat adalah pernyataan yang disususn menguji suatu
ekspresi apakah memenuhi syarat, bila syarat terpenuhi maka pernyataan
dibawahnya akan dikerjakan.

Latihan:
pertandingan futsal turnamen sistem informasi '09 memiliki syarat sbb:
1.klub yang ikut minimal memiliki anggota 12 orang.
2.pernah menjadi juara minimal 3 kali.
buatlah program VB untuk menampilkan kalimat, apakah peserta klub bisa mengikuti
lomba atau tidak, dengan rancangan sbb:


3.Doubel klik di tombol KETERANGAN
4.isikan kode program berikut

txtPeserta.Text = "Bisa Ikut Pertandingan"

if txtpeserta.Text >=12 And txtJuara.Text >=
txtPeserta.Text = "Tidak Bisa Ikut Pertandingan"

5.Lalu jalankan programnya.
6.Hasilnya Seperti Berikut

Read more...