Minggu, 18 Desember 2011

microsoft office 2007 di puppy linux

Ms. Office 2007 di puppy linux

bismillaah.
berikut ini langkah-langkah yang bisa kita lakukan.

1. Pastikan personal storage yang kita punya besar. (saya sarankan 2 gb)
kalau masih sedikit, personal storage bisa kita tambah dengan klik menu, utilities, resize personal storage file.


2. install wine.pet terbaru. (yang akan kita gunakan adalah wine versi 1.3.27)
Semakin baru jenis wine, semakin sedikit masalah yang ada. Karena bug nya sudah berkurang.
Wine bisa kita dapatkan di repositori puppy linux berikut ini.
http://distro.ibiblio.org/puppylinux/pet-packages-lucid/
 

3. Copy file riched20.dll dari file windows ke direktori wine.
Caranya:
--buka rox filer, arahkan ke direktori windows yang kita punya, sebagai contoh: /mnt/sda1/WINDOWS/system32
--kemudian buka satu lagi rox filer, arahkan ke root (~), klik ikon mata agar file yang terhidden muncul, buka direktori /root/.wine/drive_c/windows/system32
--sebaiknya rename dulu file riched20.dll di wine menjadi riched20.dll.bak
--drag file riched20.dll dari windows ke direktori wine, pilih copy
keterangan:
sebenarnya langkah ke tiga ini dilewati juga tidak apa-apa.

4. buka wine configuration (winecfg)


6. pilih riched20, klik edit, kemudian jadikan native (windows), OK, dan OK lagi.
 tips:
agar equation editor bisa berjalan maka aktifkan juga usp10 pada library, set sebagai native (windows)

 7. Install ms. Office 2007 seperti biasa
 8. jalankan sampai selesai
 9. kini kita bisa membuat shortcut di desktop dengan mengedrag file exe yang sudah kita install di /root/.wine/drive_c/Program Files/Microsoft Office/Office12 ke desktop
 10. kalau ada peringatan update, jangan centang recover my work, kemudian don't send.


 Membuat ms.office di start menu
11. Sekarang kita buat ms. Office muncul di menu start. Caranya sangat mudah. Masuk ke direktori /usr/share/applications, copy file geany dengan nama msword.desktop. Edit dengan text editor (bisa dengan tahan shift dan klik).
 12. Edit menjadi seperti di bawah ini.
[Desktop Entry]
Encoding=UTF-8
Name=msword
Icon=/root/puppy-reference/midi-icons/word24.png
Comment=ms word
Exec=wine /root/.wine/drive_c/Program\ Files/Microsoft\ Office/Office12/WINWORD.EXE
Terminal=false
Type=Application
Categories=WordProcessor
GenericName=msword
 13. lakukan hal yang sama untuk msexcel, msaccess, onenote, powerpoint, atau mspublisher.
 14. Kemudian ketikkan 'fixmenus' (tanpa tanda petik) pada terminal.
 15. Langkah terakhir adalah restart jwm, atau kalau anda menggunakan openbox, restart xserver. Kini ms. Office sudah ada di menu document.
 Kini kita bisa membuka file office kita tanpa ada struktur yang acak-acakan. Yo mesti lah, karena dibuka di microsoft office nya sendiri. Lain kalau dibuka di openoffice atau aplikasi lainnya.
Kalau hanya ingin membuka file office (docx, atau xlsx) sebenarnya bisa dengan mudah dengan abiword dan gnumeric.
Gimana sekarang? Masih meragukan kecanggihan puppy linux kah?
Pakai puppy linux yuk..
;)

link tutorialnya bisa kita dapatkan di sini (setelah membuka halaman ini, klik kanan file 'mo7 di puplin', unduh)
https://docs.google.com/open?id=0B-WmUMQtTTUYM2NmZDA4YjgtMjE4OS00ODJiLTk3ZTktZjY1MjMzNDk2MTM2

mtq qs. bani israil:9-12

Bismillaah..
berikut ini adalah rekaman mtq surat bani israil ayat 9 - 12 yang saya pelajari dari pengajian ustadz zakariya di masjid baiturrahman simpang lima semarang beberapa bulan yang lalu.
silakan diunduh di sini
https://docs.google.com/open?id=0B-WmUMQtTTUYYWFhZTA0MmItZjliYS00MDFhLWE5YzQtNzZiYzExZGFkZjQ2


ada juga yang lain, yaitu alquran surat albaqarah ayat 185 - 186
berikut ini linknya
http://muktyas.blogspot.com/2011/09/mtq-alquran-surat-albaqarah185-186.html

semoga kita bisa mengamalkan apa yang sudah kita peroleh, lillaahi ta'ala karena Allah ta'ala.
terima kasih.

Jumat, 16 Desember 2011

Menghitung derajat jam

Tampilan utama derajatjam 
Buat command button pada halaman excel dengan masuk ke tab developer, insert, activex controls, command button (activex control). Atur seperti gambar di atas. 
Dobel klik tombol tersebut, akan muncul jendela vba (visual basic application). 
Ganti properties name = CmdOK, caption = OK

Ganti (General) menjadi cmdok 
Ketikkan code berikut ini. 


Private Sub CmdOk_Click()
Dim Jam, Menit, LetakJam, LetakMenit, Sisa, cMenit, cJam, LoncatB, Kurang As Integer
Dim a, DrjtB, DrjtM, DrjtJ, DrjtT As Single

Jam = Val(Cells(4, 2))
Menit = Val(Cells(4, 4))
If Menit > 60 Then
MsgBox "jam di luar jangkauan.", vbCritical, "Dj"
Cells(4, 4).Select
Exit Sub
ElseIf Menit > 0 Then
If Jam > 23 Then
MsgBox "jam di luar jangkauan.", vbCritical, "Dj"
Cells(4, 2).Select
Exit Sub
ElseIf Jam > 12 Then LetakJam = Jam - 12
ElseIf Jam = 12 Then LetakJam = 0
ElseIf Jam < 0 Then
MsgBox "jam di luar jangkauan.", vbCritical, "Dj"
Cells(4, 2).Select
Else: LetakJam = Jam
End If
ElseIf Menit < 0 Then
MsgBox "jam di luar jangkauan.", vbCritical, "Dj"
Cells(4, 4).Select
End If
LetakMenit = Int(Menit / 5)
Sisa = Menit Mod 5

'Membuat soal
Range("A7") = "Hitung sudut terkecil yang dibentuk jarum panjang dan jarum pendek pada pukul " & Jam & ":" & Menit & "."
If LetakMenit > LetakJam Then
LetakJam = LetakJam + 1
LoncatB = LetakMenit - LetakJam
Menit = 60 - Menit
ElseIf LetakMenit < LetakJam Then
LetakMenit = LetakMenit + 1
LoncatB = LetakJam - LetakMenit
Sisa = 5 - Sisa
Else:
LoncatB = 0
End If
DrjtB = LoncatB * 30
DrjtJ = Menit / 60 * 30
DrjtM = Sisa * 6
DrjtT = DrjtB + DrjtJ + DrjtM

'Menuliskan jawaban
Range("a8") = "Penyelesaian:"
Range("a8").Font.Bold = True
Range("a9") = "Jelas antara jarum pendek mendekati " & LetakJam & " & jarum panjang mendekati " & LetakMenit & ", terdapat " & LoncatB & " loncatan."
Range("a10") = "Jadi derajat bulatnya adalah " & LoncatB & "x30 =" & DrjtB & "."
Range("a11") = "Derajat jam = " & Menit & "/60x30 = " & DrjtJ & "."
Range("a12") = "Derajat menit = " & Sisa & "x6 = " & DrjtM & "."
Range("a13") = "Jadi derajat total = " & DrjtB & " + " & DrjtJ & " + " & DrjtM & " = " & DrjtT & "."
Range("a14") = "Jadi sudut terkecilnya adalah " & DrjtT & "."
Range("a14").Font.Bold = True
Range("a14:f14").Select
End Sub



Blok sel B4 sampai D4, buat agar bordernya tebal, atur warna fill menjadi kuning. Buat sebuah tombol lagi, pada properties, atur name = CmdHapus dan caption = Hapus
Kemudian ketikkan code program berikut ini.


Private Sub CmdHapus_Click()
Cells = ""
Range("a1") = "Menghitung Sudut Jam"
Range("n1") = "Petunjuk:"
Range("a3") = "Masukkan jam pada sel B4 dan menit pada sel D4."
Range("a4") = "Waktu:"
Range("c4") = ":"
End Sub




Buat keterangan sebagai berikut.
Untuk tahap akhir, agar tidak muncul grid (kotak-kotak pada sheet) silakan hilangkan centang gridline pada tab view.

Untuk menguji, silakan nonaktifkan tombol design view pada tab developer kemudian ketikkan jam pada sel B4 dan menit pada sel D4. 
Tekan tombol ok.
Untuk menghapus, tekan tombol hapus.
Selamat menikmati.


tutorial lengkapnya silakan diunduh di link berikut ini
https://docs.google.com/open?id=0B-WmUMQtTTUYNWVhNjJmMzgtZDM4NS00ZWZjLTliODQtZTg4NjM0YmI3Yzgz