twitter



Form1
Private Sub Command1_Click()
Label5.Caption = (Val(Text2.Text) + Val(Text3.Text)) / 2
If Label5.Caption > 70 Then
Label8.Caption = "Lulus"
Else
Label8.Caption = "Tidak Lulus"
End If
If Label5.Caption >= 85 Then
Label7.Caption = "A"
ElseIf Label5.Caption >= 75 Then
Label7.Caption = "B"
ElseIf Label5.Caption >= 65 Then
Label7.Caption = "C"
Else
Label7.Caption = "D"
End If
Form1.Hide
Form2.Show
Form2.Label6.Caption = Form1.Text1
Form2.Label7.Caption = Form1.Label5
Form2.Label8.Caption = Form1.Label7
Form2.Label9.Caption = Form1.Label8
End Sub

Form2
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub

Input Nama, Nilai UTS, Nilai UAS. Setelah di input, tekan OK.

Kemudian akan menampilkan hasilnya di Form2. Jika tekan Kembali, akan kembali ke form1.



Form1
Private Sub Command1_Click()
Label4.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label4.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label4.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Label4.Caption = Val(Text1.Text) ^ Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Label4.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Input Angka 1 dan Angka 2. Setelah di input, pilih operator aritmatikanya.
Kemudian akan menampilkan hasilnya.
 



  1. Sebutkan dan jelaskan bentuk-bentuk looping dalam visual basic!
Jawab:
1.       For … Next
Digunakan untuk mengulang blok perintah dalam jumlah yang telah ditentukan, di dalamnya hanya perlu menuliskan nilai awal dan nilai akhir variable penghitung.
Sintaks:
For (variabel integer) = (awal) to (akhir) [step (pertambahan)] (blok perintah)
Next
               
2.   Do While ... Loop
Digunakan untuk melakukan pengulangan terus menerus selama kondisi memenuhi syarat. Jika bernilai FALSE akan berhenti.
Sintaks:
Do While (kondisi)
(ekspresi)
Loop

                3.   Do Until … Loop
Adalah kebalikan dari Do While. Looping ini akan mengulangi suatu perintah (instruksi) selama kondisi yang dibandingkan tidak memenuhi syarat dan akan berhenti apabila memenuhi syarat.
Sintaks:
Do Until (kondisi)
Instruksi
[Exit Do]
Instruksi
Loop

  1. Berikan contoh programnya!
Jawab:
1.       For … Next
Dim ulang as integer
For ulang = 0 to 10
Print Ulang
Next

Output: Akan menghasilkan tulisan dari 0-10 di form.

2.   Do While ... Loop
Dat = 1
Do While Dat < 15
Print Dat
Dat = Dat + 1
Loop

Output: Jika Dat sudah mencapai 14, maka perulangan akan berhenti.


3.       Do Until … Loop
Dat = 20
Do While Dat < 10
Print Dat
Dat = Dat – 1
Loop

Output: Jika nilai Dat sudah mencapai di bawah 10, maka looping akan berhenti.





-          MD : untuk membuat folder baru
Contoh: D:\>MD Memory
Untuk membuat folder dengan nama Memory
-          CD : untuk pindah ke folder tertentu
Contoh: D:\>CD Memory
Untuk masuk ke folder Memory
-          CD.. : untuk kembali ke folder sebelumnya
Contoh: D:\Memory\Phone\Audio>CD..
Untuk kembali dari folder Audio ke folder Phone
-          CD\ : untuk kembali ke disk awal
Contoh: D:\Memory\Phone\Audio>CD\
Untuk kembali ke disk d:
-          RD : untuk menghapus directory
Contoh: D:\Memory\Phone>RD Images
Untuk menghapus folder Images
-          DEL : untuk menghapus directory dan sub directory
Contoh: D:\Memory\Card\Java>DEL Games
Untuk menghapus folder Games dan sub foldernya
-          REN : untuk mengubah nama
Contoh: D:\Memory\Phone\Audio>REN Suara Lagu
Untuk mengubah nama folder Suara menjadi nama folder Lagu



Form1
Merah
Private Sub Command1_Click()
Label2.ForeColor = vbRed
End Sub

Hijau
Private Sub Command2_Click()
Label2.ForeColor = vbGreen
End Sub

Biru
Private Sub Command3_Click()
Label2.ForeColor = vbBlue
End Sub

Masuk
Private Sub Command4_Click()
If Text1.Text = "Tri" Then
MsgBox "Keyword di Terima", vbInformation, "Info"
Form1.Hide
Form2.Show
Else
MsgBox "Keyword di Tolak", vbCritical, "info"
End If
End Sub

Hapus
Private Sub Command5_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub

OK
Private Sub Command6_Click()
Label2.Caption = Text1.Text
End Sub

Bold
Private Sub Option1_Click()
Label2.FontBold = True
Label2.FontItalic = False
Label2.FontUnderline = False
End Sub






Italic
Private Sub Option2_Click()
Label2.FontBold = False
Label2.FontItalic = True
Label2.FontUnderline = False
End Sub

Underline
Private Sub Option3_Click()
Label2.FontBold = False
Label2.FontItalic = False
Label2.FontUnderline = True
End Sub

Form2
Kembali
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub

Jika Text bernama Tri, maka akan menampilkan Info Keyword di Terima.

Kemudian akan menampilkan Form2.

Jika Text bukan bernama Tri, maka akan menampilkan Info Keyword di Tolak.