Tugas Lingkungan Visual - Visual Studio 2008
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
Download Program
Comments
Post a Comment