Popular Post

Archive for 2013

Fenomena Aneh Di Lautan Dunia

By : Unknown

Fenomena 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.


1. Segitiga Bermuda

 

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 : Unknown

Adapun 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)

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

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"

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

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

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

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

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

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

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


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)

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)

Korban kecelakaan Bintaro bertambah

By : Unknown
gerbong kereta terbakar
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. 

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.

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 : Unknown

Definisi/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


rasa malas
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


 ***
"Cinta". Perkataan yang biasa kita dengar dan ungkapkan.   Setiap manusia yang berpeluang hidup di muka bumi ini pasti mengalami perasaan cinta.  Manusia memang dilahirkan secara fitrahnya mempunyai perasaan cinta.

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
**
 berapi lantaran cintanya kepada kekasihnya. Secara dasarnya, kita sanggup berbuat apa sahaja kerana ingin menjaga dan mengejar cinta.Itulah cinta.  Ia fitrah.  Dan ia juga boleh menjadi fitnah. Ia boleh menjadikan seseorang mulia atau hina.  Ia bisa merubah manusia menjadi lebih baik di sisi Tuhan dan manusia, dan ia  juga bisa menjatuhkan nilai seseorang dari sudut pandangan Tuhan dan manusia.Sudah lama kita menjalani kehidupan ini, dan sudah banyak kali perkataan 'cinta' kita ungkapkan dan luahkan.

Wanita hiasan dunia

By : Unknown
 wanita hiasan dunia 
Wanita hiasan dunia..seindah hiasan wanita solehah..
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..

Program Menghitung Nilai Mahasiswa

By : Unknown
Assalamualaikum 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


Sejarah Internet

By : Unknown
sejarah internetSejarah internet dimulai pada Agustus 1962 dan penciptaan internet pertama kali dikemukakan oleh J.C.R Licklider dari MIT Massachutts Institute of Technology. Konsep awal dinamakan “Galactic Network”. ia mengemukakan tentang jaringan global yang memungkinkan orang dapat mengakses data dan program dari mana saja. Oktober 1962 beliau mengepalai program penelitian komputer di ARPA yang merupakan bagian dari Departmenet Pertahanan Amerika Serikat.
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 : Unknown



9 Tips Gaya Hidup Sehat Menuju Abad 21




TEMPO.COJakarta - 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 : Unknown


muhasabah_introspeksiKita diperintahkan beramal kontinu atau rutin walau perlahan-lahan. Inilah yang diperintahkan oleh Rasulullahshallallahu 'alaihi wa sallam pada Hanzhalah, di mana Hanzhalah salah seorang sahabat yang menjadi juru tulis Rasul shallallahu 'alaihi wa sallam. Beramal yang kontinu walau sedikit ini adalah amalan yang paling disukai Allah. Juga kisah Hanzhalah berikut mengajarkan pada kita untuk

Salam 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...

Jihad Fisabilillah

By : Unknown

Takbir!

"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,
selimutkanlah ia dengan kasih sayangMu,

Andai dirinya merindu,
rindukanlah jiwanya dengan saat bertemu denganMu...

- Copyright © Yurna Lissahra - Date A Live - Powered by Blogger - Designed by Johanes Djogan -