FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_11_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan ini Terdapat dua object yaitu label, dan textbox:
1.    Object Label.
      Terdapat 14 label (yang bertuliskan Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu (N), SKS (S), NxS, Pengantar Akuntansi, Akuntansi intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

2.   Object Text Box.
          Terdapat 20 textbox(12 status input, 8 berstatus read only). Status input digunakan untuk memasukkan data.                          Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only:
            a. N x S = Nilai Mutu (N) x SKS (S)
            b. Total = Penjumlahan semua SKS, Pejumlahan semua nilai N x S
            c. IPK= Total NxS / Total SKS

      
Cara Membuat Form latihan11
     silahkan lihat video dibawah ini :


setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb. contohnya tulisan yang bercap kuning dibawah ini, itu harus sesuai dengan nama text box yang anda buat.

Public Class Latihan_11_46110021

    Private Sub konfersi(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)
        If nilai.Text = "A" Then
            hasil.Text = 4 * Val(sks.Text)
        ElseIf nilai.Text = "B" Then
            hasil.Text = 3 * Val(sks.Text)
        ElseIf nilai.Text = "C" Then
            hasil.Text = 2 * Val(sks.Text)
        ElseIf nilai.Text = "D" Then
            hasil.Text = 1 * Val(sks.Text)
        Else
            hasil.Text = 0
        End If
    End Sub

    Private Sub pas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pas_46110021.TextChanged
        konfersi(Pan_46110021, pas_46110021, pah_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub ais_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ais_46110021.TextChanged
        konfersi(ain_46110021, ais_46110021, aih_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub aas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aas_46110021.TextChanged
        konfersi(aan_46110021, aas_46110021, aah_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub abs_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abs_46110021.TextChanged
        konfersi(abn_46110021, abs_46110021, abh_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub sas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sas_46110021.TextChanged
        konfersi(san_46110021, sas_46110021, sah_46110021)
        totsks()
        totha()
        ipk()
    End Sub
    Private Sub totsks()
        ts_46110021.Text = Val(pas_46110021.Text) + Val(ais_46110021.Text) + Val(aas_46110021.Text) + Val(abs_46110021.Text) + Val(sas_46110021.Text)
    End Sub
    Private Sub totha()
        th_46110021.Text = Val(pah_46110021.Text) + Val(aih_46110021.Text) + Val(aah_46110021.Text) + Val(abh_46110021.Text) + Val(sah_46110021.Text)
    End Sub
    Private Sub ipk()
        ipk_46110021.Text = Val(th_46110021.Text) / Val(ts_46110021.Text)
    End Sub

End Class
Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input
3.    Hasil akan muncul sendri ketika text box yang berstatus input telah diisi.

Scipt unik
  Private Sub konfersi(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)
        If nilai.Text = "A" Then
            hasil.Text = 4 * Val(sks.Text)
        ElseIf nilai.Text = "B" Then
            hasil.Text = 3 * Val(sks.Text)
        ElseIf nilai.Text = "C" Then
            hasil.Text = 2 * Val(sks.Text)
        ElseIf nilai.Text = "D" Then
            hasil.Text = 1 * Val(sks.Text)
        Else
            hasil.Text = 0
        End If
    End Sub 
    script diatas digunakan sebagai Prosedur yang memiliki syarat seperti diatas.
Even
Text Change

Leave a Reply