MEMBUAT PROGRAM PENDAFTARAN DENGAN VISUAL BASIC 6.0

Halloo everyone...

di post ini saya akan sedikit berbagi tentang visual basic. Sebenernya ini kuis UTS kemaren disuruh bikin ginian Hehe.. ya alhamdulillah berhasil makanya mau dishare sedikit :)

cekidot guys!

Dengan Ketentuan:

-Pada saat program dijalankan, Kursor berada di Nomor Pendaftaran.

-Nomor Pendaftaran, Nama Siswa dan Alamat di input manual.

-Jenis Kursus ada 3: VBP, PHP, FLS

-Jika:
VBP, Maka: Nama Kursus VISUAL BASIC. Biaya Rp 400.000

PHP, maka: Nama Kursus PEMROGRAMAN PHP. Biaya Rp 500.000

FLS, maka: Nama Kursus ANIMASI FLASH. Biaya Rp 450.000

-Biaya Pendaftaran Rp 75.000

-Paket Kursus ada 2: Fundamental, dan Advanced

-Jika Fundamental, maka: Biaya Modul Rp 200.000

         Advanced, maka: Biaya Modul Rp 350.000

-Button "Hitung Total" = Biaya Kursus + Biaya Pendaftaran + Biaya Modul

-Button "Daftar Lagi" untuk membersihkan, dan kursor kembali berada di Nomor Pendaftaran.

-Button "Keluar" untuk keluar dari program.

Pertama, buat design tampilan seperti tampilan di atas. Jangan lupa untuk ME-RENAME semua textbox, command button, combobox, optionbutton, dan label menjadi nama-nama dibawah ini (sebenarnya bebas mau dikasih nama apa, tapi untuk ini, samain aja namanya biar nggak bingung):
re-namenya di Properties ya....

Textbox:
txtnopen
txtnama
txtalamat
txtnakur
txtbiaya
txtbiapen
txtbiamod
txttotbia

ComboBox:
cbjenis

OptionButton:
optfunda
optadvan

CommandButton:
cmdhitung
cmdlagi
cmdkeluar

CODINGAN

Private Sub Form_Activate()
txtnopen.SetFocus
End Sub


Private Sub Form_Load()
cbjenis.AddItem ("VBP")
cbjenis.AddItem ("PHP")
cbjenis.AddItem ("FLS")
End Sub

Private Sub cbjenis_Click()

If cbjenis.Text = "VBP" Then

   txtnakur.Text = "VISUAL BASIC"

   txtbiaya.Text = 400000

ElseIf cbjenis.Text = "PHP" Then

   txtnakur.Text = "PEMROGRAMAN PHP"

   txtbiaya.Text = 500000

Else

   txtnakur.Text = "ANIMASI FLASH"

   txtbiaya.Text = 450000

End If

End Sub

Private Sub cmdhitung_Click()

txtbiapen.Text = 75000

If optfunda.Value = True Then

txtbiamod.Text = 200000

Else

txtbiamod.Text = 350000

End If

txttotbia.Text = Val(txtbiapen.Text) + Val(txtbiaya.Text) + Val(txtbiamod.Text)

End Sub

Private Sub cmdlagi_Click()

txtnopen.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

cbjenis.Text = ""

txtnakur.Text = ""

txtbiaya.Text = ""

optfunda.Value = False

optadvan.Value = False

txtbiapen.Text = ""

txtbiamod.Text = ""

txttotbia.Text = ""

txtnopen.SetFocus

End Sub

Private Sub cmdkeluar_Click()

pesan = MsgBox("Tutup Pendaftaran?", vbYesNo + vbQuestion, "Konfirmasi")

If pesan = vbYes Then

End

End If

End Sub

SEMOGA BERMANFAAT :)
SEE YOU NEXT POST!

Read More

LATIHAN UTS SEMESTER 3 - INTERAKSI MANUSIA KOMPUTER

1. Media yang memungkinkan manusia berinteraksi dengan komputer untuk memberikan suatu perintah kepada komputer adalah definisi dari...

a. Program

b. Aplikasi

c. Interface

d. Komputer

e. Salah Semua 
(Note: Jawaban yang benar Antarmuka Manusia dan Komputer)

2. Bagian yang berfungsi menghasilkan informasi berdasarkan pengolahan data yang sudah dimasukkan oleh pengguna lewat algoritma adalah definisi dari...

a. Program

b. Aplikasi

c. Interface

d. Input

e. Salah semua

3. Media bentuk sederhana dialog antara manusia dan komputer yang kurang menarik karena berisi teks adalah...

a. Media animasi

b. Media gambar

c. Media GUI

d. Media aplikasi

e. Media tekstual

4. Bahasa pemrograman dibawah ini yang masih berbentuk teks hasil outputnya adalah...

a. C++

b. Visual Foxpro

c. Delphi

d. Visual Basic

e. Macro Media Flash

5. Bahasa merupakan sarana komunikasi yang akan mengarahkan pengguna ketika ia berinteraksi dengan komputer adalah...

a. Ergonomik

b. Psikologi

c. Sosiologi

d. Linguistik

e. Antropologi

6. Di bawah ini adalah piranti (alat) ouput pada perangkat keras (hardware) yaitu...

a. Keyboard

b. Bar Code Reader

c. Scanner

d. Mouse

e, Monitor

7. Di bawah ini adalah piranti (alat) input pada perangkat keras (hardware) yaitu...

a. Monitor

b. Speaker audio

c. Keyboard

d. Printer

e. LCD

8. Sistem komputer terdiri dari tiga aspek, yaitu...

a. Hardware, Software, Aplikasi

b. Brainware, Hardware, Software

c. Hardware, Brainware, Aplikasi

d. Aplikasi, Software, Brainware

e. salah semua

9. Serangkaian unsur-unsur yang terdiri dari beberapa perangkat lunak program komputer yang digunakan untuk membantu proses kerja manusia (Brainware) disebut...

a. Hardware

b. Brainware

c. Komputer

d. Software

e. Sistem

10. Program yang digunakan untuk mengontrol sumber daya komputer seperti CPU dan Hardware masukan/keluaran adalah...

a. Ms-Windows

b. Ms-Excel

c. Ms-Access

d. Ms-Visual Basic

e. Ms-Visual Foxpro

11. Pada ragam dialog pengguna memberikan tanggapan atas prompt yang diberikan oleh komputer untuk memasukkan perintah atau parameter perintah disebut...

a. Inisiatif

b. Kompleksitas

c. Kekuatan

d. Keluwesan

e. Umpan balik

12. Pada ragam dialog pengguna mempunyai kesempatan melakukan customizing dan memperluas antarmuka dari sebuah sistem untuk memenuhi kebutuhan disebut...

a. Inisiatif

b. Kompleksitas

c. Kekuatan

d. Keluwesan

e. Umpan balik

13. Pada ragam dialog jika pengguna melakukan kesalahan komputasi, maka program akan menampilkan suatu pesan kesalahan, disebut...

a. Inisiatif
b. Kompleksitas
c. Kekuatan
d. Keluwesan
e. Umpan balik

14. Dialog dimana pengguna (user) dihadapkan ke suatu bentuk formulir di layar komputer berisi sejumlah pengisian data dan opsi (option) yang telah ditentukan adalh...

a. Form Filling Dialogue

b. Natural Language Interface

c. Programming Languange Dialogue

d. Dialogue Style

e. Command Line Dialogue

15. Beberapa perintah seperti DIR, COPY, FORMAT, PSSWD, WHO, VI, LS merupakan terdapat pada kategori ragam dialog...

a. Programming Languange Dialogue

b. Natural Languange Interface

c. Form Filling Dialogue

d. Command Line Dialogue

e. Salah semua

16. Kondisi yang jelas dalam memberikan petunjuk untuk manipulasi suatu objek pada prinsip desain interface disebut...

a. Implied actions

b. Explicit actions

c. User control

d. Aesthetic Integrity

e. Consistency

17. Mengijinkan user mengontrol dan menginisialisasi aksi pada prinsip desain interface disebut...

a. Implied actions

b. Explicit actions

c. User control

d. Aesthetic Integrity

e. Consistency

18. User dapat mentransfer pengetahuan dan kemampuan dari suatu aplikasi ke aplikasi lain pada prinsip desain interface disebut...

a. Implied actions

b. Explicit actions

c. User control

d. Aesthetic Integrity

e. Consistency

19. Tidak ada perbedaan antara yang dilihat di layar dengan hasil outputnya pada prinsip desain interface disebut...

a. Direct Manipulation

b. WYSIWYG

c. Aesthetic Integrity

d. Explicit actions

e. Implied actions

20. Model yang digunakan dalam mendesain layout adalah, kecuali...

a. Berbasis dokumen

b. Berbasisi non dokumen

c. Utilitas

d. Non utilitas

e. benar semua

21. Gambar di bawah ini adalah jenis keyboard...

a. Keyboard Dvorak

b. Keyboard QWERTY

c. Keyboard Alphabetik

d. Keyboard Klockenberg

e. Keyboard Stenotype

22. Gambar di bawah ini adalah jenis keyboard...

a. Keyboard Dvorak

b. Keyboard QWERTY

c. Keyboard Alphabetik

d. Keyboard Klockenberg

e. Keyboard Stenotype 

23. Di bawah ini adalah jenis piranti perangkat keras pengambilan gambar terformat, kecuali...

a. Bar Code Reader

b. Image Scanner

c. Magnetic Ink Character Recognation (MICR)

d. Optical Mark Recognation (OMR)

e. Optical Character Recognation (OCR)

24. Di bawah ini yang merupakan jenis piranti perangkat keras pengambil gambar tidak terformat adalah...

a. Bar Code Reader

b. Optical Character Recognation (OCR)

c. Magnetic Ink Character Recognation (MICR)

d. Optical Mark Recognation (OMR)

e. Image Scanner

25. Yang termasuk kelompok dalam tombol pada papan ketik adalah, kecuali...

a. Tombol Fungsi

b. Tombol Kontrol

c. Alfabet

d. Tombol Alphanumerik

e. Tombol Numeric

26. Pemilihan ragam dialog dipengaruhi, kecuali...

a. Karakteristik populasi pengguna

b. Tipe dialog yang diperlukan

c. Kendala teknologi

d. Struktur dari data

e. Semua benar

27. Faktor yang perlu dipertimbangkan dalam perancangan antarmuka berbasisi teks, kecuali...

a. Ururtan penyajian

b. Kelonggaran

c. Pengelompokkan

d. Kesederhanaan

e. Kesesuaian dengan media

28. Untuk merancang program aplikasi spesial purpose software adalah...

a. User Centered Design

b. User Design Approach

c. Application Design Approach

d. Spesial Design Approach

e. Salah semua
(Note: Jawaban yang benar User Centered Design Approach)

29. Urutab pertama dalam perancangan tampilan adalah...

a. Perancangan format pesan

b. Perancangan struktur dialog

c. Pemilihan ragam dialog

d. Perancangan struktur data

e. Perancangan penanganan kesalahan

30. Pada perancangan program dimungkinkan program berhenti karena terjadi kesalahan yang disebut...

a. Error Program

b. Abnormal Terminator

c. Run Time Error

d. Syntax Error

e. Semua benar

Download lagu I See Stars - Light In The Cave

Read More

MEMBUAT MENU MAKANAN SEDERHANA DENGAN VISUAL BASIC 6.0

Buka Program visual Basic. Lalu pilih Standard EXE kemudian Open

Kemudian muncul Form baru. Setelah itu buat design seperti gambar di bawah ini.

Caranya:

Buatlah Tulisan (yang ditandai lingkaran merah oleh saya) menggunakan Tool Label (Tool Labelnya juga yang saya beri lingkaran merah). Begitu juga membuat Combobox (lingkaran hijau) dengan Tool Combobox (Tool yang dilingkari tanda hijau). Dan kemudian buatlah textbox (lingkaran biru) dengan Tool Textbox (Toolnya ditandai lingkaran biru).

Ganti nama Combobox pada name (di properties) menjadi cbmenu.

Ganti nama Textbox (untuk nama makanan) pada name (di properties) menjadi txtmakanan. Begitu pula Textbox untuk nama minuman dan Total, ubah nama pada name di properties menjadi txtminum dan txttotal.

Kosongkan Textbox (untuk nama makanan) pada Text (di properties). Begitu pula Textbox untuk nama minuman dan Total juga dikosongkan.

Klik pada yang dilingkari merah untuk menampilkan jendela coding. Dan tuliskan codingnya sama seperti diatas.

Private Sub cbmenu_Click()

If cbmenu.Text = "MENU001" Then

txtmakan.Text = "Soto Ayam"

txtminum.Text = "ES Jeruk"

txttotal.Text = "Rp 20.000"

ElseIf cbmenu.Text = "MENU002" Then

txtmakan.Text = "Sate Ayam"

txtminum.Text = "ES Teh Manis"

txttotal.Text = "Rp 25.000"

ElseIf cbmenu.Text = "MENU003" Then

txtmakan.Text = "Nasi Goreng"

txtminum.Text = "Teh Botol"

txttotal.Text = "Rp 15.000"

End If

End Sub

Private Sub Form_Activate()

cbmenu.SetFocus

End Sub

Private Sub Form_Load()

cbmenu.AddItem ("MENU001")

cbmenu.AddItem ("MENU002")

cbmenu.AddItem ("MENU003")

End Sub

Setelah selesai penulisan coding, running program dengan mengklik tombol play (yang dilingkari merah)

Tampilan Runningan Coding. Combobox muncul nama pilihan menu.

Hasil Akhir.

Sekian..

Semoga bermanfaat :)

Read More

LATIHAN UTS SEMESTER 3 - PEMODELAN SISTEM BERBASIS OBJEK

1. Dalam satu aksi dimungkinkan memiliki lebih dari satu metode, merupakan karakteristik metodologi...

a. Pengkapsulan

b. Polymorphisme

c. Implementasi

d. Pewarisan

e. Abstraksi

2. Untuk dapat memahami UML diperlukan pemahaman tentang konsep bahasa pemodelan dan tiga elemen utama UML yaitu...

a. Objek, design, dan diagram

b. Objek, diagram, dan relationship

c. Analisa, diagram, dan relationship

d. Design, diagram, dan relationship

e. Analisa, design, dan implementasi 

3. Jika usecase itu merupakan keharusan (required) terhadap usecase lainnya dinamakan Association...

a. Extend

b. Generalisasi

c. Include

d. Spesification

e. Parent usecase

4. Hubungan mesin, rangka, spion, dan lainnya merupakan komponen yang terdapat pada motor merupakan hubungan yang dinamakan...

a. Gen-spec Structure

b. Whole-part Structure

c. Design Structure

d. Hirarki Structure

e. Analysis Structure

5. Fungsi di dalam kelas yang dikombinasikan bentuk tingkah laku kelas dinamakan dengan...

a. Operasi

b. Atribut

c. Generalisasi

d. Klasifikasi

e. Metode

6. Simbol yang digunakan untuk memulai suatu aktivitas pada activity diagram adalah simbol...

a. Decision

b. Fork

c. Join

d. Swimlane

e. Start

7. Dibawah ini pernyataan yang salah mengenai aktor adalah...

a. Aktor bisa saja menyediakan fungsi ke sistem

b. Tidak boleh ada komunikasi langsung antar aktor

c. Aktor adalah eksternal terhadap sistem

d. Aktor biasanya menggunakan kata kerja

e. Aktor bisa menyediakan informasi ke sistem

8. Di bawah ini yang tidak termasuk ke dalam structure diagram adalah...

a. class diagram

b. sequence diagram

c. package diagram

d. deployment diagram

e. component diagram

9. Di bawah ini yang bukan mekanisme umum pemodelan UML adalah...

a. Relationship

b. Spesification

c. Common Divisions

d. Extensibility Mechanisme

e. Adornments

10. Sebuah cara untuk mengelompokkan activity berdasarkan actor (mengelompokkan activity dalam sebuah urutan yang sama) dianamakan...

a. Decision

b. Join

c. End point

d. Fork

e. Swimlane 

11. Pada activity diagram percabangan aktivitas menggunakan simbol...

a. End point

b. Decision

c. Fork

d. Swimlane

e. Join

12. Di bawah ini yang tidak termasuk obyek abstrak adalah...

a. Jabatan

b. Penjadwalan

c. Sekolah

d. Mata kuliah

e. Golongan

13. Diagram yang menggambarkan transisi dan perubahan keadaan (dari satu state ke state lainnya) suatu objek pada sistem sebagai akibat dari stimuli yang diterima adalah...

a. usecase diagram

b. statechart diagram

c. deployment diagram

d. component diagram

e. activity diagram

14. Konsep awal programming (Basic) dengan kekuatan GOTO statement dinamakan dengan...

a. Object Oriented Programming

b. Visual Programming

c. Procedural Language

d. Non Procedural Language

e. Visual Object Oriented Programming

15. Use case class memiliki objek use case yang dinamakan...

a. Superclass

b. Skenario

c. Actor

d. Extend

e. Relationship

16. Untuk menggambarkan proses bisnis dan urutan aktivitas dalam sebuah proses dapat menggunakan diagram...

a. Usecase diagram

b. Deployment diagram

c. Statechart diagram

d. Component diagram

e. Activity diagram

17. Di bawah ini pernyataan yang tidak tepat mengenai usecase adalah...

a. Sesuatu yang menyediakan hasil yang dapat diukur ke pemakai atau sistem eksternal

b. Tidak boleh ada usecase dengan nama yang sama

c. Usecase biasanya menggunakan kata benda

d. Dinotasikan dengan gambar (horizontal ellipse)

e. Nama usecase boleh terdiri dari beberapa kata

18. Untuk memperlihatkan batasan sistem dalam diagram usecase menggunakan...

a. Generalisation

b. Parent usecase

c. Boundary boxes

d. Include

e. Extend

19. Hubungan antar benda secara struktural yang terhubung diantara objek dalam kesatuan objek dinamakan dengan...

a. Association

b. Realization

c. Dependency

d. Generalization

e. Whole-part Structure

20. Pada activity diagram penggabungan aktivitas menggunakan simbol...

a. End point

b. Swimlane

c. Fork

d. Join

e. Decision

Read More

Program Penggajian Karyawan dengan C++

PT. PUSING PALA BARBIE  memberi gaji pokok kepada karyawan  kontraknya sebesar Rp.300.000 perbulan, dengan memperoleh tunjangan-tunjangan sebagai berikut:

·         Tunjangan Jabatan dan Pendidikan:

Golongan	Persentase	Tingkat Pendidikan	Persentase
1	5%	SMA	2.5%
2	10%	D3	20%
3	20%	S1	30%

Jika karyawan tersebut golongan 1, maka tingkat pendidikannya SMA dan mendapatkan Tunjangan Jabatan sebesar 5% * Rp.300.000 (gaji pokok), serta Tunjangan Pendidikan sebesar 2.5% * Rp.300.000 (gaji pokok).

·         Honor Lembur dan Transport:

Jumlah jam kerja normal sebanyak 8 jam, honor lembur diberikan jika jumlah jam kerja lebih dari 8 jam. Kelebihan jam kerja tersebut dikalikan dengan Rp. 10.000. Transport didapat dari jumlah hari kerja dikalikan dengan Rp. 20.000.

·         Tampilan program yang dihasilkan sebagai berikut:

PROGRAM  HITUNG  GAJI  KARYAWAN

PT. PUSING PALA BARBIE

Nama karyawan          :<input>

NIK                             : <input>

Golongan jabatan        : <input>

Jumlah hari kerja         : <input>

Jumlah jam kerja         : <input>

Pendidikan                  : <output>

Karyawan yang bernama  <output>

Honor yang diterima

                              Tunjangan jabatan                   : Rp. <output>

                        Tunjangan pendidikan                        : Rp. <output>

Gaji Pokok                              : Rp. <output>

                              Lembur                                    : Rp.<output>

                              Transport                                 : Rp.<output>

                            _____________________________________+

                        Gaji Bersih                              : Rp.<output>

(gaji bersih=tunjangan jabatan+tunjangan pendidikan+gaji pokok+lembur+transport).

SCREENSHOOT PROGRAM

Berikut ini adalah hasil screenshoot/printscreen Program Penggajian Karyawan yang kami buat:

(Gambar 2.2.1 Tampilan pertama program setelah di RUN)

  

(Gambar 2.2.2 Tampilan setelah input dan output tercetak)

Dan ada perintah kalimat “Apa Mau Input  Data Lagi ? [Y/T] :

Jika kita pilih Y/y, maka tampilan yang muncul seperti awal kembali (lihat gambar 2.2.1 dan gambar 2.2.2)

 Dan jika yang kita pilih T/t, maka program akan tertutup dan akan muncul tampilan seperti ini:

                    (Gambar 2.2.3 Tampilan program jika anda pilih T/t)

 CODING PROGRAM

Berikut ini adalah coding dari Program Penggajian Karyawan yang kami buat untuk tugas ini:

#include<stdio.h>

#include<conio.h>

#include<iostream.h>

main()

{

char nama[50],gol,pend,kembali,yt,selesai;

float jam,jum_hari,nik,tun_jab,lembur,tun_pen,transport,gapok,gaji;

gapok=300000;

kembali:

cout<<"\t\t\tPROGRAM HITUNG GAJI KARYAWAN\n";

cout<<"\t\t\t   PT. PUSING PALA BARBIE\n";

cout<<"\t\tJalan Raya Penuh Kenangan Bukan Genangan, No.123\n";

cout<<"\t==============================================================\n";

cout<<endl;

cout<<"\t\tNama Karyawan          : ";cin>>nama;

cout<<"\t\tNIK                                : ";cin>>nik;

cout<<"\t\tGolongan Jabatan        : ";cin>>gol;

cout<<"\t\tJumlah Hari Kerja       : ";cin>>jum_hari;

cout<<"\t\tJumlah Jam Kerja        : ";cin>>jam;

cout<<"\t\tPendidikan                   : "<<pend;

 switch(gol)

    {

        case '1':

            cout<<"SMA"<<pend;

            tun_jab = 0.05*gapok;

            tun_pen = 0.025*gapok;

            break;

        case '2':

            cout<<"D3"<<pend;

            tun_jab = 0.1*gapok;

            tun_pen = 0.2*gapok;

            break;

        case '3':

                        cout<<"S1"<<pend;

            tun_jab = 0.2*gapok;

            tun_pen = 0.3*gapok;

            break;

        default    :

            tun_jab = 0;

            tun_pen = 0;

            break;

    }

cout<<endl<<endl;

cout<<"Karyawan yang bernama "<<nama<<endl;

cout<<"Honor yang diterima"<<endl;

cout<<"\t\tTunjangan Jabatan      : Rp. "<<tun_jab<<endl;

cout<<"\t\tTunjangan Pendidikan   : Rp. "<<tun_pen<<endl;

cout<<"\t\tGaji Pokok             : Rp. "<<gapok<<endl;

if(jam>8)

{

 lembur=(jam-8)*10000;

}else

{

 lembur=0;

}

cout<<"\t\tLembur                 : Rp. "<<lembur<<endl;

transport=jum_hari*20000;

cout<<"\t\tTransport              : Rp. "<<transport<<endl;

cout<<"___________________________________________________+"<<endl;

gaji=tun_jab+tun_pen+gapok+lembur+transport;

cout<<"\t\tGaji Bersih            : Rp. "<<gaji<<endl;

cout<<endl;

cout<<"---------------------------------------------"<<endl;

cout<<"\t **** TERIMA KASIH ****        ";

cout<<endl;

cout<<" Apa Mau Input Data Lagi ? [Y/T] : ";cin>>yt;

cout<<endl;

clrscr();

if(yt=='Y' || yt=='y')

{goto kembali;}

if(yt=='T' || yt=='t')

{goto selesai;}

selesai:

cout<<endl;

cout<<"\t******* TERIMA KASIH *******"<<endl;

getch();

}

Mohon maaf jika banyak kekurangan.

Semoga bermanfaat :)

Read More