Minggu, 29 Januari 2012

TUGAS 3 (HERMIDA LUMBANTORUAN)

KLIK DISINI UNTUK MELIHAT KASUS DARI SOAL INI:

FORM LOGIN


LISTING PROGRAM


Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        If USERNAME.Text = "HERMIDA" And PASSWORD.Text = "666" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("MAAF! PASSWORD SALAH!")
            USERNAME.Text = ""
            PASSWORD.Text = ""
        End If
    End Sub

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

    End Sub
End Class


FORM MENU


LISTING PROGRAM



Public Class FormMenu

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

    Private Sub DATAPENGGAJIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGGAJIANToolStripMenuItem.Click
        karyawan.show()
    End Sub
End Class


FORM PENGGAJIAN KARYAWAN



LISTING PROGRAM


Public Class karyawan
    Sub TdkAktif()
        ISTRI.Visible = False
        TUNJA.Visible = False
        ANAK.Visible = False
    End Sub
    Sub Aktif()
        ISTRI.Visible = True
        TUNJA.Visible = True
        ANAK.Visible = True
    End Sub
    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TdkAktif()
        BUATTABEL()
        ISITABEL()

        JABATAN.Items.Add("KABAG")
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("STAF")

        STATUS.Items.Add("Menikah")
        STATUS.Items.Add("Belum Menikah")
    End Sub
    Sub BUATTABEL()
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("ISTRI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JAM KERJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL LEMBUR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        For i = 1 To 3
            NIP.Items.Add("000" & i)
        Next
       
    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        If NIP.Text = "0001" Then
            NAMA.Text = "DEWA"
        ElseIf NIP.Text = "0002" Then
            NAMA.Text = "DEWI"
        ElseIf NIP.Text = "0003" Then
            NAMA.Text = "SUSI"
        End If
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
       
        If JABATAN.Text = "MANDOR" Then

            GAJI.Text = 1750000


        ElseIf JABATAN.Text = "KABAG" Then

            GAJI.Text = 2500000

        ElseIf JABATAN.Text = "STAF" Then

            GAJI.Text = 1250000

        End If
        PAJAK.Text = GAJI.Text * 0.015
    End Sub

   
    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        If STATUS.Text = "Menikah" Then
            ISTRI.Text = GAJI.Text * 0.9
            Aktif()

        ElseIf STATUS.Text = "Belum Menikah" Then
            TdkAktif()
        Else
            ISTRI.Text = 0
        End If


    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIP.Text
        sublv.SubItems.Add(NAMA.Text)
        sublv.SubItems.Add(JABATAN.Text)
        sublv.SubItems.Add("RP. " & GAJI.Text)
        sublv.SubItems.Add(STATUS.Text)
        sublv.SubItems.Add("RP. " & ISTRI.Text)
        sublv.SubItems.Add(" RP. " & TUNJA.Text)
        sublv.SubItems.Add(ANAK.Text)
        sublv.SubItems.Add("RP. " & PAJAK.Text)
        sublv.SubItems.Add(JAM.Text)
        sublv.SubItems.Add("RP. " & TLEMBUR.Text)
        sublv.SubItems.Add("RP. " & TOTAL.Text)
        LV.Items.Add(sublv)
    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

        NIP.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        ISTRI.Text = ""
        TUNJA.Text = ""
        ANAK.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
        NIP.Focus()
    End Sub

    Private Sub TUNJA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ISTRI.TextChanged
        ISTRI.Text = GAJI.Text * 0.9
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANAK.TextChanged
        If ANAK.Text = "1" Then
            TUNJA.Text = GAJI.Text * 0.3
        ElseIf ANAK.Text = "2" Then
            TUNJA.Text = GAJI.Text * 0.7
        ElseIf ANAK.Text >= 2 Then
            TUNJA.Text = GAJI.Text * 0.7

        End If
    End Sub

    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        If JABATAN.Text = "STAF" Then
            TLEMBUR.Text = JAM.Text * 5000
        ElseIf JABATAN.Text = "KABAG" Then
            TLEMBUR.Text = JAM.Text * 10000
        ElseIf JABATAN.Text = "MANDOR" Then
            TLEMBUR.Text = JAM.Text * 7500


        Else
            TLEMBUR.Text = 0
        End If
        TOTAL.Text = Val(GAJI.Text) + Val(ISTRI.Text) + Val(TUNJA.Text) + Val(TLEMBUR.Text) - Val(PAJAK.Text)
  
  End Sub 
End Class



TUGAS 2 (hermida lumbantoruan)

KLIK DISINI UNTUK MELIHAT KASUS DARI SOAL INI :

FORM MENYIMPAN DAN MENGHAPUS DATA DI LIST VIEW


LISTING PROGRAM
 
Public Class Form1

    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 160, HorizontalAlignment.Left)
        LV.Columns.Add("TAHUN", 80, HorizontalAlignment.Right)
        LV.VIEW = View.Details
        LV.GRIDLINES = True
        LV.FULLROWSELECT = True

    End Sub
    Sub ISITABEL()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tahun.Text)
        LV.Items.Add(lst)

    End Sub


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

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        ISITABEL()
        NPM.Text = ""
        nama.Text = ""
        tahun.Text = ""
    End Sub

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

    End Sub

    Private Sub HAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSSEMUA.Click
        LV.Items.Clear()
    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class


Selasa, 11 Oktober 2011

keuntungan dan kerugian vb net


KEUNTUNGAN DAN KEKURANGAN MENGGUNAKAN VISUAL BASIC

Keuntungan Menggunakan Visual Basic

Visual Basic mempunyai banyak kelebihan dibandingkan Software/bahasa pemograman yang lain. Dibawah ini
adalah beberapa keuntungan tersebut:

  • Kurva pembelajaran dan pengembangan yang lebih singkat dibandingkan bahasa pemograman yang lain seperti C/C++, Delphi atau bahkan PowerBuilder sekalipun.
  • Menghilangkan kompleksitas pemanggilan fungsi Windows API, karena banyak fungsi-fungsi tersebut sudah di-"embeded" ke dalam syntax Visual Basic.
  • Cocok digunakan untuk mengembangkan aplikasi/program yang bersifat "Rapid Application Development".
  • Juga sangat cocok digunakan untuk membuat program/aplikasi Bisnis.
  • Digunakan oleh hampir semua keluarga Microsoft Office sebagai bahasa Macro-nya, segera akan diikuti oleh yang lain.
  • Dapat membuat ActiveX Control
  • Dapat menggunakan OCX/Komponen yang disediakan oleh pihak ketiga ("third party") sebagai "tool" pengembangan.
  • Menyediakan wizard yang sangat berguna untuk mempersingkat/mempermudah pengembangan aplikasi
  • Mendekati Object Oriented Programming
  • Dapat di-integrasikan dengan Internet, baik itu pada sisi Client maupun pada sisi Server
  • Dapat membuat ActiveX Automation Server
  • Integrasi dengan Microsoft Transaction Server
  • Dapat menjalankan server tersebut dari mesin yang sama atau bahkan dari mesin/komputer yang lain.

Kekurangan/Kelemahan Visual Basic


Walaupun Visual Basic mempunyai banyak kelebihan, tetapi tetap saja mempunyai kekurangan/kelemahan.
Kelemahan-kelemahan ini sebenarnya disebabkan oleh keterbatasan Visual Basic dalam "mengambil" fungsifungsi
yang bersifat low-level yang berhubungan dengan Hardware maupun Operating System (Windows) itu
sendiri, antara lain:

  • File Distribusi runtime-nya lebih besar dari kepunyaan C/C++.
  • Tidak mempunyai fungsi-fungsi untuk mengambil feature-feature dari OS sebanyak C/C++.

kegiatan sehari-hari

nama saya hermida lumbantoruan,status saya sekarang masih kuliah di STMIK BUDIDARMA tercinta........
kegiatan saya sehari-hari adalah dari hari senin sampai  sabtu saya kuliah.......
sabtu siang sampai sore saya mengikuti les tambahan dikampus.........
selainnya.... waktu saya kebanyakan sama kawan-kawan ............
aku sama kawan-kawan kalau udah pulang kuliah,kadang kami langsung ke warnet klo nggak jalan-jalan.....
itulah kegiatanku sehari-hari.........
              ""TRIMAKASIH""

cerita keluarga tercinta

Nama saya hermida lumbantoruan,saya anak ke-4 dari 4 bersaudara dan dari keluarga yang sederhana..........
 pekerjaan orangtuaku cuma bertani,tidak ada yang lain...........
tapi .....walaupun pekerjaan orangtuaku cuma bertani,puji Tuhan kami berempat masih bisa disekolahkan.....
Dan sekarang .......saya sangat merasa bahagia,karena kedua orangtuaku bisa menyekolahkan aku sampai kuliah......
satu permintaanku kepada kedua orangtuaku tercinta,.......
papa....mama..."doakan aku,supaya aku bisa menjadi orang yang berguna yang sesuai dengan keinginan kalian......."
papa.....mama.....trimakasih buat semua yang telah klian berikan sama aku dan trimakasih buat kebaikan kalian........
     

Minggu, 02 Oktober 2011

Style Huruf Dengan Effect Bergerak Pada Visual Basic.Net 2008 Share3

Pada tutorial kali ini saya masih membahas mengenai style-style yang ada pada visual basic, sekarang dan dari pencerahan yang entah dari mana datangnya saya dapat membuat sebuah tulisan berjalan pada visual basic ini, begini ceritanya…. :D
Langkah 1.
Seperti biasa kita harus mempersiapkan persenjataan dan mental yang kuat dalam pembuatan effect berjalan ini, yang pertama kali harus dilakukan adalah membuat sebuah form baru yang caranya ga perlu saya tampilkan lagi pada tutorial ini, bisa dibaca pada tutorial sebelumnya. Buatlah 2 buah button,1 buah label, 1 timer.
Langkah 2.
Pada langkah ini kita merubah properties dari label tersebut seperti berikut. Pada table form kita merubah backcolor menjadi palegreen, lihat gambar dibawah ini.
Pada properties button1 dan 2 kita hanya merubah warnanya saja pada properties dan pada button1 kita merubah text pada properties menjadi start, pada button2 kita merubah text menjadi stop dan untuk yang lainnya dapat dilihat  seperti gambar dibawah ini.
sekarang kita merubah timer yang ada, pada properties kita merubah seperti gambar dibawah ini, interval pada timer dapat kita ubah sesuka kalian karna interval ini hanya menentukan kecepatan huruf tersebut berjalan.
Maka akan tampil seperti gambar dibawah ini :
Langkah 3.
Pada langkah ini kita sudah siap untuk memasukkan coding kedalam tools tersebut. Pada form kita double klik dan ketikkan coding beikut.
lbljalan.Text = “  Cup_pa_paW  “
ini merupakan coding untuk memasukkan text pada tools lbljalan, untuk yang didalam tanda kutip dapat diganti sesuka kalian. Setelah itu kita masukkan coding berikut pada tools timer.
Dim s1 As String
Dim S2 As String
s1 = Microsoft.VisualBasic.Left(lbljalan.Text, 1)
S2 = Microsoft.VisualBasic.Right(lbljalan.Text, Len(lbljalan.Text) – 1)
lbljalan.Text = S2 + s1
setelah coding untuk timer selesai sekarang kita tinggal memasukkan coding untuk button start dan stop, codingan seperti berikut.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Pada codingan ini kita seperti member izin kepada timer untuk dapat menjalankan atau menghentikan perintah yang ada pada timer. Jika semua langkah dilakukan dengan benar maka tampilan yang akan muncul seperti berikut.
sekian tutorial dari saya, semoga bermanfaat bagi para pembaca. :”>

Pembuatan Loading Pada Visual Basic.Net 2008

Pengenalan sedikit mengenai Microsoft Visual Basic.Net 2008.
>>Antarmuka atau lingkungan dari Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.
Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :
  • Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.
  • Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)
  • Kesiapan mental dan kemauan yang kuat.
  • Terakhir segelas susu anget boleh juga.
Langkah 1
Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.
Langkah 2
Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall, tampilannya sebagai berikut.
Langkah 3
Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.
Tampilan sebagai berikut.

Langkah 4
Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.
Langkah 5
Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.
Langkah 6
Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*
Cara nya yaitu dengan menggunakan tools progress bar
   
dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.



Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.
ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If
Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.
Dan pada mainlayout kita ketikkan coding berikut.
Timer1.Enabled = True
Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.
Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.
Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.



Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbar tersebut.
Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.