Sebuah bahasa pemrograman klasik JavaScript untuk iPad, iPhone dan iPod touch. Bahasa pemrograman adalah alat yang sempurna untuk belajar, perhitungan matematika yang kompleks, hiburan dan banyak tugas lain yang bermanfaat. Aplikasi ini sangat berguna untuk belajar bahasa pemrograman JavaScript. Anda harus membeli kompilasi dalam aplikasi. Koneksi Internet diperlukan. - Alat pemrograman besar di AppStore. - bahasa pemrograman Anda untuk iOS menakjubkan * FITUR * - Kompilasi dan jalankan program Anda. - input teks sebelum menjalankan program dan output teks. - Peningkatan editor kode sumber dengan sintaks highlight, nomor baris, auto lekukan, pencarian dan mengganti, membatalkan sejarah, tema warna dan keyboard tambahan. -. referensi bahasa online dan beberapa contoh program yang * PEMBATASAN * - Koneksi internet diperlukan untuk mengkompilasi dan menjalankan program. - Graphics, jaringan, sistem file dan masukan real-time tidak didukung. - waktu berjalan maksimum dari sebuah program adalah 15 detik. - Tombol panah pada keyboard bluetooth tidak bekerja. -. Gunakan Copy ketika keyboard tersembunyi dan Paste ketika itu terlihat Cari " PHP Programming Language "pada AppStore juga. Terima kasih untuk menggunakan aplikasi!==================================== JavaScript adalah prototipe berbasis bahasa scripting yang bersifat dinamis, lemah mengetik dan memiliki fungsi kelas-pertama. Ini adalah bahasa multi-paradigma, mendukung, penting, dan gaya pemrograman fungsional object-oriented. JavaScript diformalkan dalam standar bahasa ECMAScript dan terutama digunakan dalam bentuk JavaScript sisi klien, diimplementasikan sebagai bagian dari browser Web dalam rangka untuk menyediakan antarmuka pengguna yang ditingkatkan dan website dinamis.Hal ini memungkinkan akses program ke objek komputasi dalam lingkungan host. menggunakan JavaScript dalam aplikasi di luar halaman Web - misalnya dalam dokumen PDF, browser situs-spesifik, dan widget desktop - juga signifikan. Baru dan lebih cepat JavaScript VMS dan kerangka kerja yang dibangun di atas mereka (terutama Node.js) juga telah meningkatkan popularitas JavaScript untuk aplikasi web server-side. JavaScript menggunakan sintaks dipengaruhi oleh yang salinan C. JavaScript banyak nama dan konvensi penamaan dari Jawa, namun dua bahasa yang tidak berhubungan dan memiliki semantik yang sangat berbeda. Prinsip-prinsip desain dalam JavaScript diambil dari Diri dan Skema pemrograman bahasa. JavaScript pada awalnya dikembangkan oleh Brendan Eich dari Netscape di bawah nama Mocha, yang kemudian diganti namanya menjadi LiveScript, dan akhirnya ke JavaScript terutama karena lebih banyak dipengaruhi oleh Java bahasa pemrograman. LiveScript adalah nama resmi untuk bahasa ketika pertama kali dikirim dalam rilis beta dari Netscape Navigator 2.0 pada bulan September 1995, tetapi diubah namanya JavaScript dalam pengumuman bersama dengan Sun Microsystems pada tanggal 4 Desember 1995, ketika itu ditempatkan di browser versi Netscape 2.0B3. Perubahan nama dari LiveScript untuk JavaScript kira-kira bertepatan dengan Netscape menambahkan dukungan untuk teknologi Java di nya web browser Netscape Navigator.Pilihan terakhir dari nama menyebabkan kebingungan, memberikan kesan bahwa bahasa adalah spin-off dari bahasa pemrograman Java, dan pilihan telah ditandai oleh banyak orang sebagai taktik pemasaran oleh Netscape untuk memberikan JavaScript di cap apa yang kemudian panas bahasa pemrograman web baru. Hal ini juga telah mengklaim bahwa nama bahasa adalah hasil dari kesepakatan pemasaran bersama antara Netscape dan Sun, dalam pertukaran untuk Netscape bundling Sun Java runtime dengan browser dominan nya. Pada bulan November 1996, Netscape mengumumkan bahwa mereka telah mengajukan JavaScript untuk ECMA International untuk dipertimbangkan sebagai standar industri, dan bekerja selanjutnya menghasilkan versi standar bernama ECMAScript.
Maandag 13 Januarie 2014
Sondag 12 Januarie 2014
PHP Bahasa Pemrograman
Sebuah bahasa pemrograman PHP klasik untuk iPad, iPhone dan iPod touch. Bahasa pemrograman adalah alat yang sempurna untuk belajar, perhitungan matematika yang kompleks, hiburan dan banyak tugas lain yang bermanfaat.Aplikasi ini sangat berguna untuk belajar bahasa pemrograman PHP. Anda harus membeli kompilasi dalam aplikasi.Koneksi Internet diperlukan. - Alat pemrograman besar di AppStore. - bahasa pemrograman Anda untuk iOS menakjubkan * FITUR * - Kompilasi dan jalankan program Anda. - input teks sebelum menjalankan program dan output teks. - Peningkatan editor kode sumber dengan sintaks highlight, nomor baris, auto lekukan, pencarian dan mengganti, membatalkan sejarah, tema warna dan keyboard tambahan. - Impor dan ekspor program dengan iTunes atau melalui email. -. referensi bahasa online dan beberapa contoh program yang * PEMBATASAN * - Koneksi internet diperlukan untuk mengkompilasi dan menjalankan program. - Graphics, jaringan, sistem file dan masukan real-time tidak didukung. - waktu berjalan maksimum dari sebuah program adalah 15 detik. - Tombol panah pada keyboard bluetooth tidak bekerja. - Gunakan Copy ketika keyboard tersembunyi dan Paste ketika itu terlihat. Carilah "JavaScript Programming Language" pada AppStore juga. Terima kasih untuk menggunakan aplikasi!==================================== PHP adalah server-tujuan umum sisi bahasa scripting awalnya dirancang untuk pengembangan web untuk menghasilkan halaman Web dinamis. Ini adalah salah satu dari yang pertama maju bahasa scripting server-side untuk dimasukkan ke dalam dokumen sumber HTML, daripada memanggil file eksternal untuk memproses data. Pada akhirnya, kode ditafsirkan oleh server Web dengan modul prosesor PHP yang menghasilkan halaman web yang dihasilkan. Hal ini juga telah berkembang untuk menyertakan kemampuan antarmuka baris perintah dan dapat digunakan dalam aplikasi grafis mandiri. PHP dapat digunakan pada kebanyakan server Web dan juga sebagai shell mandiri pada hampir setiap sistem operasi dan platform gratis.Sebuah pesaing Microsoft Active Server Pages (ASP) script mesin server-side dan bahasa yang sama, PHP yang terinstal pada lebih dari 20 juta situs web dan 1 juta server web. PHP awalnya diciptakan oleh Rasmus Lerdorf pada tahun 1995. Pelaksanaan utama PHP sekarang diproduksi oleh Grup PHP dan berfungsi sebagai acuan formal untuk bahasa PHP. PHP adalah perangkat lunak bebas yang dirilis di bawah Lisensi PHP, yang tidak sesuai dengan GNU General Public License (GPL) karena pembatasan pada penggunaan jangka PHP. Sementara PHP awalnya berdiri untuk "Personal Home Page", sekarang dikatakan berdiri untuk "PHP: Hypertext Preprocessor"., singkatan rekursifpengembangan PHP dimulai pada tahun 1994 ketika Denmark / Greenland / Canadian programmer Rasmus Lerdorf awalnya dibuat satu set script Perl yang ia sebut "Personal Home Page Tools" untuk mempertahankan homepage pribadinya. Script melakukan tugas-tugas seperti menampilkan resume dan merekam lalu lintas web-page-nya.Lerdorf awalnya mengumumkan rilis PHP pada Usenet kelompok diskusi comp.infosystems.www.authoring.cgi pada tanggal 8 Juni 1995. Ia menulis ulang skrip ini sebagai bahasa pemrograman C Common Gateway Interface (CGI) binari, memperluas mereka untuk menambahkan kemampuan untuk bekerja dengan bentuk web dan untuk berkomunikasi dengan database dan implementasi ini disebut "Personal Home Page / Forms Interpreter" atau PHP / FI. PHP / FI dapat digunakan untuk membangun sederhana, aplikasi Web dinamis. Lerdorf dirilis PHP / FI sebagai "Personal Home Page Tools (PHP Tools) versi 1.0" publik pada tanggal 8 Juni 1995, untuk mempercepat lokasi bug dan memperbaiki kode. Rilis ini sudah memiliki fungsi dasar yang PHP hari ini. Ini termasuk variabel Perl-seperti, bentuk penanganan, dan kemampuan untuk menanamkan HTML. Sintaks ini mirip dengan Perl tetapi lebih terbatas dan sederhana, meskipun kurang konsisten. Sebuah tim pengembangan mulai terbentuk dan, setelah berbulan-bulan bekerja dan pengujian beta, resmi dirilis PHP / FI 2 pada November 1997.
C + + Programming Language
Sebuah bahasa pemrograman C + + klasik untuk iPad, iPhone dan iPod touch. Bahasa pemrograman adalah alat yang sempurna untuk belajar, perhitungan matematika yang kompleks, hiburan dan banyak tugas lain yang bermanfaat. Aplikasi ini sangat berguna untuk belajar bahasa ะก + + programming. - Anda harus membeli kompilasi dalam aplikasi. - Koneksi internet diperlukan. * KRITIK * - Alat pemrograman besar di AppStore. - bahasa pemrograman Anda untuk iOS menakjubkan ! * FITUR * - Kompilasi dan jalankan program Anda. - input teks sebelum menjalankan program dan teks output. - Peningkatan editor kode sumber dengan sintaks highlight, nomor baris, auto lekukan, pencarian dan mengganti, membatalkan sejarah, tema warna dan keyboard tambahan. - Impor dan ekspor program dengan iTunes atau melalui email. -. referensi bahasa online dan beberapa contoh program yang * PEMBATASAN * - Koneksi internet diperlukan untuk mengkompilasi dan menjalankan program. - Graphics, jaringan, sistem file dan masukan real-time tidak didukung. - waktu berjalan maksimum dari sebuah program adalah 15 detik. - Tombol panah pada keyboard bluetooth tidak bekerja. - Gunakan Copy ketika keyboard tersembunyi dan Paste ketika itu terlihat. Carilah "C Programming Language" pada AppStore juga. Terima kasih untuk menggunakan aplikasi! ==================================== C + + (diucapkan "cee plus plus" ) adalah statis diketik, bebas-form, multi-paradigma, dikompilasi, bahasa pemrograman untuk tujuan umum.Hal ini dianggap sebagai bahasa tingkat menengah, karena terdiri dari kombinasi keduanya tingkat tinggi dan fitur bahasa tingkat rendah. Ini dikembangkan oleh Bjarne Stroustrup mulai tahun 1979 di Bell Labs sebagai tambahan untuk bahasa C. Awalnya bernama C with Classes, bahasa ini berganti nama C + + pada tahun 1983. C + + adalah salah satu bahasa pemrograman yang paling populer dengan domain aplikasi termasuk sistem perangkat lunak, perangkat lunak aplikasi, driver perangkat, perangkat lunak tertanam, server kinerja tinggi dan aplikasi-aplikasi client, dan perangkat lunak hiburan seperti video game. Beberapa kelompok menyediakan perangkat lunak C + + compiler bebas dan eksklusif, termasuk GNU Project, Microsoft, Intel dan Embarcadero Technologies. C + + telah sangat mempengaruhi banyak bahasa pemrograman populer lainnya, terutama C # dan Java. C + + juga digunakan untuk desain hardware, di mana desain awalnya dijelaskan dalam C + +, kemudian dianalisis, arsitektur dibatasi, dan dijadwalkan untuk membuat deskripsi hardware tingkat daftar transfer bahasa melalui sintesis tingkat tinggi.Bjarne Stroustrup mulai bekerja pada "C with Classes" pada tahun 1979. Gagasan untuk menciptakan sebuah bahasa baru berasal dari pengalaman Stroustrup dalam pemrograman untuk gelar Ph.D. tesis. Stroustrup menemukan bahwa Simula memiliki fitur yang sangat membantu untuk pengembangan perangkat lunak besar, tetapi bahasa itu terlalu lambat untuk penggunaan praktis, sementara BCPL cepat tetapi tingkat rendah juga akan cocok untuk pengembangan perangkat lunak besar. Ketika Stroustrup mulai bekerja di Bell Labs, ia memiliki masalah menganalisis kernel UNIX sehubungan dengan komputasi terdistribusi. Mengingat Ph.D. pengalaman, Stroustrup berangkat untuk meningkatkan bahasa C dengan fitur Simula-seperti. C dipilih karena itu adalah tujuan umum, cepat, portabel dan banyak digunakan. Pelaksanaan komersial pertama dari C + + dirilis pada tanggal 14 Oktober 1985. Pada tahun 1983, nama bahasa diubah dari C dengan Kelas C + + (+ + menjadi operator increment di C).Pada tahun 1985, edisi pertama dari The C + + Programming Language dirilis, menyediakan referensi penting untuk bahasa, karena belum ada standar resmi. Lepaskan 2.0 dari C + + datang pada tahun 1989 dan edisi kedua diperbarui dari The C + + Programming Language dirilis pada tahun 1991. Fitur baru termasuk multiple inheritance, kelas abstrak, fungsi anggota statis, fungsi anggota const, dan anggota dilindungi. Pada tahun 1990, The Annotated C + + Reference Manual diterbitkan. Karya ini menjadi dasar untuk standar masa depan.
Java Programming Language
Sebuah bahasa pemrograman Java klasik untuk iPad, iPhone dan iPod touch. Bahasa pemrograman adalah alat yang sempurna untuk belajar, perhitungan matematika yang kompleks, hiburan dan banyak tugas lain yang bermanfaat.Aplikasi ini sangat berguna untuk belajar bahasa pemrograman Java. - Anda harus membeli kompilasi dalam aplikasi. - Koneksi internet diperlukan. * KRITIK * - Alat pemrograman besar di AppStore. - bahasa pemrograman Anda untuk iOS menakjubkan! * FITUR * - Kompilasi dan jalankan program Anda. - input teks sebelum menjalankan program dan output teks. - Peningkatan editor kode sumber dengan sintaks highlight, nomor baris, auto lekukan, pencarian dan mengganti, membatalkan sejarah, tema warna dan keyboard tambahan. - Impor dan program ekspor dengan iTunes atau melalui email. - referensi bahasa online dan beberapa contoh program tersebut. * PEMBATASAN * - Koneksi internet diperlukan untuk mengkompilasi dan menjalankan program. - Graphics, jaringan, sistem file dan masukan real-time tidak didukung. - Maksimum waktu berjalan dari sebuah program adalah 15 detik. - Tombol panah pada keyboard bluetooth tidak bekerja. - Gunakan Copy ketika keyboard tersembunyi dan Paste ketika itu terlihat. - Gunakan beberapa kelas pada satu file sumber, bukan file terpisah. Terima kasih untuk menggunakan aplikasi ! ==================================== Java adalah bahasa pemrograman yang awalnya dikembangkan oleh James Gosling di Sun Microsystems (yang sejak bergabung menjadi Oracle Corporation) dan dirilis pada tahun 1995 sebagai komponen inti dari Sun Microsystems 'platform Java. Bahasa berasal banyak sintaks dari C dan C + + namun memiliki model objek sederhana dan fasilitas tingkat rendah lebih sedikit. Aplikasi Java biasanya dikompilasi untuk bytecode (file kelas) yang dapat berjalan pada Java Virtual Machine (JVM) terlepas dari arsitektur komputer. Java adalah tujuan umum, konkuren, berbasis kelas, bahasa berorientasi objek yang khusus dirancang untuk memiliki beberapa dependensi implementasi mungkin. Hal ini dimaksudkan untuk membiarkan pengembang aplikasi "tulis sekali, jalankan di mana saja", yang berarti bahwa kode yang berjalan pada satu platform tidak perlu dikompilasi ulang untuk berjalan di lain. Java saat ini salah satu bahasa pemrograman yang paling populer digunakan, terutama untuk aplikasi web client-server, dengan melaporkan 10 juta pengguna.Kompiler asli dan referensi implementasi Java, mesin virtual, dan perpustakaan kelas yang dikembangkan oleh Sun dari 1995. Pada Mei 2007, sesuai dengan spesifikasi Java Community Process, Sun mengganti lisensi sebagian besar dari teknologi Java di bawah GNU General Public License. Selain itu juga telah mengembangkan implementasi alternatif teknologi Sun ini, seperti GNU Compiler untuk Java dan GNU Classpath. James Gosling, Mike Sheridan, dan Patrick Naughton memulai proyek bahasa Jawa pada bulan Juni 1991. Java pada awalnya dirancang untuk televisi interaktif, tapi itu terlalu maju bagi industri televisi kabel digital pada saat itu. Bahasa ini awalnya disebut Oak setelah pohon ek yang berdiri di luar kantor Gosling, ia pergi dengan nama Hijau kemudian, dan kemudian berganti nama Jawa, dari kopi Jawa, dikatakan dikonsumsi dalam jumlah besar oleh pencipta bahasa itu. Gosling bertujuan untuk mengimplementasikan mesin virtual dan bahasa yang memiliki familiar C / C + + gaya notasi. Sun Microsystems merilis implementasi publik pertama sebagai Java 1.0 pada tahun 1995. Ini menjanjikan "Write Setelah, Run Anywhere" (WORA), memberikan tanpa biaya-run-kali pada platform populer. Cukup aman dan menampilkan keamanan dikonfigurasi, ini memungkinkan pembatasan jaringan dan akses file. Web browser utama segera dimasukkan kemampuan untuk menjalankan applet Java dalam halaman web, dan Jawa dengan cepat menjadi populer. Pada tahun 2006, untuk tujuan pemasaran, Sun berganti nama menjadi versi J2 baru sebagai Java EE, Java ME, dan Java SE, masing-masing.
Sondag 08 Desember 2013
quiss no 1
Penggunaan LISTVIEW

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RancangTabel()
K_barang.Items.Add("TS001")
K_barang.Items.Add("TS002")
K_barang.Items.Add("VG001")
K_barang.Items.Add("VG002")
N_pembelian.Focus()
End Sub
Sub RancangTabel()
Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
Lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
Lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub hapus()
N_pembelian.text = ""
K_barang.text = ""
N_barang.text = ""
Merk.text = ""
Harga.text = ""
J_beli.text = ""
T_harga.text = ""
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = N_pembelian.Text
Lst.SubItems.Add(K_barang.Text)
Lst.SubItems.Add(N_barang.Text)
Lst.SubItems.Add(Merk.Text)
Lst.SubItems.Add(Harga.Text)
Lst.SubItems.Add(J_beli.Text)
Lst.SubItems.Add(T_harga.Text)
lv.Items.Add(Lst)
End Sub
Private Sub K_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_barang.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(K_barang.Text, 2)
If x = "TS" Then
Merk.Text = "TOSHIBA"
ElseIf x = "VG" Then
Merk.Text = "V-GEN"
End If
Dim y As String
y = Microsoft.VisualBasic.Mid(K_barang.Text, 3)
If y = "001" Then
N_barang.Text = "FLASHDISK 4GB"
ElseIf y = "002" Then
N_barang.Text = "FLASHDISK 2GB"
End If
Dim z As String
z = Microsoft.VisualBasic.Left(K_barang.Text, 5)
If z = "TS001" Then
Harga.Text = "105000"
ElseIf z = "TS002" Then
Harga.Text = "75000"
ElseIf z = "VG001" Then
Harga.Text = "90000"
ElseIf z = "VG002" Then
Harga.Text = "60000"
End If
End Sub
Private Sub J_beli_Keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles J_beli.KeyPress
If e.KeyChar = Chr(13) Then
T_harga.Text = Val(Harga.Text) * J_beli.Text
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
RancangTabel()
IsiTabel()
N_pembelian.Focus()
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
Lv.Items.Clear()
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
N_pembelian.Text = ""
K_barang.Text = ""
N_barang.Text = ""
Merk.Text = ""
Harga.Text = ""
J_beli.Text = ""
T_harga.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Nama : dewi jelita Hutasoit
Npm : 12110594
kelas : TI-P1206

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RancangTabel()
K_barang.Items.Add("TS001")
K_barang.Items.Add("TS002")
K_barang.Items.Add("VG001")
K_barang.Items.Add("VG002")
N_pembelian.Focus()
End Sub
Sub RancangTabel()
Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
Lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
Lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub hapus()
N_pembelian.text = ""
K_barang.text = ""
N_barang.text = ""
Merk.text = ""
Harga.text = ""
J_beli.text = ""
T_harga.text = ""
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = N_pembelian.Text
Lst.SubItems.Add(K_barang.Text)
Lst.SubItems.Add(N_barang.Text)
Lst.SubItems.Add(Merk.Text)
Lst.SubItems.Add(Harga.Text)
Lst.SubItems.Add(J_beli.Text)
Lst.SubItems.Add(T_harga.Text)
lv.Items.Add(Lst)
End Sub
Private Sub K_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_barang.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(K_barang.Text, 2)
If x = "TS" Then
Merk.Text = "TOSHIBA"
ElseIf x = "VG" Then
Merk.Text = "V-GEN"
End If
Dim y As String
y = Microsoft.VisualBasic.Mid(K_barang.Text, 3)
If y = "001" Then
N_barang.Text = "FLASHDISK 4GB"
ElseIf y = "002" Then
N_barang.Text = "FLASHDISK 2GB"
End If
Dim z As String
z = Microsoft.VisualBasic.Left(K_barang.Text, 5)
If z = "TS001" Then
Harga.Text = "105000"
ElseIf z = "TS002" Then
Harga.Text = "75000"
ElseIf z = "VG001" Then
Harga.Text = "90000"
ElseIf z = "VG002" Then
Harga.Text = "60000"
End If
End Sub
Private Sub J_beli_Keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles J_beli.KeyPress
If e.KeyChar = Chr(13) Then
T_harga.Text = Val(Harga.Text) * J_beli.Text
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
RancangTabel()
IsiTabel()
N_pembelian.Focus()
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
Lv.Items.Clear()
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
N_pembelian.Text = ""
K_barang.Text = ""
N_barang.Text = ""
Merk.Text = ""
Harga.Text = ""
J_beli.Text = ""
T_harga.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Nama : dewi jelita Hutasoit
Npm : 12110594
kelas : TI-P1206
Vrydag 15 November 2013
contoh program matakuliah
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13111000")
npm.Items.Add("13111011")
npm.Items.Add("13112011")
For x = 1 To 3
kode_dosen.Items.Add("KD0" & x)
Next
For x = 11 To 13
kode_matkul.Items.Add("KM" & x)
Next
Dim i As Integer
For i = 0 To 100 Step +5
nilai_tugas.Items.Add(i)
nilai_uts.Items.Add(i)
nilai_uas.Items.Add(i)
Next i
Dim j As Integer
For j = 0 To 100
nilai_hadir.Items.Add(j)
Next j
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(npm.Text, 1)
If x = "0" Then
jenjang.Text = "S1"
ElseIf x = "1" Then
jenjang.Text = "D3"
Else
jenjang.Text = "D1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "10" Then
jurusan.Text = "Teknik Informatika"
ElseIf x = "11" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "12" Then
jurusan.Text = "Manajemen"
Else
jurusan.Text = "-"
End If
Select Case npm.Text
Case "13111000"
nama.Text = "Doni M"
Case "13111011"
nama.Text = "Hendra S"
Case "13112011"
nama.Text = "Atika"
Case Else
nama.Text = "-"
End Select
End Sub
Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged
Dim y As String
y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
If y = "11" Then
nama_matkul.Text = "Pemograman Visual"
ElseIf y = "12" Then
nama_matkul.Text = "Arsitektur Informasi"
ElseIf y = "13" Then
nama_matkul.Text = "Struktur Data"
End If
End Sub
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
Dim z As String
z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
If z = "01" Then
nama_dosen.Text = "Mesran S.Kom, M.Kom"
ElseIf z = "02" Then
nama_dosen.Text = "Sony Bahagia S.Kom"
ElseIf z = "03" Then
nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
End If
End Sub
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
If nilai_akhir.Text >= 60 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAL"
End If
Select Case nilai_akhir.Text
Case Is >= 80
nilai_hurf.Text = "A"
Case 70 To 79
nilai_hurf.Text = "B"
Case 60 To 69
nilai_hurf.Text = "C"
Case 50 To 59
nilai_hurf.Text = "D"
Case Is <= 49
nilai_hurf.Text = "E"
End Select
End Sub
Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kode_dosen.Text = ""
nama_dosen.Text = ""
kode_matkul.Text = ""
nama_matkul.Text = ""
nilai_hadir.Text = ""
nilai_tugas.Text = ""
nilai_uts.Text = ""
nilai_uas.Text = ""
nilai_akhir.Text = ""
nilai_hurf.Text = ""
keterangan.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Me.Close()
End Sub
End Class
Hasil Programnya adalah :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13111000")
npm.Items.Add("13111011")
npm.Items.Add("13112011")
For x = 1 To 3
kode_dosen.Items.Add("KD0" & x)
Next
For x = 11 To 13
kode_matkul.Items.Add("KM" & x)
Next
Dim i As Integer
For i = 0 To 100 Step +5
nilai_tugas.Items.Add(i)
nilai_uts.Items.Add(i)
nilai_uas.Items.Add(i)
Next i
Dim j As Integer
For j = 0 To 100
nilai_hadir.Items.Add(j)
Next j
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(npm.Text, 1)
If x = "0" Then
jenjang.Text = "S1"
ElseIf x = "1" Then
jenjang.Text = "D3"
Else
jenjang.Text = "D1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "10" Then
jurusan.Text = "Teknik Informatika"
ElseIf x = "11" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "12" Then
jurusan.Text = "Manajemen"
Else
jurusan.Text = "-"
End If
Select Case npm.Text
Case "13111000"
nama.Text = "Doni M"
Case "13111011"
nama.Text = "Hendra S"
Case "13112011"
nama.Text = "Atika"
Case Else
nama.Text = "-"
End Select
End Sub
Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged
Dim y As String
y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
If y = "11" Then
nama_matkul.Text = "Pemograman Visual"
ElseIf y = "12" Then
nama_matkul.Text = "Arsitektur Informasi"
ElseIf y = "13" Then
nama_matkul.Text = "Struktur Data"
End If
End Sub
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
Dim z As String
z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
If z = "01" Then
nama_dosen.Text = "Mesran S.Kom, M.Kom"
ElseIf z = "02" Then
nama_dosen.Text = "Sony Bahagia S.Kom"
ElseIf z = "03" Then
nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
End If
End Sub
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
If nilai_akhir.Text >= 60 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAL"
End If
Select Case nilai_akhir.Text
Case Is >= 80
nilai_hurf.Text = "A"
Case 70 To 79
nilai_hurf.Text = "B"
Case 60 To 69
nilai_hurf.Text = "C"
Case 50 To 59
nilai_hurf.Text = "D"
Case Is <= 49
nilai_hurf.Text = "E"
End Select
End Sub
Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kode_dosen.Text = ""
nama_dosen.Text = ""
kode_matkul.Text = ""
nama_matkul.Text = ""
nilai_hadir.Text = ""
nilai_tugas.Text = ""
nilai_uts.Text = ""
nilai_uas.Text = ""
nilai_akhir.Text = ""
nilai_hurf.Text = ""
keterangan.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Me.Close()
End Sub
End Class
Hasil Programnya adalah :
Dinsdag 08 Oktober 2013
tak mau pergi
Lirik Lagu Rija Abbas (Ex Rumor) - Tak Mau Pergi
Aku tak ingin menyesal lagi
Seperti dulu yang pernah ku alami
Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini
Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan kekasih yang tulus mencintaiku
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu
Seperti manusia lemah yang berharap
Kau terima cintanya
Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini
Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan wanita yang tulus mencintaiku
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah
Seperti manusia lemah yang berharap
Aku tak ingin menyesal lagi
Seperti dulu yang pernah ku alami
Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini
Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan kekasih yang tulus mencintaiku
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu
Seperti manusia lemah yang berharap
Kau terima cintanya
Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini
Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan wanita yang tulus mencintaiku
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah
Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah
Seperti manusia lemah yang berharap
Kau terima cintanya
Teken in op:
Plasings (Atom)