Pengenalan Elektronika

Pengenalan Elektronika Dalam aktifitas sehari-hari, sering kita dengar istilah elektronika bahkan sering menggunakan peralatan yang bekerja atas dasar elektronika. Lantas apa itu elektronika? Elektronika adalah salah satu ilmu pengetahuan yang mempelajari arus lemah untuk menjalankan peralatan listrik dengan cara melakukan pengontrolan aliran elektron (partikel yang bermuatan listrik) seperti dalam rangkaian komputer, rangkaian pendeteksi sidik jari, kalkulator, lampu berjalan, dan perangkat elektronik lainnya. Pengenalan elektronika ini sebaiknya diketahui sebelum belajar elektronika lebih lanjut seperti beberapa istilah lain yang akan saya bahas. Elektronika berbeda dengan listrik meskipun satuan dan besaran-besarannya banyak yang...

Read more »

Synthesizer - Kecapi Slendro

Gunakan Tombol QWERTY untuk menggunakan kecapi ini .slider { margin:10px; } #sliders{ width:300px; background-color:#555; padding:10px; } body{ background-color:#333; color:#eee; font:normal 11px verdana; } a{ color:#8af; } p{ width:700px; margin-bottom:20px; } #generatorSliderBox { font: normal 11px verdana; } #keyboard { position: absolute; left: 99px; top: 30px; } #generatorSliderBox .lbl { position: absolute; left: 30px; } #generatorSlider { top: 5px; } #buffer, #masterVolume { width: 200px; } circle.button { stroke: #006600; fill: #00cc00; } // jQuery UI inits var reverbOn =...

Read more »

Belajar Piano : Cara Menggunakan Akord

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

Read more »

Posted in: Belajar Piano

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

Read more »

Posted in: Android

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

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

Read more »

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

Read more »

Posted in: Latihan

Membuat Beat Box Drummer dengan Visual Basic 6

Buatlah Form seperti gambar di ini  jangan lupa masukan sebuah Timer kemudian ganti namanya dengan nama Timer1 dan buatlah properti Enable=True dan Interval=10. Serta jangan lupa menggunakan pustaka directX 8. Selanjutnya salin program berikut ini, selamat berkreasi 'Membuat Beat Box Drummer dengan Visual Basic 6 Option Explicit Dim OneSample  As Double Dim DX As New DirectX8 ' menggunakan directx 8 Dim DS As DirectSound8 Dim Bass As DirectSoundSecondaryBuffer8 Dim Snare As DirectSoundSecondaryBuffer8 Dim Hat As DirectSoundSecondaryBuffer8 Dim desc As DSBUFFERDESC Const PI = 3.14159265358979 ' Const SRATE = 44100     ' Kecepatan Sample / sampling rate Const DUR = 1                 ...

Read more »

Posted in: Pemrograman,Pemrograman Audio