Tugas Lingkungan Visual - Visual Studio 2008

By -

Program ini sebagai tugas lingkungan Visual Saya di Unisla. Berikut kodenya:
Buatlah desain Formnya sesukanya
Gunakan Propertis untuk mendesain detail form yang ada

Gunakan Toolbox untuk membuat Menustrip dan masukan pilihanya


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("BASIC")
        ComboBox1.Items.Add("C++")
        ComboBox1.Items.Add("Delphi")
        ComboBox1.Items.Add("FOTRAN")
        ComboBox1.Items.Add("HTML")
        ComboBox1.Items.Add("JAVA")
        ComboBox1.Items.Add("MATLAB")
        ComboBox1.Items.Add("Perl")
        ComboBox1.Items.Add("Turbo Pascal")
        ComboBox1.Items.Add("Visual FoxPro")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "BASIC"
                RichTextBox1.Text = "BASIC (Beginners All Purpose Symbolic Instruction Code) merupakan bahasa pemrograman tingkat tinggi, yang dikembangkan oleh John George Kemeny dan Thomas Eugene Kurtz pada tahun 1963, di dartmouth College, Brtujuan untuk mengizinkan mahasiswa selain jurusanya untuk mengakses komputer"
            Case "C++"
                RichTextBox1.Text = "C++ merupakan bahasa pemrograman yang dikembangkan oleh Bjarne Stroustrup. dan merupakan bahasa perkembangan dari bahasa C yang dikembangkan Dennis Ritchie di Bell Labs. Pada tahun 1970-an, Sedangkan bahasa C++ sendiri pada awal 1980-an, dan Di C++ ini sudah mendukung konsep pemrograman berorientsai object"
            Case "Delphi"
                RichTextBox1.Text = "Sebuah IDE yang berguna mengembangkan aplikasi konsol, dekstop,web ataupun mobile. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan prangkat lunak, Embarcadero(sebelumnya milik borland), delphi juga bisa disebut pascal yang berorientasi objek"
            Case "FOTRAN"
                RichTextBox1.Text = "FOTRAN merupakan bahasa pemrograman yang dikembangkan pada tahun 1950-an. FOTRAN merupakan singkatan dari Formula Translator/Translation, yang kemudian dimodernisasi dengan menerapkan konsep pemerograman berbasis objek"
            Case "HTML"
                RichTextBox1.Text = "HTML (HyperText Markup Language) merupakan bahasa yang digunakan membuat halaman WEB, dan merupakan bahasa sederhana yang dituliskan dalam ASCII yang bertujuan menghasilkan tampilan yang terintegrasi. HTML sekarang menjadi standart penulisan WEb dan  diawasi penggunaanya ole Web Consortium W3C"
            Case "JAVA"
                RichTextBox1.Text = "JAVA merupakan bahasa yang multiplatform yang awalnya dikembangkan oleh James Gosling saat masih di Sun Microsystem(Saat ini milik Oracle) yang dirilis pada 1995. Dasar bahasa JAVA merupakan adobsi dari bahasa C dan C++, akan tetapi JAVA memiliki syntak yang lebih simpel dan dukungan beberapa rutin yang minimal"
            Case "MATLAB"
                RichTextBox1.Text = "MATLAB adalah sebuah lingkungan komputasi numerikal dan bahas pemrograman komputer generasi ke empat. yang dikembangkan oleh The MathWorks, yang memungkinkan manipulasi matriks, fungsi data, implementasi algoritma dan lain-lain. Pada awalnya Matlab digunakan insiyur rancang kontrol, tapi kemudian menyebar kebidang lain, khususnya pengajaran aljabar linier dan analisis numerik"
            Case "Perl"
                RichTextBox1.Text = "Perl merupakan bahasa pemrograman yang dikembangkan oleh Larry Wall dimesin UNIX, perl pertama di launching pada 18 Desember 1987, setelah itu Perl mendukung Hampir semua operating sistem yang ada didunia.Keunggulan Perl, dapat mempermudah dengan penangganan teks dan berbagai soal shortcut dalam menyelasaikan masalah pemrograman"
            Case "Turbo Pascal"
                RichTextBox1.Text = "Turbo Pascal merupakan Kompiler dan IDE  dari bahasa pascal untuk system CP/M, CP/M-86, dan MS DOS, yang dikembangkan Borland. Pada tahun 1995, Borland menghentikan pengembangan Turbo Pascal dan menggantikanya dengan delphi yang berbasis orientasi objek(Object Pascal)"
            Case "Visual FoxPro"
                RichTextBox1.ResetText()
                RichTextBox1.Text = "Visual Foxpro merupakan bahasa Pemrograma yang berorientasi object dan prosedural dari Microsoft.Awalnya bahasa pemrograman ini dinamai FoxBASE yang dilaunching ole Fox Software pada 1984.pada tahun 1992 Fox bergabung dengan Microsoft.Versi terakhir FoxPro 9.0 yang dapat berjalan di system operasi Mac Os, DOS, Windows dan basis Unix"
        End Select
    End Sub

    Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak As SaveFileDialog = New SaveFileDialog
        kotak.Filter = "Text (*.txt)|*.txt"
        kotak.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak.FileName & "", RichTextBox1.Text, False)
    End Sub

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

    Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem.Click
        Me.BackColor = Color.WhiteSmoke
    End Sub

    Private Sub HijauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HijauToolStripMenuItem.Click
        Me.BackColor = Color.Green
    End Sub

    Private Sub KuningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KuningToolStripMenuItem.Click
        Me.BackColor = Color.Yellow
    End Sub

    Private Sub BiruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BiruToolStripMenuItem.Click
        Me.BackColor = Color.Blue
    End Sub

    Private Sub AboutMeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutMeToolStripMenuItem.Click
        MessageBox.Show("MOCH. AFIF  111201277  3E", "About ME", MessageBoxButtons.OK)
    End Sub
End Class

Kemudian Save all dan build, kemudian tekan F5 untuk mencoba program Sahabat
Berikut Link Kode Saya
Download Program

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 »