Home » » Tugas TI-M1213

Tugas TI-M1213

Written By Mesran on Tuesday, 11 June 2013 | 18:42



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

Terima kasih.

Labels:

11 comments:

  1. Unknown30 June 2013 at 00:55

    Ini Pak,,
    Tugas yaaa....

    http://roazhap.blogspot.com/search/label/TUGAS%20KULIAH/

    ReplyDelete
  2. Vald Blog30 June 2013 at 12:33

    ini pak tugas saya tentang mesran.net, dan saya juga udah meletakkan link bapak di blog saya , terima kasih !

    http://sonirivaldi.blogspot.com/2013/06/belajar-bahasa-pemrograman-di-mesrannet.html

    ReplyDelete
  3. Tri30 June 2013 at 14:56

    Pak maaf cuman ini yang bisa saya posting. mohon bimbingannya.

    http://trisuhairy94.blogspot.com/2013/06/mencari-total-harga-produk.html

    ReplyDelete
  4. Unknown1 July 2013 at 00:08

    maaf terlambat pak,,,

    http://madlingga.blogspot.com/2013/06/TugasTI-M1213.html

    ReplyDelete
  5. headingbola5 November 2013 at 10:58

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

    ReplyDelete
  6. headingbola5 November 2013 at 11:00

    Nama : Bayu sahrizal
    Kelas :TIM-1213
    Npm : 12110767


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

    ReplyDelete
  7. headingbola5 November 2013 at 11:03

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

    ReplyDelete
  8. Unknown3 December 2013 at 00:07

    Nama :ARIFIN
    Kelas :TIM-1213
    Npm :12110080
    http://arifinbahrum.blogspot.com/2013/11/tugas-visual-bacis-normal-0-false-false.html

    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 :



    ReplyDelete
  9. Arryudhi^Padang17 January 2014 at 22:41

    Nama: Hari Yudi padang
    Kelas: TIM 1213

    http://bloghariyudi.blogspot.com/2014/01/tugas-pemograman-kriptografi-caesar_17.html

    ReplyDelete
  10. Arryudhi^Padang17 January 2014 at 22:42

    Nama: Ahmad Juliandi
    Kelas:TIM 1213
    NPM:12110088
    http://ahmadpu3.blogspot.com/2014/01/pemograman-kriptografi-caesar-vernam.html

    ReplyDelete
  11. Arryudhi^Padang17 January 2014 at 22:44

    Nama: Hari Yudi Padang
    Kelas: TIM 1213
    NPM : 12110074
    http://bloghariyudi.blogspot.com/2014/01/tugas-pemograman-kriptografi-caesar_17.html

    ReplyDelete

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