Word 2007: Tulisannya kok berantakan dan tidak ada spasinya?

Apakah Anda pernah mengalami ketika membuka dokumen Word di MS Word 2007, ternyata tulisannnya nyambung terus dan sepertinya antarkata tidak ada spasinya? Seperti berikut ini: Word2007:Tulisannyakokberantakandantidakadaspasinya?
Hal ini karena dokumen yang Anda buka(Docx) adalah dokumen yang murni dibuat dengan menggunakan MS Word 2010. Jika Anda edit dokumen tersebut di Word 2007 dengan memberikan spasi dan Anda simpan. Kemudian dokumen tersebut dibuka pada Word 2010, maka spasi yang Anda tambahkan tidak akan terbaca di Word 2010 sehingga dokumen tersebut tampilannya akan sama seperti word 2007 tadi.
Jadi untuk orang-orang yang sering bekerja dengan cara collaborative document harus hati-hati. Ini merupakan bug tentang tidak kompatibelnya Word 2007 dengan Word 2010. Walaupun file dokumennya berekstensi sama namun ada ketidak kompatibelan.
Dari situsnya Microsoft:
Gejala : Saat Anda membuka dokumen Microsoft Word 2010 di Microsoft Office Word 2007, spasi hilang di antara beberapa kata di dokumen.
Pemecahan Masalah: Untuk menyelesaikan masalah ini, pasang Suite Microsoft Office 2007 Paket Layanan 3 (SP3). Untuk mengunduh paket layanan ini, kunjungi situs web Microsoft berikut ini:

Microsoft Office Suite 2007 Paket Layanan 3

Ukuran filenya sebesar 290-an MB. Cukup besar untuk yang punya internet dengan bandwidth yang pas-pasan.

Jadi untuk mengatasinya pengguna Word 2010 ‘lah yang harus mengalah. Selalu simpan dokumennya dalam compatibility mode bagi yang sering kerja secara kolaboratif.  Untuk file yang tidak perlu diedit cukup disimpan dalam bentuk .pdf. Word 2010 sudah ada fasilitas untuk simpan ke PDF.

sumber: Microsoft, White-blue sky

http://fnhidayat.wordpress.com/2012/03/30/word-2007-tulisannya-kok-berantakan-dan-tidak-ada-spasinya/

Tangisan Rasulullah Menggoncangkan Arasy

Tangisan Rasulullah Menggoncangkan Arasy

Dikisahkan, bahwasanya di waktu Rasulullah s.a.w. sedang asyik bertawaf di Ka’bah,beliau mendengar seseorang di hadapannya bertawaf, sambil berzikir: “Ya Karim! Ya Karim!”
Rasulullah s.a.w. menirunya membaca “Ya Karim! Ya Karim!” Orang itu Ialu berhenti di salah satu sudut Ka’bah, dan berzikir lagi: “Ya Karim! Ya Karim!” Rasulullah s.a.w. yang berada di belakangnya mengikut zikirnya “Ya Karim! Ya Karim!” Merasa seperti diolok-olokkan, orang itu menoleh ke belakang dan terlihat olehnya seorang laki-laki yang gagah, lagi tampan yang belum pernah dikenalinya. Orang itu Ialu berkata:
“Wahai orang tampan! Apakah engkau memang sengaja memperolok-olokkanku, karena aku ini adalah orang Arab badwi? Kalaulah bukan kerana ketampananmu dan kegagahanmu, pasti engkau akan aku laporkan kepada kekasihku, Muhammad Rasulullah.”

Mendengar kata-kata orang badwi itu, Rasulullah s.a.w. tersenyum, lalu bertanya:
“Tidakkah engkau mengenali Nabimu, wahai orang Arab?” “Belum,” jawab orang itu. “Jadi
bagaimana kau beriman kepadanya?”
“Saya percaya dengan mantap atas kenabiannya, sekalipun saya belum pernah melihatnya, dan membenarkan perutusannya, sekalipun saya belum pernah bertemu dengannya,” kata orang Arab badwi itu pula.
Rasulullah s.a.w. pun berkata kepadanya: “Wahai orang Arab! Ketahuilah aku inilah Nabimu di dunia dan penolongmu nanti di akhirat!” Melihat Nabi di hadapannya, dia tercengang, seperti tidak percaya kepada dirinya.

“Tuan ini Nabi Muhammad?!” “Ya” jawab Nabi s.a.w. Dia segera tunduk untuk mencium kedua kaki Rasulullah s.a.w. Melihat hal itu, Rasulullah s.a.w. menarik tubuh orang Arab itu, seraya berkata kepadanya:
“Wahal orang Arab! janganlah berbuat serupa itu. Perbuatan seperti itu biasanya dilakukan oleh hamba sahaya kepada juragannya, Ketahuilah, Allah mengutusku bukan untuk menjadi seorang yang takabbur yang meminta dihormati, atau diagungkan, tetapi demi membawa berita.
Ketika itulah, Malaikat Jibril a.s. turun membawa berita dari langit dia berkata: 

“Ya Muhammad! Tuhan As-Salam mengucapkan salam kepadamu dan bersabda: “Katakanlah kepada orang Arab itu, agar dia tidak terpesona dengan belas kasih Allah. Ketahuilah bahawa Allah akan menghisabnya di hari Mahsyar nanti, akan menimbang semua amalannya, baik yang kecil maupun yang besar!” Setelah menyampaikan berita itu, Jibril kemudian pergi.
Maka orang Arab itu pula berkata:
“Demi keagungan serta kemuliaan Tuhan, jika Tuhan akan membuat perhitungan atas amalan hamba, maka hamba pun akan membuat perhitungan dengannya!” kata orang Arab badwi itu. “Apakah yang akan engkau perhitungkan dengan Tuhan?” Rasulullah bertanya kepadanya. ‘Jika Tuhan akan memperhitungkan dosa-dosa hamba, maka hamba akan memperhitungkan betapa kebesaran maghfirahnya,’ jawab orang itu.
‘Jika Dia memperhitungkan kemaksiatan hamba, maka hamba akan memperhitungkan betapa keluasan pengampunan-Nya. Jika Dia memperhitungkan kekikiran hamba, maka hamba akan memperhitungkan pula betapa kedermawanannya!’

Mendengar ucapan orang Arab badwi itu, maka Rasulullah s.a.w. pun menangis mengingatkan betapa benarnya kata-kata orang Arab badwi itu, air mata beliau meleleh membasahi Janggutnya. Lantaran itu Malaikat Jibril turun lagi seraya berkata:
“Ya Muhammad! Tuhan As-Salam menyampaikan salam kepadamu, dan bersabda: Berhentilah engkau dari menangis! Sesungguhnya karena tangismu, penjaga Arasy lupa dari bacaan tasbih dan tahmidnya, sehingga la bergoncang. Katakan kepada temanmu itu, bahwa Allah tidak akan menghisab dirinya, juga tidak akan memperhitungkan kemaksiatannya. Allah sudah rnengampuni semua kesalahannya dan la akan menjadi temanmu di syurga nanti!” Betapa sukanya orang Arab badwi itu, mendengar berita tersebut. la Ialu menangis karena tidak berdaya menahan keharuan dirinya.

Source : Himpunan kisah-kisah teladan
Shared By Kisah Penuh Hikmah

Don't Despair.

Don't Despair............

Hai anak-anakku, pergilah kamu, maka carilah berita tentang Yusuf dan saudaranya dan jangan kamu berputus asa dari rahmat Allah. Sesungguhnya tiada berputus asa dari rahmat Allah, melainkan kaum yang kafir.  
(QS. Yusuf : 87) 

Mereka menjawab, "Kami menyampaikan kabar gembira kepadamu dengan benar, maka janganlah kamu termasuk orang-orang yang berputus asa". Ibrahim berkata, "Tidak ada orang yang berputus asa dari rahmat Tuhannya, kecuali orang-orang yang sesat". (QS. al-Hijr : 55-56)

Dan orang-orang yang kafir kepada ayat-ayat Allah dan pertemuan dengan Dia, mereka putus asa dari rahmat-Ku, dan mereka itu mendapat azab yang pedih. (QS. al-Ankabut : 23)

Katakanlah, "Hai hamba-hamba-Ku yang melampaui batas terhadap diri mereka sendiri, janganlah kamu berputus asa dari rahmat Allah. Sesungguhnya Allah mengampuni dosa-dosa semuanya. Sesungguhnya Dialah Yang Maha Pengampun lagi Maha Penyayang. (QS. az-Zumar: 53) 

Karena..

“Karena sesungguhnya sesudah kesulitan itu ada kemudahan. Sesungguhnya sesudah kesulitan itu ada kemudahan” (QS. Al Insyiroh: 5)

Skrip Program Barisan Aritmatika dan Geometri (Visual Basic)

Skrip Program Barisan Aritmatika dan Geometri (Visual Basic)

Dim a As Single, b As Single, S As Single, L As Single, K As Single

Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "harus angka broo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text2.Text) Then
MsgBox "harus angka broo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text3.Text) Then
MsgBox "harus angka broo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
End If
End If
End If
If Option1.Value = True Then
List1.Clear
a = Text1.Text
b = Text2.Text
n = Text3.Text
For i = 1 To n
ui = a + (i - 1) * b
List1.AddItem "suku ke   " & i & "  adalah  " & ui
Next i
End If
If Option2.Value = True Then
List1.Clear
a = Text1.Text
b = Text2.Text
n = Text3.Text
For i = 1 To n
ui = a * (b ^ (i - 1))
List1.AddItem "suku ke   " & i & "  =  " & ui
Next i
End If
End Sub

Private Sub Command2_Click()
If Not IsNumeric(Text4.Text) Then
MsgBox "harus angka broo!!"
Text4.SetFocus
Text4.Text = " "
Exit Sub
End If
If Option1.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text3.Text
un = a + (Text4.Text - 1) * b
Label4.Caption = "adalah  " & un
End If
If Option2.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text3.Text
un = a * b ^ (Text4.Text - 1)
Label4.Caption = "adalah  " & un
End If
End Sub

Private Sub Command3_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text2.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text3.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
End If
End If
End If
If Option1.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text3.Text
Sn = (n / 2) * (2 * a + ((n - 1) * b))
Label5.Caption = Sn
End If
If Option2.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text3.Text
Select Case b
Case b > 1
Sn = a * (b ^ n - 1) / (b - 1)
Label5.Caption = Sn
Case Else
Sn = a * (1 - b ^ n) / (1 - b)
Label5.Caption = Sn
End Select
End If
End Sub

Private Sub Command4_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text1.SetFocus
Label4.Caption = "  "
Label5.Caption = "  "
List1.Clear
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text2.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
If Not IsNumeric(Text3.Text) Then
MsgBox "isi dulu brooo!!"
Text1.SetFocus
Text2.Text = " "
Text1.Text = " "
Text3.Text = " "
Exit Sub
End If
End If
End If
If Option1.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text5.Text
Sn = (n / 2) * (2 * a + (Text5.Text - 1) * b)
Label6.Caption = "Jumlah " & n & " suku pertama adalah  " & Sn
End If
If Option2.Value = True Then
a = Text1.Text
b = Text2.Text
n = Text5.Text
Select Case b
Case b > 1
Sn = a * (b ^ n - 1) / (b - 1)
Label6.Caption = Sn
Case Else
Sn = a * (1 - b ^ n) / (1 - b)
Label6.Caption = "Jumlah " & n & " suku pertama adalah  " & Sn
End Select
End If
End Sub

Private Sub Form_Load()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text1.Text = "Pilih Salah Satu"
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Command5.Visible = True
Command6.Visible = False
List1.Visible = False
Option1.Visible = True
Option2.Visible = True
End Sub



Private Sub Option1_Click()
List1.Clear
Label1.Visible = True
Label1.Caption = "Suku Awal"
Label2.Visible = True
Label2.Caption = "Beda"
Label3.Visible = True
Label3.Caption = "Banyak Suku"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text1.SetFocus
Label4.Visible = True
Label4.Caption = "  "
Label5.Visible = True
Label5.Caption = "  "
Label6.Visible = True
Label6.Caption = "  "
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True
List1.Visible = True
End Sub

Private Sub Option2_Click()
List1.Clear
Label1.Visible = True
Label1.Caption = "Suku Awal"
Label2.Visible = True
Label2.Caption = "Rasio"
Label3.Visible = True
Label3.Caption = "Banyak Suku"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text1.SetFocus
Label4.Visible = True
Label4.Caption = "  "
Label5.Visible = True
Label5.Caption = "  "
Label6.Visible = True
Label6.Caption = "  "
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True
List1.Visible = True
End Sub