1. Segitiga Bermuda
Archive for 2013
Fenomena Aneh Di Lautan Dunia
By : UnknownFenomena Aneh Di Lautan Dunia adalah hal yang selalu ada di benak kita. Lautan tak hanya indah dan mengerikan jika ombak sedang bergulung-gulung, sehingga kebanyakan manusia lebih memilih untuk mengaguminya dari pantai dibanding melayari hamparan air birunya yang tak berujung. Selain kedua hal tersebut, laut juga memiliki misteri dan fenomena yang di antaranya bahkan belum dapat dipecahkan penyebabnya. Jika Anda Sahabat anehdidunia.blogspot, ingin tahu apa saja misteri tersebut, berikut datanya yang dikutip dari situs berita Rusia, Pravda.
SURAT CINTA UNTUK IBU
By : Unknown
Ibu, satu kata yang berarti sebutan untuk seseorang yang melahirkanku ke dunia, berjuang mempertaruhkan jiwa dan raga agar aku bisa menghirup dan hadir sebagai mahluk Allah bernama Manusia di bumi Allah ini.
Ibu, kini anakmu telah dewasa dan begitu menyadari arti hadirmu dalam setiap langkahku mengarungi hidup yang tidak mudah ini. Ibu, engkau selalu hadir memberi segala apa yang aku butuhkan, tidak tanggung-tanggung jiwa dan raga kau pertaruhkan, ini terbukti ketika engkau berjuang mempertaruhkan jiwa dan ragamu untuk melahirkanku ke dunia.
Hari Hari Besar Nasional Indonesia
By : UnknownAdapun Hari Hari Besar Nasional Indonesia adalah :
Hari Besar Nasional Pada Bulan Januari
01 Januari : Hari Raya Tahun Baru Masehi
03 Januari : Hari Ulang Tahun Department Agama
05 Januari : Hari Ulang Tahun Korps Wanita Angkatan Laut
10 Januari : Hari Tritura
15 Januari : Hari Peristiwa Laut atau Samudera
25 Januari : Hari Gizi
26 Januari : Hari Ulang Tahun Maskapai Penerbangan Garuda
31 Januari : Hari Lahir nahdlatul Ulama (NU)
03 Januari : Hari Ulang Tahun Department Agama
05 Januari : Hari Ulang Tahun Korps Wanita Angkatan Laut
10 Januari : Hari Tritura
15 Januari : Hari Peristiwa Laut atau Samudera
25 Januari : Hari Gizi
26 Januari : Hari Ulang Tahun Maskapai Penerbangan Garuda
31 Januari : Hari Lahir nahdlatul Ulama (NU)
Hari Besar Nasional Pada Bulan Februari
05 Februari : Hari Ulang Tahun Himpunan Mahasiswa Islam
05 Februari : Hari Peristiwa Kapal Tujuh (Seven Provincien)
09 Februari : Hari Ulang Tahun Persatuan Wartawan Indonesia
09 Februari : Hari Ulang Tahun Pasukan Kavaleri
13 Februari : Hari Farmasi
14 Februari : Hari Pemberontakan Peta di Blitar
19 Februari : Hari Ulang Tahun Kohanudnas
22 Februari : Hari Ulang Tahun Mesjid Istiqlal, di Jakarta
05 Februari : Hari Peristiwa Kapal Tujuh (Seven Provincien)
09 Februari : Hari Ulang Tahun Persatuan Wartawan Indonesia
09 Februari : Hari Ulang Tahun Pasukan Kavaleri
13 Februari : Hari Farmasi
14 Februari : Hari Pemberontakan Peta di Blitar
19 Februari : Hari Ulang Tahun Kohanudnas
22 Februari : Hari Ulang Tahun Mesjid Istiqlal, di Jakarta
Hari Besar Nasional Pada Bulan Maret
01 Maret : Hari Kehakiman Indonesia
01 Maret : Peristiwa Serangan Umum 1 Maret di Yogyakarta
06 Maret : Hari Ulang Tahun Kostrad
09 Maret : Hari Wanita Indonesia
10 Maret : Hari Ulang Tahun Persatuan Artis Film Indonesia
11 Maret : Hari Surat Perintah 11 Maret (Supersemar)
18 Maret : Hari Arsitektur Indonesia
24 Maret : Hari Peringatan "Bandung Lautan Api"
01 Maret : Peristiwa Serangan Umum 1 Maret di Yogyakarta
06 Maret : Hari Ulang Tahun Kostrad
09 Maret : Hari Wanita Indonesia
10 Maret : Hari Ulang Tahun Persatuan Artis Film Indonesia
11 Maret : Hari Surat Perintah 11 Maret (Supersemar)
18 Maret : Hari Arsitektur Indonesia
24 Maret : Hari Peringatan "Bandung Lautan Api"
Hari Besar Nasional Pada Bulan April
06 April : Hari Nelayan Indonesia
09 April : Hari Penerbangan Nasional
15 April : Hari Zeni TNI Angkatan Darat
16 April : Hari Kopasandha (Komando Pasukan Sandi Yudha)
18 April : Hari Peringatan Konferensi Asis-Afrika di Bandung
19 Aptil : Hari Pertahanan Sipil (Hansip)
21 April : Hari Peringatan RA. Kartini
24 April : Hari Angkutan Nasional
27 April : Hari Lembaga Pemasyarakatan Indonesia
09 April : Hari Penerbangan Nasional
15 April : Hari Zeni TNI Angkatan Darat
16 April : Hari Kopasandha (Komando Pasukan Sandi Yudha)
18 April : Hari Peringatan Konferensi Asis-Afrika di Bandung
19 Aptil : Hari Pertahanan Sipil (Hansip)
21 April : Hari Peringatan RA. Kartini
24 April : Hari Angkutan Nasional
27 April : Hari Lembaga Pemasyarakatan Indonesia
Hari Besar Nasional Pada Bulan Mei
01 Mei : Hari Peringatan Pembebasan Irian Barat
02 Mei : Hari Pendidikan Nasional (Hardiknas)
03 Mei : Hari Surya
05 Mei : Hari Lembaga Sosial Desa
11 Mei : Hari POM ABRI
19 Mei : Hari Korps Cacad Veteran Indonesia
20 Mei : Hari Kebangkitan Nasional
21 Mei : Hari Buku Nasional
02 Mei : Hari Pendidikan Nasional (Hardiknas)
03 Mei : Hari Surya
05 Mei : Hari Lembaga Sosial Desa
11 Mei : Hari POM ABRI
19 Mei : Hari Korps Cacad Veteran Indonesia
20 Mei : Hari Kebangkitan Nasional
21 Mei : Hari Buku Nasional
Hari Besar Nasional Pada Bulan Juni
01 Juni : Hari Lahirnya Pancasila
03 Juni : Hari Pasar dan Modal Indonesia
17 Juni : Hari Peringatan Dermaga Tanjung Priok
21 Juni : Hari Krida Pertanian
22 Juni : Hari Ulang Tahun Kota Jakarta
24 Juni : Hari Bidan Indonesia
26 Juni : Hari Ulang Tahun LPKJ
29 Juni : Hari Keluarga Berencana Nasional
03 Juni : Hari Pasar dan Modal Indonesia
17 Juni : Hari Peringatan Dermaga Tanjung Priok
21 Juni : Hari Krida Pertanian
22 Juni : Hari Ulang Tahun Kota Jakarta
24 Juni : Hari Bidan Indonesia
26 Juni : Hari Ulang Tahun LPKJ
29 Juni : Hari Keluarga Berencana Nasional
Hari Besar Nasional Pada Bulan Juli
01 Juli : Hari Bhayangkara
01 Juli : Hari Bhayangkara
01 Juli : Hari Anak-Anak Indonesia
05 Juli : Hari Band Indonesia
09 Juli : Hari Peluncuran Satelit Palapa
12 Juli : Hari Koperasi Indonesia
12 Juli : Hari Ulang Tahun Admin Artikel Ampuh (Abdillah.S.A.S)
17 Juli : Hari Hari Integrasi Timor Timur
22 Juli : Hari Kejaksaan
23 Juli : Hari Ulang Tahun KNPI
29 Juli : Hari Bhakti TNI Angkatan Udara
01 Juli : Hari Bhayangkara
01 Juli : Hari Anak-Anak Indonesia
05 Juli : Hari Band Indonesia
09 Juli : Hari Peluncuran Satelit Palapa
12 Juli : Hari Koperasi Indonesia
12 Juli : Hari Ulang Tahun Admin Artikel Ampuh (Abdillah.S.A.S)
17 Juli : Hari Hari Integrasi Timor Timur
22 Juli : Hari Kejaksaan
23 Juli : Hari Ulang Tahun KNPI
29 Juli : Hari Bhakti TNI Angkatan Udara
Hari Besar Nasional Pada Bulan Agustus
05 Agustus : Hari Ulang Tahun Dharma Wanita Indonesia
10 Agustus : Hari Veterann Nasional
13 Agustus : Hari Peringatan Pangkalan Brandan Lautan Api
14 Agustus : Hari Pramuka (Praja Muda Karana)
17 Agustus : Hari Proklamasi Kemerdekaan Indonesia
18 Agustus : Hari Konstitusi Republik Indonesia
19 Agustus : Hari Department Luar Negeri
21 Agustus : Hari Maritim Nasional
24 Agustus : Hari Ulang Tahun TVRI
10 Agustus : Hari Veterann Nasional
13 Agustus : Hari Peringatan Pangkalan Brandan Lautan Api
14 Agustus : Hari Pramuka (Praja Muda Karana)
17 Agustus : Hari Proklamasi Kemerdekaan Indonesia
18 Agustus : Hari Konstitusi Republik Indonesia
19 Agustus : Hari Department Luar Negeri
21 Agustus : Hari Maritim Nasional
24 Agustus : Hari Ulang Tahun TVRI
Hari Besar Nasional Pada Bulan September
01 September : Hari Polwan (Polisi Wanita)
08 September : Hari Aksara
08 September : Hari Pamong Praja
11 September : Hari RRI (Radio Republik Indonesia)
17 September : Hari Perhubungan Nasional
17 September : Hari Palang Merah Indonesia
24 September : Hari Agraria Indonesia (Hari Tani )
29 September : Hari Sarjana
30 September : Hari Berkabung Nasional
08 September : Hari Aksara
08 September : Hari Pamong Praja
11 September : Hari RRI (Radio Republik Indonesia)
17 September : Hari Perhubungan Nasional
17 September : Hari Palang Merah Indonesia
24 September : Hari Agraria Indonesia (Hari Tani )
29 September : Hari Sarjana
30 September : Hari Berkabung Nasional
Hari Besar Nasional Pada Bulan Oktober
01 Oktober : Hari Kesaktian Pancasila
05 Oktober : Hari Ulang Tahun ABRI
15 Oktober : Hari Hak Azasi Binatang
16 Oktober : Hari Parlemen Republik Indonesia
20 Oktober : Hari Ulang Tahun Golkar (Golongan Karya)
24 Oktober : Hari Dokter Indonesia
27 Oktober : Hari Penerbangan Nasional
28 Oktober : Hari Sumpah Pemuda
30 Oktober : Hari Keuangan
05 Oktober : Hari Ulang Tahun ABRI
15 Oktober : Hari Hak Azasi Binatang
16 Oktober : Hari Parlemen Republik Indonesia
20 Oktober : Hari Ulang Tahun Golkar (Golongan Karya)
24 Oktober : Hari Dokter Indonesia
27 Oktober : Hari Penerbangan Nasional
28 Oktober : Hari Sumpah Pemuda
30 Oktober : Hari Keuangan
Hari Besar Nasional Pada Bulan November
01 November : Hari Intendans AD (Angkatan Darat)
03 November : Hari Kerohanian
10 November : Hari Pahlawan
12 November : Hari Kesehatan Nasional
14 November : Hari Brimob (Brigade Mobil)
21 November : Hari Pohon
25 November : Hari Persatuan Guru Republik Indonesia (PGRI)
03 November : Hari Kerohanian
10 November : Hari Pahlawan
12 November : Hari Kesehatan Nasional
14 November : Hari Brimob (Brigade Mobil)
21 November : Hari Pohon
25 November : Hari Persatuan Guru Republik Indonesia (PGRI)
Hari Besar Nasional Pada Bulan Desember
04 Desember : Hari Artileri
09 Desember : Hari Armada Republik Indonesia
12 Desember : Hari Transmigran
15 Desember : Hari Infanteri
19 Desember : Hari Trikora
20 Desember : Hari Sosial
22 Desember : Hari Ibu
22 Desember : Hari Korps Wanita Angkatan Darat (Kowad)
09 Desember : Hari Armada Republik Indonesia
12 Desember : Hari Transmigran
15 Desember : Hari Infanteri
19 Desember : Hari Trikora
20 Desember : Hari Sosial
22 Desember : Hari Ibu
22 Desember : Hari Korps Wanita Angkatan Darat (Kowad)
Korban kecelakaan Bintaro bertambah
By : Unknown
Gerbong kereta komuter yang terbakar
Upaya evakuasi korban kecelakaan kereta di Bintaro telah selesai pada Senin (09/12) sore namun bangkai truk dan kereta masih teronggok di lokasi.
Tabrakan antara kereta komuter Serpong-Jakarta di Pondok Betung, Bintaro dengang sebuah truk pengangkut BBM milik PT Pertamina merenggut Klikkorban tewas dan puluhan korban luka.
Program Aplikasi Listview penjualan Barang
By : Unknown
Ini adalah Cara membuat "Program Aplikasi Listview penjualan Barang". artikel ini saya buat untuk memenuhi tugas mataKuliah pemograman visual.
Berikut adalah hasuilnya:
Berikut adalah Listing Programnya:
Public Class Form1
Sub bersih()
nopembli.Text = ""
kodebarang.Text = ""
namabarang.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
End Sub
Sub isitabel()
Dim x As New ListViewItem
x.Text = nopembli.Text
x.SubItems.Add(kodebarang.Text)
x.SubItems.Add(namabarang.Text)
x.SubItems.Add(merk.Text)
x.SubItems.Add(harga.Text)
x.SubItems.Add(jumlahbeli.Text)
x.SubItems.Add(totalharga.Text)
lv.Items.Add(x)
End Sub
Sub rancang()
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
lv.Columns.Add("Kode Pel", 100)
lv.Columns.Add("Nama ", 140)
lv.Columns.Add("Type", 160)
lv.Columns.Add("Harga /kwh", 110)
lv.Columns.Add("Daerah", 100)
lv.Columns.Add("Biaya Beban", 100)
lv.Columns.Add("Besar Pemakaian", 100)
lv.Columns.Add("Total Tagihan", 100)
lv.Columns.Add("Pajak", 100)
lv.Columns.Add("Pembayaran", 100)
End Sub
Sub addbersih()
nopembli.Text = ""
kodebarang.Text = ""
namabarang.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
nopembli.Focus()
End Sub
Sub addkodebarang()
kodebarang.Items.Add("TV001")
kodebarang.Items.Add("FD002")
kodebarang.Items.Add("VD001")
kodebarang.Items.Add("RD002")
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
addkodebarang()
rancang()
End Sub
Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
Dim x As String
x = Strings.Left(kodebarang.Text, 2)
If x = "TV" Then
namabarang.Text = "Televisi"
ElseIf x = "FD" Then
namabarang.Text = "Flasdisk"
ElseIf x = "VD" Then
namabarang.Text = "VCD"
Else
namabarang.Text = "Radio"
End If
x = Strings.Right(kodebarang.Text, 3)
Select Case kodebarang.Text
Case "TV001"
merk.Text = "Toshiba"
harga.Text = "11200000"
Case "FD002"
merk.Text = "Kingstoon"
harga.Text = "75000"
Case "VD001"
merk.Text = "Kawachi"
harga.Text = "300000"
Case "RD002"
merk.Text = "Polytron"
harga.Text = "60000"
End Select
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
addbersih()
End Sub
Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
If Asc(e.KeyChar) = 13 Then
totalharga.Text = harga.Text * jumlahbeli.Text
End If
End Sub
Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bersih()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
bersih()
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
bersih()
End Sub
End Class
Sekian artikel tentang "Program Aplikasi Listview Penjualan Barang". Semoga artikel ini bisa
rmanfaat bagi anda. Terima kasih....
Organisasi Komputer
By : Unknown
Pertemuan kali ini akan menjelaskan:
- Pengertian Organisasi Komputer
- Evolusi Mesin Komputer
- Komputer Sebagai Mesin Multilevel
- Perkembangan Mesin Multilevel
- Definisi Organisasi Komputer
Cara membuat stuktur komputer sebagai suatu rangkaian abstraksi dibuat berdasarkan abstraksi sebelumnya sehingga kompleksitasnya dapat diatasi dan sistem komputer dirancang secara sistematis dan terorganisasi.(Andrew S. Tanembaum)
Organisasi Komputer adalah bagian yang terkait erat dengan unit-unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturnya. Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal-sinyal kontrol.
—Organisasi Komputer mempelajari bagian yang terkait dengan unit‑unit operasional komputer dan hubungan antara komponen sistem komputer.
contoh: sinyal kontrol, interface / antar muka, teknologi memori peripheral ( Perangkat keras / Hasdware adalah semua bagian fisik komputer dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya.
Organisasi Komputer adalah bagian yang terkait erat dengan unit-unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturnya. Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal-sinyal kontrol.
—Organisasi Komputer mempelajari bagian yang terkait dengan unit‑unit operasional komputer dan hubungan antara komponen sistem komputer.
contoh: sinyal kontrol, interface / antar muka, teknologi memori peripheral ( Perangkat keras / Hasdware adalah semua bagian fisik komputer dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya.
Type data dan Tipe struktur data
By : Unknown
Macam-macam dari Tipe Data adalah:
a. Integer ( Bilangan Bulat )
Integer merupakan nilai bilangan bulat baik dalam bentuk desimal maupun hexadecimal. Tipe data numerik yang termasuk integer adalah sebagai berikut :
- Byte : Memiliki nilai integer dari -128 sampai +127 dan menempati 1 byte ( 8 bits ) di memori
- Short : Memiliki nilai integer dari -32768 sampai 32767 dan menempati 2 bytes ( 16 bits ) di memori
- Int : Memiliki nilai integer dari -2147483648 sampai 2147483647 dan menempati 4 bytes ( 32 bits ) di memori
-Long : Memiliki nilai dari -9223372036854775808 sampai 9223372036854775807 dan menempati 8 bytes ( 64 bits ) di memori.
Integer merupakan nilai bilangan bulat baik dalam bentuk desimal maupun hexadecimal. Tipe data numerik yang termasuk integer adalah sebagai berikut :
- Byte : Memiliki nilai integer dari -128 sampai +127 dan menempati 1 byte ( 8 bits ) di memori
- Short : Memiliki nilai integer dari -32768 sampai 32767 dan menempati 2 bytes ( 16 bits ) di memori
- Int : Memiliki nilai integer dari -2147483648 sampai 2147483647 dan menempati 4 bytes ( 32 bits ) di memori
-Long : Memiliki nilai dari -9223372036854775808 sampai 9223372036854775807 dan menempati 8 bytes ( 64 bits ) di memori.
MANAJEMEN FILE
By : Unknown
Pengertian manajemen file
File system atau manajemen file adalah metode dan struktur data yang digunakan sistem operasi untuk mengatur dan mengorganisir file pada disk atau partisi. File system juga dapat diartikan sebagai partisi atau disk yang digunakan untuk menyimpan file-file dalam cara tertentu. Cara memberi suatu file system ke dalam disk atau partisi dengan cara melakukan Format
Manfaat Manajemen File
Dapat mengurangi resiko kehilangan file yang dikarenakan: terhapus secara tidak disengaja, tertimpa file baru, tersimpan dimana saja, dan hal lain yang tidak kita inginkan
Sistem Basis Data – Normalisasi
By : UnknownDefinisi/Pengertian Normalisasi
Istilah Normalisasi berasal dari E. F.Codd, salah seorang perintis teknologi basis data. selain dipakai sebagai metodologi tersendiri untuk menciptakan struktur tabel 9relasi) dalam basis data (dengan tujuan utnuk mengurangi kemubaziran data) , normalisasi terkadang hanya diipakai sebagai perangkat verifikasi terhadap tabel-tabel yang dihasilkan oleh metodologi lain ( misalnya E-R). Normalisasi memberikan panduan yang sangat membantu bagi pengembang untuk mencegah penciptaan struktur tabel yang kurang fleksibel atau mengurangi keflekxibelan.
~PENGORBANAN SEORANG IBU~
By : Unknown
Ini kisah sedih seorang ibu yang sanggup korbankan mata untuk kebahagiaan anaknya. Takkan ada orang lain yang akan dapat menggantikan tempat seseorang ibu di dunia ini.
Mungkin ramai yang sudah tahu cerita ini...
Semoga cerita ini beri pengajaran buat kita...
Cerita ni
dalam bentuk luahan hati seorang anak yang kesedihan akibat kelalaian
atau dengan kata lain kederhakaannya kepada seorang ibu!
Cerita si anak.....
16 Cara Ampuh Mengatasi Rasa Malas
By : Unknown
Kemalasan adalah musuh produktivitas. Jika kita malas, tidak ada cara lain kita bisa mencapai hal-hal yang berarti. Kita mungkin menunda-nunda melakukan sesuatu, atau bahkan jika kita melakukannya, kita melakukannya dengan setengah hati. Hasil berkualitas tinggi tidak akan tercapai dengan cara-cara seperti itu.
Jadi kita perlu untuk mengatasi kemalasan. Berikut adalah 16 tips yang saya anggap berguna untuk mengatasi kemalasan:
1. Olah raga
Anda bisa merasa malas jika anda tidak memiliki energi yang cukup untuk melakukan aktivitas anda. Berolahraga adalah cara yang baik untuk meningkatkan tingkat energi anda sehingga anda merasa berenergi dan waspada sepanjang hari.
2. Istirahat yang cukup
Tidak memiliki cukup istirahat juga bisa membuat anda malas. Bagaimana anda merasa antusias jika anda mengantuk? Jadi pastikan bahwa anda memiliki istirahat yang baik.
3. Tetapkan batas waktu minimum untuk memulai
Hal yang paling sulit adalah untuk memulai – sisanya akan lebih mudah. Jadi tetapkan sedikit waktu, seperti 15 menit atau bahkan 5 menit, dan mulailah mengerjakan tugas sampai waktunya habis. Setelah itu, akan lebih mudah memutuskan untuk melanjutkan.
Muhasabah Cinta
By : Unknown![]() |
| *** |
Seorang ibu sanggup berkorban nyawa untuk anaknya kerana cintanya kepada anak.
Seorang bapa sanggup berkorban harta dan tenaga kerana perasaan cintanya kepada keluarga.
Seorang penuntut sanggup mengharungi susah dan payah kerana cintanya kepada ilmu.
Seorang perwira sanggup berkorban jiwa kerana cintanya kepada tanah air.
Seorang hartawan sanggup berkorban masa dan maruah kerana cintanya kepada harta. ..
dan seorang pencinta kononnya sanggup merentasi lautan
![]() |
| ** |
Wanita hiasan dunia
By : Unknown
wanita yang disayangi
adalah pencinta Tuhannya...
yang mengalir cinta,takut,dan harap...
yang mengusai perjalanan penghidupannya..
dari waktu ke waktu...
dari hari ke hari..
sehingga perjalanan di antara..
jasad dan nyawanya berakhir..
wanita yang dirindui...
adalah wanita yang dimata dan wajahnya..
terpancar sinar nur Ilahi..
lidahnya basah dengan zikrullah..
di sudut hati kecilnya..
sentiasa membesarkan Allah..
adalah pencinta Tuhannya...
yang mengalir cinta,takut,dan harap...
yang mengusai perjalanan penghidupannya..
dari waktu ke waktu...
dari hari ke hari..
sehingga perjalanan di antara..
jasad dan nyawanya berakhir..
wanita yang dirindui...
adalah wanita yang dimata dan wajahnya..
terpancar sinar nur Ilahi..
lidahnya basah dengan zikrullah..
di sudut hati kecilnya..
sentiasa membesarkan Allah..
Program Menghitung Nilai Mahasiswa
By : UnknownAssalamualaikum Wr.Wb.
Hari ini saya mempostingkan sedikit Program Tentang VB.Net...Dengan Judul "Perhitungan Nilai Mahasiswa"
BELAJAR BAHASA PEMOGRAMAN
Untuk Lebih Lanjut Design Form Berikuttt
Public Class Form1
Sub jenjur()
Dim jen = Microsoft.VisualBasic.Right(NPM.Text, 2)
Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If jen = "07" Then
jenjang.Text = "S1"
ElseIf jen = "02" Then
jenjang.Text = "S1"
ElseIf jen = "50" Then
jenjang.Text = "D3"
ElseIf jen = "44" Then
jenjang.Text = "D3"
End If
If jur = "02" Then
jurusan.Text = "T I"
ElseIf jur = "01" Then
jurusan.Text = "S I"
ElseIf jur = "00" Then
jurusan.Text = "M I"
End If
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "12110207" Then
Nama.Text = "Yurna"
Call jenjur()
ElseIf NPM.Text = "12110102" Then
Nama.Text = "ilam"
Call jenjur()
ElseIf NPM.Text = "12110150" Then
Nama.Text = "Rinni"
Call jenjur()
ElseIf NPM.Text = "12110044" Then
Nama.Text = "Chanif"
Call jenjur()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110207")
NPM.Items.Add("12110102")
NPM.Items.Add("12110150")
NPM.Items.Add("12110044")
kodedosen.Items.Add("A001")
kodedosen.Items.Add("A002")
kodedosen.Items.Add("A003")
kodematkul.Items.Add("MK01")
kodematkul.Items.Add("MK02")
kodematkul.Items.Add("MK03")
Dim A As Integer
For A = 100 To 1 Step -3
nhadir.Items.Add(A)
ntugas.Items.Add(A)
nuts.Items.Add(A)
nuas.Items.Add(A)
Next A
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
If kodedosen.Text = "A001" Then
namadosen.Text = "Putri"
ElseIf kodedosen.Text = "A002" Then
namadosen.Text = "Yanni"
ElseIf kodedosen.Text = "A003" Then
namadosen.Text = "Ronny"
End If
End Sub
Private Sub namadosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namadosen.TextChanged
End Sub
Private Sub namamatkul_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namamatkul.TextChanged
End Sub
Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
If kodematkul.Text = "MK01" Then
namamatkul.Text = "Agama Islam"
ElseIf kodematkul.Text = "MK02" Then
namamatkul.Text = "Kalkulus"
ElseIf kodematkul.Text = "MK03" Then
namamatkul.Text = "Pemograman"
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
nakhir.Text = 0.1 * nhadir.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
If nakhir.Text >= 85 Then
nhuruf.Text = "A"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "B"
ElseIf nakhir.Text >= "65" Then
nhuruf.Text = "C"
ElseIf nakhir.Text >= "50" Then
nhuruf.Text = "D"
ElseIf nakhir.Text >= "40" Then
nhuruf.Text = "E"
End If
If nakhir.Text >= 50 Then
keterangan.Text = "Lulus"
Else
keterangan.Text = "GAGAL"
End If
End Sub
End Class
Hari ini saya mempostingkan sedikit Program Tentang VB.Net...Dengan Judul "Perhitungan Nilai Mahasiswa"
BELAJAR BAHASA PEMOGRAMAN
Untuk Lebih Lanjut Design Form Berikuttt
Public Class Form1
Sub jenjur()
Dim jen = Microsoft.VisualBasic.Right(NPM.Text, 2)
Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If jen = "07" Then
jenjang.Text = "S1"
ElseIf jen = "02" Then
jenjang.Text = "S1"
ElseIf jen = "50" Then
jenjang.Text = "D3"
ElseIf jen = "44" Then
jenjang.Text = "D3"
End If
If jur = "02" Then
jurusan.Text = "T I"
ElseIf jur = "01" Then
jurusan.Text = "S I"
ElseIf jur = "00" Then
jurusan.Text = "M I"
End If
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "12110207" Then
Nama.Text = "Yurna"
Call jenjur()
ElseIf NPM.Text = "12110102" Then
Nama.Text = "ilam"
Call jenjur()
ElseIf NPM.Text = "12110150" Then
Nama.Text = "Rinni"
Call jenjur()
ElseIf NPM.Text = "12110044" Then
Nama.Text = "Chanif"
Call jenjur()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110207")
NPM.Items.Add("12110102")
NPM.Items.Add("12110150")
NPM.Items.Add("12110044")
kodedosen.Items.Add("A001")
kodedosen.Items.Add("A002")
kodedosen.Items.Add("A003")
kodematkul.Items.Add("MK01")
kodematkul.Items.Add("MK02")
kodematkul.Items.Add("MK03")
Dim A As Integer
For A = 100 To 1 Step -3
nhadir.Items.Add(A)
ntugas.Items.Add(A)
nuts.Items.Add(A)
nuas.Items.Add(A)
Next A
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
If kodedosen.Text = "A001" Then
namadosen.Text = "Putri"
ElseIf kodedosen.Text = "A002" Then
namadosen.Text = "Yanni"
ElseIf kodedosen.Text = "A003" Then
namadosen.Text = "Ronny"
End If
End Sub
Private Sub namadosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namadosen.TextChanged
End Sub
Private Sub namamatkul_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namamatkul.TextChanged
End Sub
Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
If kodematkul.Text = "MK01" Then
namamatkul.Text = "Agama Islam"
ElseIf kodematkul.Text = "MK02" Then
namamatkul.Text = "Kalkulus"
ElseIf kodematkul.Text = "MK03" Then
namamatkul.Text = "Pemograman"
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
nakhir.Text = 0.1 * nhadir.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
If nakhir.Text >= 85 Then
nhuruf.Text = "A"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "B"
ElseIf nakhir.Text >= "65" Then
nhuruf.Text = "C"
ElseIf nakhir.Text >= "50" Then
nhuruf.Text = "D"
ElseIf nakhir.Text >= "40" Then
nhuruf.Text = "E"
End If
If nakhir.Text >= 50 Then
keterangan.Text = "Lulus"
Else
keterangan.Text = "GAGAL"
End If
End Sub
End Class
Sejarah Internet
By : Unknown
Pada 1965 peneliti dari MIT bernama Lawrence G. Roberts sering juga disebut Larry Roberts dan Thomas Merill melakukan koneksi komputer TX-2 di MIT dengan komputer Q-32 di California menggunakan jalur telpon berkecepatan rendah untuk menciptakan jaringan berskala luas untuk pertama kalinya.
Pada tahun 1966 Larry Roberts mengembangkan konsep jaringan komputer/ Kemudian beliau merencanakan jaringa yang disebut ARPANET yang dipublikasikan pada tahun 1967. Pada tahun 1969 ARPANET telah melibatkan empat buah komputer yang terkoneksi. Komputer pertama berada di university of California Los Angelos, komputer ke dua berada di Stanford Research Institute, komputer ketiga berada di University of California Barbara dan koputer ke emat berada di University Utah.
TIPS MENGATASI VMJ (virus merah jambu) bagi akhwat
By : Unknown
Entah bagaimana mendeskripsikan perasaan ini
Kalut dalam masalah menjadikan hidup makin tak terarah
Hal ini lah yang sering dialami oleh akhwat-akhwat kita yang sedang dilanda dilema kelas berat, entah karna patah hati atau bahkan jatuh cinta yang tak terungap. ketika seorang akhwat dilanda virus merah jambu bisa jadi dia tersiksa dengan virus itu, bukan hanya membahayakan bahkan sampai mematikan jika tidak ditanggulangi dengan baik dan benar,
Wah jatuh cinta kok keliatan serem gitu sih? Kok bisa?
Ya bisa saja, karena saat akhwat jatuh cinta ia tak mampu melakukan apa-apa selain memedam dalam hati terdalam, memang itu lah yang harus dilakukan bagi akhwat yang terserang virus ini.
Hal yang tak lumrah bukan bila akhwat menyatakan perasaannya pada ikhwan yang disukainya, kan gengsi gitu.
MUHASABAH DIRI
By : Unknown
Ada seorang pemuda Arab yang baru saja menyelesaikan bangku kuliahnya di Amerika. Pemuda ini adalah salah seorang yang diberi nikmat oleh Allah berupa pendidika agama Islam bahkan dia mampu mendalaminya. Selain belajar, dia juga seorang jurudakwah Islam. Ketika berada di Amerika, dia berkenalan dengan salah seorang Nasrani. Hubungan mereka semakin akrab, dengan harapan semoga Allah s.w.t. memberinya hidayah masuk Islam.
Pada suatu hari mereka berdua berjalan-jalan di sebuah perkampungan di Amerika dan melintas dekat sebuah gereja yang terdapat di kampung tersebut. Temannya itu meminta agar dia turut masuk ke dalam gereja. Mula mula dia keberatan, namun kerana desakan akhirnya pemuda itu pun memenuhi permintaannya lalu ikut masuk ke dalam gereja dan duduk di salah satu bangku dengan hening, sebagaimana kebiasaan mereka.
Ketika paderi masuk, mereka serentak berdiri untuk memberikan penghormatan lantas kembali duduk. Di saat itu, si paderi agak terbeliak ketika melihat kepada para hadirin dan berkata, ‘Di tengah kita ada seorang Muslim. Aku harap dia keluar dari sini.’ Pemuda Arab itu tidak bergerak dari tempatnya. Paderi tersebut mengucapkan perkataan itu berkali-kali, namun dia tetap tidak bergerak dari tempatnya. Hingga akhirnya paderi itu berkata, ‘Aku minta dia keluar dari sini dan aku menjamin keselamatannya.’ Barulah pemuda ini beranjak keluar.
9 Tips Gaya Hidup Sehat Menuju Abad 21
By : UnknownTEMPO.CO, Jakarta - Dokter Phaidon L Toruan dalam sebuah bincang santai tentang penyakit di abad ke-21 di Jakarta beberapa waktu lalu mengatakan gaya hidup di abad ini mengerikan. Yaitu akan semakin bergantung dengan penyediaan makanan yang serba cepat atau siap saji. Pilihan makan ini disebabkan semakin mudahnya akses konektivitas dan menyebabkan kurangnya aktivitas fisik.
Tetapi, katanya, gaya hidup modern tersebut tidak bisa dihindari. Jeleknya lagi perubahan gaya hidup manusia modern pada abad ini diperparah dengan berkurangnya kualitas lingkungan hidup di tempat tinggal. Phaidon menuturkan tips supaya hidup sehat sebagai berikut:
1. Mengubah pola pikir
Hal yang paling mendasar untuk menjalankan pola hidup sehat dengan mengubah pola pikir supaya hidup mau serius mencanangkan hidup sehat. Setidaknya mesti ketat memiliki komitmen untuk menjalankan gaya hidup sehat dan praktiknya seperti agama, dengan harus mencari orang atau sosok yang benar-benar mampu sebagai teladan dan mau menyadarkan pentingnya hidup sehat.
2. Membutuhkan kemampuanl
Seperti halnya kecerdasan, kesehatan pun membutuhkan kemampuan supaya bisa serius bisa memiliki tubuh yang sehat, langsing, bugar, bergairah, dan relatif bebas. Kemampuan ini artinya akan menyesuaikan dengan jenis kelamin pria atau wanita, pekerja kantor atau ibu rumah tangga, usia, dan sebagainya.
Beramallah yang Rutin dan Rajin Muhasabah Diri (Nasehat pada Hanzhalah)
By : UnknownSalam AIDILADHAH
By : Unknown
Saat berderai jatuh,
Titisan air mata IBRAHIM,
Melihat keteguhan iman,
Anaknya ISMAIL,
Dikala itulah bermulanya,
Sejarah agung,
ERTI SEBUAH PENGORBANAN
SELAMAT MENYAMBUT HARI RAYA AIDILADHA...
MAAF ZAHIR & BATIN...
kullu 'am Wa Antum bi Alfi Khoir...
Titisan air mata IBRAHIM,
Melihat keteguhan iman,
Anaknya ISMAIL,
Dikala itulah bermulanya,
Sejarah agung,
ERTI SEBUAH PENGORBANAN
SELAMAT MENYAMBUT HARI RAYA AIDILADHA...
MAAF ZAHIR & BATIN...
kullu 'am Wa Antum bi Alfi Khoir...
Jihad Fisabilillah
By : Unknown
Takbir!
"Dan berjihadlah kamu pada jalan Allah dengan jalan yang sebenar-benarnya."
"Dan berjihadlah kamu pada jalan Allah dengan jalan yang sebenar-benarnya."
[Al-Hajj: 78]
jihad jihad! jihad islam!
Firman Allah dalam surah An-Nisa ayat 75
وَمَا لَكُمْ لَا تُقَاتِلُونَ فِي سَبِيلِ اللَّهِ وَالْمُسْتَضْعَفِينَ مِنَ الرِّجَالِ وَالنِّسَاءِ وَالْوِلْدَانِ الَّذِينَ يَقُولُونَ رَبَّنَا أَخْرِجْنَا مِنْ هَٰذِهِ الْقَرْيَةِ الظَّالِمِ أَهْلُهَا وَاجْعَل لَّنَا مِن لَّدُنكَ وَلِيًّا وَاجْعَل لَّنَا مِن لَّدُنكَ نَصِيرًا
Yang bermaksud : Dan apakah yang menghalang kamu (maka kamu) tidak mahu berperang pada jalan Allah (untuk menegakkan ugama Islam) dan (untuk menyelamatkan) orang-orang yang tertindas dari kaum lelaki, perempuan dan kanak-kanak, iaitu mereka yang selalu (berdoa dengan) berkata: "Wahai Tuhan kami! Keluarkanlah kami dari negeri (Makkah) ini, yang penduduknya (kaum kafir musyrik) yang zalim, dan jadikanlah bagi kami dari pihakMu seorang pemimpin yang mengawal (keselamatan ugama kami), dan jadikanlah bagi kami dari pihakMu seorang pemimpin yang membela kami (dari ancaman musuh)".
Surah Al-Anfal Ayat 39
وَقَاتِلُوهُمْ حَتَّىٰ لَا تَكُونَ فِتْنَةٌ وَيَكُونَ الدِّينُ كُلُّهُ لِلَّهِ ۚ فَإِنِ انتَهَوْا فَإِنَّ اللَّهَ بِمَا يَعْمَلُونَ بَصِيرٌ
Yang bermaksud : Dan perangilah mereka sehingga tidak ada lagi fitnah, dan (sehingga) menjadilah ugama itu seluruhnya (bebas) bagi Allah semata-mata. Kemudian jika mereka berhenti (dari kekufurannya dan gangguannya, nescaya mereka diberikan balasan yang baik) kerana sesungguhnya Allah Maha Melihat akan apa yang mereka kerjakan.
Ukhwah Fillah
By : Unknown
Ukhwah itu indah apabila didalamnya terisi jutaan rahmat Allah...
Bila menangis ada yang meredakan,
Bila genbira ada yang mengingatkan,
Bila terleka ada yang menegur,
Bila sakit ada yang mendoakan,
Bila sihat ada yang meraikan
dan segalanya lebih indah
seandainya ianya kerana Allah..
Ya Allah...
Andai sahabatku resah...
Tenangkanlah hatinya dengan teduhan ma'firahMu,
Andai dirinya terancam lindungilah jasadnya dengan kebesaranMu,
Andai tubuhnya kedinginan,
Andai sahabatku resah...
Tenangkanlah hatinya dengan teduhan ma'firahMu,
Andai dirinya terancam lindungilah jasadnya dengan kebesaranMu,
Andai tubuhnya kedinginan,
selimutkanlah ia dengan kasih sayangMu,
Andai dirinya merindu,
Andai dirinya merindu,
rindukanlah jiwanya dengan saat bertemu denganMu...









