Terbilang Indonesia

Contoh coding ini digunakan untuk menampilkan tulisan terbilang

dengan bahasa Indonesia dari besar uang yang dimasukkan ke





Dalam textbox. Besar uang yang dimasukkan bukan bilangan

pecahan, tapi bilangan bulat.



"Membuat parameter "MataUang" yang bersifat opsional, di mana

default-nya = "rupiah". Jika parameter ini dikosongkan dengan ""

maka kata "rupiah" tidak muncul. Jika parameter ini tidak ada

(hanya memiliki 1 parameter), kata "rupiah" ditampilkan.

Persiapan:

1. Buat 1 Project baru dengan 1 Form dan 2 TextBox.

2. Text1 untuk input dengan angka, Text2 menampilkan terbilang.

3. Ketik coding berikut ke dalam editor form yang bertalian.



Tampilan Form1:







Ketik coding berikut ini pada Form.

'Pembuat : Ujexs Base 2009

'Tanngal : 26 Oktober 2009

'tempat : Labor STMIK NH JAMBI





Public Function TerbilangBulat(strAngka As String, _

Optional MataUang As String = "rupiah") As String

Dim strJmlHuruf$, intPecahan As Integer

Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$

Dim X As Integer, Y As Integer, z As Integer

On Error GoTo Pesan

Dim strValid As String, huruf As String * 1

Dim i As Integer

'Periksa setiap karakter yg diketikkan ke kotak

'UserID

strValid = "1234567890"

For i% = 1 To Len(strAngka)

huruf = Chr(Asc(Mid(strAngka, i%, 1)))

If InStr(strValid, huruf) = 0 Then

Set AngkaTerbilang = Nothing

MsgBox "Harus karakter angka!", _

vbCritical, "Karakter Tidak Valid"

Exit Function

End If

Next i%

If strAngka = "" Then Exit Function

If Len(Trim(strAngka)) > 15 Then GoTo Pesan

strJmlHuruf = LTrim(strAngka)

'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))

If (intPecahan = 0) Then

strPecahan = ""

Else

'strPecahan = LTrim(Str(intPecahan)) + "/100 "

strPecahan = ""

End If

X = 0

Y = 0

Urai = ""

While (X < Len(strJmlHuruf))

X = X + 1





strTot = Mid(strJmlHuruf, X, 1)

Y = Y + Val(strTot)

z = Len(strJmlHuruf) - X + 1

Select Case Val(strTot)

Case 1

If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then

Bil1 = "satu "

ElseIf (z = 4) Then

If (X = 1) Then

Bil1 = "se"

Else

Bil1 = "satu "

End If

ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1

strTot = Mid(strJmlHuruf, X, 1)

z = Len(strJmlHuruf) - X + 1

Bil2 = ""

Select Case Val(strTot)

Case 0: Bil1 = "sepuluh "

Case 1: Bil1 = "sebelas "

Case 2: Bil1 = "dua belas "

Case 3: Bil1 = "tiga belas "

Case 4: Bil1 = "empat belas "

Case 5: Bil1 = "lima belas "

Case 6: Bil1 = "enam belas "

Case 7: Bil1 = "tujuh belas "

Case 8: Bil1 = "delapan belas "

Case 9: Bil1 = "sembilan belas "

End Select

Else

Bil1 = "se"

End If

Case 2: Bil1 = "dua "

Case 3: Bil1 = "tiga "

Case 4: Bil1 = "empat "

Case 5: Bil1 = "lima "

Case 6: Bil1 = "enam "

Case 7: Bil1 = "tujuh "

Case 8: Bil1 = "delapan "

Case 9: Bil1 = "sembilan "

Case Else

Bil1 = ""

End Select

If (Val(strTot) > 0) Then

If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then

Bil2 = "puluh "

ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then

Bil2 = "ratus "

Else

Bil2 = ""

End If

Else

Bil2 = ""

End If





If (Y > 0) Then

Select Case z

Case 4: Bil2 = Bil2 + "ribu "

Y = 0

Case 7: Bil2 = Bil2 + "juta "

Y = 0

Case 10: Bil2 = Bil2 + "milyar "

Y = 0

Case 13: Bil2 = Bil2 + "trilyun "

Y = 0

End Select

End If

Urai = Urai + Bil1 + Bil2

Wend

Urai = Urai + strPecahan

TerbilangBulat = (Urai & MataUang)

Exit Function

Pesan:

TerbilangBulat = "(maksimal 15 digit)"

End Function

'manampilkan fungsi terbilang di text2

Private Sub Text1_Change()

Text2.Text = TerbilangBulat(Text1.Text)

End Sub

Silahkan Download Disini :

== Fungsi Terbilang==
Label: contoh program vb, Ujexs Base Program 1 komentar
Membuat Hurup Capital Pada Awal Kata
20:50 | by Forum Vb
Membuat Hurup Capital Pada Awal Kata



Coding berikut ini digunakan untuk menampilkan huruf pertama dari

setiap kata dalam suatu kalimat menjadi huruf besar/kapital.



Persiapan:

1.Buat 1 Project baru dengan 1 Form dan 1 TextBox.

2.Ketik coding berikut ke dalam editor form yang bertalian.



Tampilan Form1







Ketik coding berikut ini pada Form.



'Pembuat : Ujexs Base 2009

'Tanngal : 26 Oktober 2009

'tempat : Labor STMIK NH JAMBI





Public Function AwalKataKapital(strKalimat As String)

Dim i As Integer

Dim Temp As String

Dim Lokasi As Integer

Dim huruf As String * 1

Temp$ = ""

For i% = 1 To Len(strKalimat)

huruf = Chr(Asc(Mid(strKalimat, i%, 1)))

If Len(Trim(huruf)) < 1 Then

Lokasi% = i% + 1

End If

If i% = Lokasi% Or i% = 1 Then

Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

Else

Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

End If

Next i

AwalKataKapital = Temp$

End Function

Private Sub Text1_Change()

Dim posisi As Integer

posisi = Text1.SelStart

Text1.Text = AwalKataKapital(Text1.Text)

Text1.SelStart = posisi

End Sub


Download disini :
== Hurup Kapital==
Good Luck !
Label: contoh program vb, Ujexs Base Program 0 komentar
“ Lelaki Biasa”
05:42 | by Forum Vb
Lagu Karya Musisi Ujexs Base ini,Sangat Impresif,lagu yang berjudul tentang lelaki biasa ini berkisah dan hampir semua ada pada diri seorang lelaki ,sebenarnya lagu ini ditujukan untuk kaum hawa biar didengar dan dibaca …

Lelaki biasa adalah lelaki yang memiliki kepribadian yang sangat luar biasa ..

========================



Selamat Menikmati ... !!





==========================================================



Title : " Lelaki Biasa "

Genre : " Pop "

Year : " 2009 "

Liric : " Ujexs Base 2010 "



*

Sebelum kau mengenal aku lebih jauh

ku harap kepadamu untuk menilaiku lebih dulu ..

kutak ingin jika nanti kau menyesal

bila kau tak kenal lebih dulu kepribadianku ..



**

kukatakan padamu aku adanya seperti ini ...

tak ada yang bisa kubanggakan untukmu

sejujurnya diriku tak layak memilikimu ...

agar dapat kau lihat dulu baru mememikirkan pilihanmu





Reff

=====



Aku ini lelaki biasa yang tak pernah menyerah untuk selalu berusaha

menjadi seorang lelaki yang kau banggakan ..



Aku ini lelaki biasa yang belum mengerti akan cintaku

yang masih selalu belajar dalam dunia cinta karna ku lelaki biasa ...



Back to *,Reff






Download lagunya :

http://www.ziddu.com/download/6292273/LelakiBiasa.mp3.html
Label: Lagu Anak Kost 0 komentar
Program Membuat Winamp sederhana
03:39 | by Forum Vb
Program Membuat Winamp sederhana

Menggunakan Visual Basic . 06



* Rancangan tampilan FORM1

Komponen

Nama

Nilai
Form
Name
frmLagu
Caption
Player Music By Ujexs
Frame
Name
Frame1
Backcolor
Blue (biru)
Caption
(Kosongkan)
Label
Name
Label1
Caption
(kosongkan)

ToolTipsText
Judul lagu
Label
Name
Label2
Caption
Music Is My Live
Label
Name
Label3
Caption
Create Ujexs Base 2008
MMC Control
Name
MMC
Picture Box
Name
Picture 1
Back Color
Biru ( Blue)
Command
Name
Command 1
Caption
Add
Command
Name
Command 2
Caption
Play
Command
Name
Command 3
Caption
Exit
Timer
Name
Timer1
Interval
500
Timer
Name
Timer2

Interval
300
Commond Dialog

Name
bukafile

File Name
bukafile








* Listing Kode Program

'Ini program music sederhana yang hanya bisa memutrarkan 1 lagu aja

'Pembuat : Ujexs Base 2008

'Tanggal : 20 Nov 2008

'Tempat : Kost Jl.Cemara II ,Sipin, Jambi

'Jam : 23.00 WIB

'E-mail : ujexsbase@gmail.com

'Website : http://ujexs09.blogspot.com/



'Menyatakan Variabel

Dim ket As String

Dim X As Integer





Private Sub Command1_Click()

On Error Resume Next

bukafile.Filter = _

"MP3 |*.mp3|ASF|*.asf|ASX|*.asx|WAV|*.wav|AVI|*.avi|"

bukafile.ShowOpen

MMC.FileName = bukafile.FileName

MMC.Command = "close'"

MMC.Command = "open"

Label1.Caption = "TRACK : " & bukafile.FileTitle

End Sub



Private Sub Command2_Click()

MMC.Command = "seek"

MMC.Command = "play"

End Sub



Private Sub Command3_Click()

Unload Me

End Sub



Private Sub Form_Load()

X = 1

ket = ""

End Sub



Private Sub Label3_Click()

Shell "EXPLORER.EXE " & " http://ujexs09.blogspot.com/"

End Sub





Private Sub Timer1_Timer()

ket = ket & Mid(Label2.Caption, X, 1) 'ket = ket & Mid(Label2.Caption, X, 1)

Frame1.Caption = ket

If X = Len(Label2.Caption) Then

ket = ""

X = 1

Else

X = X + 1

End If

End Sub



Private Sub Timer2_Timer()

Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

If Label1.Left > frmLagu.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 200

End If

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com
Label: contoh program vb, Ujexs Base Program 0 komentar
Program Membuat Tulisan Berjalan
03:29 | by Forum Vb
Program Membuat Tulisan Berjalan

Menggunakan Visual Basic . 06



* Rancangan tampilan FORM1

Komponen

Nama

Nilai
Form
Name
Form1
Caption
___Program Tulisan Berjalan ^^^^
Frame
Name
Frame1
Caption
-
Label
Name
Label1
Caption
SELAMAT DATANG DI STMIK NURDIN HAMZAH JAMBI
Label
Name
Label2
Caption
Ujexs base 2009
Option
Name
Option1
Caption
Kanan-kiri
Option
Name
Option2
Caption
Kiri-kanan
Option
Name
Option3
Caption
Atas-bawah
Option
Name
Option4
Caption
Bawah-atas
Picture
Name
Picture1
Caption
-
Timer
Name
Timer1
Interval
100
Timer
Name
Timer2
Interval
2000



















* Listing Kode Program

' ========================================================

'Program Tulisan Berjalan ini dibuat untuk bagaimana membuat suatu tulisan bisa berjalan sendiri

'di mana pembuatanya memaksimalkan fungsi Timer yang terdapat dalam Visual basic...

'silahkan aja jika mau diperbarui tanpa harus merusak karya asli pembuat ,, ntar bisa dituntut Looo

========================================================

Private Sub Label2_Click()

'untuk membuat link online langsung ke internet

Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"

End Sub



Private Sub Timer1_Timer()

'tulisan jalan ke kiri

If Option1.Value = True Then

If Label1.Left < -Label1.Width Then

Label1.Left = Picture1.Width

Else

Label1.Left = Label1.Left - 50

End If

'tulisan jalan ke kanan

ElseIf Option2.Value = True Then

If Label1.Left > Picture1.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 50

End If



'tulisan jalan ke atas

ElseIf Option3.Value = True Then

If Label1.Top < -Label1.Height Then

Label1.Top = Picture1.Height

Else

Label1.Top = Label1.Top - 50

End If

'tulisan jalan kebawah

ElseIf Option4.Value = True Then

If Label1.Top >= Picture1.Height Then

Label1.Top = 0

Else

Label1.Top = Label1.Top + 50

End If

End If

End Sub



Private Sub Timer2_Timer()

'membuat tulisan berkedip-kedip

Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Good Luck …… !!!

Label: contoh program vb, Ujexs Base Program 0 komentar
Posting Lama
Langgan: Entri (Atom)
Cari Blog Ini


didukung oleh

Anggota Forum
My Artikel

* contoh program vb (8)
* Kata Pujangga (1)
* Lagu Anak Kost (1)
* Tips Anak Kost (1)
* Ujexs Base Program (4)
* VB Portable (1)

Blog Friens

*
KITA TENTANG SEMUA dot COM
Saya… - saya lelah. Ingin sekali rasanya kabur sejenak dari semua rutinitas ini, dari semua perasaan ini. Seminggu belakangan ini, seakan-akan bayangan dari masa l...
6 hari yang lalu
*
me 'n my life
transisi.... - lagi pengen nulis lagi ni.. pengen mengeluarkan uneg2 yang ada di dalam hati.. lagi banyak perubahan yang terjadi dalam hidupku.. istilahnya, aq sedang mel...
5 minggu yang lalu
*
Triplefortune's Luck Charm
Bakso Jamur Khas Temanggung - Cah jamur? Sudah biasa… Keripik jamur? Sudah jamak juga… Nah, bakso jamur baru luar biasa! Mari kita mencoba mencicipi makanan satu ini! Bakso jamur merupa...
1 bulan yang lalu
*
Ujexs Blog
Contoh Surat Lamaran Pekerjaan - Contoh Surat Lamaran Pekerjaan Jambi, 16 Juli 2009 Hal : Lamaran Pekerjaan Kepada Yth., *Manajer DEALER HONDA PT. Sinar Sentosa* Jl. Kol Abunjani , no 11 ...
3 bulan yang lalu
*
small world
HALUSINASI AUDITORI (PENDENGARAN), SALAH SATU GEJALA SKIZOFRENIA - *Yola Septiani Syarif | 13306002 | Tugas Akustik TF3204* *Bidang kelilmuan : Akustik di bidang sains kehidupan, khususnya pendengaran di dunia psikologi d...
6 bulan yang lalu
*
duapuluhtujuhoktober
Ilkom UPI sebelas tahun yang akan datang - baca artikel..
6 bulan yang lalu
*
IKA PSIKOLOGI UNISSULA
Semarang Career Fair 2008 - Semarang Career Fair 2008 Kunjungi Semarang Career Fair 2008, pameran bursa kerja terbesar di Semarang yang diikuti oleh berbagai perusahaan terkemuka deng...
1 tahun yang lalu

Perlihatkan 5 Perlihatkan Semua
Mengenai Saya
Foto Saya

Forum Vb
Bungo, Jambi, Indonesia
hanyalah anak kost yang mandiri ..

Lihat profil lengkapku
" Kirimkan Komentar "
Imformasi
Apple Google Microsoft
Windows 7 Nyontek Mac OS?
Detikcom
- 13 Nov 2009
- 13 Nov 2009
Salah satunya dikatakan, pengembangan Windows 7 terinspirasi dari Mac OS besutan Apple. Ironisnya, ihwal kehadiran sentimen minor ini ditiupkan oleh ...
Artikel Terkait »
dicuplik dari Google - 11/2009
Nokia dan Samsung Siapkan 'Penggebuk' Apple
Detikcom
- 11 Nov 2009
- 11 Nov 2009
Helsinki - Apple sukses menggusur Nokia sebagai produsen ponsel paling untung berkat kelarisan iPhone. Keberhasilan ini tak hanya bikin panas Nokia, ...
Artikel Terkait »
dicuplik dari Google - 11/2009
Apple Lakukan Perubahan di Mac OS X
Tribun Timur
- 10 Nov 2009
- 10 Nov 2009
Bagi Anda pengguna Mac, Senin, pekan ini, Apple merilis versi terbaru dari sistem operasi Mac OS X. Seperti dugaan Anda, sistem operasi (OS) ini berisi ...
Artikel Terkait »
dicuplik dari Google - 11/2009
3G Masih Mampu Bertahan dari Serangan LTE
Tribun Timur
- 12 Nov 2009
- 12 Nov 2009
AP PHOTO/JAVQUES BRINON DIJUAL SERENTAK - Seorang pria melihat ke sebuah toko yang menjual Apple iPhone 3G S di Paris, Perancis. Apple iPhone 3 GS dijual ...
dicuplik dari Google - 11/2009
didukung oleh

Fish
Designed by Wordpress Web Hosting | Converted by Falcon Hiv

ASHABUL KAHFI

Pada suatu hari ada seorang Raja yang sangat kejam yang bernama Dikyanus & 7 orang Pemudah yang sholeh bernama Rasyid, Yusuf, Zulaikha, Zulkhfa, Qarnain, Kasim, Qiswan & Anjingnya benama Raqim.
Rajanya memanggil 7 Pemudah ini mo memberikan sesuatu adakah makanan yang bergizi, memberikan uang yang paling banyak, & memberikan istri cantik. Tapi ada syaratnya kamu harus meninggalkan Agama mu yang di anut sekarng yang dikatakan 7 Pemuda ini adalah ma'afkan Hamba wahai Paduka Raja kami semua menolak nya.
Pada malam hari 7 Pemudah ini berpikir di rumahnya bagaiman Rajanya mengepung rumah 7 Pemudah ini sedangkan beliau masi di dalam rumah.
pergilah 7 pemudah ini ke gua untuk bersembunyi, ternyata Rajanya tahu bahwa 7 Pemudah ini bersembunyi kedalm gua, Rajanya menyuruh prajuritnya untuk masuk kedalm gua tempat persembuyian 7 Pemudah ini ternyata prajurit Raja tersebut takut untuk masuk ke dalam gua itu lalu muncullah pikiran Raja untuk menutup terowongan ini.
Tertidurlah 7 Pemudah ini di dalam gua selama 350 tahun abad silam.

5 Tips Sederhana Manajemen Hutang

Mengatur atau memanajemen hutang tidak hanya bisa dilakukan oleh para ahli. Anda sebenarnya bisa melakukannya sendiri jika Anda benar-benar ingin mengatur dana pinjaman dan masa depan keuangan. Jika Anda siap melakukannya, tanpa saran dari ahli keuangan pun Anda bisa mengurangi hutang buruk, dan yang lebih penting adalah, Anda tak perlu mengeluarkan biaya ekstra untuk membayar ahli keuangan :)

Anda tidak percaya?

Coba dahulu langkah berikut untuk mengurangi hutang Anda. Anda akan tahu bahwa langkah-langkah berikut sebenarnya cukup sederhana dan logis, tapi semua tergantung bagaimana Anda menerapkannya. Anda bahkan tak perlu punya gelar sarjana dalam bidang ekonomi atau bisnis untuk memahaminya!

Berikut langkah-langkahnya:

1. Buat rencana keuangan

Jika Anda memiliki rencana yang jelas tentang bagaimana Anda akan menggunakan atau membelanjakan uang, maka Anda akan bisa meminimalisasi pengeluaran yang tidak perlu. Pada awalnya memang sulit untuk dilakukan, tapi jika Anda terus menerus melakukannya, maka Anda akan terbiasa.

2. Sisihkan income / pemasukan untuk pelunasan hutang

Jika Anda mendapat pemasukan secara bulanan, maka menyisakan uang Anda untuk pelunasan hutang adalah langkah yang baik. Dengan demikian, akan ada keterpaksaan agar Anda melunasi hutang. Ini juga merupakan cara yang bagus untuk memastikan bahwa Anda tak bisa menyentuh uang tersebut, karena Anda uang tersebut sudah Anda rencanakan untuk keperluan lain.

3. Menabung

Coba potong pengeluaran. Anda bisa melakukannya dengan menghemat energi, seperti listrik dan air. Jika memungkinkan, potonglah pengeluaran untuk hal-hal yang bisa Anda lakukan sendiri. Misalnya saja untuk laundry, perawatan taman / kebun, perbaikan pipa, dll.

4. Prioritaskan hutang dengan bunga tertinggi

Jika Anda punya banyak hutang, bayarlah hutang yang bunganya paling tinggi terlebih dahulu. Dengan demikian, maka Anda akan terhindar dari bunga hutang yang nilainya juga akan makin tinggi. Anda juga akan dapat menyisihkan uang untuk membayar hutang yang lain (yang bunganya lebih rendah). Mengenai pelunasan hutang seperti ini, David Ciang telah memaparkanya secara baik dan jelas di dalam eBooknya yang berjudul Keuangan Pribadi: Resep Rahasia di Balik Kesuksesan Kaum Kaya (bisa Anda dapatkan melalui www.AsetInternet.com).

5. Bayar lebih banyak

Jangan hanya membayar cicilan hutang sesuai jumlah yang diminta. Jika Anda punya uang, bayar lebih banyak. Dengan demikian, maka kekhawatiran Anda akan berkurang, dan akan ada keringanan beban dalam pelunasan hutang Anda yang berikutnya.

Apple Luncurkan iPhone Murah

Liputan6.com, San Fransisco: Apple Inc baru-baru ini meluncurkan iPhone seharga 99 dollar AS atau hanya sekitar Rp 990 ribu saja. Aksi ini merupakan strategi memperluas pasar setelah Palm Inc meluncurkan Pre. Apple juga memotong harga notebook Mac di tengah persaingan perusahaan komputer dalam menghadapi resesi ekonomi.

Analis memperkirakan penjualan iPhone murah ini dapat meningkat dua kali lipat. Meski begitu, Apple tetap mempertahankan telepon seluler high end-nya.

Telepon murah ini setengah harga dibanding dengan produk Palm yang dilepas seharga 199 dollar AS. Sebagaimana dilansir Reuters, Lawrence Harris dari CL King & Associates mengatakan kenekatan memotong harga iPhone berkapasitan 8 gigabyte ini merupakan strategi untuk mengalahkan Pre.

Sementara, iPhone 3GS yang akan dilepas pada 19 Juni di AS dan Jernan akan dilepas dalam kisaran harga 199-299 dollar AS. Telepon ini diklaim memiliki kecepatan dua kali lipat dibandingkan versi sebelumnya [Baca juga: 3GS iPhone, Produk Terbaru Apple].

Perkembangan 11 Desain Seksi APPLE Computer

Apple!! tentunya sudah sangat familiar bagi kita yang dalam sehari-hari bergumul dengan komputer kalo belum terlalu mengerti silahkan googling.. Tapi apa kita mengerti perkembangan desain-desain yang seksi dan fenomenal yang telah dilakukan APPLE hingga saat ini?

Nah dari sekedar memantau perkembangan suatu forum kebanggaan, saya menemukan salah satu thread yang menarik yang membahas tentang perkembangan desain komputer tersebut. berikut garis besarnya 11 desain seksi komputer APPLE yang sempat jaya pada masanya Diperkenalkan pada April tahun 1976, Komputer yang satu ini bisa dibilang sebagai biangnya atau nenek moyangnya dari semua komputer APPLE pada masa selanjutnya
Setelah meluncurkan APPLE I yang masih bercasing kayu, pada peluncuran APPLE yang ke-II ini, APPLE mulai memodernisasi Casing yang digunakan dengan penggunaan metal, diluncurkan pada April 1977, APPLE II mulai ditujukan untuk kebutuhan personal dan sudah mendukung Graphic, Bahasa BASIC, Visical (dengan Excel sebagai jendelanya), dan ada gamenya yang bernama Oregon Trail Atau Local Intregated Software Architecture bisa dibilang sebagai produk gagal APPLE dengan harga penjualan yang sangat mahal $10,000 pada saat itu, walaupun LISA sudah dilengkapi dengan mouse dan GUI (Graphical User Interface) Namun LISA tidak Compatible dengan produk sebelumnya yaitu Apple II Diluncurkan pada tahun 1984 dan mampu mendobrak dominasi IBM dan DOS pada saat itu. Setelah 3 tahun sejak kesuksesan MAC 128k, Pada 1987 APPLE kembali meluncurkan MAC II yang ditambahi dengan dipasangnya Floppy Disk Slot (disket) serta juga memakai HardDisk sebagai penyimpan data, selain itu MAC II juga didukung 8-bit/256 Color Video Komputer APPLE pertama yang layarnya berwarna, sudah ada Smiley icon-nya, dan pengaturan suara dan contrast melalui layar monitor.
Dirilis Pada tahun 1989, nenek moyang MacBook ini dijual seharga kurang lebih $6,500, dengan berat 6kg juga dilengkapi dengan Trackball (Trackpad) dan dilengkapi dengan battery yang mampu bertahan selama 10jam
Sempat Dipromosikan melalui film Batman & Robin, dan sudah memiliki Sound Card dan Remote Control # Konon kabarnya melalui iMac inilah APPLE dapat kembali bangkit dari kebangkrutan yang melandanya selama 2 tahun

# Mac Mini
# Salah satu inovasi produk yang banyak kalangan menilai suatu kegilaan karena diproduksi tanpa menggunakan Keyboard, Mouse dan Monitor, dirilis pada tahun 2005 dengan harga $499

# MacBook Air
* Disebut-sebut sebagai komputer tertipis didunia dengan hanya seberat 1,5 Kg, Ketebalan bagian depan hanya 0,16 Inch dan bagian belakang 0,76 Inch


Walaupun sampai saat ini saya tidak menggunakan APPLE sebagai perangkat lunak dan bahkan belom memfavoritkannya, namun saya salut dengan keberanian desain yang dikeluarkan dan kemauan berinovasinya yang luar biasa.. Semoga bermanfaat

Nonton Acara The Master Haram

Nonton program acara sulap The Master yang ditayangkan di televisi dijatuhi hukuman haram, kira-kira begitulah fatwa dari berita yang saya baca disitus www.beritajatim.com.

Untuk lebih jelasnya berikut adalah berita yang saya kutip dari situs tersebut :

Bojonegoro – Fatwa haram bagi The Master juga mengandung konsekuensi bagi penontonnya. Selain tayangan itu, menonton di acara tersebut juga dihukumi haram alias berdosa dan bisa masuk neraka.

“Penonton The Master juga dihukumi haram,” kata juru bicara hasil Bahtsul Masail Wustho, Khorul Rozy, dari LPI Al-Fatimah Bojonegoro kepada www.beritajatim.com, Jumat (5/6/2009).

Alasannya, menonton tayangan itu hal itu termasuk Tafarruj Bil Ma’ashi atau merasa senang dengan adanya kemunkaran. Selain itu ada faktor kemaksiatan yang terjadi dalam acara tersebut, yakni bercampurnya antara laki-laki dan perempuan yang bukan muhrim.

Seperti diberitakan, perwakilan puluhan Ponpes mengharamkan tontonan The Master. Hal itu keluar dalam Bahtsul Masail Wustho yang digelar Ponpes Abu Dzarrin, Kendal, Kecamatan Dander, Kabupaten Bojonegoro.

Acara yang baru selesai kemarin malam tersebut diikuti oleh puluhan pesantren di Jatim. Diantaranya adalah Ponpes Sidogiri (Pasuruan), Lirboyo (Kediri), Langitan (Tuban), Al-Khozini (Sidoarjo), PP Tanggir (Tuban), PP Gilang (Babat/Lamongan) dan beberapa pesantren kondang lainnya.

Para peserta pertemuan mempertanyakan hukum atraksi The Master dengan slogan mencari bintang tanpa mantra tersebut. Sebab, kehadiran juara pertama Joe Sandy dan juara putaran kedua Limbad, dalam pertunjukan yang mendebarkan adalah jauh dari jangkauan akal sehat.

Melihat fenomena tersebut, peserta Bahtsul Masail langsung membuka kitab Bughyatul Mustarsyidin. Pada halaman 298-299 diterangkan, kalau pertunjukan tersebut dikategorikan sebagai sihir, maka hukumnya haram.

“Kejadian dalam The Master adalah diluar kebiasaan manusia biasa,” kata Rozy.

Diterangkan, sebenarnya kalau The Master masuk dalam kategori asror atau petunjuk dari Allah maka itu diperbolehkan. Namun, ada catatan jika yang melakukan adalah orang yang teguh memegang agama secara sempurna. (dul/bj0)

Kutipan berikut juga berita tentang fatwa haramnya menonton acara The Master yang dikeluarkan oleh Pondok Pesantren di Jawa timur :

Bojonegoro – Untuk kesekian kalinya, fatwa dikeluarkan oleh Pondok Pesantren (Ponpes) di Jatim. Kali ini giliran perwakilan puluhan Ponpes mengharamkan tontonan The Master.

Keputusan itu keluar dalam Bahtsul Masail Wustho yang digelar Ponpes Abu Dzarrin, Kendal, Kecamatan Dander, Kabupaten Bojonegoro.

Acara yang baru selesai kemarin malam tersebut diikuti oleh puluhan pesantren di Jatim. Diantaranya adalah Ponpes Sidogiri (Pasuruan), Lirboyo (Kediri), Langitan (Tuban), Al-Khozini (Sidoarjo), PP Tanggir (Tuban), PP Gilang (Babat/Lamongan) dan beberapa pesantren kondang lainnya.

Kepada beritajatim.com, Jumat (5/6/2009), juru bicara hasil Bahtsul Masail Wustho, Khorul Rozy, dari LPI Al-Fatimah Bojonegoro membenarkan hal tersebut.

Para peserta pertemuan mempertanyakan hukum atraksi The Master dengan slogan mencari bintang tanpa mantra tersebut. Sebab, kehadiran juara pertama Joe Sandy dan juara putaran kedua Limbad, dalam pertunjukan yang mendebarkan adalah jauh dari jangkauan akal sehat.

Melihat fenomena tersebut, peserta Bahtsul Masail langsung membuka kitab Bughyatul Mustarsyidin. Pada halaman 298-299 diterangkan, kalau pertunjukan tersebut dikategorikan sebagai sihir, maka hukumnya haram.

“Kejadian dalam The Master adalah diluar kebiasaan manusia biasa,” kata Rozy.

Diterangkan, sebenarnya kalau The Master masuk dalam kategori asror atau petunjuk dari Allah maka itu diperbolehkan. Namun, ada catatan jika yang melakukan adalah orang yang teguh memegang agama secara sempurna.

“Tujuan juga harus sesuai syariat dan tidak membahayakan orang lain,” tegasnya.

Jika tidak sesuai dengan kategori diatas, maka The Master dihukumi haram. Hal itu sesuai dengan Bughyatul Mustarsyidin, AlFatawi Khadisiyah dan beberapa kitab pegangan lainnya.

Sementara itu Bahtsul Masail Wustho tersebut dilakukan dalam rangka Haul KH Dimyati Adnan ke XIX dan KHA Munir Adnan ke VII.

:05 Dua Harimau Putih Lahir

Denpasar (ANTARA News) - Kebun Binatang Bali mendapat tambahan dua "warga" baru, yaitu dua bayi harimau putih benggala, hasil perkawinan antara pasangan harimau induk Kartini dan pejantan Buntung, di Gianyar, Bali, Rabu.

Dokter hewan kebun binatang swasta di Bali itu, Dewa Atmaja, menyatakan, "Kelahiran kedua hewan langka ini lancar, langsung disusui induknya yang berusia tiga tahun. Sebelumnya, kedua induk dan pejantan ini sempat kawin tetapi Kartini mengalami abortus."

Di alam bebas aslinya, harimau benggala (Panthera tigris tigris atau Panthera tigris bengalensis) tinggal 4.000 saja dan perburuan liar atas mereka masih sering terjadi. Harima benggala adalah harimau terbesar kedua di dunia yang masih ada setelah harimau siberia (Panthera tigris amoyensis), yang berhabitat di perbatasan hutan tundra Siberia, Rusia, dengan kawasan salju China.

"Sekarang keadaan kedua bayi harimau putih itu baik-baik saja, stabil, dan menggembirakan. Tetapi jenis kelaminnya belum diketahui karena induknya masih sangat menjaga mereka," kata Atmaja.

Kartini diperoleh Kebun Binatang Bali melalui program pertukaran hewan koleksi dengan Kebun Binatang Surabaya, sedangkan Buntung yang berusia tiga setengah tahun dengan warna putih didapat dari program serupa dengan Kebun Binatang Pematangsiantar di Sumatera Utara.

Sekitar enam bulan lalu, Kartini mengalami abortus dengan dua janin harimau putih yang sudah berbentuk nyaris sempurna sebagai calon bayi harimau. Perkawinan di antara kedua harimau ini kemudian diulang lagi setelah keduanya dinilai siap secara naluri dan medis.

Harimau putih paling lazim terdapat di antara harimau benggala. Semula warna dominan putih ini dianggap sebagai mutasi biasa yang tidak bisa direkayasa secara genetik, namun perkembangan ilmu pengetahuan di bidang ini menghasilkan temuan berbeda.

Dengan begitu, kelahiran harimau benggala putih bisa terjadi hasil perkawinan alami atau buatan antara induk berloreng biasa dan jantan putih, atau keduanya putih, atau induk yang putih. Diketahui tidak terdapat penyimpangan perilaku dan naluri di antara harimau benggala loreng biasa dan saudaranya yang berloreng dasar putih.

Masa kebuntingan harimau diketahui sekitar empat bulan dan mereka dewasa secara seksual sejak usia dua setengah tahun. Di alam liar, usia mereka antara 18 hingga 20 tahun dengan wilayah jelajah sekitar 100 kilometer persegi bagi yang jantan.

"Kami senang dengan kelahiran mereka. Ini menjadi catatan prestasi tersendiri bagi kami karena bisa mengembangbiakkan mereka secara eks situ. Ini menjadi tambahan koleksi hewan yang sangat berharga," kata Atmaja