Catataně Dhidhin

VB : Membuat Teks Berkedip

Dhidhin Haris — Wed, 06 Jan 2010 05:23:01 +0000

Pada tulisan kali ini, kita akan mencoba membuat efek berkedip pada teks yang ada pada control (label, textbox dan command button).

Berikut langkah-langkah pembuatannya :

Buat sebuah form dengan :

1 buah Label

1 buah Textbox

2 buat Command Button

1 buah Timer (set interval=200 dan enable=false)

Susun seperti gambar berikut :

Ketikkan program berikut di editor:

Dim status As Boolean Private Sub Command2_Click()Timer1.Enabled = True status = True End Sub

Private Sub Timer1_Timer()
status = Not (status)
If status Then
Label1.Caption = “Teks Berkedip”
Text1.Text = “Teks Berkedip”
Command1.Caption = “Teks Berkedip”
Else
Label1.Caption = “”
Text1.Text = “”
Command1.Caption = “”
End If

End Sub

Jalankan program, hasilnya seperti gambar berikut :

Sekilas Tentang SQL Server

Dhidhin Haris — Wed, 02 Dec 2009 03:20:29 +0000

MS SQL Server adalah salah satu produk Relational Database Management System (RDBMS) populer saat ini. Fungsi utamanya adalah sebagai database server yang mengatur semua proses penyimpanan data dan transaksi suatu aplikasi.

Dalam DBMS seperti MS SQL Server biasanya tersedia paket bahasa yang digunakan untuk mengorganisasi basis data yang ada, yaitu Data Definition Language (DDL) dan Data Manipulation Language (DML).

Data Definition Language (DDL)
Data Definition Language (DDL) adalah satu paket bahasa DBMS yang berguna untuk melakukan spesifikasi terhadap skema basis data. Hasil kompilasi dari DDL adalah satu set tabel yang disimpan dalam file khusus yang disebut Data Directory/Dictionary. Secara umum perintah perintah dalam DDL berhubungan dengan operasi-operasi dasar seperti membuat basis data baru, menghapus basis data, membuat tabel baru, menghapus tabel, membuat indeks, mengubah struktur tabel. Contoh perintah DDL misalnya, Create Table, Create Index, Alter, dan Drop Database

Data Manipulation Language
Data Manipulation Language (DML) adalah satu paket DBMS yang memperbolehkan pemakai untuk mengakses atau memanipulasi data sebagaimana yang telah diorganisasikan sebelumnya dalam model data yang tepat. Dengan DML dapat dilakukan kegiatan :
Mengambil informasi yang tersimpan dalam basis data.
Menyisipkan informasi baru dalam basis data.
Menghapus informasi dari tabel.

Terdapat dua tipe DML yaitu prosedural dan non prosedural.
Prosedural DML membutuhkan pemakai untuk menspesifikasikan data apa yang dibutuhkan dan bagaimana cara mendapatkannya, sedang non prosedural DML membutuhkan pemakai untuk menspesifikasikan data apa yang dibutuhkan tanpa tahu bagaimana cara mendapatkannya.

SQL merupakan kependekan dari Structured Query Language (Bahasa Query Terstruktur). SQL lebih dekat dengan DML dari pada DDL. Namun tidak berarti SQL tidak menyediakan perintah DDL. SQL lebih menekankan pada aspek pencarian dari dalam tabel. Aspek pencarian ini sedemikian penting karena di sinilah sebenarnya inti dari segala upaya kita melakukan pengelolaan data. Data dalam basis data diorganisasi sedemikian rupa dengan tujuan untuk memudahkan pencarian di kemudian hari.

Sebagai sebuah bahasa, SQL telah distandarisasi dan mengalami beberapa perubahan atau penyempurnaan. SQL muncul pertama kali pada tahun 1970 dengan nama Sequel (nama yang masih sering digunakan hingga saat ini). Standarisasi yang pertama dibuat pada tahun 1986 oleh ANSI (American National Standards Institute) dan ISO (International Standard Organization), yang disebut SQL-86. Pada tahun 1989 SQL-86 diperbaharui menjadi SQL-89. Standar terakhir yang dibuat adalah SQL-92.

Pernyataan-pernyataan SQL digunakan untuk melakukan beberapa tugas seperti : update data pada basis data, atau menampilkan data dari basis data. Beberapa software RDBMS yang dapat menggunakan SQL, seperti : Oracle, Sybase, Microsoft SQL Server, MySQL, Microsoft Access, Ingres, dsb.

Setiap software basis data mempunyai mungkin bahasa perintah / sintaks yang berbeda, namun pada prinsipnya mempunyai arti dan fungsi yang sama.

Turbo Pascal

Dhidhin Haris — Fri, 31 Jul 2009 02:30:55 +0000

Bahasa Pascal merupakan salah satu bahasa pemrograman komputer yang sudah sangat lama, tapi sampe sekarang masih banyak orang yang menggunakannya, terutama bagi yang baru mau masuk dunia pemrograman yaitu di sekolah-sekolah, terutama untuk memahami tentang algoritma pemroraman.

Untuk mempelajari bahasa Pascal ini, kita butuh software yang bisa kita pakai untuk menulis program pascal sekaligus untuk mengcompile file-nya. Software itu salah satunya adalah Turbo Pascal. Dibawah ini anda dapat mendownload software Turbo Pascal versi 7.0

Download Turbo Pascal 70.zip

Merakit PC

Dhidhin Haris — Thu, 30 Jul 2009 04:40:35 +0000

Berikut ini adalah video tutorial langkah-langkah dalam perakitan komputer (PC). Klik tombol Play untuk memainkannya.

semoga bermanfaat…

Modul Rekayasa Perangkat Lunak

Dhidhin Haris — Wed, 01 Jul 2009 12:51:53 +0000

Bagi anda siswa SMK yang yang membutuhkan modul untuk jurusan Rekayasa Perangkat Lunak, anda dapat mendownload disini gratis. Modul ini terdiri dari 3 jilid, dan masing-masing dapat anda download lewat link gambar berikut :

Semoga bermanfaat !!!!

Membuat Kamus Sederhana di Excel

Dhidhin Haris — Thu, 27 Nov 2008 05:16:29 +0000

Saya yakin temen-temen semua pasti sudah pada tahu, apa sih “Kamus” itu. Di tulisan ini saya tidak akan membahas apa itu kamus. Di sini saya pengen sharing pengalaman bagaimana cara membuat kamus sederhana dengan menggunakan Microsoft Excel.

Meskipun kamus yang nantinya di bahas disini sangat sederhana dan sangat terbatas fasilitasnya, tapi menurut saya ini tetep mengasyikan untuk dicoba.

Kamus yang nanti kita buat adalah kamus Indonesia – Inggris. Di pembuatan Aplikasi ini, kita nanti tidah butuh penguasaan pemrograman maupun penguasan database. Nanti yang kita pake cuma satu yaitu fungsi dari Microsoft Excel yaitu VLOOKUP .

Selain itu juga dibutuhkan daftar kata-kata dalam bahasa Indonesia dan Bahasa Inggrisnya yang bisa kita ketik sendiri atau copy paste dari tempat laen.

Berikut ini step by stepnya :

1. Buka File baru (File > New)

2. Pada sel C2 ketikkan Aplikasi Kamus

3. Pada sel B5 dan B6 ketik masing-masing Indonesia dan English

4. Merge sel C5:E5 dan merge pula sel C6:E6

5. Ketikkan pada sel B25 dan C25 masing-masing Indonesia dan English

6. Mulai baris B25 dan seterusnya ke bawah ketik daftar kata-kata dalam bahasa Indonesia dan ketikkan pula di sel sebelah kanannya dengan kata-kata dalam bahasa Inggrisnya.

7. Buat daftar kata-kata dalam bahasa Indonesia dan Inggris sebanyak-banyaknya (misal sampe 100 kata)

8. Sorot sel C6 dan formula berikut : =VLOOKUP(C5;B26:C45;2;FALSE)

9. Ganti B26:C45 (yang dicetak merah) sesuai dengan range tabel kata-kata yang anda buat.

10. Kamus sudah siap, silahkan masukkan sebuah kata di sel C5 lalu tekan Enter, maka pada sel C6 akan ada terjemahan teks yang kita masukkan dalam bahasa Inggris.

11. Catatan : jika kata-kata yang anda masukkan tidak ada dalam daftar maka yang ditampilkan adalah N/A

Semoga Bermanfaat.

Membuat Fungsi BacaAngka di Excel

Dhidhin Haris — Wed, 26 Nov 2008 09:26:33 +0000

Beberapa dari kita mungkin pernah menemui masalah seperti bagaimana caranya kita menyebutkan suatu angka dalam bentuk tulisan teks, seperti pada pembuatan kuitansi, misalnya Rp 1500 dibaca “seribu lima ratus rupiah”.

Nah pada tulisan kali ini saya ingin mencoba berbagi pengalaman, gimana membuat fungsi untuk membaca sebuah angka ke dalam bentuk teks dengan menggunakan Microsoft Excel.

Berikut ini langkah-langkahnya:

1. Buka Workbook/file baru (File > New)

2. Klik menu Tools > Macro > Visual Basic Editor

3. Di window Visual Basik klik menu Insert > Module

4. Ketikan code berikut :

'untuk konversi numerik ke string Private Function TAngka(Angka) As String Select Case Angka Case 0: TAngka = "nol " Case 1: TAngka = "satu " Case 2: TAngka = "dua " Case 3: TAngka = "tiga " Case 4: TAngka = "empat " Case 5: TAngka = "lima " Case 6: TAngka = "enam " Case 7: TAngka = "tujuh " Case 8: TAngka = "delapan " Case 9: TAngka = "sembilan " End Select End

FunctionPrivate Function Angka3D(Angka) As String
‘memecah angka menjadi ratusan, puluhan dan satuan
sat = Mid(Angka, Len(Angka), 1)
If Len(Angka) >= 2 Then
pul = Mid(Angka, Len(Angka) – 1, 1)
If Len(Angka) = 3 Then
rat = Mid(Angka, Len(Angka) – 2, 1)
End If
End If

‘untuk ratusan
Select Case rat
Case 0: tr = “”
Case 1: tr = “seratus “
Case Else: tr = TAngka(rat) & “ratus “
End Select

‘untuk puluhan
Select Case pul
Case 0: tp = “”
Case 1: Select Case sat
Case 0: tp = “sepuluh “
Case 1: tp = “sebelas “
Case Else: tp = TAngka(sat) & “belas “
End Select
GoTo final
Case Else: tp = TAngka(pul) & “puluh “
End Select

‘untuk satuan
Select Case sat
Case 0: ts = “”
Case Else: ts = TAngka(sat)
End Selectfinal:
Angka3D = tr & tp & ts
End Function

Private Function BcAng(Angka) As String Dim group(9)Teks = "" pj = Len(Angka) If pj > 27 Then MsgBox "Digit terlalu panjang ! " & vbCrLf & "Maksimum 27 Digit" Else 'menghitung jumlah group n = pj \ 3 'untuk group sisa If (pj Mod 3) <> 0 Then group(n + 1) = Mid(Angka, 1, pj - 3 * n) If group(n + 1) = 1 And ((n + 1) = 2 Or (n + 1) = 6) Then Teks = "se" Else Teks = Angka3D(group(n + 1)) End If If Teks <> "" Then Select Case n + 1 Case 2: Teks = Teks & "ribu " Case 3: Teks = Teks & "juta " Case 4: Teks = Teks & "milyar " Case 5: Teks = Teks & "trilyun " Case 6: Teks = Teks & "ribu trilyun " Case 7: Teks = Teks & "juta trilyun " Case 8: Teks = Teks & "milyar trilyun " Case 9: Teks = Teks & "trilyun trilyun " End Select End If End If 'untuk masing-masing group For i = n To 1 Step -1 group(i) = Mid(Angka, pj - 3 * i + 1, 3) If group(i) = 1 And (i = 2 Or i = 6) Then Teks = Teks & "se" Else Teks = Teks & Angka3D(group(i)) End IfIf Angka3D(group(i)) <> "" Then Select Case i Case 2: Teks = Teks & "ribu " Case 3: Teks = Teks & "juta " Case 4: Teks = Teks & "milyar " Case 5: Teks = Teks & "trilyun " Case 6: Teks = Teks & "ribu trilyun " Case 7: Teks = Teks & "juta trilyun " Case 8: Teks = Teks & "milyar trilyun " Case 9: Teks = Teks & "trilyun trilyun " End Select End If Next i If Angka = 0 Then Teks = "nol" BcAng = Teks End If End Function


Private Function AdaKoma(Teks) As Boolean

 AdaKoma = False

 For i = 1 To Len(Teks)

 st = Mid(Teks, i, 1)

 If st = "." Or st = "," Then

 AdaKoma = True

 End If

 Next i

 End Function
Private Function AdaRupiah(Teks) As Boolean

 AdaRupiah = False

 If UCase(Left(Teks, 2)) = "RP" Then AdaRupiah = True

 End Function
Private Function AdaNegatif(Teks) As Boolean

 AdaNegatif = False

 If Left(Teks, 1) = "-" Then AdaNegatif = True

 End Function
Public Function BacaAngka(Angka) As String

 If AdaRupiah(Angka) Then

 smt = BacaAngka(Right(Angka, Len(Angka) - 2))

 BacaAngka = smt & " rupiah"

 Exit Function

 End If
If AdaNegatif(Angka) Then

 smt = BacaAngka(Right(Angka, Len(Angka) - 1))

 BacaAngka = "negatif " & smt

 Exit Function

 End If
If AdaKoma(Angka) Then

 kt = InStr(1, Angka, ",")

 If kt = 0 Then sp = Split(Angka, ".") Else sp = Split(Angka, ",")

 BacaAngka = BcAng(sp(0)) & " koma "

 For i = 1 To Len(sp(1))

 BacaAngka = BacaAngka & TAngka(Mid(sp(1), i, 1))

 Next i

 Else

 BacaAngka = BcAng(Angka)

 End If

 End Function

5. Klik menu File > Close and Return to Microsoft Excel

6. Di window excel, klik File > Save as

7. Isi file name dengan “bacaangka”

8. Pilih tipe file menjadi “Microsoft Excel Add-In (*.xla)

9. Klik Save

10. Klik menu Tools > Add-Ins

11. Kasih cawang pada pilihan “bacaangka” dan klik OK

12. Tulis sembarang angka, misalnya 123 di sel A2

13. Di sel B2 ketikan =bacaangka(A2) lalu enter

14. Hasilnya bisa anda lihat.

Semoga sedikit trik ini dapat bermanfaat. Saran dan kritik selalu saya harapkan dari temen-temen semua.

Panduan Ujian Nasional

Dhidhin Haris — Wed, 26 Nov 2008 08:19:17 +0000

Buat temen-temen yang lagi cari-cari panduan / kisi-kisi untuk menghadapi Ujian Nasional yang sebentar lagi dilaksanakan serentak nasional (sekitar Maret atau April 2009), ini aku ada sedikit link buat download panduan / kisi-kisi Ujian Nasional untuk SMP, SMA dan SMK yang kalian cari.

- N0203_SMA_BHS_INDONESIA_P1.pdf
- N0203_SMA_BHS_INDONESIA_P2.pdf
- N0203_SMA_BHS_INDONESIA_P3.pdf

- N0203_SMA_BHS_INGGRIS_P1.pdf
- N0203_SMA_BHS_INGGRIS_P2.pdf
- N0203_SMA_BHS_INGGRIS_P3.pdf

- N0203_SMA_BHS_JERMAN_P1.pdf
- N0203_SMA_BHS_JERMAN_P2.pdf

- N0203_SMA_BHS_PERANCIS_P1.pdf
- N0203_SMA_BHS_PERANCIS_P2.pdf

- N0203_SMA_IPA_MAT_P1.pdf
- N0203_SMA_IPA_MAT_P2.pdf
- N0203_SMA_IPA_MAT_P3.pdf

- N0203_SMA_IPA-IPS_INDONESIA_P1.pdf
- N0203_SMA_IPA-IPS_INDONESIA_P2.pdf
- N0203_SMA_IPA-IPS_INDONESIA_P3.pdf

- N0203_SMA_IPA-IPS_INGGRIS_P1.pdf
- N0203_SMA_IPA-IPS_INGGRIS_P2.pdf
- N0203_SMA_IPA-IPS_INGGRIS_P3.pdf

- N0203_SMA_IPS_EKONOMI_P1.pdf
- N0203_SMA_IPS_EKONOMI_P2.pdf
- N0203_SMA_IPS_EKONOMI_P3.pdf

- N0203_SMK_INDONESIA_P1.pdf
- N0203_SMK_INDONESIA_P2.pdf

- N0203_SMK_INGGRIS_P1.pdf
- N0203_SMK_INGGRIS_P2.pdf

- N0203_SMK_KESEHATAN_MAT-TEHNIK_P1.pdf
- N0203_SMK_KESEHATAN_MAT-TEHNIK_P2.pdf

- N0203_SMK_MANAJEMEN_MAT-NONTEHNIK_P1.pdf
- N0203_SMK_MANAJEMEN_MAT-NONTEHNIK_P2.pdf