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...