Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net



Judul Soal:
Program Listview Pembayaran Gaji [http://mesran.net/quiz.html]

Berikut Jawaban Program :

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
        LV.Columns.Add("nik", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("gol", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GajiPokok", 80, HorizontalAlignment.Right)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Right)
        LV.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Right)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


        nik.Items.Add("1")
        nik.Items.Add("2")
        nik.Items.Add("3")

        gol.Items.Add("1")
        gol.Items.Add("2")
        gol.Items.Add("3")

EndSub

PrivateSub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
SelectCase nik.Text
Case"1"
                nama.Text = "Hendro"
Case"2"
                nama.Text = "Dian"
Case"3"
                nama.Text = "Jhoni"
EndSelect
EndSub

PrivateSub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
SelectCase gol.Text
Case"1"
                gajiPk.Text = 1500000
Case"2"
                gajiPk.Text = 2500000
Case"3"
                gajiPk.Text = 3500000
EndSelect
EndSub

PrivateSub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Pajak.Text = 0.05 * gajiPk.Text
        GajiB.Text = Val(gajiPk.Text) - Val(Pajak.Text)

Dim lsv AsNew ListViewItem
        lsv.Text = nik.Text
        lsv.SubItems.Add(nama.Text)
        lsv.SubItems.Add(gol.Text)
        lsv.SubItems.Add(gajiPk.Text)
        lsv.SubItems.Add(Pajak.Text)
        lsv.SubItems.Add(GajiB.Text)
        LV.Items.Add(lsv)
EndSub

PrivateSub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        nik.Text = ""
        nama.Text = ""
        gol.Text = ""
        gajiPk.Text = ""
        GajiB.Text = ""
        Pajak.Text = ""
EndSub

PrivateSub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        LV.Items.Clear()
EndSub

PrivateSub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
EndSub
EndClass
berikut tampilan hasil /screen shootnya:





Demikian Postingan saya ,nama : Zulhan Sentoso Sinambela
                                                Npm : 14 11 01 44
Selamat Belajar Pemrograman VB NET (http://mesran.net/)

01.23 No comments
Label:

Pengetian Auto Cad

APA ITU AUTOCAD???







Auto cad adalah suatu aplikasi yang berguna untuk mendesign suatu gambar sehingga menjadi informasi. Autocad ini bisa berbentuk 2D dan 3D sehingga gambar terlihat lebih nyata dan detail. Autocad ini biasanya digunakan untuk kebutuhan manufakturing dan di bagian engineering.
Beberapa keuntungan menggunakan CAD dibanding menggambar manual adalah:
1. Kualitas gambar konstan, tidak terlalu tergantung pada skill penggambar sebagaimana gambar manual.
2. Relatif lebih akurat dan cepat pengerjaannya karena menggunakan komputer.
3. Dapat diedit, ditambah-kurang tanpa harus memulai dari awal.
4. Dapat menjadi data base yang menyimpan berbagai informasi penting yang dibuat oleh drafter dan dapat diakses langsung oleh pengguna lain.
5. Dapat dibuat library untuk komponen-komponen standar atau komponen yang digambar/ dipergunakan berulang-ulang dalam gambar (misalnya: baud, mur, simbol-simbol,dll.) sehingga mempermudah dan mempercepat dalam proses pembuatan gambar.
6. Lebih mudah dan praktis dalam dokumentasi, duplikasi, dan penyimpanannya.
7. Dapat dibuat dengan berbagai warna sehingga lebih menarik dan mudah dipahami.

Komputer adalah suatu alat bantu pengolah informasi atau data dengan mekanisme kerja input-proses-output. Dalam sistem CAD:
1. Input device
Berfungsi untuk melakukan pemilihan-pemilihan menu dan berbagai perintah (command) untuk membuat gambar sesuai keinginan. Perangkat ini dapat berupa: keyboard, mouse, joystick, thumb wheel, light pen, dll.
2. Processing device
Berupa perangkat lunak (software) dan system pemrogramannya yang sesuai. Ada beberapa macam perangkat lunak yang biasa digunakan untuk ini, yang paling umum adalah AutoCAD.
3. Output device
Berfungsi untuk menampilkan hasil-hasil gambar yang telah dibuat, bisa dalam bentuk tampilan visula pada layar monitor atau tampilan cetak oleh printer.

Sumber: http://cad-ae42.blogspot.com/2009/08/apa-itu-autocad.html

04.57 No comments

Belajar Visual Basic - 2008



Menghitung Sisi Kubus dengan VB-2008-project 1

Berikut cara membuat kalkulator sederhana untuk menghitung sisi pada Suatu Kubus, Ikuti Langkah-langkah dibawah ini:
Sebelumnya buka dulu program vb-2008 setelah itu pilih new project pada task bar..
Lalu desain terlebih dahulu seperti gambar di bawah ini dengan ketentuan dari table berikut.


Komponen
Propertie
Label 1
Text: Sisi
Label 2
Text:Volume
Text Box 1
Name: S
Text Box 2
Name: V
Button 1
Text: Proses
Name: BtnProses
Button 2
Text: Hapus
Name: BtnHapus

Button 3
Text: Keluar
Name: BtnKeluar




  • Setelah anda selesai men-desainnya maka double klik pada Button Proses dan masukkan Ketikkan coding berikut ini:  volume.Text = (sisi.Text * sisi.Text * sisi.Text)

  • Kemudian double klik lagi pada Button Hapus dan masukkan coding di bawah ini:
    sisi.Text = ""
    volume.Text = ""
  • dan ketikkan coding di bawah pada Button Keluar :
    End

lalu jalan-kan program ini dengan mengklik “start debugging” pada task bar “debug” atau menekan tombol F5 pada keyboard anda.
maka hasilnya akan seperti di bawah ini:







lalu masukkan angka sembarang pada textbox sisi ,Contoh :angka :   3
kemudian klik button proses
maka akan muncul hasil pada texboxt Volume :  27
klik button Hapus untuk menghapus
dan button Keluar untuk keluar dari program yg di jalankan.

Demikian Program ini sangat mudah-kan?Silahkan mencoba dan semoga berhasil.
01.42 No comments
Label:

Motor Bensin 2 tak

Pengertian motor 2 tak

Jenis motor ini sudah sangat jarang untuk di jumpai di jalanan perkotaan ,karena asumsi bahan bakarnya yang boros dan banyak kekurangannya.terutama jenis motor ini menimbulkan banyak polusi selama proses motor dijalankan.
motor 2tak adalah motor yang setiap pembakarannya untuk menghasilkan tenaga ,membutuhkan 1kali putaran poros engkol (180 °) atau setara 2kali gerakan piston naik  turun.


a.      Keuntungan:
-         Proses    pembakaran
terjadi setiap putaran poros engkol, sehingga putaran poros engkol lebih halus untuk itu
putaran lebih rata.
-          Tidak     membutuhkan
klep, komponen            part lebih sedikit, perawatan lebih mudah dan relatif murah
-         Momen puntir untuk putaran lanjutan poros lebih kecil sehingga menghasilkan gerakan yang halus
-         Bila dibandingkan dengan mesin empat langkah dalam kapasitas yang sama, tenaga yang dihasilkan lebih besar Proses pembakaran terjadi 2 kali, sehingga tenaga lebih besar.
. b      Kerugian:
-         Langkah masuk dan buang lebih pendek, sehingga terjadi kerugian langkah tekanan kembali gas buang lebih tinggi
-         Karena pada bagian silinder terdapat lubang-lubang, timbul gesekan antara ring piston dan lubang akibatnya ring piston akan lebih cepat aus.
-         Karena lubang buang terdapat pada bagian silinder maka akan mudah timbul panas
-         Putaran rendah sulit diperoleh
-         Konsumsi pelumas lebih banyak.

c.      Ciri-ciri umum 2 TAK:
-         Sistem pelumasannya dicampurkan kedalam bensin maka gas buang mesin dua langkah bewarna putih
-         Suara mesin lebih halus karena setiap dua langkah terjadi satu kali pembakaran bensin
-         Pemakaian bahan bakar lebih boros
-         Menggunakan dua fungsi pelumasan yaitu untuk melumasi ruang engkol,
piston, dan dinding silinder serta untuk melumasi transmisi.

Memiliki dua buah ring piston, yaitu ring kompresi pertama dan ring kompresi kedua. 
23.41 No comments
Label:

Perulangan For-Do pada Pascal

Perulangan (looping)

Perulangan adalah suatu perintah yang menjalankan suatu perintah tersebut secara terulang-ulang sampai suatu kondisi terpenuhi.

Perulangan ada 3 jenis :

  1.  Perulangan for..do
  2.  Perulangan while..do
  3.   Perulangan Reapet..until

Contoh :perulangan for..do pada pascal
  1. Ketikkan program berikut ,untuk menampilkan bintang.
Input:

Uses crt;
Var  x,y,z,a:integer;

Begin
Clrscr;

For y:5 downto 1 do
Begin
For x:=1 to y do
Begin
Write(*’);
End;
Readln;
End;

For a:=2 to 5 do
Begin
For z:=1 to 5 do
begin
write(‘*’);
end;
readln;
end;
end.




























Setelah itu klik file pilih save,kemudian run-kan program dengan menekan tombolF9 pada keyboard.jika terjadi kesalahan maka akan diberikan pesan eror.setelah program sukses maka tekan CTRL+F9 untuk menjalankan programnya.


maka ouputnya adalah sebagi berikut:

*****
****
***
**
*
*
**
***
****
*****

silahkan dicoba sob. :)
02.00 No comments
Label: