Membuat Kakulator Sederhana dengan VB.Net 2010

Membuat Kakulator Sederhana dengan VB.Net 2010

Komponen  :
- 7 Buah Komponen Button
- 1 Buah Komponen Group Box
- 3 Buah Komponen Text Box
- 4 Buah Komponen Label

Langkah - langkah :

1. Buka VB anda seperti biasa, lalu Pilih Standard Project, beri nama Projectnya Kalkulator
2. Pasang dan Design semua Komponen seperti gambar

Keterangan :
-  Untuk Button 1-4 ubah textnya jadi +, - , X , / namenya biarkan saja
-  Untuk Button 5 dan 6 ubah textnya jadi Mod dan Reset, dan button 7 diubah jadi "Close  
    App". Oh iya dan juga ubah namenya seperti dibawah ;
a. Untuk Button 5 namenya jadi "Button6" ("Tombol Mod")
b. Untuk Button 6 namenya jadi "Button7" ("Tombol Reset")
c. Untuk Button 7 namenya jadi "Button8" ("Tombol Close")

(kenapa saya sarankan button 5-7 diubah? karena di codingnya pasti akan beda :sokganteng:, jika tidak ya error)
- Untuk TextBox ubah namenya sbb:
- TextBox1 = txt1
- TextBox2 = txt2
- TextBox3 = txthasil

- Untuk label dan GroupBox sesuaikan saja textnya di gambar

3. Ok Jika sudah selesai design dan merubah semua buttonnya, silahkan simak codingnya ya

Public Class Form1
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        txt1.Text = ""
        txt2.Text = ""
        txthasil.Text = ""
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txthasil.Text = Val(txt1.Text) + Val(txt2.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txthasil.Text = Val(txt1.Text) - Val(txt2.Text)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        txthasil.Text = Val(txt1.Text) * Val(txt2.Text)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        txthasil.Text = Val(txt1.Text) / Val(txt2.Text)
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        txthasil.Text = Val(txt1.Text) Mod Val(txt2.Text)
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim keluar As MsgBoxResult
        keluar = MsgBox("Yakin Gak Mau Pakai Lagi :D?", MsgBoxStyle.YesNo, "Warning Force Close")
        If keluar = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub
End Class

Jika sudah selesai, silahkan dirun dengan tekan F5
Selamat mencoba!!

Ini Dia!! Daftar Nilai Sementara Hasil Belajar Semester Genap 2017

Alhamdulillah Semester genap 2017 sudah berakhir tiba saatnya anda dapat melihat hasil dari belajar selama satu semester semoga nilai yang dihasilkan dapat sesuai dengan yang diharapkan.

Bahan Materi Sistem Penunjang Keputusan

Contoh Jurnal SPK SAW Penentuan Beasiswa

ABSTRAK

Berdasarkan ketentuan daripihak pemberi beasiswa, maka diperlukan kriteria-kriteria untuk menentukan siapa yang akan terpilih untuk menerima beasiswa. Pembagian beasiswa dilakukan oleh beberapa lembaga untuk membantu seseorang yang kurang mampu ataupun berprestasi selama menempuh studinya. Untuk membuat serta membantu pihak akademik dalam menetapkan seseorang yang layak menerima beasiswa maka dibutuhkan sebuah sistem pendukung keputusan. Metode yang dapat digunakan untuk Sistem Pendukung Keputusan adalah dengan menggunakan Simple Additive Weighting (SAW). Pada penelitian ini akan diangkat suatu kasus yaitu mencari alternative terbaik berdasarkan kriteria-kriteria yang telah ditentukan dengan mengggunakan metode Simple Additive Weighting (SAW). Metode ini dipilih karena mampu menyeleksi alternatif terbaik dari sejumlah alternatif, dalam hal ini alternatif yang dimaksudkan yaitu yang berhak menerima beasiswa berdasarkan kriteria-kriteria yang ditentukan. Penelitian dilakukan dengan mencari nilai bobot untuk setiap atribut, kemudian dilakukan proses pengurutan kandidat yang akan menentukan alternatif yang optimal, yaitu mahasiswa terbaik. Dengan adanya sistem pendukung keputusan dengan metode Simple Additive Weighting (SAW) ini akan lebih mempermudah STMIK Surya Intan Kotabumi untuk menentukan mahasiswa berprestasi yang layak mendapatkan beasiswa tersebut.

Kata kunci : Sistem Pendukung Keputusan, Penentuan Beasiswa, Simple Additive Weighting

Download Gratis Contoh Program SPK SAW

Assalamu'alaikum wr. wb.  Apa kabar sahabat visualbasic-indonesia? semoga baik selalu amin.... :D

Saat browsing di laptop, eh admin dapet sebuah source code sistem pendukung keputusan tentang pemilihan peserta siswa olimpiade sains, langsung di posting aja, mana tau ada teman-teman yang sedang membutuhkan nya.

Progam ini bukan buatan admin, tapi buatan mahasiswa yang sudah tamat lalu. Program ini dibuat menggunakan visual basic classic atau vb 6.0 dan dengan database mysql, nnt coba sahabat cek saja setelah download. 

Dalam sistem spk kali ini dalam pengambilan keputusan mengguanakan metode Simple Additive Weighting (SAW) dan menggunakan kriteria sebagai berikut : 

Peringkat Rangking

Nilai Rata-rata Raport

Nilai Psicotest

Nilai Rata-rata Matematika

Nilai Rata-rata Fisika

Nilai Rata-rata Biologi

Nilai Kepribadian

Kemudian dibawah ini adalah 3 tabel yang digunakan dalam proses penentuan keputusan pada sistem pendukung keputusan ini : 

Bagi  yang membutuhkan program ini silahkan klik link dibawah ini untuk mendapatkannya.

Contoh program SPK SAW 

Tutorial Membuat Windows Media Player dengan VB 6.0

Klik Disini

Cara Membuat WMP

Tutorial serta Langkah-langkah penginstalan Windows 7 terbaru

Langkah Pertama 

Setting BIOS agar Booting dari Flashdisk

Langkah yang harus kita lakukan adalah mengatur BIOS agar booting pertama kali dari flashdisk. Hal itu dilakukan agar device yang pertama kali dibaca pada saat awal booting adalah flashdisk.

Pertama-tama masukkan Flashdisk yang sudah ada sistem operasi windows 7, kemudian nyalakan atau restart komputer/ laptop , lalu tekan tombol DEL (Delete). Biasanya untuk masuk ke menu BIOS, tombol yang paling umum digunakan adalah DEL, F1, F2 atau Fn+F2.

Kita akan melihat tampilan menu BIOS seperti gambar di bawah ini. Setelah itu, pindah ke tab Boot dengan menggunakan tombol ◄ ►.

gambar tampilan BIOS

untuk lebih lengkapnya anda dapat klik link dibawah ini
tutorial instalasi window 7 

selamat mencoba!!!

Pertanyaan Kuis Online Sistem Penunjang Keputusan

Pertanyaan Kuis Online Sistem Penunjang Keputusan

Sebuah perusahaan makanan ringan XYZ akan menginvestasikan sisa usahanya dalam satu tahun. Beberapa alternatif investasi telah akan diidentifikasi. Pemilihan alternatif terbaik ditujukan selain untuk keperluan    investasi, juga dalam rangka meningkatkan kinerja perusahaan ke depan.

Beberapa kriteria digunakan sebagai bahan pertimbangan untuk mengambil keputusan,yaitu:

C1 = Harga, yaitu seberapa besar harga barang tersebut.

C2 = Nilai investasi 10 tahun ke depan, yaitu seberapa besar nilai investasi barang dalam jangka          waktu 10 tahun ke depan.

C3 =Daya dukung terhadap produktivitas perusahaan, yaitu seberapa besar peranan barang dalam          mendukung naiknya tingkat produktivitas perusahaan. 

 Daya dukung diberi nilai: 1= kurangmendukung, 2 = cukup mendukung; dan 3 =sangat                  mendukung.

C4 =Prioritas kebutuhan, merupakan tingkat kepentingan (ke-mendesak-an) barang untuk dimiliki perusahaan. 

Prioritas diberi nilai:1=sangat berprioritas, 2 =berprioritas; dan 3 = cukupberprioritas.

C5 =Ketersediaan atau kemudahan, merupakan ketersediaan barang di pasaran. 

Ketersediaan diberi nilai:1= sulit diperoleh, 2 = cukup mudahdiperoleh; dan 3 =sangat mudah diperoleh.

Dari pertama dan keempat kriteria tersebut, kriteria pertama dan keempat merupakan kriteria biaya, sedangkan kriteria kedua, ketiga, dan kelima merupakan kriteria keuntungan.

Pengambil keputusan memberikan bobotuntuk setiap kriteria sebagai berikut:

C1 = 25%; C2 =15%; C3 = 30%;Â  C4 = 25; dan C5 = 5%.

Ada empat alternatif yang diberikan, yaitu:

A1= Membeli mobil box untuk distribusi barang ke gudang;

A2 = Membeli tanah untuk membangun gudang baru;

A3 = Maintenance sarana teknologi informasi;

A4 = Pengembangan produk baru.

Nilai setiap alternatif pada setiap kriteria adalah:

Selamat Mengerjakan !!

Peraturan :
1. Jawaban Anda Di ketik Pada Google Form yang sudah disediakan dengan cara klik link berikut ini

    KUIS ONLINE SPK

2. durasi waktu menjawab dari pukul 1x24 jam