TUGAS BPC PERTEMUAN KE-7

Ini dia nih tugas Budidarma Programming Club (BPC) pertemuan ke-7.
Gak terlalu payah, asal ada kemauan aja.
:p
1. Desain Form

2. Listing programnya:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TipeKamar.Items.Add("EKONOMI")
        TipeKamar.Items.Add("VIP")
    End Sub

MEMBUAT SEGITIGA ANGKA DENGAN LOOPING

Misi ya gan, mau iseng2 posting tugas dulu neh..
Skalian nambahin postingan gitu. Mudahan bermanfaat.
Langsung aja neh gan.

1. Desainlah Formnya seperti gambar dibawah ini dan atur juga propertinya.

Ketikkan aja nih listinya gan yah:
Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Tugas Belajar Bahasa Pemograman

1.Desainlah Form dan atur propertinya seperti gambar di bawah ini:

2. Kemudian ketiklah listing program seperti dibawah ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("113421")
        KodeDosen.Items.Add("222342")
        KodeMataKuliah.Items.Add("0051")
        KodeMataKuliah.Items.Add("0072")
        NPM.Items.Add("12110728")
        NPM.Items.Add("12119008")
        NPM.Items.Add("12118879")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        MataKuliah.Text = " "
        Nama.Text = " "
        NamaDosen.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        Jenjang.Text = ""
        NPM.Text = ""
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiHuruf.Text = ""
        Jurusan.Text = ""
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "113421" Then
            NamaDosen.Text = "Tonni Limbong S.Kom,M.Kom"
        ElseIf z = "222342" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "0051" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "0072" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110728" Then
            Nama.Text = "Bister Purba"
        ElseIf NPM.Text = "12119008" Then
            Nama.Text = "Anto"
        ElseIf NPM.Text = "12118879" Then
            Nama.Text = "Ani"
        End If
    End Sub
End Class

3. Setelah itu, jalankan program Visual Basic.Net dengan menekan F5 atau (Shortcut Run) dan akan muncul hasilnya seperti pada gambar di bawah ini :

Sekian Dan Terimakasih.

Hanya Sekedar Humor

Sepasang suami istri sedang berebut remot TV.
Si suami senangnya menonton acara sepak bola sedangkan si istri senang menonton acara masak.
Beginilah bunyi televisi karena mereka saling ganti-ganti siaran hingga kedengarannya gak karuan ! !

1 kg daging ayam di tendang ronaldo.
5 siung bawang berdiri off side.
Daging direbus oleh wasit.
Bumbu yg sudah di haluskan di kenai kartu kuning.
Bola di bawa lantas dikukus 1/2 masak.
Kiper dipotong2 ditusuk lantas sate.
Hakim garis angkat bendera sinyal ayam sudah matang.

Smoga sobat terhibur kalaupun sudah pernah mendengar atau membacanya.
Sekian dulu postingan iseng-iseng ane....

Membuat Tulisan Seperti Mengetik Pada VB.NET

1. Desainlah formnya seperti gambar berikut dengan menambahkan satu buah Label dan satu buah Timer.

2. Kemudian ketikkan saja koding di bawan ini:
Public Class Form1
    Dim tulisan(3) As String
    Dim i, j As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tulisan(0) = " Welcome to www.bisterpurba.blogspot.com "
        tulisan(1) = " Thank's for coming and please come back any time "
        tulisan(2) = " Good Luck !!! ... "
        tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now) & " "

CARA INSTAL WINDOWS 8

Setelah sukses dengan Windows 7, perusahaan sistem operasi windows kembali meluncurkan sistem operasi berbasis windows terbarunya, yaitu Windows 8. OS terbaru ini dipersiapkan sematang mungkin agar bisa tampil dengan elegan dan performa yang ciamik.

Jika anda mempunyai DVD installer Windows 8 pro dan mengalami kesulitan bagaimana cara menginstalnya, maka saya berikan tutorial bagaimana cara install windows 8 pro lengkap dengan gambar sehingga anda lebih mudah dalam melakukan instalasi windows 8 pro.

Berikut ini Langkah langkah Cara menginstall windows 8 Pro :

1. Nyalakan komputer, masuk ke menu bios dengan menekan tombol DEL atau F2. Pada beberapa PC/Laptop pengaturannya bisa berbeda, pastikan untuk memperhatikan pesan awal yang ditampilkan, atur supaya boot awal dari CD/DVD, masukkan DVD installer Windows 8.

2. Setelah booting dari CD/DVD tekan pada sembarang tombol.

3. Berbeda dengan pendahulunya saat pertama Windows 8 memuat file setup, kita akan disuguhi layar hitam dengan jendela ditengah, seperti gambar yang di bawah ini.

4. Setelah proses diatas tersebut selanjutnya akan ditampilkan pengaturan bahasa, waktu, mata uang dan pengaturan input keyboard, klik Next apabila telah selesai melakukan pengaturan.

STACK DALAM STRUKTUR DATA

           Stack adalah suatu urutan elemen yang elemennya dapat diambil dan ditambah hanya pada posisi akhir (top) saja. Contoh dalam kehidupan sehari-hari adalah tumpukan piring di sebuah restoran yang tumpukannya dapat ditambah pada bagian paling atas dan jika mengambilnya pun dari bagian paling atas pula. Lihat gambar 1.

             Ada 2 operasi paling dasar dari stack yang dapat dilakukan, yaitu :
1. Operasi push yaitu operasi menambahkan elemen pada urutan terakhir (paling atas).
2. Operasi pop yaitu operasi mengambil sebuah elemen data pada urutan terakhir dan menghapus elemen tersebut dari stack.
         Sebagai contoh, misalkah ada data sebagai berikut : 1 3 5 6, maka data tersebut dapat tersimpan dalam bentuk sebagai berikut :