16.09
yulisriyadi
Tuliskan nama, kelas dan halaman blog yang kalian buat pada bagian komentar dibawah ini :
Posted in: TugasSabtu, 24 Desember 2011
Jumat, 11 November 2011
Tugas Basa Sunda - Kelas 8
- Jam 13.00 atanapi jam 1 siang sok disebutna wanci lingsir ngulon. Naon alesanana disebut lingsir ngulon, jelaskeuna jawaban hidep!
- Mun keur usum tandur, patani melakeun parena sok bari maju atanapi mundur?, jelaskeun !
- Tuliskeun 1 conto gaya basa rarahulan (unggal siswa teu kenging sami contona, kedah beda) !
Posted in: Tugas
Sabtu, 05 November 2011
Membuat Piano Mouse (Visual Basic)
Buatlah 1 Buah Command Button, kemudian copy hingga menjadi 24 setelah itu beri nomor index 0-23
Rabu, 26 Oktober 2011
Tugas OOP - Kelas XII TI
- Apa yang dimaksud dengan OOP (Oriented Object Programming) atau Pemrograman berbasis objek menurut pemahaman kalian ?
- Apakah yang dimaksud dengan kelas(class),objek, method, event dan property.
- Berikan contoh bentuk2 objek, method, event dan property pada pemrograman visual basic!
Selamat Mengerjakan !!
Posted in: Tugas
Kamis, 20 Oktober 2011
Kamis, 13 Oktober 2011
Selasa, 11 Oktober 2011
Tutorial 4 - Program Memilih kategori Nilai - Penggunan Select Case (Visual Basic)
Tutorial ini menjelaskan perintah untuk mengontrol program dengan Select Case, pada contoh ini terdiri dari 5 pilihan.
Buatlak Layout berikut :
Buatlak Layout berikut :
Pemrograman Audio / Musik - Basic Synthesizer / Piano (Visual Basic)
Option Explicit
Dim Sample As Double
Dim DX As DirectX8 '
Dim DS As DirectSound8
Dim Tone(21) As DirectSoundSecondaryBuffer8
Dim dsToneBuffer As DirectSoundSecondaryBuffer8
Dim desc As DSBUFFERDESC
Const PI = 3.14159265358979
Const SRATE = 44100 ' sampling data per detik
Const DUR = 1 ' durasi nada
Const FREQ = 440 ' frekuensi acuan
Const CHAN = 2 ' stereo / 2 channel
Const BITDEPTH = 16 ' 16 bit
Const BLOCK = 4
Dim sbuf(0 To DUR * SRATE * CHAN) As Integer
Dim tekan(255) As Boolean
Dim poly As Integer
Dim frekNote As Long
Dim nfreq As Integer
Private Sub Form_Load()
KeyPreview = True
Set DX = New DirectX8
Set DS = DX.DirectSoundCreate("")
DS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
desc.fxFormat.nFormatTag = WAVE_FORMAT_PCM ' format audio
desc.fxFormat.nSize = 0
'desc.fxFormat.lExtra = 0
desc.fxFormat.nChannels = CHAN
desc.fxFormat.lSamplesPerSec = SRATE
desc.fxFormat.nBitsPerSample = BITDEPTH
desc.fxFormat.nBlockAlign = BLOCK
desc.fxFormat.lAvgBytesPerSec = BLOCK * SRATE
desc.lFlags = DSBCAPS_STATIC Or DSBCAPS_CTRLVOLUME Or DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN
desc.lBufferBytes = BLOCK * DUR * SRATE
Set dsToneBuffer = DS.CreateSoundBuffer(desc)
Dim i ' pembuatan nada
Dim n
For i = 0 To DUR * SRATE - 1
n = 2 * PI * (FREQ * i / SRATE)
Sample = Sin(n) + Sin(2 * n)
sbuf(2 * i) = Sample * 0.25 * 32767
sbuf(2 * i + 1) = sbuf(2 * i)
Next i
For i = 0 To 21
Set Tone(i) = DS.CreateSoundBuffer(desc)
Tone(i).WriteBuffer 0, BLOCK * DUR * SRATE, sbuf(0), DSBLOCK_DEFAULT
Next
End Sub
'uji penekanan tombol
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then nfreq = 262: poly = 1
If KeyCode = vbKeyW Then nfreq = 294: poly = 2
If KeyCode = vbKeyE Then nfreq = 330: poly = 3
If KeyCode = vbKeyR Then nfreq = 349: poly = 4
If KeyCode = vbKeyT Then nfreq = 392: poly = 5
If KeyCode = vbKeyY Then nfreq = 440: poly = 6
If KeyCode = vbKeyU Then nfreq = 495: poly = 7
If KeyCode = vbKeyI Then nfreq = 524: poly = 8
If KeyCode = vbKeyZ Then nfreq = 262 / 2: poly = 9
If KeyCode = vbKeyX Then nfreq = 294 / 2: poly = 10
If KeyCode = vbKeyC Then nfreq = 330 / 2: poly = 11
If KeyCode = vbKeyV Then nfreq = 349 / 2: poly = 12
If KeyCode = vbKeyB Then nfreq = 392 / 2: poly = 13
If KeyCode = vbKeyN Then nfreq = 440 / 2: poly = 14
If KeyCode = vbKeyM Then nfreq = 495 / 2: poly = 15
If KeyCode = 188 Then nfreq = 262: poly = 16
If KeyCode = vbKeyO Then nfreq = 294 * 2: poly = 17
If KeyCode = vbKeyP Then nfreq = 330 * 2: poly = 18
If KeyCode = 219 Then nfreq = 349 * 2: poly = 19
If KeyCode = 221 Then nfreq = 392 * 2: poly = 20
If KeyCode = 220 Then nfreq = 440 * 2: poly = 21
If Not tekan(KeyCode) And nfreq <> 0 Then
tekan(KeyCode) = True
Tone(poly).SetVolume -10000
frekNote = (nfreq / FREQ) * 44100
Tone(poly).SetFrequency frekNote
Tone(poly).SetCurrentPosition 0
Tone(poly).Play 1
Tone(poly).SetVolume -500
End If
End Sub
Private Sub PlayIt()
End Sub
'uji pelepasan tombol
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then tekan(vbKeyQ) = False: poly = 1: StopIt
If KeyCode = vbKeyW Then tekan(vbKeyW) = False: poly = 2: StopIt
If KeyCode = vbKeyE Then tekan(vbKeyE) = False: poly = 3: StopIt
If KeyCode = vbKeyR Then tekan(vbKeyR) = False: poly = 4: StopIt
If KeyCode = vbKeyT Then tekan(vbKeyT) = False: poly = 5: StopIt
If KeyCode = vbKeyY Then tekan(vbKeyY) = False: poly = 6: StopIt
If KeyCode = vbKeyU Then tekan(vbKeyU) = False: poly = 7: StopIt
If KeyCode = vbKeyI Then tekan(vbKeyI) = False: poly = 8: StopIt
If KeyCode = vbKeyZ Then tekan(vbKeyZ) = False: poly = 9: StopIt
If KeyCode = vbKeyX Then tekan(vbKeyX) = False: poly = 10: StopIt
If KeyCode = vbKeyC Then tekan(vbKeyC) = False: poly = 11: StopIt
If KeyCode = vbKeyV Then tekan(vbKeyV) = False: poly = 12: StopIt
If KeyCode = vbKeyB Then tekan(vbKeyB) = False: poly = 13: StopIt
If KeyCode = vbKeyN Then tekan(vbKeyN) = False: poly = 14: StopIt
If KeyCode = vbKeyM Then tekan(vbKeyM) = False: poly = 15: StopIt
If KeyCode = 188 Then tekan(188) = False: poly = 16: StopIt
If KeyCode = vbKeyO Then tekan(vbKeyO) = False: poly = 17: StopIt
If KeyCode = vbKeyP Then tekan(vbKeyP) = False: poly = 18: StopIt
If KeyCode = 219 Then tekan(219) = False: poly = 19: StopIt
If KeyCode = 221 Then tekan(221) = False: poly = 20: StopIt
If KeyCode = 220 Then tekan(220) = False: poly = 21: StopIt
End Sub
Private Sub StopIt()
Tone(poly).SetVolume -10000
nfreq = 0: poly =
End Sub
Sebelum menekan tombol F5, lakukan langkah berikut : Project -> References -> Pilih DirectX 8 for Visual Basic Type Library
Selamat Berkreasi ..!
Dim Sample As Double
Dim DX As DirectX8 '
Dim DS As DirectSound8
Dim Tone(21) As DirectSoundSecondaryBuffer8
Dim dsToneBuffer As DirectSoundSecondaryBuffer8
Dim desc As DSBUFFERDESC
Const PI = 3.14159265358979
Const SRATE = 44100 ' sampling data per detik
Const DUR = 1 ' durasi nada
Const FREQ = 440 ' frekuensi acuan
Const CHAN = 2 ' stereo / 2 channel
Const BITDEPTH = 16 ' 16 bit
Const BLOCK = 4
Dim sbuf(0 To DUR * SRATE * CHAN) As Integer
Dim tekan(255) As Boolean
Dim poly As Integer
Dim frekNote As Long
Dim nfreq As Integer
Private Sub Form_Load()
KeyPreview = True
Set DX = New DirectX8
Set DS = DX.DirectSoundCreate("")
DS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
desc.fxFormat.nFormatTag = WAVE_FORMAT_PCM ' format audio
desc.fxFormat.nSize = 0
'desc.fxFormat.lExtra = 0
desc.fxFormat.nChannels = CHAN
desc.fxFormat.lSamplesPerSec = SRATE
desc.fxFormat.nBitsPerSample = BITDEPTH
desc.fxFormat.nBlockAlign = BLOCK
desc.fxFormat.lAvgBytesPerSec = BLOCK * SRATE
desc.lFlags = DSBCAPS_STATIC Or DSBCAPS_CTRLVOLUME Or DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN
desc.lBufferBytes = BLOCK * DUR * SRATE
Set dsToneBuffer = DS.CreateSoundBuffer(desc)
Dim i ' pembuatan nada
Dim n
For i = 0 To DUR * SRATE - 1
n = 2 * PI * (FREQ * i / SRATE)
Sample = Sin(n) + Sin(2 * n)
sbuf(2 * i) = Sample * 0.25 * 32767
sbuf(2 * i + 1) = sbuf(2 * i)
Next i
For i = 0 To 21
Set Tone(i) = DS.CreateSoundBuffer(desc)
Tone(i).WriteBuffer 0, BLOCK * DUR * SRATE, sbuf(0), DSBLOCK_DEFAULT
Next
End Sub
'uji penekanan tombol
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then nfreq = 262: poly = 1
If KeyCode = vbKeyW Then nfreq = 294: poly = 2
If KeyCode = vbKeyE Then nfreq = 330: poly = 3
If KeyCode = vbKeyR Then nfreq = 349: poly = 4
If KeyCode = vbKeyT Then nfreq = 392: poly = 5
If KeyCode = vbKeyY Then nfreq = 440: poly = 6
If KeyCode = vbKeyU Then nfreq = 495: poly = 7
If KeyCode = vbKeyI Then nfreq = 524: poly = 8
If KeyCode = vbKeyZ Then nfreq = 262 / 2: poly = 9
If KeyCode = vbKeyX Then nfreq = 294 / 2: poly = 10
If KeyCode = vbKeyC Then nfreq = 330 / 2: poly = 11
If KeyCode = vbKeyV Then nfreq = 349 / 2: poly = 12
If KeyCode = vbKeyB Then nfreq = 392 / 2: poly = 13
If KeyCode = vbKeyN Then nfreq = 440 / 2: poly = 14
If KeyCode = vbKeyM Then nfreq = 495 / 2: poly = 15
If KeyCode = 188 Then nfreq = 262: poly = 16
If KeyCode = vbKeyO Then nfreq = 294 * 2: poly = 17
If KeyCode = vbKeyP Then nfreq = 330 * 2: poly = 18
If KeyCode = 219 Then nfreq = 349 * 2: poly = 19
If KeyCode = 221 Then nfreq = 392 * 2: poly = 20
If KeyCode = 220 Then nfreq = 440 * 2: poly = 21
If Not tekan(KeyCode) And nfreq <> 0 Then
tekan(KeyCode) = True
Tone(poly).SetVolume -10000
frekNote = (nfreq / FREQ) * 44100
Tone(poly).SetFrequency frekNote
Tone(poly).SetCurrentPosition 0
Tone(poly).Play 1
Tone(poly).SetVolume -500
End If
End Sub
Private Sub PlayIt()
End Sub
'uji pelepasan tombol
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then tekan(vbKeyQ) = False: poly = 1: StopIt
If KeyCode = vbKeyW Then tekan(vbKeyW) = False: poly = 2: StopIt
If KeyCode = vbKeyE Then tekan(vbKeyE) = False: poly = 3: StopIt
If KeyCode = vbKeyR Then tekan(vbKeyR) = False: poly = 4: StopIt
If KeyCode = vbKeyT Then tekan(vbKeyT) = False: poly = 5: StopIt
If KeyCode = vbKeyY Then tekan(vbKeyY) = False: poly = 6: StopIt
If KeyCode = vbKeyU Then tekan(vbKeyU) = False: poly = 7: StopIt
If KeyCode = vbKeyI Then tekan(vbKeyI) = False: poly = 8: StopIt
If KeyCode = vbKeyZ Then tekan(vbKeyZ) = False: poly = 9: StopIt
If KeyCode = vbKeyX Then tekan(vbKeyX) = False: poly = 10: StopIt
If KeyCode = vbKeyC Then tekan(vbKeyC) = False: poly = 11: StopIt
If KeyCode = vbKeyV Then tekan(vbKeyV) = False: poly = 12: StopIt
If KeyCode = vbKeyB Then tekan(vbKeyB) = False: poly = 13: StopIt
If KeyCode = vbKeyN Then tekan(vbKeyN) = False: poly = 14: StopIt
If KeyCode = vbKeyM Then tekan(vbKeyM) = False: poly = 15: StopIt
If KeyCode = 188 Then tekan(188) = False: poly = 16: StopIt
If KeyCode = vbKeyO Then tekan(vbKeyO) = False: poly = 17: StopIt
If KeyCode = vbKeyP Then tekan(vbKeyP) = False: poly = 18: StopIt
If KeyCode = 219 Then tekan(219) = False: poly = 19: StopIt
If KeyCode = 221 Then tekan(221) = False: poly = 20: StopIt
If KeyCode = 220 Then tekan(220) = False: poly = 21: StopIt
End Sub
Private Sub StopIt()
Tone(poly).SetVolume -10000
nfreq = 0: poly =
End Sub
Sebelum menekan tombol F5, lakukan langkah berikut : Project -> References -> Pilih DirectX 8 for Visual Basic Type Library
Selamat Berkreasi ..!
Kamis, 26 Mei 2011
Program Hitung Resistor
Private Sub Command1_Click()
panjang = Shape1.Width
For i = 0 To 10000
Shape1.Width = i / 10000 * panjang
Label5.Caption = "Proses " & i / 100000 * 100 & " %"
Next
Text1.Text = ((Combo1.ListIndex * 10) + Combo2.ListIndex) * 10 ^ Combo3.ListIndex
If Combo4.ListIndex = 0 Then Text2.Text = 0.05 * Val(Text1.Text)
If Combo4.ListIndex = 1 Then Text2.Text = 0.1 * Val(Text1.Text)
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
panjang = Shape1.Width
For i = 0 To 10000
Shape1.Width = i / 10000 * panjang
Label5.Caption = "Proses " & i / 100000 * 100 & " %"
Next
Text1.Text = ((Combo1.ListIndex * 10) + Combo2.ListIndex) * 10 ^ Combo3.ListIndex
If Combo4.ListIndex = 0 Then Text2.Text = 0.05 * Val(Text1.Text)
If Combo4.ListIndex = 1 Then Text2.Text = 0.1 * Val(Text1.Text)
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
Rabu, 18 Mei 2011
Tugas Tabel Alamat Web
Buatlah sebuah halamat Web berupa tabel yang terdiri dari 4 kolom sebagai berikut :
1. No
2. Nama
3. Kelas
4. Alamat Web
Berikan hyperlink pada seluruh nama yang mengarah pada alamat web masing-masing.
Selamat Bekerja !
1. No
2. Nama
3. Kelas
4. Alamat Web
Berikan hyperlink pada seluruh nama yang mengarah pada alamat web masing-masing.
Selamat Bekerja !
Posted in: Tugas
Rabu, 04 Mei 2011
Tugas Email dan Copy Carbon
Buatlah sebuah e-mail dikirimkan ke y_riyadi@yahoo.com dengan subjek Copy Carbon kemudian di CC(copy carbon) ke 2 teman kalian ...
Serta tuliskan alamat e-mail kalian di halaman ini.
Serta tuliskan alamat e-mail kalian di halaman ini.
Kamis, 14 April 2011
Tutorial 1 : Mengenal Visual Basic
Mengenal Visual basic
Visual basic merupakan bahasa pemrograman yang dikembangkan oleh perusahan Microsoft sejak tahun 1991, adalah pengembangan dari bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an.
Menjalankan Visual Basic
Visual Basic dapat dipanggil dengan cara Click Start > Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0, maka akan muncul sebuah menu. Setelah itu Pilih Standar.EXE kemudian tekan tombol Open. Maka akan muncul tampilan Visual Basic Seperti dibawah ini
Tugas Hari ini (WS-WD)
1. Tuliskan kode tabel html yang telah kalian buat ( posting link-nya di halaman ini)
2. Lakukan follow pada alamat blogspot ini
3. Buatlah widget traffic seperti terlihat dibawah sebelah kanan.
2. Lakukan follow pada alamat blogspot ini
3. Buatlah widget traffic seperti terlihat dibawah sebelah kanan.
Posted in: Tugas
Selasa, 05 April 2011
Tugas KMD kelas 8
Jawablah pertanyaan dibawah ini :1. Pada usia berapa tahun Muhammad Darwisy berhaji ?
2. Organisasi Muhammadiyah pernah menggunakan azas lain selain Azas Islam yaitu ?
3. Tuliskan susunan Pengurus Organisasi Muhammadiyah dari tingkat terendah ke paling tinggi !
4 Berucap dengan kata-kata yang kotor mencerminkan tindakan yang kurang baik. Bagaimana cara memperbaikinya?
Posted in: Tugas
Selasa, 29 Maret 2011
Tutorial 2 : Membuat Program Tambah dan Kali (Visual Basic)
Buatlah Sebuah form yang terdiri dari :
· 4 Label (Label1, Label2, Label3, Label4)
· 3 TextBox (Text1, Text2, Text3)
· 3 CommandButton (Command1, Command2, Command3)
Langkah-langkah berikutnya setelah membuat Form, lakukan pengeditan pada bagian label.
Selasa, 08 Maret 2011
Tugas Pemrograman Kelas 12 TI
Buatlah sebuah program sederhana dengan Visual Basic dengan ketentuan. (Untuk nilai pemrograman visual berbasis objek dikumpulkan tanggal 22 Maret 2011) :
- memasukan dua angka berbeda, menunjukan hasil matematis
- ada command button untuk perkalian, penjumlahan dan menutup program
- ada tampilan nama dan kelas pembuat program
- source program dikumpulkan bersama file executable atau *.exe
Posted in: Tugas
Rabu, 02 Maret 2011
Tugas Jaringan Kelas XI TI
1. Apakah yang dimaksud dengan Dedicated Server dan Non Dedicated Server.
2. Jelaskan fungsi Dedicated Server dan Non Dedicated Server, kapan digunakannya kedua infrastruktur tersebut.
3. Apakah Sekolah SMK Muhammadiyah2 memiliki Dedicated Server /Non Dedicated Server? Jelaskan alasanmu!
(Jawaban bukan hasil copy paste)
2. Jelaskan fungsi Dedicated Server dan Non Dedicated Server, kapan digunakannya kedua infrastruktur tersebut.
3. Apakah Sekolah SMK Muhammadiyah2 memiliki Dedicated Server /Non Dedicated Server? Jelaskan alasanmu!
(Jawaban bukan hasil copy paste)
Posted in: Tugas
Kamis, 17 Februari 2011
Tugas Tabel Web XI TI
Sebutkan fungsi-fungsi tag dibawah ini !
1. th
2. td
3. tr
4. cell spasing
5. cell padding
6. bgcolor
7. border
1. th
2. td
3. tr
4. cell spasing
5. cell padding
6. bgcolor
7. border
Posted in: Tugas
Rabu, 02 Februari 2011
Selasa, 01 Februari 2011
Tugas Basa Sunda kelas 7
1. Jelaskeun naon anu disebut pedaran!
2. Sebutkeun bagian-bagian naon wae anu aya dina pedaran!
3. Jelaskeun naon anu disebut paribasa! Tuliskeun hiji conto paribasa jeung hartina.
2. Sebutkeun bagian-bagian naon wae anu aya dina pedaran!
3. Jelaskeun naon anu disebut paribasa! Tuliskeun hiji conto paribasa jeung hartina.
Posted in: Tugas
Tugas KMD kelas 9
Selasa, 25 Januari 2011
Sabtu, 22 Januari 2011
Tugas Web Statis
Untuk siswa kelas XI TI yang telah memiliki halaman web statis silahkan posting alamatnya disini.
Posted in: Tugas
Rabu, 19 Januari 2011
Tugas Jaringan
Sebuah perusahaan merencanakan akan menggunakan sebanyak 700 unit komputer pada perusahaan tersebut. Administrator jaringan perusahaan tersebut menggunakan IP kelas C.
Pertanyaan nya
1. Berapa jaringan local yang dibentuk?
2. Tuliskan range nomor IP untuk tiap jaringannya.
Pertanyaan nya
1. Berapa jaringan local yang dibentuk?
2. Tuliskan range nomor IP untuk tiap jaringannya.
Posted in: Tugas
