Quiz Online 1

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110935")
        npm.Items.Add("12010022")
        npm.Items.Add("12020023")
        kode_dosen.Items.Add("D123")
        kode_dosen.Items.Add("D345")
        kode_dosen.Items.Add("D678")
        kode_matakuliah.Items.Add("K001")
        kode_matakuliah.Items.Add("K002")
        kode_matakuliah.Items.Add("K003")
        Dim i As Integer
        Nilai_kehadiran.Items.Clear()
        For i = 1 To 100
            Nilai_kehadiran.Items.Add(i)
        Next
        Nilai_tugas.Items.Clear()
        For i = 1 To 100
            Nilai_tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110935"
                nama.Text = "Erixon Andrianus Saruksuk"

            Case "12020023"
                nama.Text = "Abdul Rahmad"

            Case "12010022"
                nama.Text = "Rinaldi Pratama"


        End Select
        Dim x As String
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "02" Then
            jurusan.Text = "Manajemen Informatika"
        ElseIf x = "01" Then
            jurusan.Text = "Teknik Komputer"
        End If
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            Jenjang.Text = "S I"
        ElseIf x = "02" Then
            Jenjang.Text = "D III"
        ElseIf x = "01" Then
            Jenjang.Text = "D I"
        End If
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D123"
                Nama_dosen.Text = "Mesran,S.kom, M.Kom"
            Case "D345"
                Nama_dosen.Text = "Rivalry K Hondro, S.Kom"
            Case "D678"
                Nama_dosen.Text = "Kenedi Tampubolon,S.si, M.Kom"

        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "K001"
                nama_mata_kuliah.Text = "Pemrograman Visual 1"
            Case "K002"
                nama_mata_kuliah.Text = "Sistem Basis Data"
            Case "K003"
                nama_mata_kuliah.Text = "Matriks dan Transformasi Linear"
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        Nilai_Akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub


    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Close()
    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
        nama.Text = ""
        npm.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_tugas.Text = ""
        Nilai_kehadiran.Text = ""
        Nilai_Akhir.Text = ""
        kode_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_dosen.Text = ""
        nama_mata_kuliah.Text = ""
        Jenjang.Text = ""
        jurusan.Text = ""
    End Sub
End Class

- See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.8MOT2PBA.dpuf

Becak Terunik , Terkeren dan Termewah di Dunia

Becak Terunik , Terkeren dan Termewah  di Dunia -Becak adalah transportasi darat yang beroda tiga , becak sangat banyak kita temui di negara negara berkembang , seperti Indonesia,Thailan,China,India dan negara lainnya yang berkembang. Becak ini terbuat dari potongan Mobil BWM Mini Cooper yang sengaja di potong dan di jadikan bagian bak belakang becak kawan.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Apabila Anda berjalan jalan di Beijing China Jangan lewatkan wisata becak yang satu ini kawan, karena biayanya yang cukup murah becak ini juga menjadi sorotan wisatawan luar kawan.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Becak ini di desain sangat mewah dan berkelas, dan ini sengaja di buat agar para penumpang nya terasa nyaman saat menaiki becak tersebut.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Ternyata becak ini juga bisa di sewakan kawan, harga sewa becak ini kalau di banding becak biasa yaitu hampir 2x lipat kawan. jadi apabila wisatawan ingin menyewa becak ini sangat mudah kawan karena hampir di setiap sudut sudut kota Beijing china ada becak seperti ini.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Tenaga becak ini melalui tenaga kaki manusia, menggayuh seperrti biasa, yang membuat berbeda cuma jok penumpang yang sangat unik,keren, dan terasa mewah ini. 

Itulah Becak Terunik , Terkeren dan Termewah  di Dunia semoga bermanfaat dan menamwah wawasan Anda,  Anda juga bisa melihat Panorama Yang Berbeda di Hotel Gua Beckham Creek dan Keindahan dan Keeksotisan Curug Kemumu.

10 KAPAL INDUK TERCANGGIH DAN TERBESAR DIDUNIA

Kapal Induk merupakan sebuah kebutuhan peralatan perang yang sangat fenomenal dan sangat fantastik kecanggihannya. Selain menampung ratusan bahkan ribuan serdadu militer, Kapal induk ini juga memfungsikan diri sebagai penampungan pesawat-pesawat tempur sekaligus sebagai pangkalan udara terapung untuk sebuah strategy penyerangan. Kepentingan pertahanan sebuah negara membuat mereka berlomba-lomba memproduksi Kapal-kapal induk bertegnology tinggi,tercatat dalam sejarah 10 Nama besar kapal induk yang tercanggih dan terbesar dikelasnya.

Ini Dia Mobil Tanpa Bahan Bakar Dan Listrik

Ini Dia Mobil Tanpa Bahan Bakar Dan Listrik. Peningkatan harga BBM disetiap tahunnya kadangkala menjadi masalah yang serius di Indonesia ini. Lihat saja setiap ada peningkatan harga BBM pastilah protes atau demo akan bermunculan dari sabang sampai marauke. Alasan protes terhadap peningkatan BBM memanglah sangat wajar karena apabila BBM naik maka secara tidak langsung akan meningkatkan harga produk-produk atau pun pangan.

3 MOBIL TERMAHAL DI DUNIA

Fenomena mobil mahal di dunia menjadi salah gaya hidup kaum expatriat di dunia untuk menunjukan kelasnya atau hanya sekedar memenuhi kepuasanya batinya karena di beberapa negara berkembang mobil menjadi indikator kekayaan seseorang karena kecangihan atau keunikan dari mobil tersebut dan pastinya jumlahnya pun sangat sedikit atau bisa di bilang limited edisison meskipun harga mobil dibawah ini terbilang fantastis tapi banyak peminatnya dan berikut adalah Inilah 3 daftar mobil termahal di dunia  tahun 2013.
1. Maybach Exelero ($8 million atau setara dengan 80 Milyar)

10 Laptop Tercanggih Masa Kini

1. Luvaglio seharga $1.000.000 (kalau dikonversi ke rupiah ya sekitar 9.500.000.000 rupiah)

2. Harga laptop ini adalah satu juta dolar . laptop ini hanya ada satu di dunia dan pembeli dapat menyesuaikannya pilihan dari logam mulia, kulit . beberapa fitur yang disuntikkan didalam nya adalah 128 GB solid state drive, MP3 player, yang dibangun di stick USB.2. Tulip E-Go Diamond 

Tulip menggambarkan dirinya sebagai notebook mewah yang paling diinginkan di dunia. harga notebook ini adlah $ 355.000 . krom dan kurva bulat membuatnya mirip tas tangan perempuan. Ia juga memiliki kulit yang terbuat dari kulit.

3. Ego for Bentley

Harganya sekitar $ 20.000 sebenarnya kinerja dari notebook inipun tidak terlagu tinggi yaitu hanya memiliki CPU 64 bit untuk Vista 64 bit dan 160 GB HDD .

4. Voodoo Envy H:171

Jika Anda ingin laptop.notebook dengan kinerja nyata dan terlihat sesuai gaya Anda, Anda dapat memilih untuk Voodoo yang akan memberikan kinerja yang tinggi dengan prosesor Intel Core 2 Extreme X6800, sebuah chunky 4GB RAM, kembar Nvidia Quadro FX Go 2500M chipset grafis, 1.3MP webcam, dual hard disk 250GB, 7-in-1 memory card reader, dual layer DVD RW dan resolusi tinggi 1920×1200 layar 17 inci. Anda dapat memilih chasis dari 24 warna, notebook ini berharga sekitar $ 8500.

5. Rock Extreme SL8

Laptop tercepat di dunia. Dengan Intel Core 2 Quad Processor, NVIDIA 9800M GPU di SLI dan mengejutkan 8GB RAM. harganya sekitar $ 5000 yang yang tentunya sebanding dengan kinrerjanya.

6. Alienware Area 51

Siapa bilang bahwa laptop tidak dapat digunakan untuk game hardcore? laptop licin dan bergaya ini menggunakan Intel Core 2 Extreme teknologi dan paket di NVIDIA ® GeForce ® 9800M GT dalam konfigurasi SLI ® dengan dual GPU sampai 1GB memori khusus. Penyimpanan 1TB ini memiliki kecepatan tinggi dalam RAID 0 konfigurasi dan pilihan penyimpanan lain dengan cerdas. Sistem ini sarat dengan Vista dan Anda dapat merekam HD TV dan film dengan penggunaan TV Tuner. Produk inidujual dengan harga sekitar $ 5000.

7. Lenovo ThinkPad W700DS

Selain memiliki layar 17 inci normal laptop ini juga memiliki layar/LCD sekunder yang terletak di tarik keluar bagian layar utama dan dapat digunakan dalam program-program seperti Excel dan CAD untuk grafik dan angka. Laya dapat digunakan untuk menampilkan aplikasi seperti Skype atau instant messenger. NOTEBOOK ini dikemas dengan QX9000 2,53 GHz Core 2 Quad Extreme, RAM 4GB, dual 250GB 5200rpm hardrives dan dijual sekitar $ 4500.

8. Toshiba Qosmio G35-AV660

laptop HD DVD Dengan 2,0 GHz Core 2 Duo, 2GB RAM, 240GB HDD RAID 0 dan Nvidia GeForce Go 7600, itu adalah komputer bagus selain menjadi HD DVD player yang baik dengan 17 inci (1920 × 1200) . harganya sekitar $ 3.500 , dengan uang sebesar itu anda sudah bsia memiliki laptop hiburan yang bagus.

9. Dell M6400

Notebook Dell ini adalah notebook dengan tenaga listrik yang nyata. menggunakan Intel Core 2 Duo Quad Core Extreme Edition prosesor untuk analisis kompleks dan menawarkan 16GB memori DDR3 1066MHz cepat untuk set data yang besar dan memiliki memori grafis 1GB. Laptop kinerja tinggi ini dapat diperoleh dengan harga yang terjangkau yaitu sekitar $3000.

10. Acer Ferrari 1100

Acer Ferrari terlihat super dibangun dengan sebuah ultralight, memakai chasis serat karbon-tahan. Untuk spesifikasi telah disematkan MAD Turion X2 Dual-Core CPU, 4GB RAM dan WiFi draft-n yang akan membuat Anda mendapatkan kinerja secepat Ferrari.notebook ini dihargai sekitar $ 3000.

DPR Setujui Harga BBM Naik, Massa di Medan Bakar Restoran KFC

TRIBUNNEWS.COM/HERUDIN

Demonstran berlarian menghindari gas air mata yang ditembakkan oleh polisi saat unjuk rasa menolak kenaikan harga BBM di sekitar Gedung DPR/MPR RI, Jakarta Pusat, Senin (17/6/2013). Aksi unjuk rasa yang dilakukan massa gabungan mahasiswa dan buruh tersebut berujung bentrok. TRIBUNNEWS/HERUDIN.

Informasi Penjualan Produk

#include"stdio.h"
#include"conio.h"
void main()
{
int i,kode[15],jumlah[15],jumdata=5;
char*produk;
float harga,total,disc,pembayaran;

printf("\nInput Data Penjualan");
for(i=0;i<jumdata;i++){
    printf("\nKode Produk :"); scanf("%d",&kode[i]);
    printf("\nJumlah Produk :"); scanf("%d",&jumlah[i]);
}
clrscr();
printf("\nInformasi Penjualan Produk");
printf("\n-------------------------------------------------------------------------------");
printf("\nNo Kode  Produk                  Harga   Jumlah    Total    Discount Pembayaran");
printf("\n-------------------------------------------------------------------------------");
for(i=0; i<jumdata; i++){
    if(kode[i]==1){
        produk="TV"; harga=2000000;
    }else if(kode[i]==2){
        produk="DVD"; harga=650000;
    }else if(kode[i]==3){
        produk="CD ROOM"; harga=450000;
    }
    total=harga*jumlah[i];
    if(total> 4000000)disc=0.1*total; else
    if(total< 4000000)disc=0;
    pembayaran=total-disc;
    gotoxy(1,6+i);printf( "%i   %d     %s  ",i+1,kode[i],produk);
    gotoxy(30,6+i);printf("%10.0f   %i   %10.0f%10.0f%10.0f"  ,harga,jumlah[i],total,disc,pembayaran);
    }
    printf("\n--------------------------------------------------------------------------------");
}

hasil printout

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Coba Selesaikan Kasus Berikut Ini

Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan  C++:

Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120


Berikut Jawaban Program :

#include "iostream.h"

void main()
{
int j,nilai, totalj=0;
for(j=1;j<=5;j++);
cout<<" Input Nilai :";
cin>> nilai;
totalj=1*2*3*4*5;
cout<<"\n Hasil : 1*2*3*4*5=" << totalj;

}




Demikilahlah postingan saya
Nama : Suhendrik
NPM : 12110360
Selamat Belajar Bahasa Pemrograman

Tugas Pak Mesran

Tugas Lagi, Tugas Lagi.....

Seperti biasa, derita anak TI, M 1222, nilai hancur tugas pun meluncur....Ok, para visitor yang pengen belajar bahasa planet pemrograman(pascal) boleh lah lihat2 script dibawah ini, silahkan buka aplikasi pascal anda

uses CRT;
Var
kode          : byte;
harga,jumlah  : longint;
th            : longint;
nama          : string;


begin
 clrscr;
 Writeln('Inputkan Kode Penjualan');
 writeln('---------------------------');
 write('kode:');readln(kode);
 case kode of
    1 : Begin
          clrscr;
          nama:='Televisi';
          Writeln('Nama:',nama);
          harga:=1750000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th :=harga*jumlah;
          writeln('---------------');
          writeln('Total Harga:',th);
        end;
   2 : Begin
          clrscr;
          nama:='DVD';
          writeln('Nama:',nama);
          harga:=650000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th:= jumlah*harga;
          writeln('---------------');
          writeln('Total Harga:',th);
       end;
   3 : Begin
         clrscr;
         nama:='CD ROOM';
         writeln('Nama:',nama);
         harga:=450000;
         writeln('Harga:',harga);
         write('Jumlah Beli:');readln(jumlah);
         th := jumlah*harga;
         writeln('---------------');
         writeln('Total Harga:',th);
       end;
    end;
 readln;
 end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,





Namun jika belum, silahkan periksa kembali letak kesalahan anda(Harus Teliti ya Genk).

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, akan tampil gambar seperti dibawah.








lalu ketikkan nominal jumlah belinya, misal 5



Inilah tampilan akhir dari program kita, terima kasih semoga bermanfaat di dunia dan di akhirat.

thank you !!!!!<3<3

TIPS

Cara Memblokir Situs di Windows se7en dengan mudah

Cara Memblokir Situs di Windows se7en dengan mudah - Sebelumnya sudah saya bahas di trik Cara Memblokir situs di windows 7, dan kali ini merupakan Cara Memblokir Situs di Windows se7en dengan mudah alternatif kedua jika ingin memblokir banyak website atau situs. cara ini sangat di anjurkan apabila
ingin menggunakan Trik Cara Membuat IDM menjadi Full Version tanpa Crack karena jika menggunakan trik sebelumnya, kita menggunakan program Command Promt sebagai Program utama dan tidak memungkin kan untuk mengetik ulang seluruh situs yang ingin di block karena Command Promt tidak bisa menggunakan menu Copy dan Paste, dan di trik kali ini kita akan menggunakan Program Notepad.

1. klik Start - ketik notepad lalu klik kanan pada notepad pilih Run as Administrator

2. jika sudah terbuka, klik menu file dan Open

3. Masuk ke C:\\Windows\System32\drivers\etc lalu pilih hosts ( sebelum itu, pilih All Files. )

4. masukkan Situs yang ingin di blokir tepat dibawah 127.0.0.1 ( contoh digambar adalah situs yang diblokir jika ingin menggunakan Trik Cara Membuat IDM menjadi Full Version tanpa Crack )

5. terakhir simpan dan bisa dilihat hasilnya.

Sekian  Cara Memblokir Situs di Windows se7en dengan mudah dari saya, semoga dapat bermanfaat. jika kesulitan, silahkan tinggalkan komentar dibawah.

disadur dari sini

Pemrograman Santapan Wajib Mahasiswa ILKOM

http://www.mesran.net

Komputer, Internet, Printer, software dan segala perangkat Peripheral lainnya sudah tak asing lagi bagi anda yang mengambil Jurusan Ilmu Komputer di Kampus ataupun Universitas tempat anda mengenyam pendidikan. Saya akan berbagi sedikit informasi langka yang dapat anda kembangkan dalam menambah wawasan anda. Di awal semester sebagai mahasiswa baru, banyak materi baru yang akan membuat anda terkejut dan mati rasa untuk meneruskannya. Saya punya Obatnya, anda tidak perlu pergi ke Rumah Sakit Estomihi untuk membeli obat sakit kepala. Cukup satu Link ini, luka anda dapat terobati yakni website Mesran[dot]Net, obat manjur bagi seluruh mahasiswa Ilmu Komputer. Kenapa??? karena didalamnya anda dapat menemukan berbagai Materi pembahasan tentang : java, java script, pascal, php, vb.net dan masih banyak lagi. buat apa anda bingung2 mencari kesana kesini. Just One Click @ Mesran[dot]Net anda akan dapat jawabannya. Tidak hanya itu juga bagi anda yang suka baca2 informasi di luar pulau medan juga bisa view  Seputar Info ini.  atau pengen mengenal dunia sumber informasi diluar sistem pembelajaran juga bisa baca di  workshop-workshop. Dan kalau anda sudah mau LULUS, Mesran[dot]Net juga menyediakan informasi menentukan judul T.A dan Skripsi. hmmm kalau di ulas lagi bisa sampai 3 GB kapasitas artikel ini... sepertinya cukup basa basi dari saya,   kalau anda penasaran ataupun tidak penasaran wajib buka|" Mesran[dot]Net "dijamin tidak bayar, "GRATIS"( <===== bohong ane jah bayar warnet). 

Daripada anda buang2 waktu di toilet seharian, ataupun tidur sepanjang musim, apalagi ditinggal majikan tidak usah Galau mampir jah ke Mesran[dot]Net, anda pintar bukan karena dari sononya, tapi karena ada kemauan untuk belajar. belajar bukan cuma di kampus jah, dimanapun bisa selagi ada niat. 

So, Sekian Review dari saya tentang Mesran[dot]Net, Dari Lapangan Merdeka, di tengah jalan, Suhendrik Mempostingkan. 

Jangan Pilih Masakan Berbahan Daging Ayam Tiren

Livestockreview.com, Produk Olahan. 

Kebersihan tempat memang mudah ditengarai karena kasat mata. Bagaimana dengan keamanan makanan yang dijual di kaki lima?

Waspadalah, karena makanan di kaki lima tidak semuanya aman. Salah satu yang harus diwaspadai adalah pemakaian bahan baku yang tidak segar.

Terlebih, di lapangan sering ditemukan penggunaan ayam ”tiren” (mati kemarin). Ayam tiren ini sebenarnya adalah bangkai karena ayam sudah mati sebelum dipotong. Bagi orang awam, sulit membedakan daging ayam tiren dari daging ayam segar bila sudah diolah menjadi masakan. Untuk membedakannya, konsumen bisa melihat bekas sayatan pada leher ayam yang dipotong.

Kalau sayatannya lebar, itu berarti ayamnya masih segar sebelum dipotong. Namun, bila bekas sayatannya sedikit sekali, bisa dipastikan ayam itu termasuk ”tiren”. Pada ayam yang masih hidup, kulit dan dagingnya lentur. Jadi, kalau dipotong, bekas sayatannya akan melebar.

Ada baiknya konsumen juga memilih warung kaki lima yang baru mengolah makanan setelah ada pesanan. Terutama untuk masakan yang menggunakan produk hewani seperti daging ayam atau sapi.