widgeo.net
Headlines News :

Logo

SYARAT MENJADI PILOT

syarat pilotThis is a featured page
SYARAT PILOT UMUM YANG BIASA DITERAPKAN DI INDONESIA


1.) Untuk flying school seperti STPI Curug,Penerbangan Militer biasanya hanya menerima lulusan SMU IPA
sedangkan untuk flying school swasta dan beasiswa pilot biasanya menerima lulusan setingkat SMU (SMK,MTS)
2.) biasanya akan menargetkan minim panjang kaki dari pangkal paha 100cm
2.) harus lulus tes kesehatan meliputi jantung,mata dll.
3.) Harus lulus test bahasa inggris yang diadakan flying school tersebut.(bahasa inggris sangat menentukan)
4.) Pengetahuan umum Penerbangan.
5.) Cepat dalam berkalkulasi matematik dan fisika.
6.) Biasanya bila sudah lulus semua persyaratan diatas,calon siswa akan diajak terbang oleh instruktur untuk mengetahui takut tidaknya siswa akan ketinggian dan juga syaraf motorik siswa,serta tanggapnya siswa akan persoalan yang biasa diberikan instruktur kepada calon penerbang.
Test tersebut biasa disebut (altitude test)
APAKAH MADSUD DARI PPL + CPL+ IR + ME + ATPL + VFR

Terima kasih sebelumnya atas pertanyaan dari Gofur Adrian dari SMUN 2 Solo ke email penerbanganbogor@yahoo.comRedaksi akan menjawab sesuai kemampuan,semoga memuaskan.Seperti halnya profesi lain, pilot juga mempunyai beberapa tingkatan ijin. Ini terkait dengan kemampuan dan jam terbang pilot bersangkutan. Secara umum lisensi pilot terdiri dari PPL, CPL, ATPL.

PPL (Private Pilot License)PPL adalah lisensi paling dasar bagi pilot. Pemegang lisensi ini diperkenankan menerbangkan pesawat untuk kepentingan sendiri dan tidak diperbolehkan membawa penumpang dan dibatasi pada pesawat bermesin tunggal. Selain itu pilot yang hanya mempunyai lisensi PPL hanya diperkenankan terbang pada siang hari dan tidak terbang untuk dibayar (non komersial). Di Indonesia PPL mensyaratkan jam terbang sejumlah 60 jam terbang.

CPL (Commercial Pilot License)
Pemegang lisensi CPL diperkenankan menerbangkan pesawat bermesin tunggal, diperkenankan membawa penumpang (berbayar atau tidak) dan diperkenankan untuk penerbangan komersial tanpa kru (sebatas pada penerbangan baliho, penyemprotan kebun, pemadaman api, pesawat sewaan, laporan lalulintas, pemotretan udara bahkan instruktur terbang). Selain itu juga diperkenankan untuk terbang pada malam hari. CPL adalah syarat minimal pilot komersial. Di Indonesia CPL mensyaratkan 200 jam terbang.

ATPL (Airline Transport Pilot License)
ATPL adalah tingkatan tertinggi kemampuan pilot. ATPL disyaratkan untuk pilot yang bekerja di airline dengan penerbangan terjadwal. Pilot pemegang lisensi ini juga diperkenankan menerbangkan pesawat dengan kru (dua kru atau lebih), pesawat dengan penumpang/kargo besar. ATPL mensyaratkan 1500 jam terbang. Selain lisensi, seorang pilot biasanya juga memiliki sertifikat rating untuk menunjukkan kualifikasi tertentu yang dimiliki pilot bersangkutan. Rating ini meliputi ME, IR, dan rating untuk tipe pesawat. Kualifikasi

ME (Multi Engine) kualifikasi lisensi ini diperlukan jika pilot akan menerbangkan pesawat dengan mesin ganda.

IR (Instrument Rating)
kualifikasi diperlukan pada penerbangan malam atau penerbangan ada jalur IFR (Instrument Flight Rule). Jalur IFR adalah jalur penerbangan yang tidak bisa dilakukan dengan navigasi visual (misalnya penerbangan lintas samudra), melainkan dengan bantuan beacon radio di darat. Sedangkan pada penerbangan visual atau dikenal dengan

VFR(Visual Flight Rule)
pilot bisa mengandalkan gunung, danau, sungai, gedung sebagai bantuan navigasinya. Masih ada Type Rating, yaitu kualifikasi khusus untuk menerbangkan jenis pesawat tertentu. Misalnya pilot yang biasa menerbangkan pesawat keluaran airbus (seri A340-200, 300, 500, 600) harus meratifikasi lagi kualifikasinya jika akan menerbangkan pesawat Boeng meski seri 737-200. Jadi menjadi seorang pilot tidak bisa dengan cara yang cepat dan gampang. Kualifikasi dan kemampuan yang tinggi tetap diperlukan.

HAL-HAL YANG BIASA DILAKUKAN CALON PENERBANG BILA INGIN MENJADI PILOT 

Untuk menjadi seorang penerbang/pilot tidak segampang seperti yang kita bayangkan,karena kita menempuh banyak license untuk menerbangkan pesawat berpenumpang dan juga harus sesuai type Rating pesawat yang ingin kita kendarai.

Hal yang perlu diperhatikan bila kita sudah memutuskan untuk menjadi seorang pilot adalah :

1.) Kita harus menentukan setelah lulus SMU atau setingkat SMA lainnya SMK dll,sesuaikanlah kemampuan anda terhadap jalan yang anda akan lalui untuk mengambil PPL (Private pilot license) dalam artian sesuai kemampuan cost dan kemampuan kesehatan anda.
Bila anda memang tidak siap dalam cost anda dapat mencoba ikut beasiswa sekolah pilot yang banyak diadakan oleh maskapai penerbangan indonesia atau penerbangan militer,gratis (dengan catatan peserta yang banyak dan test yang ketat)
Bila anda mempunyai cost tapi tidak banyak,anda dapat mencoba mendaftar di STPI Curug dulu PLP curug (dengan catatan test yang ketat dan peserta yang banyak)

2.) Bila anda mempunyai cost anda dapat memilih sekolah penerbang di indonesia atau diluar Negri biasanya dalam test tidak serumit sekolah penerbang yang gratis dan berbiaya kecil.saya menyarankan di luar negri karena bisa sekalian part time,kerja diluar jam sekolah pilot.

3) Siapkanlah fisik anda dan juga pelajari cara cepat berkalkulasi matematik dan fisika,dan yang tidak kalah penting adalah bahasa inggris.
MENGAPA SEORANG LULUSAN SMK TIDAK BISA MENJADI PILOT
Memang pada awal dibukanya sekolah penerbang sipil maupun militer di indonesia,untuk menjadi seorang penerbang adalah harus dari lulusan
SMA A1 (IPA) tanpa alasan yang jelas mengapa harus seperti itu,setelah diselidiki ternyata alasannya adalah sesuai dengan CASR part 61 yang menjelaskan seorang calon penerbang harus dari lulusan its must be a high school graduated tanpa menjelaskan jurusan apa...??? Lalu mengapa ketika dulu seorang lulusan STM-SMT-SMK daftar tidak di terima di indonesia karena alasan bukan lulusan SMA-SMU (IPA).

Karena adanya pengecualian tersebutlah seorang lulusan STM meminta ijin visa sekolah,ke kedutaan Amerika (permitt education visa) untuk bersekolah penerbang di negeri paman sam.betapa kagetnya saya ternyata sekolah penerbang di America tidak sesulit syarat izin bersekolah penerbang di Indonesia,walaupun seorang lulusan STM,bahkan mereka berujar disini malah lebih banyak petani yang belajar terbang dan pelajar mahasiswa yang mengisi liburan musim panas,dan dia berujar pula bahwa yang dimadsud dengan lulusan senior high school pada CASR rmadsudnya adalah hanya lulusan,setingkat lulusan SMA bukan hanya SMA saja....????
Ternyata selain alasan pesawat cessna sekalipun merupakan barang mewah di indo ,dephub pun berujar hanya lulusan SMA IPA yang bisa ber
kalkulasi cepat dalam berhitung matematik dan Fisika.

1) Banyak orang beranggapan bahwa menjadi penerbang tidak boleh memakai kaca mata (minus)...????
sebetulnya seorang yang menyekolahkan atau dalam artian sekolah pilot gratis,sekolah pilot murah tentunya ingin mendapatkan calon2 pilot yang benar2 terbaik,maka tentunya mereka membuat aturan seperti itu.
karena hanya sekolah2 pilot yang gratis yang sering diadakan oleh airline indo dan murah serta penerimaan penerbang/pilot militer yang biasanya mengetatkan dalam penerimaan siswa-taruna didiknya.
karena diluar negri seorang calon siswa pilot boleh memakai kacamata hanya ada batasan (-) minus untuk menjadi seorang calon siswa disana.

Tips Memilih dan Membeli Laptop yang Bagus

Tips Memilih dan Membeli Laptop yang Bagus ........


Khusus untuk anda semua, Bila saat ini anda masih awam tentang Laptop Atau Notebook dan ingin sekali untuk membelinya mungkin ada baiknya anda mempertimbangkan saatMemilih dan Membeli Laptop yang Bagus dan beberapa faktor yang perlu dipertimbangkan adalah sebagai berikut berikut: Fungsi, Fitur, Harga, Merk, Desain dan Ergonomisnya merupakan beberapa faktor yang perlu anda pertimbangkan. Masih ada banyak faktor lain yang harus anda pertimbangkan sebelum anda memutuskan untuk membeli laptop dan berikut ini hal-hal yang perlu anda perhatikan:

Membeli Latop

Tips Membeli dan Memilih Laptop Bagus

1. Fungsi

   Processor adalah Otak sebuah laptop untuk melakukan proses komputasi. Jenis Processor paling mempengaruhi kemampuan dan tentu saja faktor besarnya memori juga sangat penting. Apalagi kalo menggunakan OS Windows yang rakus makan memori. Sebaiknya tentukan dulu akan digunakan sebagai apa laptop anda nantinya. berikut jenis2 laptop berdasarkan fungsinya :

►Ultra Portable : Untuk anda yang sangat mobile, Laptop Jenis ini biasanya berukuran kecil dan sangat tipis serta sangat ringan, memiliki layar maksimal 12 inchi. Prosesor yang digunakan adalah prosesor hemat listrik agar bisa digunakan selama mungkin. semisal intel Atom, Intel ULV atau AMD Neo. Daya tahan batere untuk laptop jenis ini sangat bagus, bisa mencapai lebih dari 7 jam beroperasi tanpa perlu colokan listrik. Tentu saja Performa atau kemampuan komputasi bukan merupakan fitur andalan laptop jenis ini. Perlu diingat, laptop jenis ini biasanya tidak dilengkapi dengan optical drive. Rentang harga pun bervariasi mulai dari 3 jutaan (intel atom) sampai belasan juta (intel core 2 duo ULV)

►Portable : Untuk penggunaan normal sehari-hari. Merupakan jenis laptop paling cocok untuk kebanyakan orang. Laptop Jenis ini merupakan laptop yang mendominasi pasar saat ini. Berukuran sedang dan memiliki layar antara 12 – 15 inch. Rentang harga bervariasi tergantung merek dan prosesor serta peripheral lainnya, mulai sekitar 4 jutaan, menggunakan Intel Celeron sampai yang termahal sekitar 10 jutaan, menggunakan Intel Core 2 Duo atau AMD Phenom. Daya Tahan batere terhitung standar antara 3-5 jam

► Desktop Replacement : Ditujukan untuk para Gamer, desainer grafis, ataupun pekerjaan2 lain yang membutuhkan kinerja diatas rata2. Laptop jenis Biasanya berukuran besar, berat, dan memiliki layar yang berukuran diatas 15 inchi. Ciri khas laptop jenis ini adalah terdapat Kartu VGA yang terpisah, tidak integrated. ini untuk menunjang kemampuan grafis yang memang dibutuhkan oleh laptop jenis ini. Prosesor yang digunakan hanyalah prosesor kelas atas semisal intel core 2 duo atau bahkan intel core 2 quad, sehingga membuat harga-nya menjadi sangat mahal. Rentang harga laptop jenis ini mulai dari 8 jutaan hingga puluhan juta rupiah.


2. Merek

    Pemilihan merek merupakan hal yang sangat penting. Pada khasus Netbook, harga merk lokal berkisar 2,5 juta (baterai 3 cell) bandingkan dengan merk Acer / Samsung seharga 3 jutaan (baterai 6 cell yang tahan samapi 6-8 jam). Merek yang sudah terkenal seperti Toshiba, Acer, Sony, Samsung, Dell, HP dan lainnya biasanya mempunyai kualitas perakitan yang lebih baik dibandingakan rakitan lokal. Selain itu service center yang merata di seluruh Indonesia, atau setidaknya yang memiliki service center terdekat di kota anda. Ini penting untuk anda yg tinggal di luar kota2 besar seperti Jakarta atau Surabaya, jika suatu saat terdapat masalah atau kerusakan pada laptop anda.


3. Operating System

   Sebagian besar Laptop yang dijual saat ini, kebanyakan menyertakan Microsoft Windows sebagai OS bawaan. Hal ini sebetulnya sangat merugikan konsumen . Anda sebagai konsumen tidak memiliki pilihan selain OS tersebut. Umumnya Laptop yang bundling sama windows selisih harga kisaran 300-500 ribu dibandingan tanpa OS. Lagian kalo beli bundling sama Windows biasanya partisi hard disk cuman 1 partisi aja. Kalo data kena virus pusing installnya.

◄► Tips Tambahan bagi anda yang Benar-benar awam atau gak Ngeh ato gak ngerti sama sekali tentang Laptop atau notebook :

► Sebelum membeli laptop ataupun produk elektronik yang murah, hendaknya mencari tahu harga pasaran produk tersebut saat ini. silahkan mencari informasi dengan browsing di internet. Biasanya harga di kota anda tidak akan berbeda jauh dengan harga di internet, bisa juga jadi lebih murah.

► Ajaklah Teman anda yang Benar-benar mengerti tentang laptop. Tentu saja ini untuk membantu anda dalam memilih dan membeli laptop yang bagus yang sesuai dengan keinginan dan dana anda, tidak asikkan kalau harga laptopnya murah namun barangnya dan mutunya jelek ? Bagus barangnya dan berkualitas namun murah meriah. :)

► Untuk mencari laptop yang lebih murah biasanya saat ada pameran komputer/Laptop, harga di pameran komputer biasanya lebih murah. Walaupun demikian ini tidak menjamin kalau di harga pameran lebih murah seperti yang anda inginkan. Namun demikian bisa menjadi referensi anda berapa kisaran harga produk laptop yang anda inginkan. Toko mana yang harganya lebih murah dan sesuai dana anda :)

► Ini Tips terakhir Cobalah untuk Menawar/DiNego Harganya  , Serta tanyakan secara detail tentang Garansi dari produk Laptop yang akan anda beli, serta ada tidaknya layanan Purna jual di kota anda untuk merk Laptop yang anda beli, ini untuk memudahkan anda bila suatu saat laptop atau Notebook anda mengalami masalah.

Itulah beberapa Tips Membeli dan Memilih Laptop yang Bagus dari saya. semoga dapat sedikit membantu anda.

Membuat Apilkasi dengan menggunakan Listview pada VB.Net

Assalamu'alaikum,,,,,,,

Pada kesempatan kali ini saya akan membagi ilmu tentang Cara "Membuat Aplikasi Listview pada VB.Net ". Tapi sebelumnya anda harus tahu apa itu Vb.Net.

VB.Net aplikasi untuk membuat dan memudahkan User dalam membuat sebuah sebuah program.

Disamping ini adalah sebuah tampilan Aplikasi  dengan Menggunakan Listview :



Dan berikut ini adalah Listing Program Aplikasi Menggunakan Listview :

Public Class Form1
    Dim x As Byte

    Sub buattable()
        lv.Columns.Add("No", 40, HorizontalAlignment.Left)
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = x
        lst.SubItems.Add(npm.Text)
        lst.SubItems.Add(nama.Text)
        lv.Items.Add(lst)
        x = 1 + x
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattable()
        x = 1
    End Sub

    Private Sub bnt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnt_simpan.Click
        isitable()
        npm.Text = ""
        npm.Focus()
        nama.Text = ""
    End Sub

    Private Sub nama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nama.KeyPress
        If Asc(e.KeyChar) = 13 Then
            isitable()
            npm.Text = ""
            npm.Focus()
            nama.Text = ""
        End If
    End Sub

    Private Sub bnthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnthapus.Click
        lv.Items.Remove(lv.Items(0))
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim k As String
        k = MsgBox("apakah andi ingin keluar", MsgBoxStyle.OkCancel)
        If k = vbOKCancel Then
            Me.Close()
        End If

    End Sub

    Private Sub btndelate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelate.Click
        lv.Items.Clear()
    End Sub
End Class

Demikianlah isi Artikel saya tentang cara Mebuat Aplikasi dengan Menggunakan Listview pada Vb.Net...

Wassalamu'alaikum.................

Membuat Program Aplikasi Kalkulator dengan Vb.Net

Membuat Program Aplikasi Kalkulator dengan Vb.Net adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga Membuat Program Aplikasi Kalkulator dengan Vb.Net ini dapat bermanfaat bagi para programer dasar.


Berikut ini adalah listing Program Membuat Program Aplikasi kalkulator dengan Vb.Net

Public Class KALKULATOR

    Dim operand1 As Double
    Dim [operator] As String
    Dim baru As Boolean = True
    Dim temp As Double
    Dim operand2 As Double

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click,btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, bnt9.Click

        TextBox1.Text = TextBox1.Text & sender.Text
    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "+"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
        End If

        baru = False

    End Sub

    Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "-"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
        End If

        baru = False
    End Sub

    Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "x"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
        End If

        baru = False
    End Sub

    Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = ":"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
        End If

        baru = False
    End Sub

    Private Sub btnsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsamadengan.Click
        Dim hasil As Double
        operand2 = Val(TextBox1.Text)

        Select Case [operator]
            Case "+"
                hasil = operand1 + operand2
                TextBox1.Text = hasil.ToString
                baru = True
            Case "-"
                hasil = operand1 - operand2
                TextBox1.Text = hasil.ToString

            Case ":"
                hasil = operand1 / operand2
                TextBox1.Text = hasil.ToString

            Case "x"
                hasil = operand1 * operand2
                TextBox1.Text = hasil.ToString
                baru = True

        End Select
    End Sub

   
    Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click
        If InStr(TextBox1.Text, ".") > 0 Then
            Exit Sub
        Else
            TextBox1.Text = TextBox1.Text & "."
        End If
    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        TextBox1.Text = ""
        operand1 = 0
        temp = 0
        baru = True
    End Sub

End Class

Semoga program Membuat Program Aplikasi Kalkulator dengan Vb.Net diatas dapat bermanfaat bagi para Programer Pemula.

Membuat Program Aplikasi kalkulator dengan Vb.Net

Penggunaan Fungsi If dan Looping

Penggunaan fungsi If dan looping adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga program  fungsi If dan looping dapat bermanfaat bagi para programer dasar.

 From Aplikasi

listing Program  penggunaan fungsi If dan looping:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        makul.Items.Add("Pemrograman Visual I")
        makul.Items.Add("Arsitektur dan Organisasi
Komputer")
        makul.Items.Add("Sistem Operasi")
        makul.Items.Add("Struktur Data")
        makul.Items.Add("Komunikasi Data")
        makul.Items.Add("Agama Islam")

        dosen.Items.Add("Mesran, S.Kom, M.Kom")
        dosen.Items.Add("Philipus Tarigan, S.T, M.Kom")
        dosen.Items.Add("Abdul Sani Sembiring, S.Kom, M.Kom")
        dosen.Items.Add("Alex Rikki, S.Kom, M.Kom")
        dosen.Items.Add("Agus Setiawan")
        dosen.Items.Add("Fitri Handasari, S.Kom")

        npm.Items.Add("12110102")
        npm.Items.Add("12110046")
        npm.Items.Add("12110144")
        npm.Items.Add("12110177")
        npm.Items.Add("12110897")

        na.Enabled = False
        KETERANGAN.Enabled = False
        nama.Enabled = False

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nk.Items.Add(i)
        Next
        i = 100

        For i = 100 To 1 Step -1
            Ntug.Items.Add(i)
        Next
        i = 100

        For i = 100 To 1 Step -1
            nmid.Items.Add(i)
        Next
        i = 100

        For i = 100 To 1 Step -1
            nsem.Items.Add(i)
        Next
        i = 100

    End Sub

    Private Sub B_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_hapus.Click
        makul.Text = ""
        dosen.Text = ""
        Nk.Text = ""
        Ntug.Text = ""
        nmid.Text = ""
        nsem.Text = ""
        na.Text = ""
        nama.Text = ""
        npm.Text = ""
        KETERANGAN.Text = ""
    End Sub

    Private Sub B_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_keluar.Click
        Me.Close()
    End Sub

    Private Sub B_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_proses.Click
        na.Text = 0.1 * Nk.Text + 0.15 * Ntug.Text + 0.3 * nmid.Text + 0.45 * nsem.Text
        If nsem.Text >= 50 Then
            KETERANGAN.Text = "LULUS"
        Else
            KETERANGAN.Text = "GAGAL"
        End If
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "12110102" Then
            nama.Text = "Jailamm Igaph S"
        ElseIf npm.Text = "12110044" Then
            nama.Text = "Chanif Arvani"
        ElseIf npm.Text = "12110046" Then
            nama.Text = "Agus Setiawan"
        ElseIf npm.Text = "12110177" Then
            nama.Text = "Reza Ariansyah"
        ElseIf npm.Text = "121100333" Then
            nama.Text = "Enma Syahputri"
        Else
            nama.Text = "Chanif Arvani"
        End If
    End Sub

    Private Sub nsem_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Asc(e.KeyChar) = 13 Then
            na.Text = 0.1 * Nk.Text + 0.15 * Ntug.Text + 0.3 * nmid.Text + 0.45 * nsem.Text
        End If
    End Sub

 
End Class

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. BIMBEL STAN MEDAN - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger