Sunday, December 29, 2013

Lirik Lagu Dan Kunci Gitar Fatin - Jangan Kau Bohong



Lirik Lagu Dan Kunci Gitar Fatin - Jangan Kau Bohong

Intro: Dm Dm Bb F

Dm                               Dm
Jangan kau bohongiku jangan permainkanku

F                                    C
Ku tau kau tlah mendua ku tau semua tentang dia

Dm                                 Dm
Tak akan memaafkanmu meski kau membujukku

F                                     C
Terserah mau bilang apa takkan ada yang percaya


  Dm                           Bb                                  F                      C
*Kesabaranku kau uji sungguh kau tak peduli (kau tak peduli, kau tak peduli)

Dm                    Bb                          F                    C
Kalau tau begini Akupun tak peduli (ku tak peduli, ku tak peduli)

.................................................................
Pictures on your phone, jangan kau bohong


Reff:

                Dm
^Sikapmu dumdidumdidumdidumdi ey

Bb
Dumdidumdidumdidumdi eyey

F                        C
Sudah sudahlah sungguh ku gerah

                     Dm
Memang kau dumdidumdidumdidumdi ey

Bb
Dumdidumdidumdidumdi eyey

F                        C
Sudah sudahlah pergi pergilah

Dm              Bb               F    
Get out ooo get out ooo get out ooo

C
Sudah sudahlah.

....................................
I heard about about your girl

Dm                                     Dm
Apa yang kau lihat darinya jelas aku lebih baik

F                             C
Tapi apa boleh buat jika itu maumu


Repeat *


Dm                                                Dm                                                      
Kau buat ku pusing sepuluh keliling Kau tunjuk-tunjuk diriku seolah salahku

F                                                        C
Tak sadarkah kau  kebohonganmu itu But i don't even care i don't ever scared

Dm                                    Dm
Kau pikir aku tak kan bisa Mulutmu berbisa

             F                                                              C                                                         
Kau binasa Coba liat saja siapa nanti yang tertawa kecewa jelas kau pancarkan dari matamu

Dm                                                     Bb                                                   F
Now kau pikir dari ku akan menangis Terus menangis mengemis cinta yang sadis

                                           C
Please loh gue lebih tampan kau coba buat ku sirik itu tak mempan

Dm                                                           Bb                                            F
Yeah sirik itu kamu kasih no you're wrong Kau bohongi hatimu takkan menolong

                                                              C
But i kow you don't care you just forget it So just sing the song.


Back to reff [1x]


Outro: Dm Bb F C
Baca selengkapnya

Friday, December 20, 2013

Sejarah Hacker Dunia Yang Terkenal


Sejarah Hacker Dunia Yang Terkenal

Seperti yang dilansir di wikipedia, sejarah Hacker Terminologi peretas muncul pada awal tahun 1960-an di antara para anggota organisasi mahasiswa Tech Model Railroad Club di Laboratorium Kecerdasan Artifisial Massachusetts Institute of Technology (MIT). Kelompok mahasiswa tersebut merupakan salah satu perintis perkembangan teknologi komputer dan mereka berkutat dengan sejumlah komputer mainframe. Kata bahasa Inggris "hacker" pertama kalinya muncul dengan arti positif untuk menyebut seorang anggota yang memiliki keahlian dalam bidang komputer dan mampu membuat program komputer yang lebih baik daripada yang telah dirancang bersama.



Kemudian pada tahun 1983, istilah hacker mulai berkonotasi negatif. Pasalnya, pada tahun tersebut untuk pertama kalinya FBI menangkap kelompok kriminal komputer The 414s yang berbasis di Milwaukee, Amerika Serikat. 414 merupakan kode area lokal mereka. Kelompok yang kemudian disebut hacker tersebut dinyatakan bersalah atas pembobolan 60 buah komputer, dari komputer milik Pusat Kanker Memorial Sloan-Kettering hingga komputer milik Laboratorium Nasional Los Alamos. Satu dari pelaku tersebut mendapatkan kekebalan karena testimonialnya, sedangkan 5 pelaku lainnya mendapatkan hukuman masa percobaan.

Kemudian pada perkembangan selanjutnya muncul kelompok lain yang menyebut-nyebut diri sebagai peretas, padahal bukan. Mereka ini (terutama para pria dewasa) yang mendapat kepuasan lewat membobol komputer dan mengakali telepon (phreaking). Sahabat anehdidunia.com peretas sejati menyebut orang-orang ini cracker dan tidak suka bergaul dengan mereka. Peretas sejati memandang cracker sebagai orang malas, tidak bertanggung jawab, dan tidak terlalu cerdas. Peretas sejati tidak setuju jika dikatakan bahwa dengan menerobos keamanan seseorang telah menjadi peretas.

Para peretas mengadakan pertemuan tahunan, yaitu setiap pertengahan bulan Juli di Las Vegas. Ajang pertemuan peretas terbesar di dunia tersebut dinamakan Def Con. Acara Def Con tersebut lebih kepada ajang pertukaran informasi dan teknologi yang berkaitan dengan aktivitas peretasan.

Peretas memiliki konotasi negatif karena kesalahpahaman masyarakat akan perbedaan istilah tentang hacker dan cracker. Banyak orang memahami bahwa peretaslah yang mengakibatkan kerugian pihak tertentu seperti mengubah tampilan suatu situs web (defacing), menyisipkan kode-kode virus, dan lain-lain, padahal mereka adalah cracker. Cracker-lah menggunakan celah-celah keamanan yang belum diperbaiki oleh pembuat perangkat lunak (bug) untuk menyusup dan merusak suatu sistem. Atas alasan ini biasanya para peretas dipahami dibagi menjadi dua golongan: White Hat Hackers, yakni hacker yang sebenarnya dan cracker yang sering disebut dengan istilah Black Hat Hackers.

Membaca sejarah hacker diatas, membuat kita ingin mengetahui siapakah hacker paling terkenal atau hacker paling top di dunia ini. Berikut sahabat anehdidunia.com kami tampilkan hacker ternama di dunia.


Kevin Mitnick



Mungkin Mitnick menjadi hakcer paling terkenal dari generasinya, karena Mitnick telah ‘dinobatkan‘ oleh Departemen Kehakiman US menjadi criminal computer paling diinginkan di sepanjang seharag United States. Mitnick dengan postur tubuhnya yang cocok dengan karakter hacker, masuk ke sejumlah system komputer milik perusahaan teknologi dan telekomunikasitop dunia, termasuk Nokia, Fujitsu, dan Motorola. Setelah dipublikasikan besar-besaran oleh FBI, Mitnick akhirnya ditahan di tahun 1995 dan setelah menerima berbagai tuduhan, ia akhirnya menghabiskan waktu di penjara selama 5 tahun. Ia dibebaskan tahun 2000 dan kini membuka konsultan keamanan komputer. Ia tidak menamakan aksinya sebagai ‘hacking‘ dan malah memberi nama ’social engineering’.

Kevin Poulson



Poulson pertama kali masuk ke dunia hacking melalui line telepon di stasiun radio KIIS-FM di kota Los Angeles, dan yang membuat Poulson terkenal ketika melakukan penipuan digital dengan mengaku menjadi penelepon yang menjebol line telepon ke-102 hanya untuk mendapatkan uang untuk membeli Porsche. Kevin Poulson atau nama aliasnya Dark Dante,berhasil mengaktifkan kembali Yellow Page, kemudian menggunakan nomor telepon di dalamnya untuk menjalankan agen pengawal secara virtual. Pihak kepolisian kemudian menangkap Poulson dan memenjarakannya selama 3 tahun setelah ia meng-hack database investigasi federal, dan juga semua 1,800 line telepon yang dibuatnya mengalami crash. Setelah ia keluar dari penjara ia kini menjadi journalis.

Adrian Lamo


Adrian Lamo atau yang dijuluki ‘hacker tak punya rumah’, biasanya menggunakan coffee shop, perpustakaan, dan café Internet sebagai basisnya untuk menjalankan aksinya. Kebanyakan aktivitasnya adalah membobol jaringan komputer dan kemudian melaporkan kelemahannya kepada perusahaan yang memiliki jaringan tersebut. Klaim terbesar Lamo yang menjadikannya terkenal adalah setelah ia menjebol intranet kantor New York Times dan menambahkan namanya di database perusahan surat kabar harian tersebut. Ia juga menggunakan account LexisNexis untuk mendapatkan akses rahasia ke profilpejabat perusahaan tersebut. Kini Lamo bekerja sebagai journalis.

Stephen Wozniak


Terkenal sebagai co-founder Apple, memulai aksi ‘white-hat’-nya dengan menjebol system telepon. Ketika bersekolah di University of California ia membuat device untuk temannya bernama ‘blue box’ dan memperbolehkan teman-temannya untuk menelepon dalam waktu selama mungkin, gratis. Namun, kemudian Wozniak keluar dari universitas tersebut dan bekerja dengan temannya Steve Jobs, membuat Apple Computer.

Loyd Blankenship



Terkenal dengan nama ‘Mentor’, merupakan member dari group elite hacker di tahun 1980. Aksinya yang terbesar adalah ia menjadi pengarang dari Hacker Manifesto (The Conscience of a Hacker), yang ia tulis di penjara di tahun 1986. Dalam buku Hacker Manifesto (The Conscience of a Hacker), tersebut disebutkan bahwa hacker hanyalah tindakan yang dibuat oleh hacker hanyalah sekedar keingintahuan dan tidak hanya dijadikan moral hacker sekarang ini, namun juga menjadi paradigma absolute dari filosofi hacker. Buku tersebut diulas pula dalam majalah Phrack, dan bahkan dibuat film di tahun 1995 dengan judul hacker, dengan bintang Angelina Jolie.

Linus Torvalds


Hacker yang juga mengembangkan sistem operasi Linux, gabungan dari “LINUS MINIX”. Kini sistem operasi Linux telah menjadi sistem operasi ‘default’ hacker. Kemudian bersama dengan Richard Stallman membangun Linux versi awal, bekerja sama dengan programmer, developer dan hacker seluruh dunia untuk mengembangkan kernel Linux.

John Draper


Hacker satu ini menggunakan bantuan peluit plastik yang merupakan hadiah dari kotak sereal “Cap n Crunch”, ia berhasil menjebol system telepon. Ia menemukan frekuensi 2600 Hz dan dan digunakan sebagai alat untuk melakukan pemanggilan telepon gratis. Pada perkembangannya, frekuensi 2600 Hz tidak lagi dibuat dengan peluit plastik, tapi menggunakan alat yang disebut “Blue Box”.

Mark Abene


Masuk menjadi salah satu member “Master of Deception” dan Hacker Groups Legion of Doom atau yang dikenal sebagai Phiber Optik yang berbasis di group elite di New York, yang menargetkan system telepon US, termasuk system compuetr AT&T di akhir pertengahan tahun 80-an.Group tersebut akhirnya bubar di tahun 1992 ketika banyak membernya masuk penjara. Di tahun 1994, ia dihukum penjara satu tahun atas konspirasi dan akses tidak sah ke komputer dan system telepon.

Richard Stallman


Merupakan penemu project GNU, dan menjadi salah satu ‘hacker sekolah senior‘ bekerja pada lab Artificial Intelligence MIT. Ia bekerja sebagai ‘staff hacker‘ di project Emac itu dan memprotes adanya pembatasan atas akses komputer di lab tersebut. Setelah password diisntal, maka ia kemudian membobol system pasword dan mengirimkan pesan kepada setiap staff untuk menghapus password.

Ian Murphy

Ian Muphy berhasil melakukan hacking ke dalam komputer AT&T dan menggubah seting jam internal-nya.Hal ini mengakibatkan banyak pengguna telepon mendapatkan diskon ‘tengah malam‘ pada sore hari, dan yang telah menunggu hingga tengah malam harus membayar dengan tagihan yang tinggi.

Vladimir Levin


Hacker satu ini berhasil melakukan penipuan ke komputer CitiBank dan mendapatkan keuntungan 10 juta dollar. Ia merupakan lulusan St. Petersburg Technology University, dan kemudian ditangkap Interpol di Heathrow Airport pada tahun 1995.

Tsutomu Shimomura

Merupakan ahli keamanan komputer yang top, dan berhasil menangkap jejak Kevin Mitnick di tanggal 15 Februari 1995 ketika Mitnick membobol komputernya.

Eric Steven Raymond

Dijuluki sebagai Bapak hacker. Seorang hacktivist dan pelopor opensource movement. Ia menulis banyak panduan hacking, salah satunya adalah: “How To Become A Hacker” dan “The new hacker’s Dictionary”.

Onel A. de Guzman

Seorang mahasiswa asal Filipina yang menjadi Greatest Hacker. Ia menciptakan virus ‘Love Bug’ untuk membobol system layanan email seluruh dunia.

Mudge

Mudge bersama pengikutnya berhasil mematikan trafik Internet di perusahaannya selama satu setengah jam.

Chen Ing-Hau

Ia merupakan pembuat virus komputer mematikan ‘Chernobyl’ yang mematikan banyak system di dunia.

Dennis Moran

Terkenal dengan nama ‘Coolio’, dihukum bersalah atas dakwaan hacking situs nasional, seperti kesatuan militer, Air Force dan anti drug Dare.com.

David L. Smith

Smith merupakan pengarang dari virus worm Melissa yang sukses menjadi virus email pertama yang didistribusikan di group diskusi Usenet alt.sex. Bentuk virus aslinya dikirimkan juga via email. Smith akhirnya ditahan dan dihukum penjara atas tuduhan kerugian sebesar $80 juta.

Sven Jaschan


Jaschan didakwa bersalah atas pembuatan worm Netsky and Sasser di tahun 2004 ketika ia masih remaja. Virus tersebut yang bertanggung jawab atas 70 persen penyebaran malware melalui Internet pada waktu itu. Jaschan menerima hukuman selama 3 tahun untuk kejahatannya, dan setelah bebas ia pun direkrut oleh sebuah perusahaan keamanan.

Michael Calce


Calce baru berusia 15 tahun ketika ia berhasil membobol website komersial terbesar di dunia. Hacker yang juga memiliki nama MafiaBoy tersebut di tahun 2000 meluncurkan serangan DDoS ke 75 komputer di 52 jaringan, juga situs eBay, Amazon dan Yahoo. Ia akhirnya ditahan setelah ia membeberkan aksinya di chatroon online. Ia dihukum penjara selama 8 bulan dan denda yang kecil.

Robert Tappan Morris

November 1988, sebuah virus computer berhasil ditemukan oleh Cornell University, menginfeksi sekitar 6,000 mesin Unix, dan menimbulkan kerugian jutaan dollar. Pembuat virus tersebut diketahui bernama Robert Tappan Morris. Morris mengatakan bahwa virus 'worm'-nya tidak ditujukan untuk merusak apapun, namun bagaimanapun ia harus menjalani hukuman penjara 3 tahun. Sementara disc yang mengandung source code worm Morris kini disimpan di Boston Museum of Science.


sumber http://www.anehdidunia.com
Baca selengkapnya

Tuesday, December 10, 2013

Lirik lagu dan kunci gitar JUDIKA - Cinta satukan kita




Lirik lagu dan kunci gitar JUDIKA - Cinta satukan kita

[intro] Em A D 2x

Em  A         D
dia sepi di sini
Em    A            D
tak seperti yang lain
Em     A           D
walau sudah takdirnya
Em         A          D
namun dia tetap tersenyum


Em   A        D
bahagialah bila
Em    A            D
kau masih punya mimpi
Em    A         D
hidup hanya sekali
Em     A             D
berikanlah yang terbaik

[chorus]
     D     F#   Bm B
merindukan purnama
     Em                 A
bertahan walau di dalam duka
      D      F#    Bm B
bersyukurNya-lah kita
      Em                  A
masih banyak yang sayangi kita
     D     F#    Bm   A       G
merindukan purnama  meraih cinta
   Em        A          D
cinta yang menyatukan kita

Em   A        D
bahagialah bila
Em    A            D
kau masih punya mimpi
Em    A         D
hidup hanya sekali
Em     A             D
berikanlah yang terbaik

[chorus]
     D     F#   Bm B
merindukan purnama
     Em                 A
bertahan walau di dalam duka
      D      F#    Bm B
bersyukurNya-lah kita
      Em                  A
masih banyak yang sayangi kita
     D     F#    Bm   A       G
merindukan purnama  meraih cinta
   Em        A         
cinta yang menyatukan kita

[solo] Bm A G 2x A B

[chorus]
     E     G#   C#m C#
merindukan purnama
     F#m                B
bertahan walau di dalam duka
      E      G#    C#m C#
bersyukurNya-lah kita
      F#m                 B
masih banyak yang sayangi kita
     E     G#    C#m  B       A
merindukan purnama  meraih cinta
   F#m       B          E
cinta yang menyatukan kita


tag: lirik lagu, kunci gitar, lirik, lagu, judika, lirik lagu dan kunci gitar judika cinta satukan kita
Baca selengkapnya

Sunday, December 8, 2013

Penghitungan data penjualan barang menggunakan visualbasic









Penghitungan data penjualan barang menggunakan visualbasic



Public Class Form1

  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        K_barang.Items.Add("TS001")
        K_barang.Items.Add("TS002")
        K_barang.Items.Add("VG001")
        K_barang.Items.Add("VG002")
        N_pembelian.Focus()
    End Sub
    Sub RancangTabel()
        Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        Lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub
    Sub hapus()
        N_pembelian.text = ""
        K_barang.text = ""
        N_barang.text = ""
        Merk.text = ""
        Harga.text = ""
        J_beli.text = ""
        T_harga.text = ""
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = N_pembelian.Text
        Lst.SubItems.Add(K_barang.Text)
        Lst.SubItems.Add(N_barang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(J_beli.Text)
        Lst.SubItems.Add(T_harga.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub K_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(K_barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            Merk.Text = "V-GEN"
        End If

        Dim y As String
        y = Microsoft.VisualBasic.Mid(K_barang.Text, 3)
        If y = "001" Then
            N_barang.Text = "FLASHDISK 4GB"
        ElseIf y = "002" Then
            N_barang.Text = "FLASHDISK 2GB"
        End If

        Dim z As String
        z = Microsoft.VisualBasic.Left(K_barang.Text, 5)
        If z = "TS001" Then
            Harga.Text = "105000"
        ElseIf z = "TS002" Then
            Harga.Text = "75000"
        ElseIf z = "VG001" Then
            Harga.Text = "90000"
        ElseIf z = "VG002" Then
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub J_beli_Keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles J_beli.KeyPress
        If e.KeyChar = Chr(13) Then
            T_harga.Text = Val(Harga.Text) * J_beli.Text
        End If
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        RancangTabel()
        IsiTabel()
        N_pembelian.Focus()
    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        N_pembelian.Text = ""
        K_barang.Text = ""
        N_barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        J_beli.Text = ""
        T_harga.Text = ""
    End Sub

    Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class
Baca selengkapnya

Wednesday, November 20, 2013

Lirik lagu dan kunci gitar Fatin Shidqiah - Dia dia dia

 Lirik lagu dan kunci gitar Fatin - Dia dia dia

(Intro)
B Bbm G#m C# F# 2x
F# C# D#m
selalu kupikir bahwa aku tegar
B Bbm G#m
aku tak pernah menyangka kan begini
F# Bb D#m G#
dan saat engkau tak di sisiku lagi
B Bbm G#m C# F#
baru kurasakan arti kehilangan

(Reff)
B Bbm
ingin kubicara, hasrat mengungkapkan
Bb D#m
masih pantaskah ku bersamamu
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa
G#m Bbm B C# F#
dia dia dia tlah mencuri hatiku

(Interlude)
B Bbm G#m C# F#
F# C# D#m
dan saat hari dimana kau tinggalkanku
B Bbm G#m C#
kupikir semuanya kan baik-baik saja
F# Bb D#m G#
dan kini baru kusadari semua
G#m Bbm B C# F#
dia dia dia tlah mencuri hatiku

(Reff)
B Bbm
ingin kubicara, hasrat mengungkapkan
Bb D#m
masih pantaskah ku bersamamu
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa
G#m Bbm B C# D#m
dia dia dia tlah mencuri hatiku

(Solo)
D#m C# B F# Bb
(Reff)
B C# Bbm D#m
ingin kubicara..
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa

(Reff) (overtune + backingvocal)
C# Cm
ingin kubicara, hasrat mengungkapkan
C Fm
masih pantaskah ku bersamamu (bersamamu)
Bbm D# G#
tuk lalui hitam putih hidup ini (hitam putih, hidup ini)
C# Cm
saat engkau pergi, tak kau bawa hati
C F
dan tak ada lagi yang tersisa …
Bbm Cm C# D# Fm
dia dia dia tlah mencuri hatiku
Bbm Cm C# D# G#
dia dia dia tlah mencuri ha..tiku
Bbm D# G#
tlah mencuri ha..ti..ku
(Ending)
C# Cm Bbm D# G#
Ooooh…


Tag : lirik lagu fatin, kunci gitar fatin, lirik lagu, kunci gitar, lirik lagu dan kunci gitar fatin, fatin sidqiah
Baca selengkapnya

Friday, November 15, 2013

Aplikasi Blackberry Messenger di hanphone Nokia






Aplikasi Blackberry messenger di handphone nokia
Pasti semua pernah dengar kalau Blackberry messenger sekarang tidak hanya ada di handphone blackberry saja, tetapi sudah ada di android.
Dan kali ini saya ingin berbagi blackberry messenger atau BBM di handphone Nokia dan Java.
pasti anda sudah penasaran kan...
Tapi ini bukan asli blackberry messenger seperti yang ada di blackberry.
ini hanya aplikasi yang mirip seperti blackberry dan mempunyai PIN juga sama seperti Blackberry messenger yang asli.
dan nama asli aplikasi ini adalah MOZAK, yaitu aplikasi seperti blackberry messenger yang mempunyai PIN dan chat seperti blackberry yang asli.
buktikan dan download BBM di nokia di sini 

Aplikasi Blackberry Messenger di hanphone Nokia
Baca selengkapnya

Wednesday, November 6, 2013

VisualBasic 2008 Menghitung Nilai Mahasiswa





Public Class Form1

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

        NPM.Items.Add("12110667")
        NPM.Items.Add("12110082")
        NPM.Items.Add("12110407")

        KODEDOSEN.Items.Add("MS001")
        KODEDOSEN.Items.Add("PL002")
        KODEDOSEN.Items.Add("TN003")

        KODEMATAKULIAH.Items.Add("PV001")
        KODEMATAKULIAH.Items.Add("AD002")
        KODEMATAKULIAH.Items.Add("SBD003")

        Dim x As Integer
        For x = 100 To 1 Step -1
            NILAIHADIR.Items.Add(x)
            NILAITUGAS.Items.Add(x)
            NILAIUAS.Items.Add(x)
            NILAIUTS.Items.Add(x)
        Next x


    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110667"
                NAMA.Text = "SONI RIVALDI"
                JURUSAN.Text = "TEKNIK INFORMATIKA"
            Case "12110082"
                NAMA.Text = "BENTO"
                JURUSAN.Text = "TEKNIK INFORMATIKA"
            Case "12110407"
                NAMA.Text = "AHMAD FAUZI LINGGA"
                JURUSAN.Text = "TEKNIK INFORMATIKA"

        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Right(NPM.Text, 2)

        If NPM.Text = "12110667" Then
            JENJANG.Text = "S1"
        ElseIf NPM.Text = "12110082" Then
            JENJANG.Text = "S1"
        ElseIf NPM.Text = "12110407" Then
            JENJANG.Text = "S1"

        End If
    End Sub

    Private Sub KODEDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEDOSEN.SelectedIndexChanged
        Select Case KODEDOSEN.Text
            Case "MS001"
                NAMADOSEN.Text = "Mesran M.Kom"
            Case "PL002"
                NAMADOSEN.Text = "Yasir Hasan S.Kom"
            Case "TN003"
                NAMADOSEN.Text = "Pristiwanto S,Kom"

        End Select
    End Sub

    Private Sub KODEMATAKULIAH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEMATAKULIAH.SelectedIndexChanged
        Select Case KODEMATAKULIAH.Text
            Case "PV001"
                MATAKULIAH.Text = "Program Visual"
            Case "AD002"
                MATAKULIAH.Text = "Sistem Basis Data"
            Case "SBD003"
                MATAKULIAH.Text = "Sistem Operasi"

        End Select
    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        NILAIAKHIR.Text = 0.1 * NILAIHADIR.Text + 0.15 * NILAITUGAS.Text + 0.35 * NILAIUTS.Text + 0.45 * NILAIUAS.Text

        If NILAIAKHIR.Text >= "50" Then
            KETERANGAN.Text = "LULUS"
        Else
            KETERANGAN.Text = "GAGAL"

        End If
        If NILAIAKHIR.Text >= "80" Then
            NILAIHURUF.Text = "A"
        ElseIf NILAIAKHIR.Text >= "70" Then
            NILAIHURUF.Text = "B"
        ElseIf NILAIAKHIR.Text >= "60" Then
            NILAIHURUF.Text = "C"
        ElseIf NILAIAKHIR.Text >= "50" Then
            NILAIHURUF.Text = "D"
        Else
            NILAIHURUF.Text = "E"


        End If
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NPM.Text = ""
        NAMA.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        NAMADOSEN.Text = ""
        MATAKULIAH.Text = ""
        KODEDOSEN.Text = ""
        KODEMATAKULIAH.Text = ""
        NILAIAKHIR.Text = ""
        NILAIHADIR.Text = ""
        NILAIHURUF.Text = ""
        NILAITUGAS.Text = ""
        NILAIUAS.Text = ""
        NILAIUTS.Text = ""
        KETERANGAN.Text = ""

    End Sub
End Class

VisualBasic 2008 Menghitung Nilai Mahasiswa
Baca selengkapnya
loading...