Minggu, 14 September 2014

Mengganti Serial Number pada Instalasi 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 :

Di sini user diminta untuk mengisi Informasi Pelanggan ( Customer Information ).
Informasi yang diminta adalah :
1. User Name
2. Organization
3. Serial Number.

Mengisi User Name dan Organization mudah dilakukan. Tetapi untuk mengisi Serial Number diperlukan trik trik seperti di bawah ini.



Selasa, 09 September 2014

Menginstal Nero StartSmart 8.1.1.0

Berikut ini adalah langkah langkah menginstal Nero StartSmart versi 8.1.1.0

1. Masukkan CD Nero Start Smart 8.1.1.0. Setelah menunggu beberapa saat akan muncul :

Klik Open Folder to view files untuk melihat file file yang diperlukan oleh instalasi Nero StartSmart 8.1.1.0

Rabu, 03 September 2014

Teknik Pencabangan If -- Then -- Else -- End If Geser Kiri Atas Kanan

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 :


Maka program yang dibuat adalah :



Kalau program ini dijalankan, maka pada saat posisi kursor ada di A1 ( Paling Kiri dan paling atas ) kursor akan ke kanan yaitu ke B1. Pada saat posisi di B1 (Paling atas) ketika dijalankan kursor akan geser ke kiri. Dengan demikian kursor akan selalu bergeser kanan dan kiri di A1 dan B1.
Agar kursor tetap bergeser ke kanan setelah dari A1, maka syarat pencabangan yang pertama harus diubah. Jika sebelumnya disyaratkan bahwa pada saat kursor berada pada kolom tidak paling kiri dia ke kiri dan pada saat kursor berada pada posisi paling kiri maka kursor tidak ke kiri maka harus diubah karena ini akan berlaku pada saat di B1, kursor akan ke kiri.
Syaratnya sebaiknya diubah seperti pada diagram alur di bawah ini.


Program VBA Excel yang digunakan adalah :


Ada tambahan script

Activecell.column > 1 and Activecell.Row > 1 
Tambahan script di atas untuk membatasi agar pada posisi B1 kursor tetap geser ke kanan.

ActiveCell.Interior.ColorIndex = ActiveCell.Column
ActiveCell.Interior.ColorIndex = ActiveCell.Row
Tambahan script di atas untuk memberi efek warna tergantung pada posisi kolom kursor dan posisi Baris Kursor sesuai dengan Tabel Color Index di bawah ini :




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.

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