Latihan 12 Visual Basic - Demo Event Keyboard

Latihan 12 Visual Basic - Demo Event Keyboard 'Deklarasi variabel global Dim xpos As Single, ypos As Single Private Sub Form_Load()     'Pindahkan posisi roket ke tengah form     xpos = (Me.ScaleWidth - picRoket.Width) / 2     ypos = (Me.ScaleHeight - picRoket.Height) / 2     picRoket.Move xpos, ypos End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     'MsgBox "Kode tombol yang ditekan : " & KeyCode         'Cek tombol keyboard yang ditekan     Select Case KeyCode     Case vbKeyLeft  'Tombol panah kiri         If Shift = vbCtrlMask Then             Call RoketKeSisiKiri  ...

Read more »

Posted in: Latihan,Pemrograman

Latihan 11 Visual Basic - Procedure Test

Latihan 11 Visual Basic - Procedure Test  Dim Harga As Currency, Total As Currency Private Sub TulisTeks(teks As String, Optional warna As ColorConstants = vbMagenta)     With Label1         .Caption = teks         .ForeColor = warna     End With End Sub Private Function JumlahAngka() As String     Dim angka1 As String, angka2 As String     Dim hasil As Single         angka1 = InputBox("Tulis angka 1 :", "Hitung Angka")     angka2 = InputBox("Tulis angka 2 :", "Hitung Angka")         If angka1 <> "" And angka2 <> "" Then         hasil = CSng(angka1) + CSng(angka2)  ...

Read more »

Posted in: Latihan,Pemrograman

Latihan 10 Visual Basic - Error Handle

Latihan 10 Visual Basic - Error Handle Private Sub Command1_Click()     Dim FileName As String     Dim ErrMsg As String     Dim Ask As VbMsgBoxResult       On Error GoTo AdaError Awal:     Image1.Picture = Nothing     FileName = InputBox("Ketikkan path dan nama file gambar :", "Open Picture File", FileName)     If FileName <> "" Then         Image1.Picture = LoadPicture(FileName)     End If     Exit Sub   AdaError:     Select Case Err.Number     Case 53         ErrMsg = "File [" & FileName & "] tidak ada !"     Case 71         ErrMsg...

Read more »

Posted in: Latihan,Pemrograman

Latihan 9 Visual Basic - Aplikasi Kalkulator

Latihan 9 Visual Basic  - Aplikasi Kalkulator Dim angka(1 To 2) As Single Dim operator As String Private Sub cmdAngka_Click(Index As Integer)     Text1.Text = Text1.Text & cmdAngka(Index).Caption End Sub Private Sub cmdHapus_Click()     Text1.Text = "" End Sub Private Sub cmdOperator_Click(Index As Integer)     If Text1.Text = "" Then Exit Sub       angka(1) = CSng(Text1.Text)     operator = cmdOperator(Index).Caption     Text1.Text = "" End Sub Private Sub cmdHitung_Click()     Dim hasil As Single           If Text1.Text = "" Then Exit Sub       angka(2) = CSng(Text1.Text)       Select...

Read more »

Posted in: Latihan,Pemrograman

Latihan 8 Visual Basic - Array Test

Latihan 8 Visual Basic - Array Test  Dim NamaSiswa() As String Private Sub Form_Load()     Dim i As Integer     ReDim NamaSiswa(1 To 5)     For i = 1 To 5         Combo1.AddItem i     Next i     Combo1.ListIndex = 0 End Sub Private Sub Command1_Click()     Dim no As Integer, i As Integer       no = CInt(Combo1.Text)     NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input Nama Siswa")     If NamaSiswa(no) <> "" Then         List1.Clear         For i = 1 To UBound(NamaSiswa)             List1.AddItem "NamaSiswa(" & i &...

Read more »

Posted in: Latihan,Pemrograman

Latihan 7 Visual Basic - Struktur Looping

Latihan 7 Visual Basic - Struktur Looping Dim i As Integer Private Sub Command1_Click()     List1.Clear     For i = 1 To 100         List1.AddItem "Angka " & i         'If i = 50 Then Exit For     Next i End Sub Private Sub Command2_Click()     List1.Clear     For i = 100 To 1 Step -2         List1.AddItem "Angka " & i     Next i End Sub Private Sub Command3_Click()     List1.Clear     i = Asc("A")     Do Until i > Asc("Z")         List1.AddItem "Huruf " & Chr(i)         'If Chr(i) = "M" Then Exit Do         i =...

Read more »

Posted in: Latihan,Pemrograman

Latihan 6 Visual Basic - Struktur SELECT CASE

Latihan 6 Visual Basic - Struktur SELECT CASE  Private Sub Form_Load()     List1.AddItem "Disket"     List1.AddItem "Buku"     List1.AddItem "Kertas"     List1.AddItem "Pulpen" End Sub Private Sub Command1_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         If Text1.Text = "" Then         MsgBox "Anda belum...

Read more »

Posted in: Latihan,Pemrograman

Latihan 5 Visual Basic - Struktur IF

Latihan 5 Visual Basic -Struktur IF Dim kesempatan As Integer Private Sub Command1_Click()     kesempatan = kesempatan + 1     If (LCase(Text1.Text) = "nusantara") And (kesempatan <= 3) Then         Image1.Visible = True         Text1.Enabled = False         Command1.Enabled = False     Else         MsgBox "Passwordnya Salah !"         If kesempatan < 3 Then             Text1.Text = ""             Text1.SetFocus         Else             End         End If     End...

Read more »

Posted in: Latihan,Pemrograman

Latihan 4 Visual Basic - Operator Test

Latihan 4 Visual Basic - Operator Test Dim var1 As Single, var2 As Single Dim hasil As Single Private Sub Form_Load()     Text1.Text = ""     Text2.Text = ""     Label3.Caption = "" End Sub Private Sub Option1_Click()     var1 = Text1.Text     var2 = Text2.Text     hasil = var1 + var2     Label3.Caption = hasil End Sub Private Sub Option2_Click()     var1 = Text1.Text     var2 = Text2.Text     hasil = var1 - var2     Label3.Caption = hasil End Sub Private Sub Option3_Click()     var1 = Text1.Text     var2 = Text2.Text     hasil = var1 * var2     Label3.Caption = hasil End Sub Private...

Read more »

Posted in: Latihan,Pemrograman

Latihan 3 Visual Basic - Variabel Test

Latihan 3 Visual Basic - Variabel Test Option Explicit Dim test2 As Integer Private Sub Command1_Click()     Dim test1 As String       test1 = "nusantara"       Label1.Caption = test1     Label2.Caption = test2     Label3.Caption = test3 End Sub Private Sub Command2_Click()     test2 = 10       Label1.Caption = test1     Label2.Caption = test2     Label3.Caption = test3 End Sub Private Sub Command3_Click()     Const test3 As Single = 90.55            Label1.Caption = test1     Label2.Caption = test2     Label3.Caption = test3 End Sub...

Read more »

Posted in: Latihan,Pemrograman

Latihan 2 Visual Basic - Method Test

Latihan 2 Visual Basic - Method Test Private Sub Form_Load()     Combo1.AddItem "Umar"     Combo1.AddItem "Salman"     Combo1.AddItem "Halimah"     Combo1.AddItem "Shafira"     Combo1.ListIndex = 0 End Sub Private Sub Command1_Click()     List1.AddItem Combo1.Text     Combo1.SetFocus End Sub Private Sub Command2_Click()     List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click()     List1.Clear     Combo1.SetFocus End Su...

Read more »

Posted in: Latihan,Pemrograman

Latihan 1 Visual Basic - Property

Latihan 1 Visual Basic - Property Private Sub Command1_Click()     Label2.Caption = Text1.Text End Sub Private Sub Command2_Click()     End End Sub 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 = Check2.Value End ...

Read more »

Posted in: Latihan,Pemrograman