Home » » Tugas 2013 Ganjil TI-M1213

Tugas 2013 Ganjil TI-M1213

Written By Mesran on Wednesday, 30 October 2013 | 18:02


Silahkan di pastekan link tugas anda di koment saya ini, untuk kelas Tugas TI-M1213. Jangan lupa untuk membuat link seperti ini  Tugas Belajar Bahasa Pemrograman yang mengarah ke postingan saya ini, di postingan tugas anda.

Terima kasih.

72 comments:

  1. Nama :Doni Gunawan
    kelas:TI-m1213
    link tugas :http://donesgoenawan.blogspot.com/2013/10/tugas-pencarian-nilai.html

    ReplyDelete
  2. Nama :doni gunawan
    link tugas tanggal 23 okt 2013
    http://donesgoenawan.blogspot.com/2013/10/contoh-fungsi-leftmid-dan-right.html

    ReplyDelete
  3. Nama : POLINUS LAIA
    Kelas : TI M 1213
    NPM : 12110841
    link Tugas : http://polinuslaiaa.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html

    ReplyDelete
  4. Nama :Kamorius buulolo
    kelas: TI-M1213
    Npm:12111049
    http://buulolokamorius.blogspot.com/2013/10/tugas-pencarian-nilai.html

    ReplyDelete
  5. Nama : ARIFIN
    Kelas : TI M 1213
    NPM : 12110080
    link Tugas : http://arifinbahrum.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html

    ReplyDelete
    Replies
    1. Nama :ARIFIN
      Kelas :Tim1213
      NPM :12110080
      Pemakaian IF Jamak Menggunakan Visual Basic Net
      Written By Mesran on Senin, 14 Oktober 2013 | 10.46
      Listing di bawah ini merupakan contoh pemakaian IF Jamak pada visual basic net.



      Berikut program pemakaian IF Jamak menggunakan Visual Basic Net.
      Public Class Form1

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      NIK.Items.Add("K1-001")
      NIK.Items.Add("K1-002")
      NIK.Items.Add("K2-003")
      NIK.Items.Add("K3-004")
      NIK.Items.Add("K3-005")

      Jabatan.Items.Add("-")
      Jabatan.Items.Add("Manager")
      Jabatan.Items.Add("Supervisor")
      Jabatan.Items.Add("Mandor")
      End Sub

      Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
      If NIK.Text = "K1-001" Then
      Nama.Text = "Aldyan"
      ElseIf NIK.Text = "K1-002" Then
      Nama.Text = "Triarista"
      ElseIf NIK.Text = "K2-003" Then
      Nama.Text = "Chairunisa"
      ElseIf NIK.Text = "K3-004" Then
      Nama.Text = "Surya Darma"
      ElseIf NIK.Text = "K3-005" Then
      Nama.Text = "Susanti"
      Else
      Nama.Text = "-"
      End If
      End Sub

      Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
      If Jabatan.Text = "-" Then
      Gaji.Text = 1250000
      ElseIf Jabatan.Text = "Manager" Then
      Gaji.Text = 4250000
      ElseIf Jabatan.Text = "Supervisor" Then
      Gaji.Text = 3250000
      ElseIf Jabatan.Text = "Mandor" Then
      Gaji.Text = 2250000
      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
      NIK.Text = ""
      Nama.Text = ""
      Jabatan.Text = ""
      Gaji.Text = ""
      NIK.Focus()
      End Sub
      End Class

      Hasil program pemakaian IF Jamak menggunakan Visual Basic Net dapat dilihat di bawah ini :



      Delete
    2. Program berikut ini latihan penggajian karyawan menggunakan bahasa pemrograman visual basic/vb 6
      Program ini termasuk memiliki logika yang sedang/sedikit rumit. :) masih sedikit yah :) hehehe

      Silahkan design tampilan program seperti dibawah ini :




      Berikut listing program penggajian karyawan.

      Dim lembur As Double
      Private Sub cmdBaru_Click()
      NIK.Text = ""
      Nama.Text = ""
      Status.Text = ""
      Jabatan.Text = ""
      Pajak.Text = ""
      Total.Text = ""
      Gaji.Text = ""
      TunjIstri.Text = ""
      TunjAnak.Text = ""
      JAnak.Text = ""
      Honor.Text = ""
      JLembur.Text = ""
      TunjAnak.Text = ""

      End Sub

      Private Sub CmdKeluar_Click()
      Unload Me
      End Sub

      Private Sub CmdProses_Click()
      Total.Text = Val(Gaji.Text) + Val(TunjIstri.Text) + Val(TunjAnak.Text) + Val(Honor.Text) - Val(Pajak.Text)
      End Sub

      Private Sub Form_Load()
      NIK.AddItem "001"
      NIK.AddItem "002"
      NIK.AddItem "003"
      Jabatan.AddItem "Mandor"
      Jabatan.AddItem "Kepala Bagian"
      Jabatan.AddItem "Staf"
      Status.AddItem "Menikah"
      Status.AddItem "Tidak Menikah"

      For i = 1 To 5
      JAnak.AddItem i
      Next i

      For i = 1 To 15
      JLembur.AddItem i
      Next i

      Call cmdBaru_Click
      End Sub

      Private Sub Jabatan_Click()
      Select Case Jabatan.Text
      Case "Mandor":
      Gaji.Text = 1750000
      lembur = 7500
      Case "Kepala Bagian": Gaji.Text = 2500000
      lembur = 10000
      Case "Staf": Gaji.Text = 1250000
      lembur = 5000
      End Select
      Pajak.Text = 0.015 * Gaji.Text
      End Sub

      Private Sub JAnak_Click()
      If JAnak.Text >= 2 Then
      TunjAnak.Text = 0.07 * Gaji.Text
      ElseIf JAnak.Text = 1 Then
      TunjAnak.Text = 0.03 * Gaji.Text
      Else
      TunjAnak.Text = 0
      End If
      End Sub

      Private Sub JLembur_Click()
      Honor.Text = JLembur.Text * lembur
      End Sub

      Private Sub NIK_Click()
      Select Case NIK.Text
      Case "001": Nama.Text = "Oncom"
      Case "002": Nama.Text = "Udin"
      Case "003": Nama.Text = "Ujang"
      End Select
      End Sub

      Private Sub Status_Click()
      Select Case Status.Text
      Case "Menikah":
      TunjIstri.Text = 0.09 * Gaji.Text
      JAnak.Enabled = True
      Case "Tidak Menikah":
      JAnak.Text = 0
      JAnak.Enabled = False
      TunjIstri.Text = 0
      TunjAnak.Text = 0
      End Select

      End Sub

      Untuk hasilnya silahkan aja lihat tampilan berikut ini :





      Selamat belajar bahasa pemrograman yaa
      Tag : Program Visual Basic Penggajian Karyawan, bahasa pemrograman vb 6, bahasa pemrograman visual basic














      Berikut merupakan topik latihan pada minggu ke 6 untuk Pemrograman Visual Basic dot Net

      Silahkan dilihat bentuk form design berikut ini.

      Delete
  6. Nama : HANAFI
    Kelas : TI M 1213
    NPM : 12110244
    link Tugas : http://hanafienst.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html

    ReplyDelete
  7. Nama : Fentris Yarif Laoli
    Kelas : TI-M 1213
    NPM : 12110616

    Link tugas tgl 2 September 2013
    http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html

    ReplyDelete
  8. Nama : Fentris Yarif Laoli
    Kelas : TI-M1213
    NPM : 12110616

    Link Tugas : http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html

    ReplyDelete
  9. Nama : Rudol
    Kelas : TI-M1213
    NPM : 12110307
    Link Tugas :
    http://rudoldoank.blogspot.com/2013/11/program-pencarian-nilai.html

    ReplyDelete
  10. Nama: Andry Saputra Saragih
    Kelas: TI-M1213
    Npm : 12110441
    Link Tugas:http://andrysaputrasr.blogspot.com/

    ReplyDelete
  11. Nama :KAMORIUS BUULOLO
    Npm :12111049
    kelas :TI-M1213
    link tugas :http://buulolokamorius.blogspot.com/2013/10/tugas-pencarian-nilai.html

    ReplyDelete
  12. Nama : Robby Azhari Harahap
    Kelas : TI-M 1213
    NPM : 12110714
    Link Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-2008-perhitungan-nilai.html

    ReplyDelete
  13. Nama : Bayu sahrizal
    Kelas : TIM-1213
    NPM : 12110767

    ReplyDelete
  14. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm : 12110767

    ReplyDelete
  15. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm : 12110767

    ReplyDelete
  16. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm : 12110767
    http://tim-1213/

    ReplyDelete
  17. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm :12110767
    http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html


    http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html

    ReplyDelete
  18. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm :12110767
    http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html

    ReplyDelete
  19. NPM : 12110714
    Nama : Robby Azhari Harahap
    Kelas : TI-M 1213
    LINK Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-2008-perhitungan-nilai.html

    ReplyDelete
  20. Nama : FENTRIS YARIF LAOLI
    Kelas : TI M 1213
    NPM : 12110616
    Link Tugas : http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html

    ReplyDelete
  21. Nama : Bayu sahrizal
    Kelas : TIM-1213
    Npm : 12110767
    http://www.blogger.com/blogger.g?blogID=5445229069670534368

    ReplyDelete
  22. Nama : Bayusahrizal
    Kelas :TIM-1213
    Npm : 12110767
    http://tugas%20visual%20basic/

    ReplyDelete
  23. Pak ini link tugasnya tgl 23 oktober 2013
    http://trisuhairy94.blogspot.com/2013/11/tugas-23-october-2013-vb-net.html

    ReplyDelete
  24. Pak Ini Tugas Gaji Pegawai
    Nama : Robby Azhari Harahap
    Kelas : TI-M 1213
    Link Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-menghitung-gaji-pegawai.html

    ReplyDelete
  25. Ini tugas saya tentang "Menghitung Total Gaji"
    Nama : Suhairy Tri Yadhi
    NPM : 12110917
    TI-M 1213

    ini linknya : http://trisuhairy94.blogspot.com/2013/11/tugas-vb-menghitung-total-gaji.html

    ReplyDelete
  26. Nama : KAMORIUS BUULOLO
    Kelas : TI M 1213
    NPM : 12111049
    link Tugas : http://buulolokamorius
    .blogspot.com/2013/10/membuat-program-perhitungan-nilai.html

    ReplyDelete
  27. Nama : Ruswin Mawar Tanjung
    Kelas : TI-M 1213
    Link Tugas : http://wiwin1990.blogspot.com/2013/11/perhitungan-nilai-vb-2008.html

    ReplyDelete
  28. Nama : M.Rajani Pane
    NPM : 12111017
    Link Tugas : http://mhdkingni05.blogspot.com/2013/11/menghitung-nilai-vb-2008.html

    ReplyDelete
  29. Nama : Nurfatiah
    NPM : 12110082
    Link Tugas : http://nurfatiah12110082.blogspot.com/2013/11/vb-2008-tugas-kuliah.html

    ReplyDelete
  30. Nama : YULIA DWI SANTIKA
    Kelas : TI.M1213
    NPM : 12111033
    Link tugas : http://yuliadwisantika.blogspot.com/2013/11/tugas-vb-2008.html

    ReplyDelete
  31. Nama : Ruswin Mawar Tanjung
    Link Tugas : http://wiwin1990.blogspot.com/2013/11/perhitungan-nilai-vb-2008.html

    ReplyDelete
  32. Nama : Desi Kumala Sari
    Npm : 12110176
    Kelas : TI-M1213
    Link Tugas : http://desikumala-sari.blogspot.com/2013/11/public-class-form1-private-sub.html

    ReplyDelete
  33. Nama : Ahmad Fauzi Lingga
    NPM : 121100407
    Link : http://madlingga.blogspot.com/2013/11/vb-2008-menghitung-nilai.html

    ReplyDelete
  34. Nama:Andry Saputra Saragih
    kls:TI-M 1213
    Npm:12110441
    Link:http://andrysaputrasrgh.blogspot.com/

    ReplyDelete
  35. nama : Hari Yudi Padang
    npm : 12110074
    Link Tugas : http://bloghariyudi.blogspot.com/2013/11/vb-perhitungan-nilai-mahasiswa.html

    ReplyDelete
  36. NAMA : SONI RIVALDI
    NPM :12110667
    LINK TUGAS : http://sonirivaldi.blogspot.com/2013/11/vb-2008-menghitung-nilai.html

    ReplyDelete
  37. nama : Ahmad Juliandi
    npm : 12110088
    LinkTugas : http://ahmadpu3.blogspot.com/2013/11/vb-menghitung-nilai-mahasiswa.html

    ReplyDelete
  38. nama: dedy hermawan
    npm:12110602
    link :http://dedyhermaw.blogspot.com/2013/11/mencari-nilai-mahasiswa.html

    ReplyDelete
  39. NAMA :DEDY HERMAWAN
    NPM ;12110602
    LINK:http://dedyhermaw.blogspot.com/2013/11/menghitung-gaji-pegawai.html

    ReplyDelete
  40. Nama : SISKA VENTRIANI ZEGA
    link : http://siskaventriani.blogspot.com/2013/11/untuk-kita-malam-ini-si-pembuat-blog.html

    ReplyDelete
  41. Nama : Yafao Giawa
    Kelas : TI-M1213
    NPM : 12110099

    Link : http://yafaogiawa.blogspot.com/2013/11/vb-2008-perhitungan-nilai.html

    ReplyDelete
  42. Nama : Yafao Giawa
    Kelas : TI-M1213
    NPM : 12110099

    Link : http://yafaogiawa.blogspot.com/2013/11/vb-2008-perhitungan-nilai.html

    ReplyDelete
  43. Nama : Lukman Wijaya
    Kelas : TI-M1213
    NPM : 12110631
    Link : http://lukmanwijaya4.blogspot.com/2013/11/mencari-nilai-mahasiswa.html

    ReplyDelete
  44. Nama : Khairul Saleh
    NPM : 12130765
    kelas : TI M 1213
    LInk : http://khairulsalehh.blogspot.com/2013/11/program-pencarian-nilai.html

    ReplyDelete
  45. Nama : Anton P. Sitinjak
    kelas : TI 1213
    link : http://antonpsitinjak.blogspot.com/2013/12/program-pencarian-nilai.html

    ReplyDelete
  46. Nama : Rudol
    NPM : 12110307
    Kelas : TI-M1213
    Link Tugas:
    http://rudoldoank.blogspot.com/2014/01/pemogramman-kriptografi.html

    ReplyDelete
  47. Kriptografi
    Npm : 12110767
    Nama : Bayu sahrizal
    Link : http://bayusahrizal.blogspot.com/b/post-preview?token=285EjEMBAAA.TC1IX1qXHe86n_PYMpUPUQ.7srhFA55YhZ5fpnMznDrUg&postId=6234360580282786320&type=POST

    ReplyDelete
  48. KRIPTOGRAFI
    NPM :12110602
    NAMA : DEDY HERMAWAN
    LINK :http://dedyhermaw.blogspot.com/2014/01/kriptrografi.html

    ReplyDelete
  49. Nama : Yulia Dwi Santika
    Npm :12111033
    Kelas : TI.M.1213
    Link : http://yuliadwisantika.blogspot.com/2014/01/tugas-pemograman-kriptografi-caesar_14.html

    ReplyDelete
  50. Npm : 12110765
    Nama : Khairul saleh
    Link : http://khairulsalehh.blogspot.com/
    Kriptografi

    ReplyDelete
  51. Kriptografi
    Npm : 12110767
    Nama : Bayu sahrizal
    Link :http://bayusahrizal.blogspot.com/

    ReplyDelete
  52. Npm : 12110767
    Nama : Khairul saleh
    Link : http://khairulsalehh.blogspot.com/
    kriptografi

    ReplyDelete
  53. Nama : Desi Kumala Sari
    Npm :12110176
    Kelas :TI.M.1213
    Link : http://desikumala-sari.blogspot.com/2014/01/kriptografi.html

    ReplyDelete
  54. kriptografi
    Nama : ARIFIN
    Npm : 12110080
    Link : http://arifinbahrum.blogspot.com/kriptografi Caesar ,Vernam, Gronsfled,Vigenere

    ReplyDelete
  55. Kriptografi
    Npm : 12110401
    Nama : SHOLEHUDDIN HALIM SIREGAR
    Link
    https://sholehuddinsiregar966/KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )

    ReplyDelete
  56. Tugas kriptrografi
    Nama : M.Rajani Pane
    NPM : 12111017
    http://mhdkingni05.blogspot.com/2KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )
    

    ReplyDelete
  57. Tugas Kriptografi
    NAMA: Andry Saputra Saragih
    NPM : 12110441
    Link Nya:
    http://andrysaputrakriptografi2.blogspot.com/

    ReplyDelete
  58. Assalamualaikum,
    pak ini tugas saya
    kriptografi

    Nama : Suhairy Tri Yadhi (12110917)
    http://trisuhairy94.blogspot.com/2014/01/vb-kriptografi-caesar-vernam-gronsfeld.html

    ReplyDelete
  59. Nama : Pewenri sinaga
    NPM : 12110588
    Link
    http://pwnri88.blogspot.com/Kriptografi (Caesar ,Vernam,Gronsfled,Viginere)

    ReplyDelete
  60. Nama : Fentris Yarif Laoli
    NPM : 12110616
    Tugas : Kriptografi
    Link : http://fentrisyarieflaoli.blogspot.com/2014/01/kriptografi_2066.html

    ReplyDelete
  61. Tugas Kriptografi
    NAMA: Andry Saputra Saragih
    NPM : 12110441
    Link:
    http://andrysaputrakriptografi2.blogspot.com/

    ReplyDelete
  62. Nama : Ahmad Fauzi Lingga
    Npm : 12110407
    Kelas ; TI-M1213
    http://madlingga.blogspot.com/

    ReplyDelete
  63. Tugas Kriptografi...
    Nama : Robby Azhari harahap
    NPM : 12110714
    Tugas :
    http://roazhap.blogspot.com/2014/01/membuat-kriptografi-vernam-dengan.html
    http://roazhap.blogspot.com/2014/01/kriptografi-caesar.html
    http://roazhap.blogspot.com/2014/01/kriptografi-vigenere.html
    http://roazhap.blogspot.com/2014/01/kriptografi-gronsfeld.html

    Thanks Pak...

    ReplyDelete
  64. Nama ; Lukman Wijaya
    Kelas : TI-M1213
    NPM : 12110631
    http://lukmanwijaya4.blogspot.com/2014/01/penggabungan-program-kriptografi-dalam.html

    ReplyDelete
  65. Tugas Kriptografi
    Nama : Lukman Wiijaya
    Kelas : TI-M1213
    NPM : 12110631
    Link : http://lukmanwijaya4.blogspot.com/2014/01/penggabungan-program-kriptografi-dalam.html

    ReplyDelete
  66. Tugas Kriptografi
    Nama:Ruswin Mawar Tanjung
    NPM:12110641
    http://wiwin1990.blogspot.com/2014/01/kriptografi-caesar-vernam.html

    ReplyDelete

Terima kasih apabila sudah memberikan komentar yang baik dan sopan :)