Program Visual Jadwal Kuliah

By -


Pemangfaatan rumus select case untuk membuat program yang menampilkan jadwal matakuliah, untuk kondisi yang sesuai dengan inputan hari. menggunakan Visual Studio 2008, Visual Basic.

berikut beberapa kode, dan belum sempurna, mohon disempurnakan. Diasumsikan anda akan belajar debugging dan penyempurnaan program.

Pertama buatlah form dan textbox dan button seperti dibawah

Ini kode untuk  button1 klik:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x
        x = TextBox1.Text
        Select Case x
            Case "senin"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add("Bahasa Ingris")
                ListBox1.Items.Add("Organisasi Komputer")
                ListBox2.Items.Add("Mrs. Fita Farida, S.pd")
                ListBox2.Items.Add("Bapak Jumain, S.Kom, M.Kom")
                ListBox3.Items.Add("085648999579")
                ListBox3.Items.Add("085648740140")
            Case "selasa"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add("Lingkungan Visual")
                ListBox1.Items.Add("Struktur Data")
                ListBox2.Items.Add("Bapak M. Rosidi Zamroni, S.kom")
                ListBox2.Items.Add("Bapak Miftahus Sholichin, S.Kom, M.kom")
                ListBox3.Items.Add("085707180857")
                ListBox3.Items.Add("085649101044")
            Case "rabu"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add(" Hari Libur ")
                ListBox1.Items.Add(" Tugas Dikerjakan ")
                ListBox1.Items.Add(" Persiapan Presentasi ")
                ListBox1.Items.Add(" Untuk Hari Kamis ")
                ListBox1.Items.Add(" Mata Kuliah PAI ")
            Case "kamis"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add("Statistik dan Probabilitas")
                ListBox1.Items.Add("PAI III")
                ListBox2.Items.Add("Bapak Ulul Ilmi, ST")
                ListBox2.Items.Add("Bapak Mochammad Fatich, S.Ag, M.Ag")
            Case "jumat"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add("metode Numerik")
                ListBox2.Items.Add("Bapak Agus Nur khozin, S.pd, M.Si")
            Case "sabtu"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add(" Hari Libur ")
                ListBox1.Items.Add(" Tugas Dikerjakan ")
                ListBox1.Items.Add(" Persiapan Materi ")
                ListBox1.Items.Add(" Untuk Hari Senin ")
                ListBox1.Items.Add(" Mata Kuliah ORKOM ")
            Case "minggu"
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add(" Hari Libur ")
                ListBox1.Items.Add(" Refreshing ")
                ListBox1.Items.Add(" Jalan-jalan ")
                ListBox1.Items.Add(" Untuk hiburan ")
                ListBox1.Items.Add(" Good Luck ")
            Case Else
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox1.Items.Add("Tolong diteliti Ketikanya")
                ListBox1.Items.Add("Besar kecilnya")
                ListBox1.Items.Add("Dan diProgram ini hanya")
                ListBox1.Items.Add("Mengenali ketikan kecil semua")
                ListBox2.Items.Add("Tolong diteliti Ketikanya")
                ListBox2.Items.Add("Besar kecilnya")
                ListBox2.Items.Add("Dan diProgram ini hanya")
                ListBox2.Items.Add("Mengenali ketikan kecil semua")
                ListBox3.Items.Add("Tolong diteliti Ketikanya")
                ListBox3.Items.Add("Besar kecilnya")
                ListBox3.Items.Add("Dan diProgram ini hanya")
                ListBox3.Items.Add("Mengenali ketikan kecil semua")
        End Select
    End Sub

Berikutnya code untuk button2 klik:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

kemudian Kompile dengan tekan F5, dan lihat hasilnya

Good Luck Semoga Bermanfaat.

Comments

Post a Comment

Popular posts from this blog

VB.NET - Membuat Angka Acak

By -
Image
Membuat angka acak dengan Vb.Net, dengan menggunakan rumus random yang ada di visual basic. Khusus untuk XI TKJ SMK Hasyim Asy'ari. Pembuatan anka acak ini bisa diterapkan di beberapa versi VB. berikut langkah langkah membuat sebuah angka acak pada Vb.Net. 1. Buat lah sebuah label dan sebuah button, label untuk menampilkan angka sedangkan butoon untuk mengeksekusi coding. lihat gambar dibawah. 2. Klik dua kali di Button untuk memasukan kode. dan masuka kode seperti dibawah ini. 3. Kemudian jalankan dan hasilnya seerti gambar berikut 4. Kemudian klik acak maka akan muncul angka secara acak tak lebih dari 100 Demikian cara membuat program untuk mengacak angka, dimana nilai 100 merupakan nilai batasan yang berarti program akan mnampilkan angka secara acak mulai 1 sampai 100. Semoga bisa dimengerti dengan jelas. " Jika ada niat, maka tiada yang tidak bisa"
Next »

Kenapa dinamai windows?

By -
Image
Sejarah dari wikipedia - Versi pertama Microsoft Windows, yang disebut dengan Windows 1.0, dirilis pada tanggal  20 November 1985 . Versi ini memiliki banyak kekurangan dalam beberapa fungsionalitas, sehingga kurang populer di pasaran. Pada awalnya Windows versi 1.0 ini hendak dinamakan dengan  Interface Manager , akan tetapi  Rowland Hanson , kepala bagian pemasaran di  Microsoft Corporation , meyakinkan para petinggi Microsoft bahwa nama " Windows " akan lebih "memikat" konsumen. Windows 1.0 bukanlah sebuah sistem operasi yang lengkap, tapi hanya memperluas kemampuan MS-DOS  dengan tambahan antarmuka grafis. Selain itu, Windows 1.0 juga memiliki masalah dan kelemahan yang sama yang dimiliki oleh  MS-DOS . Lebih jauh lagi,  Apple  yang menuntut Microsoft,sehingga Microsoft membatasi feature yang ada di operating systemnya. Sebagai contoh, jendela-jendela di dalam Windows 1.0 hanya dapat ditampilkan di layar secara " tile " saja, sehingga jendela ters
Next »

Konversi Desimal ke Biner Menggunakan Stack - Java

By -
Image
Buatlah New Projrct dengan cara klik file -> new projrct , pilih java application. beri nama project kemudian masukan kode dibawa ini: /*  * To change this template, choose Tools | Templates  * and open the template in the editor.  */ package biner; import java.util.Scanner; /**  *  * @author Moch. Afif  */ public class Biner {     /**      * @param args the command line arguments      */     public static void main(String[] args) {         // TODO code application logic here         System.out.println("Program konversi ke biner dari desimal");         Scanner msk =new Scanner(System.in);         System.out.print("Masukan Nilai Desimal :");         int bil = msk.nextInt();         tumpukan bn=new tumpukan(10);         int n=bil;         while (bil>0){             n=bil%2;                         if (n>0){                 bn.push(1);             }else                 bn.push(0);                         bil=bil/2;    
Next »