13.52
yulisriyadi
C Augmented Triad
C Diminished 7
C Dominan 7 (C7)
C Mayor 6
C Minor 6
C Mayor 7
C Minor 7
C Mayor Triad
C Minor Tri...
Posted in: Belajar PianoSelasa, 14 Mei 2013
Instalasi Pemrograman Android Paling Mudah
Cara paling mudah untuk melakukan instalasi pemrograman Android adalah cukup melakukan download dan instalasi JAva Development Kit ( JDK) dan Android Development Template (ADT) Bundle saja :
Download JDK
http://www.oracle.com/technetwork/jav...
Download ADT Bundle
http://developer.android.com/sdk/inde...
Selamat Berla...
Posted in: Android
Kamis, 09 Mei 2013
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
...
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)
...
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...
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...
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 &...
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 =...
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...
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...
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...
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...
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...
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 ...
Sabtu, 04 Mei 2013
Persiapan Pemrograman Android dengan JAVA - Eclipse
Sebelum kita mulai melakukan pemrograman ada beberapa persiapan yang harus dilakukan seperti melakukan instalasi beberapa software yang dibutuhkan berikut ini, adapun program yang harus diinstal untuk keperluan pemrograman android ini dapat disimak dari tutorial video berikut ini :
video 1
video 2
video 3
video 4
selamat berlatih&nb...
Posted in: Android
Latihan-Latihan Pemrograman Visual Basic 6
Latihan 1
Latihan 2
Latihan 3
Latihan 4
Latihan 5
Latihan 6
Latihan 7
Latihan 8
Latihan 9
Latihan 10
Latihan 11
Latihan 12
...
Posted in: Latihan
