Pengertian HTML
HTML atau HyperText Markup Language adalah sebuah bahasa pemrograman yang digunakan untuk membuat sebuah website sehingga dari halaman website tersebut dapat menampilkan informasi yang berguna bagi para pengguna internet.
Baca Juga: Pengertian dan Fungsi HTML (Hypertext Markup Language)
HTML Versi 4.0 dan Seterusnya
HTML 4.0 sebuah bahasa pemrograman web yang diperkenalkan oleh World Wide Web Consortium (W3C) pada bulan Desember tahun 1997, yang antara lain menyertakan fitur CSS (Cascading Style Sheets), yang mendukung pembuatan aplikasi yang dinamis. HTML menjadi sangat fenomenal karena banyak orang yang mulai menggunakan HTML.
Tahun 1999 muncul HTML 4.1. Setelah kemunculan HTML 4.1, XHTML 1 lahir. Secara prinsip spesifikasi pada XHTML sama seperti pada HTML 4.01. Hal yang membedakan adalah sintaks bahasanya. XHTML menerapkan aturan yang lebih ketat daripada HTML, yakni mengharuskan pembuat dokumen harus mengikuti aturan XML (eXtended Markup Language). Selain itu, dalam penulisan dokumen semua tag dan atribut dalam dokumen harus ditulis dengan menggunakan huruf kecil, sementara pada HTML, tag dan atribut boleh ditulis dengan huruf capital, huruf kecil, ataupun kombinasi. XHTML 1.0 diteruskan dengan XHTML 2.0. Namun, versi yang terbaru ini kurang mendapat tanggapan dari para vendor.
Baca Juga: Pengertian Website dan Sejarah Website
HTML Versi 5 (HTML5)
HTML5 (angka 5 dan HTML tidak dipisahkan oleh spasi) dikembangkan oleh badan lain yaitu WHATMG (Web Hypertext Application Technology Working Group). Spesifikasi HTML5 belum final saat ini, tetapi diyakini oleh banyak orang akan menjadi standar yang diterima di masa depan. Walaupun belum final, HTML5 telah menebar pesona. Beberapa browser (lihat Tabel 1.1) sudah mendukung HTML5.
Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan
Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan
Jumat, 19 Agustus 2016
Senin, 15 Agustus 2016
Pengertian Web Master dan Tugas seorang Web Master
Pengertian Web Master
Web Master adalah sebuah pekerjaan yang mengharuskan sesorang untuk mengerti akan semua hal mulai dari desain dari sebuah website, program dari sebuah web dan keamanan server akan tetapi tidak terlalu mencampuri masing-masing divisi dari sebuah website, yaitu cukup dengan mempertanggung jawabkan atas jalannya sebuah website. menjadi seorang web master juga harus mengetahui informasi dari semua website sehingga jika terjadi masalah dalam website tersebut dapat segera ditangani.
Baca Juga: Pengertian dan Tugas Web Administrator
Tugas Seorang Web Master
Pada dasarnya seorang web master bertugas untuk menjaga jalannya sebuah website. Lancar da tidaknys sebuah website akan menjadi tanggung jawab penuh oleh seorang web master. Web master akan segera memperbaiki coding dari sebuah website apabila ada link dari website yang mengalami kerusakan. Selain itu seorang web master juga harus menjaga keamanan / security dari sebuah website tersebut.
Baca Juga: Pengertian dan Tugas Sebagai Web Programmer
Untuk menjadi seorang web master profesional sesorang harus menguasahi ilmu dasar tentang komputer dan pemrograman diantaranya:
Web Master adalah sebuah pekerjaan yang mengharuskan sesorang untuk mengerti akan semua hal mulai dari desain dari sebuah website, program dari sebuah web dan keamanan server akan tetapi tidak terlalu mencampuri masing-masing divisi dari sebuah website, yaitu cukup dengan mempertanggung jawabkan atas jalannya sebuah website. menjadi seorang web master juga harus mengetahui informasi dari semua website sehingga jika terjadi masalah dalam website tersebut dapat segera ditangani.
Baca Juga: Pengertian dan Tugas Web Administrator
Tugas Seorang Web Master
Pada dasarnya seorang web master bertugas untuk menjaga jalannya sebuah website. Lancar da tidaknys sebuah website akan menjadi tanggung jawab penuh oleh seorang web master. Web master akan segera memperbaiki coding dari sebuah website apabila ada link dari website yang mengalami kerusakan. Selain itu seorang web master juga harus menjaga keamanan / security dari sebuah website tersebut.
Baca Juga: Pengertian dan Tugas Sebagai Web Programmer
Untuk menjadi seorang web master profesional sesorang harus menguasahi ilmu dasar tentang komputer dan pemrograman diantaranya:
- HTML, DHTML
- CGI Perl, PHP, MySQL, ASP, Java
- Penguasaan terhadap macam - macam Sistem Operasi Komputer baik server maupun client
- Kemanan Server
- Jaringan Komputer (LAN, WAN dan Internet)
Sabtu, 13 Agustus 2016
Pengertian dan Tugas Web Administrator
Pengertian Web Administrator
Web Administrator adalah sebuah pekerjaan yang memfokuskan diri untuk memperbaiki sebuah server baik itu instalasi sampai dengan masalah trobleshooting pada komputer server. Web Administrator akan menjaga kelangsungan dan kelancaran dari server untuk tetap bisa berjalan sehingga jika terjadi problem/masalah pada server, web administrator harus siap untuk memperbaikinya.
Baca Juga: Pengertian dan Tugas Sebagai Web Programmer
Tugas Web Administrator
Seorang Web Administrator bertugas untuk memaintenance atau memperbaiki suatu server, mengerti akan sistem operasi server baik instalasi sampai trobleshooting (masalah). Untuk itu seorang web administrator harus benar - benar siap kapan saja.
Baca Juga: Pengertian Web Designer dan Syarat Untuk Menjadi Web Designer Profesional
Keahlian yang harus dikuasai sebagai Web Administrator
Untuk memaksimalkan pekerjaannya seorang web administrator harus menguasahi beberapa hal, diantaranya:
Web Administrator adalah sebuah pekerjaan yang memfokuskan diri untuk memperbaiki sebuah server baik itu instalasi sampai dengan masalah trobleshooting pada komputer server. Web Administrator akan menjaga kelangsungan dan kelancaran dari server untuk tetap bisa berjalan sehingga jika terjadi problem/masalah pada server, web administrator harus siap untuk memperbaikinya.
Baca Juga: Pengertian dan Tugas Sebagai Web Programmer
Tugas Web Administrator
Seorang Web Administrator bertugas untuk memaintenance atau memperbaiki suatu server, mengerti akan sistem operasi server baik instalasi sampai trobleshooting (masalah). Untuk itu seorang web administrator harus benar - benar siap kapan saja.
Baca Juga: Pengertian Web Designer dan Syarat Untuk Menjadi Web Designer Profesional
Keahlian yang harus dikuasai sebagai Web Administrator
Untuk memaksimalkan pekerjaannya seorang web administrator harus menguasahi beberapa hal, diantaranya:
- OS Unix (LInux, FreeBSD, dll) - Seorang web administrator harus menguasahi macam-macam sistem operasi basis linux, baik itu instalasi maupun trobleshootingnya.
- OS NT - Seorang web administrator harus menguasahi macam-macam sistem operasi basis windows, baik itu instalasi maupun trobleshootingnya.
- Jaringan (LAN, WAN, Intranet) - Seorang web administrator harus mempunyai bekal pengetahuan bidang jaringan komputer
- Keamanan Server - Seorang web administrator harus paham tentang sistem sekurity dan keamanan pada server
Pengertian dan Tugas Sebagai Web Programmer
Pengertian Web Programmer
Web programmer adalah sebuah pekerjaan dalam bidang teknologi informasi yang mana didalam pekerjaan tersebut seorang web programmer akan melakukan pengcodingan dan pemrograman sebuah website. Web Programmer akan membuat script atau coding untuk membuat halaman web akan terlihat lebih dinamis dan menarik. Sebuah website yang biasa akan terlihat sangat membosankan dengan tampilan yang standart untuk itu web programmer akan membuat coding agar website yang diciptakan terlihat lebih dinamis.
Tugas Seorang Web Programmer
Web Programmer adalah orang yang bertugas melakukan pengcodingan dan pemrograman sebuah website agar terlihan lebih dinamis dan agar web tersebut dapat terlihat mudah bagi seorang web admin. Jika situs yang akan dibuat mempunya fasilitas interaksi antara pengunjung dan situs misalnya menyangkut dengan transaksi, input output data dan database maka seorang Web Programmer yang akan mengerjakannya dengan membuat aplikasi-aplikasi yang berkerja diatas situs (web).
Baca Juga: Pengertian Web Designer dan Syarat Untuk Menjadi Web Designer
Ilmu yang harus dikuasai orang seorang web programmer
Untuk menjadi seorang web programmer profesional seorang web programmer harus menguasahi dasar-dasar ilmu komputer dan pemrograman yaitu:
Web programmer adalah sebuah pekerjaan dalam bidang teknologi informasi yang mana didalam pekerjaan tersebut seorang web programmer akan melakukan pengcodingan dan pemrograman sebuah website. Web Programmer akan membuat script atau coding untuk membuat halaman web akan terlihat lebih dinamis dan menarik. Sebuah website yang biasa akan terlihat sangat membosankan dengan tampilan yang standart untuk itu web programmer akan membuat coding agar website yang diciptakan terlihat lebih dinamis.
Tugas Seorang Web Programmer
Web Programmer adalah orang yang bertugas melakukan pengcodingan dan pemrograman sebuah website agar terlihan lebih dinamis dan agar web tersebut dapat terlihat mudah bagi seorang web admin. Jika situs yang akan dibuat mempunya fasilitas interaksi antara pengunjung dan situs misalnya menyangkut dengan transaksi, input output data dan database maka seorang Web Programmer yang akan mengerjakannya dengan membuat aplikasi-aplikasi yang berkerja diatas situs (web).
Baca Juga: Pengertian Web Designer dan Syarat Untuk Menjadi Web Designer
Ilmu yang harus dikuasai orang seorang web programmer
Untuk menjadi seorang web programmer profesional seorang web programmer harus menguasahi dasar-dasar ilmu komputer dan pemrograman yaitu:
- CGI Perl, PHP, MySQL (Unix base)
- ASP (NT base)
- Java Script dan Applet
Senin, 11 April 2016
Pengertian dan Fungsi HTML (HyperText Markup Language)
Pengertian HTML (HyperText Markup Language)
HTML atau HyperText Markup Language adalah sebuah bahasa pemrograman yang digunakan untuk membuat sebuah website sehingga dari halaman website tersebut dapat menampilkan informasi yang berguna bagi para pengguna internet.
HTML sendiri terdiri dari komponen beberapa script yang terbentuk menjadi sebuh tag penyusun dokumen html. Untuk dapat belajar HTML memang gampang-gampang susah karena jika terjadi salah pengetikan sedikit saja maka akan mengalami eror pada dokumen tersebut.
HTML tersusun dari kumpulan text yang disertai dengan link sehingga memudahkan pengguna dalam mengakses sebuah informasi. Dengan HTML kita bisa mengatur model tulisan, header pada web, body bahkan isi dari sebuah website.
Baca Juga: Pengertian dan Fungsi Domain
Fungsi HTML (Hypertext markup Language)
HTML berfungsi untuk mengelola, menghubungkan, menampilkan serangkaian informasi dan data sehingga dokumen-dokumen tersebut mudah untuk diakses melalui jaringan internet. Selain itu fungsi utama dari HTML itu sendiri adalah sebagai berikut:
HTML atau HyperText Markup Language adalah sebuah bahasa pemrograman yang digunakan untuk membuat sebuah website sehingga dari halaman website tersebut dapat menampilkan informasi yang berguna bagi para pengguna internet.
HTML sendiri terdiri dari komponen beberapa script yang terbentuk menjadi sebuh tag penyusun dokumen html. Untuk dapat belajar HTML memang gampang-gampang susah karena jika terjadi salah pengetikan sedikit saja maka akan mengalami eror pada dokumen tersebut.
HTML tersusun dari kumpulan text yang disertai dengan link sehingga memudahkan pengguna dalam mengakses sebuah informasi. Dengan HTML kita bisa mengatur model tulisan, header pada web, body bahkan isi dari sebuah website.
Baca Juga: Pengertian dan Fungsi Domain
Fungsi HTML (Hypertext markup Language)
HTML berfungsi untuk mengelola, menghubungkan, menampilkan serangkaian informasi dan data sehingga dokumen-dokumen tersebut mudah untuk diakses melalui jaringan internet. Selain itu fungsi utama dari HTML itu sendiri adalah sebagai berikut:
- Berfungsi untuk membuat halaman sebuah website
- Berfungsi untuk menampilkan informasi dari database ke dalam sebuah browser
- Berfungsi untuk menghubungkan link ke halaman lain di dalam sebuah website dengan menggunakan kode tertentu (hypertext)
Rabu, 06 Januari 2016
Langkah Membuat Website Pertama
Setelah pada artikel sebelumnya, penulis sudah Memperkenalkan HTML, kali ini kita akan belajar membuat website pertama menggunakan HTML. Teman-teman tentu sudah tidak sabar untuk membuat website pertama. Baiklah, ikuti langkah-langkah berikut ini :
Membuat Website Pertama Menggunakan HTML
- Buka Notepad++ dengan cara klik Start --> All Programs --> Notepad ++ --> Notepad ++
- Kemudian ketikan nama kalian, sebagai contoh penulis akan menuliskan TutorialKomputerLengkap.Com
Tampilan Notepad ++ - Simpan halaman tulisan tadi dengan menekan CTRL + S, kemudian simpan menggunakan extensi *.html. Agar lebih mudah, penulis menganjurkan teman-teman untuk menyimpanya di dekstop.
- Coba buka file yang sudah dibuat tadi menggunakan Web Browser, dan akan muncul tulisan yang diketikan pada notepad tadi.
Cukup sekian dulu tutorial kali ini, nantikan tutorial selanjutnya...
Halaman Utama Belajar Bahasa Pemrograman
Pengertian HTML, Mengenal Lebih Jauh Tentang HTML
Pengertian HTML
Hyper Text Markup Language (HTML) adalah sebuah bahasa markah yang digunakan untuk membuat sebuah halaman web, menampilkan berbagai informasi di dalam sebuah penjelajah web Internet dan pemformatan hiperteks sederhana yang ditulis dalam berkas format ASCII agar dapat menghasilkan tampilan wujud yang terintegerasi. Jadi HTML bukan sebuah bahasa pemrograman, HTML hanya bahasa untuk memberi format pada teks dan bentuk dari elemen website agar dapat tampil sedemikian rupa.
Lebih Lanjut Tentang HTML
Untuk mengetahui lebih lanjut tentang HTML, coba buka web tutorialkomputerlengkap.com, kemudian klik kanan klik Inspeksi Elemen. Selanjutnya akan muncul script html seperti pada gambar dibawah ini
| Elemen HTML |
Coba perhatikan pada baris pertama terdapat script <!DOCTYPE HTML>. Itu menandakan bahwa halaman yang sedang kita buka adalah halaman HTML.
Kemudian pada baris kedua terdapat script <HTML> itu juga menandakan bahwa itu adalah halaman HTML.
Kemudian pada baris dibawahnya adalah isi dari HTML tersebut. Didalamnya terdapat tag-tag atau perintah yang digunakan untuk memberikan pemformatan pada isi website, seperti pemberian format teks, pemberian format gambar, menetukan background, sampai dengan membuat menu.
Jangan pedulikan script diatas, script itu terlalu rumit untuk saat ini. Tetapi pelan-pelan kita akan mempelajarinya sampai bisa membuat seperti yang diatas.
Selasa, 05 Januari 2016
Yang Harus Dipersiapkan Untuk Belajar Pemrograman Web
Sebelum mempelajari pemrograman web ada beberapa tools yang harus dipersiapkan, guna menunjang pembelajaran, antara lain dibawah ini :
Tools Yang Harus Dipersiapkan Untuk Belajar Web
1. Web Browser
![]() |
| Mozilla Firefox |
Hal yang harus disediakan adalah Web Browser, web browser digunakan untuk melakukan pengetesan terhadap halaman web yang telah dibuat. Sebenarnya di windows sendiri sudah ada web browser bawaan yaitu Internet Explorer. Tetapi penulis tidak menganjurkan teman-teman untuk menggunakan Internet Explorer, karena web browser ini kurang lengkap. Beberapa web browser yang penulis rekomendasikan antara lain :
- Mozilla Firefox
- Chrome
- Safari
2. Text Editor
![]() |
| Notepad ++ |
Sebenarnya ada cara mudah untuk membuat website yaitu menggunakan aplikasi yang sudah didesain untuk membuat desain, seperti Dreamwaver. Tetapi untuk lebih memahami script yang ditulis, penulis menyarankan untuk menggunakan text editor terlebih dahulu. Text editor sangat penting untuk membantu dalam memahami script. Karena jika menggunakan text editor setiap tag atau perintah diketikan, jadi secara tidak langsung ini akan membantu dalam pemahaman dan penyelesian masalah. Beberapa text edito yang penulis sarankan adalah :
- Notepad ++
- Sublime Text
3. Localhost
![]() |
| XAMPP |
Localhost digunakan untuk menjalankan server didalam komputer kita. Localhost berguna untuk menguji bahasa pemrograman yang berjalan disisi server serperti PHP. Sebenarnya, untuk belajar HTML dan CSS, kita belum membutuhkan ini. Kita akan memakai Localhost ketika mulai mempelajari bahasa pemrograman PHP. Localhost yang penulis sarankan adalah XAMPP. Penulis sendiri belum pernah menggunakan localhost selain XAMPP. Alasan penulis menggunakanya adalah karena tools yang satu ini sudah sangat lengkap, bahkan sudah mendukung MySQL. Paket yang disediakan XAMPP sudah lebih dari cukup untuk belajar pemrograman web.
Itulah Tools Yang Harus Dipersiapkan Sebelum Belajar Pemrograman Web. Untuk teman-teman yang akan belajar website, silahkan dipersiapkan tools-tools diatas. Jika tidak ada halangan, penulis juga akan membuat artikel tentang Tutorial Belajar Website Dari Nol. Sekian dan terima kasih.
Baca Juga :
5 Hal Ini Menjadi Penyebab Harddisk Rusak
Perlu Diketahui 5 Hal Ini Menjadi Penyebab Laptop Lemot
5 Cara Mengatasi Komputer Lemot Dengan Mudah
Beragam Cara Cari Uang Di Internet Lewat Blog Gratisan Yang Sudah Terbukti
Linux Vs Windows, Mana Yang Menurutmu Lebih Baik?
Rekomendasi Bahasa Pemrograman Yang Mudah Dipelajari Pemula
Perlu Diketahui 5 Hal Ini Menjadi Penyebab Laptop Lemot
5 Cara Mengatasi Komputer Lemot Dengan Mudah
Beragam Cara Cari Uang Di Internet Lewat Blog Gratisan Yang Sudah Terbukti
Linux Vs Windows, Mana Yang Menurutmu Lebih Baik?
Rekomendasi Bahasa Pemrograman Yang Mudah Dipelajari Pemula
Rekomendasi Bahasa Pemrograman Yang Mudah Dipelajari Pemula
Bahasa pemrograman adalah sebuah bahasa yang digunakan didalam komputer untuk memberikan perintah atau intruksi kepada komputer untuk melakukan hal tertentu. Dengan bahasa pemrograman kita dapat memerintahkan komputer untuk melakukan suatu pekerjaan, misalnya perhitungan atau membuat data. Dengan bahasa pemrograman kita juga dapat membuat aplikasi sendiri, seperti aplikasi kalkulator, penghitungan gaji, sampai pembuatan data karyawan.
Ada banyak jenis bahasa pemrograman yang dapat digunakan di komputer, masing-masing memiliki fungsi dan kelebihan serta kekuranganya sendiri. Saat ini penulis tidak akan membahas terlalu jauh tentang fungsi bahasa pemrograman. Penulis akan memberikan rekomendasi bahasa pemrograman yang mudah dipelajari, terutama untuk pemula. Berikut listnya
Rekomendasi Bahasa Pemrograman Untuk Pemula
1. Bahasa Pascal
Pertama kali penulis diajarkan bahasa pemrograman dikampus adalah bahasa pascal. Bahasa pascal dipilih sebagai pengantar karena mudah dipahami, syntax-syntaxnya juga seperti menggunakan bahasa inggris sehingga lebih mudah dipahami. Bagi teman-teman yang baru mengenal dunia pemroggraman, penulis sarankan untuk belajar bahasa ini terlebih dahulu. Aplikasi yang penulis gunakan untuk belajar bahasa ini adalah Turbo Pascal.
2. Bahasa Java
Bahasa Java adalah bahasa pemrograman yang paling banyak digunakan saat ini. Bahasa Java banyak digunakan untuk membuat aplikasi berbasis mobile. Seiring dengan semakin Boomingnya Android, bahasa ini makin banyak diminati orang untuk membuat aplikasi android. Bagi teman-teman yang tertarik untuk belajar membuat aplikasi android, bisa langsung mencoba mempelajari bahasa Java.
3. Bahasa C/C++
Jika berbicara mengenai bahasa pemrograman C atau C++ ini adalah salah satu bahasa yang juga tidak kalah saing mengenai penggunaan dari para programmer dunia. C++ sendiri merupakan pengembangan atau bisa dibilang turunan dari basa C itu sendiri, jika kita melihat syntax-syntax dari PHP maka akan mirip sekali dengan bahasa C itu sendiri, benar demikian, karena bahasa pemrograman PHP juga dikembangkan atau merupakan turunan dari bahasa C.
4. Bahasa PHP
Pertama kali penulis mengenal pemrogaman adalah pemrograman web, dengan bahasa pemrograman yang digunakan adalah bahasa PHP. PHP sendiri merupakan bahasa pemrograman yang berjalan disisi server, sehingga pengguna tidak akan melihat script ini. Bagi teman-teman yang ingin belajar membuat website, bisa mempelajari bahasa PHP ini, untuk membuat website menjadi dinamis dan pembaharuan konten menjadi lebih mudah.
5. Bahasa Basic
Bahasa Basic adalah bahasa pemrograman yang digunakan pada aplikasi Visual Basic. Aplikasi Visual Basic sendiri merupakan sebuah aplikasi yang berguna untuk membuat aplikasi baru berbasis dekstop dengan menggunakan bahasa basic sebagai perintahnya. Aplikasi yang dibuat menggunakan Visual Basic berbasis GUI. Bahasa ini juga sangat mudah dipelajari, dan bagi teman-teman yang tertarik untuk membuat aplikasi berbasis dekstop bisa mempelajari bahasa ini.
Untuk memudahkan teman-teman dalam belajar bahasa pemrograman, sebaiknya pelajari terlebih dahulu satu bahasa pemrograman sampai benar-benar mahir, setelah itu barulah mempelajari bahasa pemrograman lainya. Karena setiap bahasa pemrograman memiliki kemiripan dalam penggunaanya.
Itulah 5 Rekomendasi Bahasa Pemrograman Untuk Pemula, semoga membantu.
Baca Juga :
Kamis, 31 Desember 2015
Menggunakan ComboBox Di Visual Basic
Hampir sama dengan Option dan CheckBox, ComboBox juga berfungsi memberikan pilihan. ComboBox hanya mengijinkan user untuk memiliki 1 pilihan. ComboBox memberikan pilihan dalam bentuk list atau daftar, pilihan dilakukan dengan mengklik salah satu daftar tersebut. Baiklah untuk lebih jelasnya, mari kita coba membuat Aplikasi Huruf Mutu Mahasiswa berikut ini
Membuat Aplikasi Huruf Mutu Mahasiswa
1. Buatlah desain aplikasi seperti pada gambar dibawah ini
2. Ganti Properties tools yang telah dibuat menjadi seperti dibawah ini
Tools | Nama | Properties |
Label | Label1 | Caption : HURUF MUTU MAHASISWA |
Label2 | Caption : NPM | |
Label3 | Caption : NAMA MAHASISWA | |
Label4 | Caption : JURUSAN | |
Label5 | Caption : NILAI QUIS | |
Label6 | Caption : NILAI TUGAS | |
Label7 | Caption : UTS | |
Label8 | Caption : UAS | |
Label9 | Caption : NILAI AKHIR | |
Label10 | Caption : HURUF MUTU YANG DIDAPATKAN | |
ComboBox | Combo1 | Name : CboNpm Text : Pilih Npm |
TextBox | Text1 | Name : TxtNama Text : - |
Text2 | Name : TxtJurusan Text : - | |
Text3 | Name : TxtNilaiQuis Text : - | |
Text4 | Name : TxtNilaiTugas Text : - | |
Text5 | Name : TxUts Text : - | |
Text6 | Name : TxtUas Text : - | |
Text7 | Name : TxtNilaiAkhir Text : - | |
Text8 | Name : TxtMutu Text : - | |
Command Button | Command1 | Name : CmdProses Caption : Proses |
Command2 | Name : CmdBatal Caption : Batal | |
Command3 | Name : CmdExit Caption : Exit |
3. Masukan script dibawah ini pada kotak dialog script
Private Sub CboNpm_Click()
Dim Nama, Jurusan As String
Select Case CboNpm.Text
Case "15100001"
Nama = "Stevanus Prihanuji"
Jurusan = "Sistem Informasi"
Case "15100002"
Nama = "Fergiawan Listianto"
Jurusan = "Sistem Informasi"
Case "15100003"
Nama = "Renita Fitri Andriyanti"
Jurusan = "Sistem Informasi"
Case "15100004"
Nama = "Evi Setyorini"
Jurusan = "Sistem Informasi"
Case "15100005"
Nama = "Anggi Maharani"
Jurusan = "Sistem Informasi"
Case "15100006"
Nama = "Oktafiani"
Jurusan = "Sistem Informasi"
Case "15100007"
Nama = "Desi Yulianti"
Jurusan = "Sistem Informasi"
Case "15100008"
Nama = "Ahmad Yudi"
Jurusan = "Sistem Informasi"
Case "15100009"
Nama = "Opi Laraswati"
Jurusan = "Sistem Informasi"
Case "15100010"
Nama = "Laili Rizkia Putri"
Jurusan = "Sistem Informasi"
Case "15100011"
Nama = "Tia Anggraeni"
Jurusan = "Sistem Informasi"
Case "15100012"
Nama = "Fisuryani"
Jurusan = "Sistem Informasi"
Case "15100014"
Nama = "Ita Indriyani"
Jurusan = "Sistem Informasi"
Case "15100015"
Nama = "M Arif Rizki"
Jurusan = "Sistem Informasi"
Case "15100016"
Nama = "Mirzon Prananda"
Jurusan = "Sistem Informasi"
Case "15100017"
Nama = "Desi Auliani"
Jurusan = "Sistem Informasi"
Case "15100018"
Nama = "Tri Setia Ningsih"
Jurusan = "Sistem Informasi"
Case "15100023"
Nama = "Anggun Destriyanti"
Jurusan = "Sistem Informasi"
Case "15100024"
Nama = "Rizah Anggraeni"
Jurusan = "Sistem Informasi"
Case "15100025"
Nama = "Rahmat Darmawan"
Jurusan = "Sistem Informasi"
Case "15100026"
Nama = "Reza Anggara"
Jurusan = "Sistem Informasi"
Case "15100027"
Nama = "Rio Adi Pradhana"
Jurusan = "Sistem Informasi"
Case "15100030"
Nama = "Hermin Sukmiati"
Jurusan = "Sistem Informasi"
Case "15100031"
Nama = "Artika Kustriyani"
Jurusan = "Sistem Informasi"
Case "15100032"
Nama = "Intan Ratnasari"
Jurusan = "Manajemen Informatika"
Case "15100033"
Nama = "Dona Ari Wijaya"
Jurusan = "Sistem Informasi"
Case "15100034"
Nama = "Dimas Bima Ananta"
Jurusan = "Sistem Informasi"
Case "15100036"
Nama = ""
Jurusan = "Sistem Informasi"
Case "15100037"
Nama = "Jefri Erlamsyah"
Jurusan = "Sistem Informasi"
Case "15100038"
Nama = "Panji Wahyu Trihantoro"
Jurusan = "Sistem Informasi"
Case "15100039"
Nama = "Yusuf Sugianto"
Jurusan = "Sistem Informasi"
Case "15100040"
Nama = "Bagas Anggara"
Jurusan = "Sistem Informasi"
Case "15100041"
Nama = "Rudi Rizkiyanto"
Jurusan = "Sistem Informasi"
End Select
TxtNama = Nama
TxtJurusan = Jurusan
TxtNilaiQuis.SetFocus
End Sub
Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = ""
TxtNama.Text = ""
TxtJurusan.Text = ""
TxtNilaiQuis.Text = ""
TxtNilaiTugas.Text = ""
TxtUts.Text = ""
TxtUas.Text = ""
TxtNilaiAkhir.Text = ""
TxtMutu.Text = ""
TxtNilaiAkhir.BackColor = vbWhite
TxtMutu.BackColor = vbWhite
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdProses_Click()
Dim NA As Integer
Dim Mutu As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
Select Case TxtNilaiAkhir.Text
Case Is > 80
Mutu = "A"
Case Is > 70
Mutu = "B"
Case Is > 60
Mutu = "C"
Case Is > 50
Mutu = "D"
Case Is < 50
Mutu = "E"
End Select
TxtMutu = Mutu
TxtNilaiAkhir.BackColor = vbRed
TxtMutu.BackColor = vbRed
End Sub
Private Sub Form_Load()
CboNpm.AddItem "15100001"
CboNpm.AddItem "15100002"
CboNpm.AddItem "15100003"
CboNpm.AddItem "15100004"
CboNpm.AddItem "15100005"
CboNpm.AddItem "15100006"
CboNpm.AddItem "15100007"
CboNpm.AddItem "15100008"
CboNpm.AddItem "15100009"
CboNpm.AddItem "15100010"
CboNpm.AddItem "15100011"
CboNpm.AddItem "15100012"
CboNpm.AddItem "15100014"
CboNpm.AddItem "15100015"
CboNpm.AddItem "15100016"
CboNpm.AddItem "15100017"
CboNpm.AddItem "15100018"
CboNpm.AddItem "15100023"
CboNpm.AddItem "15100024"
CboNpm.AddItem "15100025"
CboNpm.AddItem "15100026"
CboNpm.AddItem "15100027"
CboNpm.AddItem "15100030"
CboNpm.AddItem "15100031"
CboNpm.AddItem "15100032"
CboNpm.AddItem "15100033"
CboNpm.AddItem "15100034"
CboNpm.AddItem "15100036"
CboNpm.AddItem "15100037"
CboNpm.AddItem "15100038"
CboNpm.AddItem "15100039"
CboNpm.AddItem "15100040"
CboNpm.AddItem "15100041"
End Sub
Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub
Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub
Private Sub TxtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim Mutu As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
Select Case TxtNilaiAkhir.Text
Case Is > 80
Mutu = "A"
Case Is > 70
Mutu = "B"
Case Is > 60
Mutu = "C"
Case Is > 50
Mutu = "D"
Case Is < 50
Mutu = "E"
End Select
TxtMutu = Mutu
TxtNilaiAkhir.BackColor = vbRed
TxtMutu.BackColor = vbRed
End If
End Sub
Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub
4. Jalankan aplikasinya dengan menekan F5
Selamat Mencoba
Baca Juga :
Macam Macam Perangkat Keras Yang Wajib Ada Di Komputer Beserta Fungsinya
Macam Macam Perangkat Peripheral Komputer Beserta Fungsinya
Macam Macam Perangkat Keras Jaringan Komputer Yang Wajib Diketahui
3 Jenis Kabel Jaringan Komputer Yang Sering Digunakan
Menggunakan Option Dan Check Box Di Visual Basic
Apa Perbedaan Antara Internet, Intranet Dan Ekstranet?
3 Situs Belajar Pemrograman Web Gratis Yang Bakal Membuatmu Handal
5 Distro Linux Terbaik Yang Wajib Dicoba
4 Alasan Kenapa Kamu Harus Migrasi Ke Linux
Macam Macam Perangkat Peripheral Komputer Beserta Fungsinya
Macam Macam Perangkat Keras Jaringan Komputer Yang Wajib Diketahui
3 Jenis Kabel Jaringan Komputer Yang Sering Digunakan
Menggunakan Option Dan Check Box Di Visual Basic
Apa Perbedaan Antara Internet, Intranet Dan Ekstranet?
3 Situs Belajar Pemrograman Web Gratis Yang Bakal Membuatmu Handal
5 Distro Linux Terbaik Yang Wajib Dicoba
4 Alasan Kenapa Kamu Harus Migrasi Ke Linux
Rabu, 30 Desember 2015
Source Code Aplikasi Data Mahasiswa Dengan Visual Basic
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
Kode = TxtNpm
TahunMasuk = "20" & Left(Kode, 2)
TxtTahunMasuk = TahunMasuk
KodeJurusan = Mid(Kode, 3, 1)
Select Case KodeJurusan
Case "1"
Jurusan = "Sistem Informasi"
Case "2"
Jurusan = "Teknik Informatika"
Case "3"
Jurusan = "Manajemen Informatika"
Case "4"
Jurusan = "Komputer Akuntansi"
End Select
TxtJurusan = Jurusan
KodePrody = Mid(Kode, 4, 2)
Select Case KodePrody
Case "01"
Prody = "Strata Satu"
Case "02"
Prody = "Diplomat Empat"
Case "03"
Prody = "Diplomat Tiga"
Case "04"
Prody = "Diplomat Dua"
End Select
TxtPrody = Prody
NomorUrut = Right(Kode, 3)
TxtNomorUrut = NomorUrut
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
Kode = TxtNpm
TahunMasuk = "20" & Left(Kode, 2)
TxtTahunMasuk = TahunMasuk
KodeJurusan = Mid(Kode, 3, 1)
Select Case KodeJurusan
Case "1"
Jurusan = "Sistem Informasi"
Case "2"
Jurusan = "Teknik Informatika"
Case "3"
Jurusan = "Manajemen Informatika"
Case "4"
Jurusan = "Komputer Akuntansi"
End Select
TxtJurusan = Jurusan
KodePrody = Mid(Kode, 4, 2)
Select Case KodePrody
Case "01"
Prody = "Strata Satu"
Case "02"
Prody = "Diplomat Empat"
Case "03"
Prody = "Diplomat Tiga"
Case "04"
Prody = "Diplomat Dua"
End Select
TxtPrody = Prody
NomorUrut = Right(Kode, 3)
TxtNomorUrut = NomorUrut
End Sub
Source Code Aplikasi Entri Data Penjualan Laptop
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CboKode_Click()
Dim Merk, Harga, Kode As Variant
Kode = Mid(CboKode.Text, 7, 5)
Select Case Kode
Case "MC965"
Merk = "Apple MC965 MacBook Air"
Harga = 12800000
Case "MC966"
Merk = "Apple MC966 MacBook Air"
Harga = 15800000
Case "MC968"
Merk = "Apple MC968 MacBook Air"
Harga = 9900000
Case "MC969"
Merk = "Apple MC969 MacBook Air"
Harga = 11900000
Case "MC700"
Merk = "Apple MC700 MacBook Pro"
Harga = 10800000
Case "MC721"
Merk = "Apple MC721 MacBook Pro"
Harga = 15900000
Case "MC723"
Merk = "Apple MC723 MacBook Pro"
Harga = 19300000
Case "MC724"
Merk = "Apple MC724 MacBook Pro"
Harga = 13700000
Case "MC311"
Merk = "Apple MC311 MacBook Pro"
Harga = 24200000
Case "MC313"
Merk = "Apple MC313 MacBook Pro"
Harga = 11900000
Case "MC314"
Merk = "Apple MC314 MacBook Pro"
Harga = 14700000
Case "MC318"
Merk = "Apple MC318 MacBook Pro"
Harga = 17600000
Case "MC322"
Merk = "Apple MC322 MacBook Pro"
Harga = 21300000
End Select
TxtMerk = Merk
TxtHarga = Harga
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode.Text = "Pilih Kode Laptop"
TxtMerk.Text = ""
TxtHarga.Text = ""
TxtJual.Text = ""
TxtHargaJual.Text = ""
TxtDiskon.Text = ""
TxtTotal.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim HS, Jual, Jumlah, Diskon, Total As Variant
HS = Val(TxtHarga)
Jual = Val(TxtJual)
Jumlah = HS * Jual
TxtHargaJual = Jumlah
Select Case Jumlah
Case Is > 140000000
Diskon = Jumlah * 0.15
Case Is > 135000000
Diskon = Jumlah * 0.1
Case Is > 130000000
Diskon = Jumlah * 0.05
Case Is > 125000000
Diskon = Jumlah * 0.02
Case Is <= 125000000
Diskon = Jumlah * 0
End Select
TxtDiskon = Diskon
Total = Jumlah - Diskon
TxtTotal = Total
End Sub
Private Sub Form_Load()
CboKode.AddItem "Apple MC965 MacBook Air"
CboKode.AddItem "Apple MC966 MacBook Air"
CboKode.AddItem "Apple MC968 MacBook Air"
CboKode.AddItem "Apple MC969 MacBook Air"
CboKode.AddItem "Apple MC700 MacBook Pro"
CboKode.AddItem "Apple MC721 MacBook Pro"
CboKode.AddItem "Apple MC723 MacBook Pro"
CboKode.AddItem "Apple MC724 MacBook Pro"
CboKode.AddItem "Apple MC311 MacBook Pro"
CboKode.AddItem "Apple MC313 MacBook Pro"
CboKode.AddItem "Apple MC314 MacBook Pro"
CboKode.AddItem "Apple MC318 MacBook Pro"
CboKode.AddItem "Apple MC322 MacBook Pro"
End Sub
Kemudian masukan script dibawah ini
Private Sub CboKode_Click()
Dim Merk, Harga, Kode As Variant
Kode = Mid(CboKode.Text, 7, 5)
Select Case Kode
Case "MC965"
Merk = "Apple MC965 MacBook Air"
Harga = 12800000
Case "MC966"
Merk = "Apple MC966 MacBook Air"
Harga = 15800000
Case "MC968"
Merk = "Apple MC968 MacBook Air"
Harga = 9900000
Case "MC969"
Merk = "Apple MC969 MacBook Air"
Harga = 11900000
Case "MC700"
Merk = "Apple MC700 MacBook Pro"
Harga = 10800000
Case "MC721"
Merk = "Apple MC721 MacBook Pro"
Harga = 15900000
Case "MC723"
Merk = "Apple MC723 MacBook Pro"
Harga = 19300000
Case "MC724"
Merk = "Apple MC724 MacBook Pro"
Harga = 13700000
Case "MC311"
Merk = "Apple MC311 MacBook Pro"
Harga = 24200000
Case "MC313"
Merk = "Apple MC313 MacBook Pro"
Harga = 11900000
Case "MC314"
Merk = "Apple MC314 MacBook Pro"
Harga = 14700000
Case "MC318"
Merk = "Apple MC318 MacBook Pro"
Harga = 17600000
Case "MC322"
Merk = "Apple MC322 MacBook Pro"
Harga = 21300000
End Select
TxtMerk = Merk
TxtHarga = Harga
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode.Text = "Pilih Kode Laptop"
TxtMerk.Text = ""
TxtHarga.Text = ""
TxtJual.Text = ""
TxtHargaJual.Text = ""
TxtDiskon.Text = ""
TxtTotal.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim HS, Jual, Jumlah, Diskon, Total As Variant
HS = Val(TxtHarga)
Jual = Val(TxtJual)
Jumlah = HS * Jual
TxtHargaJual = Jumlah
Select Case Jumlah
Case Is > 140000000
Diskon = Jumlah * 0.15
Case Is > 135000000
Diskon = Jumlah * 0.1
Case Is > 130000000
Diskon = Jumlah * 0.05
Case Is > 125000000
Diskon = Jumlah * 0.02
Case Is <= 125000000
Diskon = Jumlah * 0
End Select
TxtDiskon = Diskon
Total = Jumlah - Diskon
TxtTotal = Total
End Sub
Private Sub Form_Load()
CboKode.AddItem "Apple MC965 MacBook Air"
CboKode.AddItem "Apple MC966 MacBook Air"
CboKode.AddItem "Apple MC968 MacBook Air"
CboKode.AddItem "Apple MC969 MacBook Air"
CboKode.AddItem "Apple MC700 MacBook Pro"
CboKode.AddItem "Apple MC721 MacBook Pro"
CboKode.AddItem "Apple MC723 MacBook Pro"
CboKode.AddItem "Apple MC724 MacBook Pro"
CboKode.AddItem "Apple MC311 MacBook Pro"
CboKode.AddItem "Apple MC313 MacBook Pro"
CboKode.AddItem "Apple MC314 MacBook Pro"
CboKode.AddItem "Apple MC318 MacBook Pro"
CboKode.AddItem "Apple MC322 MacBook Pro"
End Sub
Source Code Perhitungan Gaji Karyawan Dengan Visual Basic
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan
KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus
If KodeStatus = "S" Then
Status = "Single"
ElseIf KodeStatus = "M" Then
Status = "Menikah"
ElseIf KodeStatus = "J" Then
Status = "Janda"
ElseIf KodeStatus = "D" Then
Status = "Duda"
End If
TxtStatus = Status
Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun
Select Case Golongan
Case "A"
Jabatan = "Manager"
GajiPokok = 4000000
Tunjangan = 1025000
Case "B"
Jabatan = "Ka. Seksi"
GajiPokok = 3500000
Tunjangan = 975000
Case "C"
Jabatan = "Staff"
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan
KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case "KEU"
Bagian = "Accounting"
Case "ADM"
Bagian = "Administrasi"
Case "SDM"
Bagian = "General Affair"
Case "EDP"
Bagian = "IT Unit"
Case "SPM"
Bagian = "Security"
End Select
TxtBagian = Bagian
TxtTotalGaji = GajiPokok + Tunjangan
End Sub
Private Sub Form_Activate()
TxtNama.SetFocus
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan
KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus
If KodeStatus = "S" Then
Status = "Single"
ElseIf KodeStatus = "M" Then
Status = "Menikah"
ElseIf KodeStatus = "J" Then
Status = "Janda"
ElseIf KodeStatus = "D" Then
Status = "Duda"
End If
TxtStatus = Status
Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun
Select Case Golongan
Case "A"
Jabatan = "Manager"
GajiPokok = 4000000
Tunjangan = 1025000
Case "B"
Jabatan = "Ka. Seksi"
GajiPokok = 3500000
Tunjangan = 975000
Case "C"
Jabatan = "Staff"
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan
KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case "KEU"
Bagian = "Accounting"
Case "ADM"
Bagian = "Administrasi"
Case "SDM"
Bagian = "General Affair"
Case "EDP"
Bagian = "IT Unit"
Case "SPM"
Bagian = "Security"
End Select
TxtBagian = Bagian
TxtTotalGaji = GajiPokok + Tunjangan
End Sub
Private Sub Form_Activate()
TxtNama.SetFocus
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub
Selasa, 29 Desember 2015
Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan
KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus
If KodeStatus = "S" Then
Status = "Single"
ElseIf KodeStatus = "M" Then
Status = "Menikah"
ElseIf KodeStatus = "J" Then
Status = "Janda"
ElseIf KodeStatus = "D" Then
Status = "Duda"
End If
TxtStatus = Status
Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun
Select Case Golongan
Case "A"
Jabatan = "Manager"
GajiPokok = 4000000
Tunjangan = 1025000
Case "B"
Jabatan = "Ka. Seksi"
GajiPokok = 3500000
Tunjangan = 975000
Case "C"
Jabatan = "Staff"
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan
KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case "KEU"
Bagian = "Accounting"
Case "ADM"
Bagian = "Administrasi"
Case "SDM"
Bagian = "General Affair"
Case "EDP"
Bagian = "IT Unit"
Case "SPM"
Bagian = "Security"
End Select
TxtBagian = Bagian
TxtTotalGaji = GajiPokok + Tunjangan
End Sub
Private Sub Form_Activate()
TxtNama.SetFocus
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub
Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan
KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus
If KodeStatus = "S" Then
Status = "Single"
ElseIf KodeStatus = "M" Then
Status = "Menikah"
ElseIf KodeStatus = "J" Then
Status = "Janda"
ElseIf KodeStatus = "D" Then
Status = "Duda"
End If
TxtStatus = Status
Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun
Select Case Golongan
Case "A"
Jabatan = "Manager"
GajiPokok = 4000000
Tunjangan = 1025000
Case "B"
Jabatan = "Ka. Seksi"
GajiPokok = 3500000
Tunjangan = 975000
Case "C"
Jabatan = "Staff"
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan
KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case "KEU"
Bagian = "Accounting"
Case "ADM"
Bagian = "Administrasi"
Case "SDM"
Bagian = "General Affair"
Case "EDP"
Bagian = "IT Unit"
Case "SPM"
Bagian = "Security"
End Select
TxtBagian = Bagian
TxtTotalGaji = GajiPokok + Tunjangan
End Sub
Private Sub Form_Activate()
TxtNama.SetFocus
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub
Source Code Membuat Aplikasi Penjualan Tiket Kereta Api
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtKt.SetFocus
TxtKt = ""
TxtHt = ""
TxtJk = ""
TxtJb = ""
TxtJt = ""
TxtTotal = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant
Kode = Left(TxtKt.Text, 3)
Select Case Kode
Case "BIM"
Harga = 50000
Jenis = "BIMA"
Berangkat = "16.00"
Case "EKO"
Harga = 35000
Jenis = "EKONOMI"
Berangkat = "19.00"
Case "MUT"
Harga = 23000
Jenis = "MUTIARA"
Berangkat = "17.00"
Case "SEN"
Harga = 15000
Jenis = "SENJA"
Berangkat = "20.00"
End Select
TxtHt = Harga
TxtJk = Jenis
TxtJb = Berangkat
TxtJt.SetFocus
End Sub
Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
End If
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtKt.SetFocus
TxtKt = ""
TxtHt = ""
TxtJk = ""
TxtJb = ""
TxtJt = ""
TxtTotal = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant
Kode = Left(TxtKt.Text, 3)
Select Case Kode
Case "BIM"
Harga = 50000
Jenis = "BIMA"
Berangkat = "16.00"
Case "EKO"
Harga = 35000
Jenis = "EKONOMI"
Berangkat = "19.00"
Case "MUT"
Harga = 23000
Jenis = "MUTIARA"
Berangkat = "17.00"
Case "SEN"
Harga = 15000
Jenis = "SENJA"
Berangkat = "20.00"
End Select
TxtHt = Harga
TxtJk = Jenis
TxtJb = Berangkat
TxtJt.SetFocus
End Sub
Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
End If
End Sub
Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic
Buat Tampilan Seperti Dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
Kode = CboKode
KodeBuku = Mid(Kode, 3, 3)
Select Case KodeBuku
Case "SIM"
Judul = "Sistem Informasi Manajemen"
Pengarang = "Yati Nur Oktavia"
Harga = 75900
Case "EDP"
Judul = "Elektronik Data Processing"
Pengarang = "Imam Tarmizi"
Harga = 62000
Case "MNJ"
Judul = "Manajemen"
Pengarang = "Valentina Mariana Adiwianti"
Harga = 42000
Case "CDR"
Judul = "Corel Draw"
Pengarang = "Riyan Suhandi"
Harga = 53000
Case "RPL"
Judul = "Rekayasa Perangkat Lunak"
Pengarang = "Sinta Umpu Singa"
Harga = 83000
End Select
TxtJudul = Judul
TxtPengarang = Pengarang
TxtHarga = Harga
KodePenerbit = Left(Kode, 1)
Select Case KodePenerbit
Case "A"
Penerbit = "Andi Offset Yogyakarta"
Case "I"
Penerbit = "Indah Surabaya"
Case "S"
Penerbit = "Indah Surabaya"
Case "E"
Penerbit = "Elek Media Komputindo"
Case "M"
Penerbit = "Maxicom"
End Select
TxtPenerbit = Penerbit
KodeTahun = Right(Kode, 2)
Select Case KodeTahun
Case "01"
Tahun = "20" & KodeTahun
Case "02"
Tahun = "20" & KodeTahun
Case "03"
Tahun = "20" & KodeTahun
Case "04"
Tahun = "20" & KodeTahun
Case "05"
Tahun = "20" & KodeTahun
End Select
TxtTerbit = Tahun
End Sub
Private Sub Form_Load()
CboKode.AddItem "A-SIM-01"
CboKode.AddItem "I-EDP-02"
CboKode.AddItem "S-MNJ-03"
CboKode.AddItem "E-CDR-04"
CboKode.AddItem "M-RPL-05"
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
Kode = CboKode
KodeBuku = Mid(Kode, 3, 3)
Select Case KodeBuku
Case "SIM"
Judul = "Sistem Informasi Manajemen"
Pengarang = "Yati Nur Oktavia"
Harga = 75900
Case "EDP"
Judul = "Elektronik Data Processing"
Pengarang = "Imam Tarmizi"
Harga = 62000
Case "MNJ"
Judul = "Manajemen"
Pengarang = "Valentina Mariana Adiwianti"
Harga = 42000
Case "CDR"
Judul = "Corel Draw"
Pengarang = "Riyan Suhandi"
Harga = 53000
Case "RPL"
Judul = "Rekayasa Perangkat Lunak"
Pengarang = "Sinta Umpu Singa"
Harga = 83000
End Select
TxtJudul = Judul
TxtPengarang = Pengarang
TxtHarga = Harga
KodePenerbit = Left(Kode, 1)
Select Case KodePenerbit
Case "A"
Penerbit = "Andi Offset Yogyakarta"
Case "I"
Penerbit = "Indah Surabaya"
Case "S"
Penerbit = "Indah Surabaya"
Case "E"
Penerbit = "Elek Media Komputindo"
Case "M"
Penerbit = "Maxicom"
End Select
TxtPenerbit = Penerbit
KodeTahun = Right(Kode, 2)
Select Case KodeTahun
Case "01"
Tahun = "20" & KodeTahun
Case "02"
Tahun = "20" & KodeTahun
Case "03"
Tahun = "20" & KodeTahun
Case "04"
Tahun = "20" & KodeTahun
Case "05"
Tahun = "20" & KodeTahun
End Select
TxtTerbit = Tahun
End Sub
Private Sub Form_Load()
CboKode.AddItem "A-SIM-01"
CboKode.AddItem "I-EDP-02"
CboKode.AddItem "S-MNJ-03"
CboKode.AddItem "E-CDR-04"
CboKode.AddItem "M-RPL-05"
End Sub
Rabu, 23 Desember 2015
3 Situs Belajar Pemrograman Web Gratis Yang Bakal Membuatmu Handal
Perkembangan internet membawa dampak positif dan negatif bagi kehidupan manusia. Untuk saat ini kita tidak akan membahas tentang dampak negatif yang ditimbulkan oleh internet. Kita akan membahas tentang salah satu dampak positif dari internet, yaitu mempermudah kita dalam belajar. Diinternet ada banyak situs yang menyediakan informasi tentang pembelajaran, khususnya tentang komputer dan pemrograman seperti tutorialkomputerlengkap.com. Bagi yang suka pemrograman ada situs-situs yang dapat menjadi media pembelajaran untuk belajar pemrograman secara otodidak.
Nah dari banyak situs tersebut, penulis memiliki rekomendasi untuk teman-teman yang akan belajar pemrograman khususnya pemrograman web untuk belajar dari situs berikut ini :
3 Situs Belajar Bahasa Pemrograman Yang Wajib Dikunjungi
1. Codecademy
Codecademy adalah situs untuk belajar website yang sangat menarik. Disamping tampilanya yang sangat interaktif, situs ini juga memiliki sistem seperti game RPG. Jadi kita akan memiliki level, dan level itu akan meningkat seiring dengan meningkatnya kemampuan kita. Kita akan disuguhkan materi untuk dipelajari, setelah selesai mempelajari materi kita akan dihadapkan pada ujian yang akan menaikan level kita. Tidak hanya itu, situs tersebut juga dapat mengoreksi kode yang kita tuliskan, apabila kita tidak menuliskan kode sesuai dengan yang diperintahkan, maka situs akan menunjukan jika terjadi kesalahan pada program yang ditulis.
Pada level awal, kita akan diajarkan tentang elemen-elemen website, kemudian pada level selanjutnya kita akan mulai mempelajari tentang dasar-dasar pemrograman web, kemudian berlanjut lagi hingga tahap akhir. Jika mengikuti dengan seksama, setelah lulus dari level akhir kita akan bisa membuat sebuah halaman website yang menarik.
Bahasa pemrograman yang diajarkan di situs ini diantaranya adalah HTML, HTML5, CSS, JavaScritp, JQuery, PHP, Ruby, Phyton. Dengan banyaknya bahasa pemrograman yang didukung, serta kemudahanya, penulis menempatkan Codecademy di urutan pertama dalam daftar ini. Bagi teman-teman yang ingin langsung mencoba silahkan langsung kunjungi situs Codecademy.
2. W3Schools
W3Schools merupakan daftar situs lainya yang wajib dikunjungi oleh para calon web programer. Situs ini menyediakan materi bahasa pemrograman yang cukup lengkap, diantaranya HTML, HTML5, CSS, JavaScritp, JQuery, PHP, SQL, ADO, XML, ASP, ASP.Net dan Ajax. Selain menyediakan materi pemrograman yang sangat lengkap, situs ini juga memiliki tampilan yang sangat interaktif, hampir sama dengan Codecademy, bahkan hasil dari kode program yang ditulis dapat langsung ditampilkan sehingga kita dapat mengetahui kesalahan yang terjadi. Situs ini juga memiliki dukungan yang sangat baik seperti forum tanya jawab. Bagi teman-teman yang ingin mencoba bisa mengunjugi situs W3Schools.
3. CodeSchool
Hampir sama dengan situs Codecademy, memiliki tampilan yang interaktif. Sistem pembelajaran di CodeSchool juga mirip dengan Codecademy, hanya saja dukungan bahasa pemrograman yang disediakan lebih sedikit. Bahasa pemrograman yang disediakan antara lain HTML, CSS, Ruby JavaScript dan Objective C. Bagi yang ingin mencoba silahkan kunjungi langsung CodeSchool.
Itulah 3 situs Belajar Pemrograman Web yang penulis rekomendasikan. Apabila dipelajari dengan baik, dijamin setelah menyelesaikan materi teman-teman dapat menjadi web programer yang hebat. Sekian artikel ini, semoga bermanfaat.
Baca Juga :
Pengertian Komputer Dan Komponen Penyusunya
Macam Macam Perangkat Keras Yang Wajib Ada Di Komputer Beserta Fungsinya
Macam Macam Perangkat Peripheral Komputer Beserta Fungsinya
Macam Macam Perangkat Keras Jaringan Komputer Yang Wajib Diketahui
3 Jenis Kabel Jaringan Komputer Yang Sering Digunakan
Menggunakan Option Dan Check Box Di Visual Basic
Apa Perbedaan Antara Internet, Intranet Dan Ekstranet?
Macam Macam Perangkat Keras Yang Wajib Ada Di Komputer Beserta Fungsinya
Macam Macam Perangkat Peripheral Komputer Beserta Fungsinya
Macam Macam Perangkat Keras Jaringan Komputer Yang Wajib Diketahui
3 Jenis Kabel Jaringan Komputer Yang Sering Digunakan
Menggunakan Option Dan Check Box Di Visual Basic
Apa Perbedaan Antara Internet, Intranet Dan Ekstranet?
Label:
CSS,
HTML,
Pemrograman,
Tips & Trik,
website
Langganan:
Postingan (Atom)











