10 Rumah Termahal Didunia

Fakta Unik - Rumah adalah bangunan yang dijadikan tempat tinggal selama jangka waktu tertentu. Rumah tak dapat dipisahkan dari kehidupan kita, karena selain berfungsi sebagai tempat berlindung, rumah juga sebagai tempat dimana kita dapat membangun rasa sayang pada keluarga serta membangun komunikasi dengan sesama manusia lainnya.

Tak heran jika di dunia ini banyak manusia yang menghabiskan uang banyak hanya untuk membangun rumah yang merupakan singgasana bagi mereka. Bahkan tak jarang terjadi pertumpahan darah demi sesuatu yang bernama rumah ini, begitu berharganya sebuah rumah bagi kehidupan kita.

Berikut ini kami tampilkan tentang 10 rumah termahal di dunia yang kami rangkum dari berbagai sumber.

1. Antilla ($ 1.000.000.000)

Inilah merupakan rumah termahal di dunia, rumah ini dimiliki oleh Mukesh Ambani, pengusaha dan miliuner terkemuka asal India yang juga termasuk dalam daftar 10 orang terkaya di dunia. Rumah ini terdiri atas 27 lantai dengan ruangan yang sangat luas dan bahkan garasi rumahnya saja 6 lantai yang bisa menampung sekitar 168 mobil. Dengan pegawai rumah Antilla sebanyak 600 orang, gilaa...

2. William Randolph Hearst’s Mansion ($ 165.000.000)

Rumah mewah ini milik William Randolph Hearst yang terletak di Central Coast of California, United States. Dengan fasilitas 3 kolam renang, 29 kamar tidur, sebuah aula yang sangat luas, di dalamnya rumah terdapat sebuah diskotik dan sebuah mini bioskop.

3. Elena Franchuk’s Victorian Villa ($ 161.000.000)

Elena Franchuk merupakan seorang pengusaha dari Ukraina dan sekaligus pemilik dari Elena Franchuk’s Victorian Villa yang terletak di London Inggris. Rumah ini terdidri dari lima lantai, 10 kamar tidur, kolam renang bawah tanah, bioskop, ruang sauna dan olahraga.

4. The Penthouses at One Hyde Park ($ 160.000.000)

Penthouse terletak di flat megah One Hyde Park, sebuah pengembangan gedung pencakar langit terkaya di London. Rumah mewah penthouse memiliki lantai atas untuk 82 apartemen di gedung itu. Untuk melindungi terhadap penyusup yang tidak diinginkan, penghuni bangunan akan dilindungi oleh penjaga dari SAS Inggris (Pasukan Khusus) dengan fitur keamanan seperti jendela tahan peluru dan iris scanners. Bangunan itu sendiri memiliki pintu keluar darurat yang mengarah ke sebuah terowongan bawah tanah ke Hotel Mandarin Oriental di dekatnya.

5. Aaron Spelling's Manor ($ 150.000.000)

Cindy Spelling merupakan janda dari produser TV legendaris Aaron Spelling. Rumah ini dibangun untuk Cindy Spelling pada tahun 1991 dengan luas di atas tanah yang membentang sepanjang 56.000 meter persegi. Rumah Aaron Spelling's Manor memiliki 123 kamar, lapangan tenis, arena skating, bowling dan beberapa kolam renang.

6. Hala Ranch ($ 135.000.000)

Hala Ranch dimiliki oleh Pangeran Bandar bin Sultan bin Abdulaziz dari Arab Saudi. Bangunan ini dibangun di atas tanah yang membentang sepanjang 14.397 kaki persegi. Dengan fasilitas 27 kamar mandi dan 15 kamar tidur bersama dengan kolam renang dalam ruangan, jalan ski pribadi, lapangan tenis, pom bensin, cuci mobil dan pabrik pengolahan limbah.

7. Fleur de Lys ($ 125.000.000)

Fleur de Lys dibangun oleh Suzanne dan David Saperstein. Rumah ini memiliki 15 kamar tidur dengan eksterior ditutupi dengan kapur Perancis sementara interior disiramkan dengan emas 24 karat. Rumah ini juga memiliki item furniture seperti pola tirai Marie Antoinette dan kursi favorit Napoleon.

8. Maison de l'Amitie ($ 125.000.000)

Donald Trump merupakan pemilik dari Maison de l’Amitie ini. Rumah ini dibangun di atas tanah yang membentang sepanjang 80.000 kaki persegi yang di dalamnya terdapat konservatori, ruang dansa, 15 kamar tidur, sebuah rumah tenis dan paviliun mewah.

9. Updown Court ($ 116.000.000)

Updown Court terletak di Inggris dengan fasilitas 103 kamar, ruang bowling, bioskop, 3 kolam renang dan lapangan squash. Konon Updown Court ini lebih luas dari istana buckingham.

10. Dracula’s Castle ($ 80.000.000)

Sebelumnya bangunan Dracula’s Castle adalah sebuah benteng dengan pemiliknya yaitu Archduke Dominic. Dracula’s Castle ini memiliki 57 kamar termasuk 17 kamar tidur yang dihiasi dengan barang antik buatan tangan jaman dahulu yang tentunya mempunyai nilai historis yang tinggi.

Read more »

10 Cerita Yang Bikin Otak Jadi Ngeres

1. Kuputar tubuhnya menghadap belakang. Lalu kutusuk lubang kecil nan sempit itu, tiba-tiba tubuhnya bergetar hebat... "Lagi mau nge-charge HP, eh, ada sms."

2. Rena mengambil tisu, lalu mengelap lendir bening pacarnya itu. "Gara–gara kamu, sampe keluar gini," kata sang pacar. "Maaf say, kamu jadi ketularan flu," ujar Rena.

3. Benda bulat itu dipegang tante Intan, digerakkan naik-turun dengan penuh semangat, otot-ototnya pun menjadi tegang. "Ugh, capeknya angkat barbel."

4. Cewek : "Uuh... Mas, kamu kok lama banget sih keluarnya? Aku pegel nih... cape."
Cowo : "Maaf say, tadi dosennya ngasih tugas dulu. Udah lama di sini?"

5. Para tante mengerubungiku, seraya memaksaku mengocoknya lebih cepat, akhirnya keluar juga benda putih itu. "Arisan kali ini yang dapet tante Marni."

6. Jariku masuk ke dalam lubang yang sempit itu. Kugesek-gesek lalu tiba-tiba jariku terasa basah oleh lendir yang bening. "Gini nih kalo ngupil pas lagi pilek... huh."

7. Gadis muda itu berjongkok di depanku tanpa mengenakan celana dalam, ia pun menatapku dan berkata, " Ayah... pipisnya udah."

8. Setelah lama tawar menawar, harga disepakati. Mawar pun berkata, "Mau pake kondom ga??" Gue, "Boleh, biar ga lecet kan casingnya?"

9. "Beb, rada cepet dong genjotannya, udah mau nyampe nih..." ujar Rani. "Huff... iya beb, aku udah sekuat tenaga genjotnya nih." Jawab Tomi sambil ngos-ngosan. "Awas ada anak kecil nyebrang!" pekik Rani panik.

10. Mulut Rani kempot saking nafsu mengenyotnya, dan benar saja, tak lama kemudian cairan kental dan manis itu tumpah dalam mulutnya. "Oh, enaknya permen blaster."

Read more »

Rekor Posisi 1 Indonesia Di Mata Dunia

Fakta Unik - Patut bangga juga sebagai Warga Negara Indonesia, ternyata negara kita juga banyak mendapat gelar nomor satu di mata dunia. Sampai sampai juga sebagai negara korupsi terbanyak di Asia Pasifik. hehe

Negara Kepulauan Terbesar

Sampai sekarang Indonesia masih menjadi negara kepulauan terbesar di dunia. Tentunya ini akan terus dipegang oleh Indonesia sebelum pulau2 Indonesia tenggelam oleh gempa dan pemanasan global

Garis Pantai Terpanjang di Dunia

Indonesia tercatat sebagai negara dengan garis pantai terpanjang di dunia. Indonesia memiliki sekitar 81.000 Km garis pantai

Negara Maritim Terbesar

Indonesia memiliki perairan seluas 93 ribu km2. Indonesia sebagai negara maritim terbesar di dunia mendapat pengakuan dunia yang tertuang dalam UNCLOS (United Nation Convention on the Law of the Sea) yang diratifikasi oleh negara-negara sedunia.

Negara terbanyak peraih Piala Thomas

Piala Thomas merupakan kejuaraan beregu bulutangkis putra. biasanya berbarengan dengan Piala Uber. Indonesia tercatat sebagai yang paling sering juara yaitu sebanyak 13 kali. Disusul China sebanyak 8 kali dan Malaysia sebanyak 5 kali. Hanya tiga negara diatas yang mampu meraih piala Thomas.

Pulau Terpadat di Dunia

Pulau jawa merupakan pulau yang tercatat dengan jumlah penduduk terbanyak di dunia. Gimana gak padat pulau jawa menjadi pusat pemerintahan, bisnis, industri, pertanian dll. Seharusnya pemerintah Indonesia mencari solusi untuk melakukan pemerataan pembangunan.

Negara dengan Hutan Bakau Terbesar 

Indonesia saat ini tercatat sebagai negara dengan hutan bakau terbesar di dunia. tapi sepertinya rekor ini tidak akan bertahan lama.

Negara Perusak hutan Terbesar di Dunia

Indonesia sudah tercatat dalam guinness book world records sebagai negara perusak hutan terbesar di dunia. Bahkan SBY pernah mendapat piala dunia penghancur hutan dari green peace.

Negara terkorup di Asia Pasifik

Pemerintahan SBY yang digadang-gadang bakal membarantas korupsi di Indonesia ternyata hanya isapan jempol belaka. Buktinya Indonesia masih sukses menjadi negara terkorup di Asia Pasifik. Bahkan thailand pun lewat oleh kita.

Kota dengan Mall Terbanyak

Jakarta yang merupakan kota terbesar di Indonesia juga memiliki mall terbanyak di dunia. Jakarta memiliki sekitar 130 mall. Padahal kota-kota lain juga ngiler pengen punya mall yang banyak.

Read more »

Fakta Unik Antara Pria dan Wanita

Fakta Unik : Siapa yang tau ketika suatu hal yang biasa di hadapan kita ternyata memiliki keunikan tersendiri yang Tuhan Ciptakan. Berikut ini Fakta Unik Antara Pria dan Wanita
1. Rata-rata perempuan tidur lebih lama 1 jam saat malam dari pada laki-laki.
2. Bayi perempuan cenderung lebih cepat berjalan dan berbicara, bayi laki-laki 2 bulan lebih lambat.
3. Lebih banyak kehamilan dan kelahiran dengan komplikasi (gangguan) saat mengandung bayi laki-laki ketimbang bayi perempuan.
4. Rata-rata berat otak laki-laki lebih berat 1,4 kg daripada berat otak perempuan.
5. Pergantian kelamin lebih banyak dilakukan oleh laki-laki.
6. Perempuan kurang mampu menahan dingin disebabkan permukaan kulit yang lebih besar, sehingga lebih suka pada suhu ruang yang lebih hangat.
7. Laki-laki lebih suka bicara langsung sesuai tujuannya, sementara pembicaraan perempuan terputus-putus dengan keraguan dan perasaan. Disebabkan serabut penghubung antara belahan otak kanan ( intuisi ) dan kiri ( logika ) lebih sedikit pada perempuan. Sehingga ekspresi perasaan lebih mudah terjadi pada perempuan.
8. Perempuan lebih baik indra penciumannya disebabkan tingginya hormon estrogen yang diketahui sebagai aktivator reseptor penciuman.
9. Perempuan mempunyai 75 % lebih banyak kelenjar keringat/peluh ( yang menghasilkan bau badan ) daripada laki-laki.
10. Kemampuan indra laki-laki untuk mengecap rasa masam, manis dan masin lebih rendah pada perempuan.
11. Lebih dari dua kali pada perempuan cenderung homoseksual (menyukai sesama jenis) pada usia 45 tahun daripada laki-laki.
12. Pada saat usia tua perempuan mengalami kerontokan rambut, pada usia yang sama sebagian besar laki-laki mengalami kebotakan. Kebotakan disebabkan produksi berlebihan dari hormon androgen (hormon laki- laki ).
13. Berpapasan dengan perempuan pada jalanan ramai, laki-laki menghadapkan tubuhnya menghadap perempuan yang dilewatinya. Perempuan cenderung membalikkan badan, sering secara tidak sadar menempatkan tangan di depan badannya untuk melindungi dada.
14. Kira-kira 48 % laki-laki mendengkur ketika tidur, hanya 22 % pada perempuan.
15. Laki-laki lebih banyak memilih merah, dan perempuan warna biru.
16. Perempuan rata-rata 153 detik berada di toilet, laki-laki 113 detik.
17. Satu berbanding empat, perempuan dibanding laki-laki yang berbicara gagap.
18. Penelitian di Amerika, perempuan menggunakan waktu hampir 2 kali lebih banyak untuk berbelanja dibanding laki-laki.
19. Perempuan secara umum yang lebih menentukan corak dan gaya pakaian yang dipakai.
20. Penelitian di England, anak laki-laki lebih mudah dibohongi/diperdaya daripada anak perempuan. Kalau di Indonesia entahlah…

Read more »

Perulangan Pada Program VB Net

Terdapat 4 jenis perulangan pada program VB Net yang bisa anda gunakan.

Diantaranya :
1. For Next
2. While - End While
3. Do Until - Loop
4. Do While - Loop

Syntax :

1. For Next
     For nvar = nawal to nakhir
        perintah
        perintah
    Next nvar

    atau bisa juga

     For nvar = nawal to nakhir step nilai
        perintah
        perintah
    Next nvar


2. While - End While
    While kondisi
        perintah
        perintah
    End While

3. Do Until - Loop

    Do Until Kondisi
        Perintah
        Perintah
    Loop

4. Do While - Loop
    Do While kondisi
        Perintah
        Perintah
    Loop


Design form perulangan pada program vb net




Pada TextBox1 propesties yang dirubah yaitu Multiline : True, ScrollBar : Vertical

Berikut merupakan contoh perulangan pada program VB Net

Public Class Form1    Dim j As Byte

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 10
            ListBox1.Items.Add(i)
        Next
        For i = 10 To 1 Step -1
            ListBox2.Items.Add(i)
        Next

        j = 1
        While j <= 10
            ComboBox1.Items.Add(j)
            j += 1
        End While

        j = 10
        Do Until j < 1
            ListBox3.Items.Add(j & " BD")
            j -= 2
        Loop

        j = 1
        Do While j < 10
            TextBox1.Text = TextBox1.Text & j & " BD" & vbCrLf
            j += 2
        Loop
    End Sub
End Class
Penjelasan     j += 2   sama dengan perintah   j = j + 2

Semoga artikel perulangan pada program VB Net dapat membantu anda dalam memahami program VB Net

Read more »

Terdapat 4 jenis perulangan pada program VB Net yang bisa anda gunakan.

Diantaranya :
1. For Next
2. While - End While
3. Do Until - Loop
4. Do While - Loop

Syntax :

1. For Next
     For nvar = nawal to nakhir
        perintah
        perintah
    Next nvar

    atau bisa juga

     For nvar = nawal to nakhir step nilai
        perintah
        perintah
    Next nvar


2. While - End While
    While kondisi
        perintah
        perintah
    End While

3. Do Until - Loop

    Do Until Kondisi
        Perintah
        Perintah
    Loop

4. Do While - Loop
    Do While kondisi
        Perintah
        Perintah
    Loop


Design form perulangan pada program vb net




Pada TextBox1 propesties yang dirubah yaitu Multiline : True, ScrollBar : Vertical

Berikut merupakan contoh perulangan pada program VB Net

Public Class Form1    Dim j As Byte

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 10
            ListBox1.Items.Add(i)
        Next
        For i = 10 To 1 Step -1
            ListBox2.Items.Add(i)
        Next

        j = 1
        While j <= 10
            ComboBox1.Items.Add(j)
            j += 1
        End While

        j = 10
        Do Until j < 1
            ListBox3.Items.Add(j & " BD")
            j -= 2
        Loop

        j = 1
        Do While j < 10
            TextBox1.Text = TextBox1.Text & j & " BD" & vbCrLf
            j += 2
        Loop
    End Sub
End Class
Penjelasan     j += 2   sama dengan perintah   j = j + 2

Semoga artikel perulangan pada program VB Net dapat membantu anda dalam memahami program VB Net

Read more »

Kriptografi – Enkripsi – Dekripsi dengan vb.net

 

Dalam tutorial vb.net berikut ini, penulis mencoba membuat program Kriptografi, Enkripsi dan Dekripsi dengan program vb.net, apa itu Kriptografi, Enkripsi dan Dekripsi? Sedikit saya jelaskan yah…

Kriptografi adalah cara-cara untuk mengamankan data, Data yang asli diubah menjadi sandi-sandi dengan format tertentu.
Dalam kriptografi terdapat dua konsep utama yakni enkripsi dan dekripsi.
Enkripsi adalah proses dimana informasi / data yang hendak dikirim diubah menjadi bentuk yang hampir tidak dikenali sebagai informasi awalnya dengan menggunakan algoritma tertentu.
Dekripsi adalah kebalikan dari enkripsi yaitu mengubah kembali bentuk tersamar tersebut menjadi informasi awal.
Pada tutorial kali ini kita akan membutuhkan “Class” dari vb.net untuk membuat program Enkripsi dan Dekripsi.
Ok langsung saja tutorial membuat Kriptografi, Enkripsi dan Dekripsi menggunakan vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Teks Asli
Label2	Text	Teks Sandi
TextBox1	Text	[Dikosongkan]
	Name	TxtTextAsli
	Multiline	Thrue
	ScrollBars	Vertical
TextBox2	Text	[Dikosongkan]
	Name	TxtTeksSandi
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Enkripsi
	Name	BtnEnkripsi
Button2	Text	Dekripsi
	Name	BtnDekripsi

4. Sebelum Memasukkan Kode di Form1 anda harus membuat dua “Class” terlebih dahulu, caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”,
5. “Class” yang pertama beri nama dengan “Kryptografi” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Kryptografi
Protected Teks_Asli As String, Teks_Sandi As String, PanjangTeks As Long
Public Function KryptografiEnkripsi(ByVal Teks As String) As String
Dim Pos As Long, EnkripsiKarakter, EnkripsiText
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Asli, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
EnkripsiKarakter = Mid(Teks_Sandi, Pos, 1)
EnkripsiText = EnkripsiText + EnkripsiKarakter
Else
EnkripsiText = EnkripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiEnkripsi = EnkripsiText
End Function
Public Function KryptografiDekripsi(ByVal Teks As String) As String
Dim Pos As Long, DekripsiKarakter, DekripsiText
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Sandi, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
DekripsiKarakter = Mid(Teks_Asli, Pos, 1)
DekripsiText = DekripsiText + DekripsiKarakter
Else
DekripsiText = DekripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiDekripsi = DekripsiText
End Function
End Class

6.  “Class” yang Kedua beri nama dengan “Proses” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Proses
Inherits Kryptografi
End Class

7.  Sehingga Solution Exlorer yang disebelah kanan akan tampak sebagai berikut ini :

8.  Pada Form1 Masukkan kode berikut ini :

Public Class Form1

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click
Dim Enkripsi As New Proses
TxtTeksSandi.Text = Enkripsi.KryptografiEnkripsi(TxtTeksAsli.Text)
End Sub

Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click
Dim Dekripsi As New Proses
TxtTeksSandi.Text = Dekripsi.KryptografiDekripsi(TxtTeksSandi.Text)
End Sub
End Class

9.  Setelah itu klik “Start Debugging (F5)”
10.  Maka akan tampil form1 dan coba masukkan sebuah kalimat dan tekan tombol enkripsi, maka kalimat yang di bawah akan berubah.. dan coba klik Dekripsi maka kalimat yang berubah tersebut kambali ke kalimat yang awal.

Demikian tutorial membuat program Kriptografi, Enkripsi dan Deskripsi dengan vb.net.

Ingin Tahu lebih banyak lagi Tentang VB-2008 , Silahkan Klik disini

Read more »

Dalam tutorial vb.net berikut ini, penulis mencoba membuat program Kriptografi, Enkripsi dan Dekripsi dengan program vb.net, apa itu Kriptografi, Enkripsi dan Dekripsi? Sedikit saya jelaskan yah…

Kriptografi adalah cara-cara untuk mengamankan data, Data yang asli diubah menjadi sandi-sandi dengan format tertentu.
Dalam kriptografi terdapat dua konsep utama yakni enkripsi dan dekripsi.
Enkripsi adalah proses dimana informasi / data yang hendak dikirim diubah menjadi bentuk yang hampir tidak dikenali sebagai informasi awalnya dengan menggunakan algoritma tertentu.
Dekripsi adalah kebalikan dari enkripsi yaitu mengubah kembali bentuk tersamar tersebut menjadi informasi awal.
Pada tutorial kali ini kita akan membutuhkan “Class” dari vb.net untuk membuat program Enkripsi dan Dekripsi.
Ok langsung saja tutorial membuat Kriptografi, Enkripsi dan Dekripsi menggunakan vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Teks Asli
Label2	Text	Teks Sandi
TextBox1	Text	[Dikosongkan]
	Name	TxtTextAsli
	Multiline	Thrue
	ScrollBars	Vertical
TextBox2	Text	[Dikosongkan]
	Name	TxtTeksSandi
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Enkripsi
	Name	BtnEnkripsi
Button2	Text	Dekripsi
	Name	BtnDekripsi

4. Sebelum Memasukkan Kode di Form1 anda harus membuat dua “Class” terlebih dahulu, caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”,
5. “Class” yang pertama beri nama dengan “Kryptografi” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Kryptografi
Protected Teks_Asli As String, Teks_Sandi As String, PanjangTeks As Long
Public Function KryptografiEnkripsi(ByVal Teks As String) As String
Dim Pos As Long, EnkripsiKarakter, EnkripsiText
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Asli, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
EnkripsiKarakter = Mid(Teks_Sandi, Pos, 1)
EnkripsiText = EnkripsiText + EnkripsiKarakter
Else
EnkripsiText = EnkripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiEnkripsi = EnkripsiText
End Function
Public Function KryptografiDekripsi(ByVal Teks As String) As String
Dim Pos As Long, DekripsiKarakter, DekripsiText
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Sandi, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
DekripsiKarakter = Mid(Teks_Asli, Pos, 1)
DekripsiText = DekripsiText + DekripsiKarakter
Else
DekripsiText = DekripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiDekripsi = DekripsiText
End Function
End Class

6.  “Class” yang Kedua beri nama dengan “Proses” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Proses
Inherits Kryptografi
End Class

7.  Sehingga Solution Exlorer yang disebelah kanan akan tampak sebagai berikut ini :

8.  Pada Form1 Masukkan kode berikut ini :

Public Class Form1

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click
Dim Enkripsi As New Proses
TxtTeksSandi.Text = Enkripsi.KryptografiEnkripsi(TxtTeksAsli.Text)
End Sub

Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click
Dim Dekripsi As New Proses
TxtTeksSandi.Text = Dekripsi.KryptografiDekripsi(TxtTeksSandi.Text)
End Sub
End Class

9.  Setelah itu klik “Start Debugging (F5)”
10.  Maka akan tampil form1 dan coba masukkan sebuah kalimat dan tekan tombol enkripsi, maka kalimat yang di bawah akan berubah.. dan coba klik Dekripsi maka kalimat yang berubah tersebut kambali ke kalimat yang awal.

Demikian tutorial membuat program Kriptografi, Enkripsi dan Deskripsi dengan vb.net,

Read more »

Log off, Shut down dan Restart komputer dengan vb.net

Tutorial vb.net berikut ini adalah belajar tentang algoritma pemrograman pada vb.net khususnya percabangan “If – Then – Else”, pada kasus ini saya ambil contoh pilihan untuk Log off, Shut down dan Restart komputer anda, pada tutorial vb.net sebelumnya kita sudah belajar bagaimana cara Membuat Notepad Sederhana.

Ok langsung saja tutorial vb.net cara untuk Log off, Shut down, dan Restart komputer anda dengan program vb.net  tentang algoritma pemrograman percabangan “If – Then – Else” :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan RadioButton dan Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
RadioButton1	Name	RbLog
	Text	Log Off
RadioButton2	Name	RbShutDown
	Text	Shut Down
RadioButton3	Name	RbRestart
	Text	Restart
Button1	Name	BtnProses
	Text	Proses

4.  Setelah itu klik button proses 2 x dan masukkan kode berikut ini :

Public Class Form1

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
If RbLog.Checked = False And RbShutDown.Checked = False And RbRestart.Checked = False Then MsgBox(“Pilih opsi”) : Exit Sub
If RbLog.Checked = True Then
Shell(“shutdown -l -f -t 0″)
ElseIf RbShutDown.Checked = True Then
Shell(“shutdown -s -f -t 0″)
ElseIf RbRestart.Checked = True Then
Shell(“shutdown -r -f -t 0″)
End If
End Sub

End Class

5. Setelah itu klik “Start Debugging (F5)”
6.  Maka akan Menampilkan contoh pilihan untuk Log off, Shut down, dan Restart komputer anda.
itu adalah cara untuk Log off, Shut down, dan Restart komputer anda dengan program vb.net  tentang algoritma pemrograman percabangan “If – Then – Else”,

Read more »

Membuat Posting Artikel Seperti Blogspot dengan PHP MYSQL

Rekan pasti tahu yang namanya blogspot. Kalau kita perhatikan pada blogspot, setiap kita memposting blog baru pada artikel maka artikel yang kita posting tadi akan ditampilkan pada halaman utama dari blog kita. pada tutorial kali ini, saya akan menjelaskan cara membuat posting artikel seperti pada blogspot dengan menggunakan php yang mana posting artikel tersebut akan disimpan di database website kita.
Pertama kita harus membuat database dan tabelnya terlebih dahulu. adapun struktur dari tabelnya adalah sebagai berikut

Nama kolom	type	size	AI	Key
id_artikel	INT	5	*	*
Judul_artikel	VARCHAR	255
isi_artikel	TEXT
tgl_artikel	DATETIME

Untuk membuat tabel seperti diatas menggunakan mysql, kita bisa menggunakan code seperti dibawah ini

-- phpMyAdmin SQL Dump
-- version 2.11.1
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: Apr 16, 2013 at 06:06 PM
-- Server version: 5.0.45
-- PHP Version: 5.2.4

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";

--
-- Database: `postingan`
--

-- --------------------------------------------------------

--
-- Table structure for table `tblartikel`
--

CREATE TABLE `tblartikel` (
  `id_artikel` int(5) NOT NULL auto_increment,
  `judul_artikel` varchar(255) collate latin1_general_ci NOT NULL,
  `isi_artikel` text collate latin1_general_ci NOT NULL,
  `tgl_artikel` datetime NOT NULL,
  PRIMARY KEY  (`id_artikel`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=7 ;

--
-- Dumping data for table `tblartikel`
--

Setelah kita membuat tabelnya, sekarang buatlah form untuk memasukkan artikel kita kedalam database. berikut kodenya :

<form method="post" name="posting_form" action="submit.php">
Judul Artikel<br>
<input type="text" name="judul_artikel" size="30"><br>
Isi Artikel<br>
<textarea name="isi_artikel" cols="60" rows="10"></textarea><br>
<input type="submit" name="submit" value="submit artikel">
</form>

Simpan dengan nama form_artikel.php.

Kalau kita perhatikan, pada form diatas menunjukan kalau action submit akan dilakukan dihalaman submit.php, itu artinya ketika kita menekan tombol sumbit artikel pada form tersebut maka kita akan dialihkan kepada halaman submit.php yang mana halaman tersebut akan melakukan proses memasukkan value kedalam database dengan value yang sudah didefinisikan dari masing masing kolom input. Karena itu sekarang kita akan membuat halaman submit.php-nya. berikut codenya :

<?php


//membuat koneksi kedatabase

$dbhost ="localhost";
$dbuser ="root";
$dbpassword ="";
$dbname ="postingan";
$koneksi = mysql_connect($dbhost,$dbuser,$dbpassword);
mysql_select_db($dbname,$koneksi);


//membuat variabel dari inputan form

$judul = $_POST['judul_artikel'];
$isi = $_POST['isi_artikel'];
$tgl = date('Y-m-d');


//proses query memasukkan data ke database

$query = mysql_query("INSERT INTO tblartikel VALUES ('','$judul','$isi','$tgl')");


//cek apakah querynya berhasil atau tidak

if ($query) {


//jika berhasil maka tampilkan pesan

echo 'berhasil membuat artikel dengan judul '.$judul ;
}
else
{

//tampilkan pesan error jika query tidak berhasil

echo 'gagal membuat artikel dengan judul '.$judul ;


//tutup koneksi ke database

mysql_close();
}
?>

<a href="index.php">Lihat Hasil Posting </a>

simpan dengan nama submit.php

Dengan selesainya kita membuat submit.php ini, maka kita selesai membuat suatu aplikasi berbasis web untuk postingan seperti pada blogspot. Tetapi, bagaimana caranya kalau kita ingin menampilkan halaman yang sudah kita posting tadi dihalaman website kita? Baiklah sekarang kita akan membuatnya, berikut kodenya :

<html>
<head>
</head>
<body>
<p>
<a href="form_artikel.php">Buat artikel baru </a>
</p>
<br>
<?php


//buat dulu koneksi kedatabase

$dbhost = 'localhost';
$dbuser = 'root';
$dbpassword = '';
$dbname = 'postingan';
$koneksi = mysql_connect($dbhost,$dbuser,$dbpassword);
mysql_select_db($dbname,$koneksi);


//buat query terlebih dahulu

$query = mysql_query("SELECT * FROM tblartikel");


//cek apakah kita sudah memposting artikel atau belum

if (mysql_num_rows($query) == 0) {


//tampilkan pesan kalau artikel belum ada

echo 'maaf, belum ada artikel';
} 
else 
{


//buat pengulangan untuk menampilkan data artikel dengan 
//menggunakan while dan definisikan kedalam variabel data

while ($data = mysql_fetch_array($query)) 
{


//kita akan menampilkan judul artikel

echo '<p><strong>'.$data['judul_artikel'].'</strong></p>';



//tampilkan tanggal pembuatan artikel
//gunakan fungsi strtotime untuk merubah bentuk date 
//kedalam bentuk string

echo '<p><em>'.date('j, F Y',strtotime($data['tgl_artikel'])).'</em></p>';



//menampilkan isi artikel yang sudah kita buat

echo '<p>'.$data['isi_artikel'].'</p>';
}
}


//tutup koneksi database

mysql_close();
?>
</body>
</html>

simpan dengan nama index.php
test dengan menjalankan index.php

Read more »

(SMS Gateway PHP MYSQL) Source Code Membuat SMS Gateway Auto Reply Mengunakan PHP MYSQL Plus GAMMU

Kali ini saya akan berbagi pengetahuan tentang bagaimana cara membuat Membuat SMS Gateway Auto Reply Mengunakan PHP MYSQL Plus GAMMU.
Dalam kasus ini kita akan mengangkat studi kasus yaitu tentang nilai mahasiswa.

Adapun jalan ceritanya adalah sebagai berikut:

"kita ibaratkan kita telah memiliki data nilai matakuliah Kalkulus mahasiswa. Dan untuk melihat nilainya, si mahasiswa tinggal mengirim pesan melalui SMS dengan format ‘NILAI<spasi>NIM‘ dan dikirim ke nomor HP tertentu. Selang beberapa waktu si mahasiswa tadi akan mendapat SMS balasan berisi nilai matakuliah Kalkulus yang diperolehnya secara otomatis. Gimana, sudah paham kan".

Sebelum kita bahas lebih lanjut mengenai pembuatan scriptnya, terlebih dahulu kita harus mengetahui ide pembuatan script auto reply SMS dengan Gammu ini. Tentu kita sudah ketahui bersama bahwa setiap kali SMS yang diterima oleh Gammu, maka SMS tersebut akan masuk ke dalam tabel ‘INBOX‘ yang ada di database MySQL. Lantas.. mungkin Anda bertanya, bagaimana cara membedakan mana SMS yang telah diproses dan yang belum diproses (baru saja masuk)? Jawabannya adalah terletak pada field yang bernama ‘Processed‘. Begitu ada SMS masuk, maka secara default nilai pada field ini adalah ‘false‘. Nah… Bila ditemukan record SMS yang bernilai ‘false’ ini maka kita bisa proses dengan menggunakan script tertentu. Kemudian setelah data SMS tersebut diproses kita harus segera mengubah nilainya menjadi ‘true‘ untuk membedakan mana SMS yang telah diproses dengan yang belum.

Proses di atas ini harus dilakukan setiap saat. Anda dapat menggunakan script PHP atau script apapun untuk memproses data SMS yang masuk ke dalam INBOX ini. Bila Anda menggunakan script PHP, maka Anda perlu membuat script auto refresh yang secara otomatis berjalan pada selang interval waktu tertentu. Proses auto refresh ini bertujuan untuk mengecek ada tidaknya SMS baru yang masuk sekaligus memprosesnya.
Pertama kita siapkan dahulu data nilai Kalkulus mahasiswa beserta tabelnya.

CREATE TABLE `nilaikalkulus` ( `nim` varchar(10), `nilai` int(11), PRIMARY KEY (`nim`) );
INSERT INTO `nilaikalkulus` VALUES ('M0197001', '80');
INSERT INTO `nilaikalkulus` VALUES ('M0197002', '79');
INSERT INTO `nilaikalkulus` VALUES ('M0197003', '86');

Catatan :

Tabel di atas Anda bisa buat pada satu database yang sama dengan tabel-tabel bawaannya Gammu atau bisa juga berbeda.


Selanjutnya, kita buat script PHP untuk pemrosesannya. dan pastikan bahwa keyword dari perintah SMS yang dikirimkan adalah sesuai dengan format. Untuk memastikan bahwa keyword dari perintah itu benar, Anda harus membuat parsing terlebih dahulu. Jika format perintah benar maka SMS akan diproses untuk mengirimkan nilainya. Namun jika tidak sesuai, maka tetap diproses dengan mengirimkan pesan kesalahan dalam bentuk SMS pula.
Hal terpenting… jangan samapi lupa mengubah status ‘processed’ menjadi ‘true’ pada setiap SMS yang telah diproses di dalam tabel INBOX nya.

Berikut Source Code untuk membuat auto reply, lengkap saya sertakan penjelasannya dalam bentuk komentar.

<?php  

//koneksi ke mysql dan db nya
mysql_connect("dbhost", "dbuser", "dbpass");
mysql_select_db("dbname");

// query untuk membaca SMS yang belum diproses
$query = "SELECT * FROM inbox WHERE Processed = 'false'";
$hasil = mysql_query($query);
while ($data = mysql_fetch_array($hasil)) {

// membaca ID SMS
$id = $data['ID'];

// membaca no pengirim
$noPengirim = $data['SenderNumber'];

// membaca pesan SMS dan mengubahnya menjadi kapital
$msg = strtoupper($data['TextDecoded']);  

// proses parsing  
// memecah pesan berdasarkan karakter
$pecah = explode(" ", $msg);  

// jika kata terdepan dari SMS adalah 'NILAI' maka cari nilai Kalkulus
if ($pecah[0] == "NILAI") {

// baca NIM dari pesan SMS
$nim = $pecah[1];  

// cari nilai kalkulus berdasar NIM
$query2 = "SELECT nilai FROM nilaikalkulus WHERE nim = '$nim'";
$hasil2 = mysql_query($query2);  

// cek bila data nilai tidak ditemukan
if (mysql_num_rows($hasil2) == 0)
{
$reply = "NIM tidak ditemukan";
}
else {

// bila nilai ditemukan
$data2 = mysql_fetch_array($hasil2);
$nilai = $data2['nilai'];
$reply = "Nilai Kalkulus Anda: ".$nilai;
}
 else
{
$reply = "Maaf perintah salah";  
}

// membuat SMS balasan  
$query3 = "INSERT INTO outbox(DestinationNumber, TextDecoded, CreatorID) VALUES  ('$noPengirim', '$reply', 'Gammu')"; $hasil3 = mysql_query($query3);  

// ubah nilai 'processed' menjadi 'true' untuk setiap SMS yang telah diproses  
$query3 = "UPDATE inbox SET Processed = 'true' WHERE ID = '$id'";
$hasil3 = mysql_query($query3);

}

?>

Mungkin sebagian dari anda bertanya, mengapa untuk proses parsing di atas pesan SMS nya perlu dibuat huruf kapital dengan strtoupper(). Jawabannya adalah : karena supaya ada keseragaman bentuk pesan. Karena terkadang SMS dikirim dengan huruf kapital semua, kecil semua atau campuran. Bila tidak seragam, maka sulit dalam proses memparsingnya, karena string ‘NILAI’ dengan ‘nilai’ itu berbeda sehingga bila ditulis huruf kecil semua nantinya bisa dianggap perintah salah. Nah.. supaya seragam, maka setiap SMS yang masuk kita buat kapital semua saja.
Keterangan:
Cara pengiriman pesan balasan pada script di atas, saya menggunakan teknik insert data pada tabel OUTBOX dengan query SQL.
Selanjutnya supaya script di atas berjalan secara otomatis mengecek SMS yang masuk, Anda harus buat auto refresh dalam selang beberapa detik.
sms.php

SMS server running

<?php  

//koneksi ke mysql dan db nya
mysql_connect("dbhost", "dbuser", "dbpass");
mysql_select_db("dbname");  

// query untuk membaca SMS yang belum diproses
$query = "SELECT * FROM inbox WHERE Processed = 'false'";
$hasil = mysql_query($query);
while ($data = mysql_fetch_array($hasil)) {

// membaca ID SMS
$id = $data['ID'];  

// membaca no pengirim
$noPengirim = $data['SenderNumber'];  

// membaca pesan SMS dan mengubahnya menjadi kapital
$msg = strtoupper($data['TextDecoded']);  

// proses parsing  
// memecah pesan berdasarkan karakter
$pecah = explode(" ", $msg);  

// jika kata terdepan dari SMS adalah 'NILAI' maka cari nilai Kalkulus
if ($pecah[0] == "NILAI") {

// baca NIM dari pesan SMS
$nim = $pecah[1];  

// cari nilai kalkulus berdasar NIM
$query2 = "SELECT nilai FROM nilaikalkulus WHERE nim = '$nim'";
$hasil2 = mysql_query($query2);  

// cek bila data nilai tidak ditemukan
if (mysql_num_rows($hasil2) == 0)
{
$reply = "NIM tidak ditemukan";
}
else
{

// bila nilai ditemukan
$data2 = mysql_fetch_array($hasil2);
$nilai = $data2['nilai'];
$reply = "Nilai Kalkulus Anda: ".$nilai;
} }
else
{
$reply = "Maaf perintah salah";
}
// membuat SMS balasan  
$query3 = "INSERT INTO outbox(DestinationNumber, TextDecoded) VALUES  ('$noPengirim', '$reply')"; $hasil3 = mysql_query($query3);  

// ubah nilai 'processed' menjadi 'true' untuk setiap SMS yang telah diproses  
$query3 = "UPDATE inbox SET Processed = 'true' WHERE ID = '$id'";
$hasil3 = mysql_query($query3);
}
?>

Sebenarnya untuk memproses SMS dan memberikan auto reply, selain dengan auto script menggunakan auto refresh seperti di atas, Anda dapat pula menggunakanTRIGGER di MySQL nya. Namun.. bagi yang belum terbiasa membuatnya seperti saya, mungkin agak repot, apalagi bila panjang text auto reply nya di atas 160 karakter.
Script di atas sudah diuji coba dan berjalan dengan lancar di modem Wavecom Fastrack.


Selamat Mencoba.

Read more »

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Program untuk menampilkan hasil ke listview untuk kasus Pemakaian Listrik :

Berikut Coding nya :

Public Class Form1

    Public Perintah As String

    Private Sub ke_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ke.KeyPress

        Dim tombol2 As Integer = Asc(e.KeyChar)

        Dim x As String

        If tombol2 = 13 Then

            If ke.Text = "" Then

                MsgBox("Masukkan Untuk Berapa Bulan!")

            Else

                pemakaian.Text = ke.Text * 100000

                denda.Text = pemakaian.Text * 0.1

            End If

        End If

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("Untuk Bulan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Ke", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Denda", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Bayar", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = bulan.Text

        Lst.SubItems.Add(ke.Text)

        Lst.SubItems.Add(pemakaian.Text)

        Lst.SubItems.Add(denda.Text)

        Lst.SubItems.Add(totalbayar.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        totalbayar.Text = Val(pemakaian.Text) + Val(denda.Text)

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LST.Click

        IsiTabel()

        bulan.Text = ""

        ke.Text = ""

        pemakaian.Text = ""

        denda.Text = ""

        totalbayar.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

    End Sub

End Class

Berikut hasil nya…

NAMA   :  Jhon Carlos Situmorang
NPM      :  1111539

KELAS  :   TI P1106
Selamat Pemrograman VB NET

Read more »