Soal-Soal Algoritma & Pemrograman Fungsi Rekursif

Buatlah program untuk masing-masing soal berikut ini, dengan menggunakan fungsi rekursif

1. Buat program yang mengandung fungsi untuk menghitung perkalian. Nama fungsi : kali(a, b). Input : a dan b. a dan b bilangan bulat. Outputnya adalah hasil perkalian a dengan b.
2. Buat program yang mengandung fungsi untuk menghitung faktorial. Nama fungsi : faktorial(n). Input : n. n adalah bilangan bulat positif. Outputnya adalah hasil dari fakrotial n.
3. Buat program yang mengandung fungsi untuk menghitung permutasi. Nama fungsi : permutasi(a, b). Input : a dan b. a dan b adalah bilangan bulat positif. Outputnya adalah hasil dari permutasi a dan b.
4. Buat program yang mengandung fungsi untuk menghitung kombinasi. Nama fungsi : kombinasi(a, b). Input : a dan b. a dan b adalah bilangan bulat positif. Outputnya adalah hasil dari kombinasi dan b.
5. Buatlah program untuk mencari berapa angka ke-n dari deret Fibonacci. Nama fungsi : fibonacci(n). Input : n. n adalah urutan angka / no. urut / suku ke-n, yang ada dalam deret Fibonacci. Output : angka dari dalam deret Fibonacci sesuai dengan urutan yang diinput.

Cara Mengecek atau Memeriksa Versi MDAC

MDAC adalah kependekan dari Microsoft Data Access Components. Pada dasarnya MDAC adalah sekumpulan library yang diperlukan pada saat membuat program aplikasi atau menjalankan program aplikasi yang mengakses database. Biasanya MDAC berisi ActiveX Data Objects (ADO), OLE DB, and Open Database Connectivity (ODBC). Untuk lebih lengkap tentang MDAC silahkan dibaca di Wikipedia.

MDAC ini menjadi penting saat program aplikasi akan didistrbusikan (diinstall) ke komputer klien. Karena jika di komputer klien tidak terdapat MDAC yang tepat versinya, program aplikasi bisa jadi tidak dapat bekerja dengan sempurna.

Langkah-langkah untuk memeriksa MDAC di suatu komputer adalah melalui registry dengan langkah sebagai berikut :

Informasi versi yang ditemukan dalam kunci berikut:

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer

Untuk memeriksa registri, ikuti langkah berikut:

1. Pada Mulai menu, klik Menjalankan.
2. Dalam Terbuka kotak teks, ketik regedit kemudian klik Oke; ini mulai Peninjau Suntingan Registri.
3. Di panel navigasi, drill-down lintasan berikut:
   HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess
4. Di panel rincian, lihat di Nama kolom untuk FullInstallVer dan Versi. Masing-masing kunci ini akan memiliki informasi versi yang sesuai dalam Data kolom.
5. Setelah selesai, klik Keluar pada Registri menu untuk menutup Registry Editor.

(sumber : http://support.microsoft.com/kb/301202/id-id)

Untuk dapat men-download MDAC silahkan klik link donwload MDAC ini.

 Catatan : Pada saat kita menginstall software database system buatan Ms, biasanya MDAC sudah diikutsertakan dalam instalasi!

Perbedaan New Line dan Carriage Return (Difference of NL and CR)

Bro and sista yang suka otak atik program untuk baca-tulis file teks biasa (plain text atau ASCII text file) wajib baca link di bawah ini yang isinya perbedaan antara new line (\n) dengan carriage return (\r) terutama yang cross platform (Unix, Linux, MacOS, Windows) ... yuk langsung ke TKP :

http://stackoverflow.com/questions/3307747/difference-between-newline-and-carriage-return-r

Mengecek Apakah Suatu Range Berada di Dalam Sekelompok Range

Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function


Sub TestInRange()
    If InRange(ActiveCell, Range("A1:D100")) Then
        ' code to handle that the active cell is within the right range
        MsgBox "Active Cell In Range!"
    Else
        ' code to handle that the active cell is not within the right range
        MsgBox "Active Cell NOT In Range!"
    End If

End Sub 

Interopabilitas Ms-Excel VBA dengan Ms-Word

Tambahkan referensi untuk MsWord di VBE : Tools -- References... -- Microsoft Word Object Library.

Kemudian tulis perintah VBA di bawah ini :

Sub CreateNewWordDoc()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim wrdTable As Word.Table
    Dim xText, xText2
    Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Add ' create a new document
    Set wrdRange = wrdDoc.Range
    wrdApp.Visible = True
    
    For i = 1 To 10
        xText = Worksheets("Sheet1").Cells(i, 1).Value
        xText2 = Worksheets("Sheet1").Cells(i, 2).Value
        
        Set wrdRange = wrdDoc.Range
        With wrdRange
            .Collapse Direction:=wdCollapseEnd
            .InsertParagraphAfter
            .Collapse Direction:=wdCollapseEnd
        End With
        
        'Create table
        Set wrdTable = wrdDoc.Tables.Add(Range:=wrdRange, NumRows:=1, NumColumns:=2)
        
        With wrdTable
            With .Cell(i, 1).Range
                .InsertAfter xText
            End With
            xText = Worksheets("Sheet1").[a2].Value
            With .Cell(i, 2).Range
                .InsertAfter xText2
            End With
        End With
    Next i

    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Soal Latihan Algoritma dan Dasar-dasar Pemrograman

1. Buatlah algoritma / program untuk menghitung volume sebuah silinder yang memiliki radius 12,5 cm dan tinggi 10 cm.
2. Buatlah algoritma / program untuk menghitung luas segitiga jika memiliki alas 1,2 m dan tingginya 1100 mm.
3. Buatlah program untuk menhitung energi kinetik suatu benda yang jatuh bebas dari lantai 5 sebuah gedung. Setiap lantai rata-rata memiliki ketinggian 10 m. Nilai percepatan grafitasi adalah 10 m/detik. Petunjuk : energi potensial = energi kinetik. energi potensial = masa x gravitasi x ketinggian awal. energi kinetik = 0,5 x massa x kecepatan akhir2.
4. Sebuah rangkaian listrik terdiri dari tiga buah resistor yang dirangkai secara paralel. Besarnya hambatan masing-masing resistor adalah 10 ohm, 25 ohm, 12 ohm. Rangkaian terhubung pada sumber daya listrik yang memiliki tegangan 100 volt. Hitunglah total nilai resistansi ekivalen rangkaian resistor tersebut dan hitung pula besarnya arus yang mengalir di dalam rangkaian. Total nilai resistensi adalah kebalikan total penjumlahan dari 1/R tiap resistor. Sedangkan besarnya arus yang mengalir sama dengan besarnya tegangan dibagi total nilai resistansi ekivalen rangkaian resistor.
5. Sebuah toko menjaul barang ABC dan DEF. Harga kulakan ABC adalah Rp 200.000,00 dan dijual 15% lebih tinggi dari harga kulakannya.Barang DEF dijual dengan harga Rp 300.000 dan harga kulakannya 8% lebih rendah dari harga penjualan. Pada awal bulan pemilik toko kulakan ABC sebanyak 200 buah, dan DEF 100 buah. Pada akhir bulan semua barang habis terjual. Hitunglah keuntungan tiap barang, keuntungan semua barang dan hitung pula keuntungan bersih jika dipotong pajak sebesar 10%

Macro VBA Excel untuk Menyembunyikan / Tidak menyembunyikan Row pada Worksheet

Berikut macro VBA Excel untuk menyembunyikan atau menampilkan row yang disembunyikan pada worksheet :

'Diasumsikan row yang disembunyikan adalah row no. 1
Sub toHideOrNotToHide()
 Rows("1:1").Select
 Selection.EntireRow.Hidden = Not Selection.EntireRow.Hidden
End Sub

Untuk memudahkan menyembunyikan atau menampilkan row (memudahkan menjalankan macro-nya) dapat dibuat sebuah "button" yg bertindak sebagai toogle button.

Untuk mengganti row selain row no. 1 : angka 1 pada baris perintah Rows("1:1").Select diganti dengan angka yang menunjukkan no. row yang akan disembunyikan. Misal row no. 12 yang akan disembunyikan, maka perintahnya diubah menjadi : Rows("12:12").Select.. Jika barisnya lebih dari satu, misalnya baris 3 s/d baris 5 maka perintahnya menjadi : Rows("3:5").Select

Masalah pada Penamaan VB.Net, Database SQL Server dan Access

*glodagh!*

Berdasakan pengalaman dari dulu, bahwasannya membuat suatu nama (misal nama file, nama prosedur, nama tabel, dan nama-nama lainnya) tidak boleh menggunakan SPASI menjadi aturan baku yang tidak bisa diganggu gugat. Ternyata kemarin mendapatkan problem karena ada nama tabel yang memakai spasi!!!

Gara-garanya adalah tabel tersebut sudah dibuat sangat lama (mungkin waktu masih super bego) kemudian digunakan lagi dalam membuat program VB.Net yang mengakses database... alhasil selama tiga hari mencari-cari penyebab masalah tidak bisanya data disimpan di dalam database tanpa menggunakan perintah SQL "insert" secara eksplisit (melalui dataset). Nah setelah nama tabelnya diganti (spasinya dihilangkan), barulah programmnya berjalan dengan benar.

Kesimpulan :

Jika ingin membuat nama, nama apa saja, nama file kek, nama database kek, nama class kek... jangan menggunakan SPASI walaupun sistem operasi Windows dan aplikasi-aplikasinya mendukung pemakaian spasi untuk penamaan. Gunakanlah garis bawah (underscore) sebagai pengganti spasi, atau dapat juga menggunakan cara penulisan punuk Onta (Camel text) Contoh : Hitung Total() diganti dengan Hitung_Total() atau HitungTotal()

Menampilkan Semua Nama Sheet pada Excel VBA

Berikut ini adalah prosedur atau macro untuk menampilkan nama-nama sheet atau worksheet yang sedang dibuka melalui aplikasi Ms-Excel melalui kotak pesan (message box).

Sub TampilNama()
Dim w As Worksheet
For Each w In Worksheets
   MsgBox w.Name
Next
End Sub

Pengaksesan Objek pada PowerPoint Menggunakan VBA

Untuk mengakses sebuah objek pada suatu slide di dalam sebuah file PowerPoint menggunakan sintaks seperti di bawah ini :

ActivePresentation.Slides(n).Shapes(m).ppppppp

n = nomor / halaman slide
m = nomor objek pada slide
ppppppp = property milik objek