Blog untuk komunikasi siswa siswi Teknik Komputer dan Jaringan SMK Tunas Harapan Pati
Minggu, 28 September 2014
Copy Disc pada Nero StartSmart 8.1.1.0
Label:
2794.99,
A02794.099,
Audio Burning,
Audio Ripping,
Backup,
Copy Disc,
Create and Edit,
Data,
Data Burning,
Desktop,
Express,
Favorite,
Image,
Music,
Nero,
Nero StarSmart,
Rip and Burn,
Start Page
Minggu, 14 September 2014
Mengganti Serial Number pada Instalasi Nero 8.1.1.0
| Gambar 98. Nero 8.1.1.0 |
Pada saat melakukan Instalasi Nero 8.1.1.0 seperti yang telah dipelajari sebelumnya, (lihat Link: http://www.komunitassoftware.blogspot.com/2014/09/menginstal-nero-startsmart-8110.html),
User perlu memasukkan serial number yang baru.
Perhatikan saat muncul gambar di bawah ini :
Selasa, 09 September 2014
Rabu, 03 September 2014
Teknik Pencabangan If -- Then -- Else -- End If Geser Kiri Atas Kanan
Gambar 96 Teknik Pencabangan VBA Excel |
Pada artikel sebelumnya sudah dibahas bagaimana membuat Program VBA Excel menggunakan Teknik Pencabangan If -- Then -- Else -- End If dengan contoh program Geser Kiri ketika kursor berada pada kolom lebih dari satu ( 1 ) dan membuat Pesan ketika kursor sudah berada pada kolom paling kiri.
Marilah kita kembangkan program tersebut dengan geser ke atas ketika kursor berada pada kolom paling kiri.Diagram alurnya adalah sebagai berikut :
Selasa, 02 September 2014
Teknik Pencabangan If .... Then .... Else ..... End If dalam VBA Excel
Setelah mempelajari Teknik Pencabangan If .... Then .... End If, marilah kita pelajari Teknik Pencabangan If .... Then .... Else ..... End If.
Perhatikan diagram alur di bawah ini.
Program di atas dimulai dengan kondisi pilihan apakah kolom sel aktif (activecell.column) > 1 atau tidak. jika activecell.column > 1 maka kursor Geser ke kiri dan jika tidak (artinya kursor berada paling kiri) maka tulis pesan.
Perhatikan diagram alur di bawah ini.
Program di atas dimulai dengan kondisi pilihan apakah kolom sel aktif (activecell.column) > 1 atau tidak. jika activecell.column > 1 maka kursor Geser ke kiri dan jika tidak (artinya kursor berada paling kiri) maka tulis pesan.
Senin, 01 September 2014
Teknik Pencabangan If ..... Then .... End If dalam VBA Excel
Marilah kita bahas Teknik Pencabangan If ..... Then .... End If dalam bentuk program VBA Excel
Dalam Flowchart di bawah ini, VBA akan melakukan gerakan ke kiri.
Flowchart di atas, jika dibuat program dalam VBA adalah :
Jika program di atas dijalankan dan kursor berada di kolom paling kiri maka akan muncul pesan Debug seperti di bawah ini.
Agar tidak muncul pesan Debug seperti di atas, maka program perlu menggunakan Teknik Pencabangan If ..... Then .... End If sehingga ketika kursor berada paling kiri program tidak melakukan kegiatan apa apa.
Perhatikan Flowchart di bawah ini.
Program dalam VBA Excel adalah :
Sub LeftArrow5_Click()
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Select
End If
End Sub
Dalam Flowchart di bawah ini, VBA akan melakukan gerakan ke kiri.
Flowchart di atas, jika dibuat program dalam VBA adalah :
| Sub LeftArrow1_Click() |
| ActiveCell.Offset(0, -1).Select |
| End Sub |
Jika program di atas dijalankan dan kursor berada di kolom paling kiri maka akan muncul pesan Debug seperti di bawah ini.
Agar tidak muncul pesan Debug seperti di atas, maka program perlu menggunakan Teknik Pencabangan If ..... Then .... End If sehingga ketika kursor berada paling kiri program tidak melakukan kegiatan apa apa.
Perhatikan Flowchart di bawah ini.
Program dalam VBA Excel adalah :
Sub LeftArrow5_Click()
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Select
End If
End Sub
Langganan:
Komentar (Atom)