Evi dahlia tugas penjumlahan dan perkalian pada bilangan

 Evi dahlia

Tugas bp2

Penjumlahan dan perkalian

Bilangan

1. Penjumlahan bilangan

2. Perkalian pada bilangan

Looping (pengulangan) Dengan Bahasa Java

Looping (Pengulangan)

Loop atau perulangan adalah suatu bentuk kegiatan mengulang suatu statement sampai batas yang diinginkan. Dalam pemograman Loop atau perulangan sangat berguna sekali. Kegunaan sederhana dalam perulangan terlukis seperti ini: Jika kita ingin menuliskan kata “saya ganteng” sebanyak seribu kali maka kita harus membuat seribu baris kata “saya ganteng” dalam kode pemrogaman kita. Tapi dengan adanya perulangan maka kita hanya cukup menuliskan 5 sampai 7 baris kode saja. Dalam praktek sebenarnya, tentu saja perulangan sangat membantu sekali. Misal untuk memuat seluruh isi table dari sebuah database dimana datanya ingin kita tampilkan.
Loop atau perulangan dalam Java dapat dilakukan dengan 3 teknik:

• Perulangan dengan for

for (inisialisasi ekspresi; kondisi loop; ekspresi penambahan){

// pernyataan

}

Perulangan dengan teknik ini dikontrol oleh tiga bagian yang ada dalam tanda kurung dan masing-masing bagian ini dipisahkan oleh titik-koma. Pada bagian pertama(inisialisasi ekspresi), sebuah variabel akan di deklarasikan sebagai sebuah titik awal dari perulangan, biasanya variable ini mempunyai tipe data integer atau float. Sementara pada bagian kedua disinilah perulangan akan diperiksa apakah masih memenuhi syarat atau tidak, jika masih memenuhi syarat maka statement dibawahnya akan di eksekusi. Sedangkan bagian ketiga adalah bagian dimana jika bagian kedua masih memenuhi syarat maka nilai variabel akan ditambahkan sesuai dengan syarat yang dituliskan. Bagian ketiga ini secara otomatis akan tidak dibaca oleh program jika kondisi pada bagian ke-dua sudah tidak lagi memenuhi syarat, dan perulangan pun menjadi terhenti. Untuk lebih jelasnya perhatikan potongan contoh berikut ini:

for (int i=0; i <=1000; i++){

System.out.println(“Evi dahlia”);

}

Jika digambarkan jalannya program akan seperti ini: variable i akan di inisialisasi pertama kali dan langsung diberi nilai 0, kemudian variable i tersebut akan diperiksa pada bagian kedua, apakah i lebih kecil atau sama dengan 1000, jika nilai I pertama kali adalah 0 maka pernyataan tersebut bernilai benar (true), sehingga bagian ketiga pun di eksekusi dan kali ini nilai i menjadi sama dengan 1. setelah nilai i bertambah menjadi 1 maka langkah selanjutnya program akan mengeksekusi baris pernyataan yang ada didalam tanda kurung, program akan menuliskan ke layar “Saya Ganteng”. Setelah itu kursor baris akan kembali lagi keatas ke posisi for lagi, namun inisialisasi variabel dilewatkan dan langsung ke bagian kedua yaitu memeriksa apakah i <=1000, dan jika masih memenuhi syarat maka bagian ketiga dan baris statement pun di eksekusi kembali, demikian seterusnya hinga nilai variabel i sudah menjadi sama dengan 1001. Jika nilai variabel i sudah tidak lagi memenuhi syarat bagian kedua maka program akan tidak mengeksekusi bagian ketiga dan baris statement, dan pada saat ini pula loop atau perulangan akan berhenti. Jika digambarkan dalam diagram maka seperti inilah perulangan dengan for itu tergambar

·                     Perulangan dengan while.

while(ekspresi){

//statement

}

Perulangan dengan menggunakan teknik while ini sebenarnya adalah suatu bentuk perulangan yang memodifikasi teknik pencabangan (branching) secara kasar. Pernyataan yang ada didalam blok perulangan akan dieksekusi dengan cara memeriksa ekspresi yang ada, sepanjang ekspresi bernilai true maka statement akan terus di eksekusi. Variabel sebagai kontrol perulangan bentuk ini diinisialisai di luar blok perulangan ini. Dan penambahan atau increment nilai variabel berada didalam blok perulangan ini. Kelebihan perulangan dengan bentuk ini adalah variabel yang dideklarasikan tidak hanya bertipe integer atau float saja namun bisa juga bertipe boolean atau string. Perhatikan contoh program perulangan dengan menggunakan bentuk ini yang memakai variabel bertipe integer sebagai kontrol perulangannya:

int i=0;



while(i<=10000){

System.out.println(“Evi dahlia");

i++;

}

Sepanjang variable i bernilai lebih kecil sama dengan 1000 maka pernyataan mencetak ke layar “Saya Ganteng” akan tetap terus di eksekusi. Yang harus kita perhatikan jika kita menggunakan perulangan dengan teknik ini adalah bahwa incremental variabel i harus ada, sebab jika tidak yang terjadi adalah perulangan yang tidak pernah akan berhenti atau Invinitive Loop.

Kemudian mari kita lihat potongan kode yang variabel kontrolnya tidak menggunakan integer atau float, berikut ini:

boolean ctrl =false;

int i = 0;



while(ctrl==false){

System.out.println(“Evi dahlia”);

i++;

if(i == 1000){

ctrl = true;

}

}

Perhatikan pada potongan kode program tersebut. Pernyataan mencetak kelayar “Saya Ganteng” akan terus dieksekusi selama variabel kontrol perulangan tersebut masih bernilai false, sementara trigger untuk membuat variable bernilai true adalah nilai variable i yang harus sampai dengan 1000.

Jika digambarkan dalam diagram maka sketsa perulangan dengan bentuk ini seperti gambar berikut:

·                     Perulangan dengan do while

do{

//statement

}while(ekspresi);

Perulangan dengan bentuk seperti ini adalah perulangan dengan membalikkan logika perulangan dengan teknik while. Dalam perulangan dengan bentuk ini, pernyataan dieksekusi dulu, baru kemudian kondisi variabel kontrol perulangannya diperiksa apakah memenuhi syarat atau tidak. Biar lebih mudah memahaminya mari kita lihat potongan code program berikut ini:

int i=0;



do{

System.out.println(“Evi dahlia”);

i++;

}while(i<=10000);

Variabel kontrol perulangan tetap diinisialisasi diluar blok perulangan dan harus tetap bersifat incremental / bertambah dan letak incrementalnya ada dalam blok perulangan. Secara logika maka diagram yang bisa menggambarkan proses perulangan tersebut adalah:

·                     Perulangan dengan do while

do{

//statement

}while(ekspresi);

Perulangan dengan bentuk seperti ini adalah perulangan dengan membalikkan logika perulangan dengan teknik while. Dalam perulangan dengan bentuk ini, pernyataan dieksekusi dulu, baru kemudian kondisi variabel kontrol perulangannya diperiksa apakah memenuhi syarat atau tidak. Biar lebih mudah memahaminya mari kita lihat potongan code program berikut ini:

int i=0;



do{

System.out.println(“Evi dahlia”);

i++;

}while(i<=10000);

Variabel kontrol perulangan tetap diinisialisasi diluar blok perulangan dan harus tetap bersifat incremental / bertambah dan letak incrementalnya ada dalam blok perulangan. Secara logika maka diagram yang bisa menggambarkan proses perulangan tersebut adalah:

Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendi dan menyebar dengan cara menyisipkan salinan diri nya kefalam program atau dokumen lain.virus komputer dapat merusak misal nya dengan merusak data pada dokumen,

Virus trojan adalah macam jenis nama virus komputer yang dibuat untuk tujuan mencuri data dan mengendalikan data yang ada di dalam komputer. Pada dasarnya trojan bukan sejenis virus, namun karena sifat trojan ini sangat menganggu maka orang-orang termasuk dalam golongan virus komputer. Untuk itu anda 

2. Virus Worm

Virus worm adalah sejenis program yang dapat menggandakan diri. Secara umum worm tidak menginfeksi virus, namun keberadaannya cukup berbahaya dimana worm mampu menggandakan diri dengan cepat sehingga apabila  komputer yang terserang worm dalam waktu cukup lama, dapat membuat sistem komputer menjadi rapuh. Dimana worm ini akan memenuhi data dalam memori dan hardisk komputer.

Lokasi penyebarannya melalui email dan jaringan internet. Sedangkan untuk mengatasinya bisa menggunakan antivirus biasa. Jika menggunakan antivirus pro malah lebih optimal hasilnya.

3. Memory Resident virus

Memory Resident Virus, seperti namanya macam jenis nama virus komputer ini dibuat untuk menginfeksi RAM. Dengan kata lain, virus ini berada di dalam memori komputer. Memory Resident Virus biasanya akan aktif jika sistem operasi komputer dinyalakan.

Keberadaan virus ini akan mengganggu program komputer yang seharusnya berjalan secara normal. Efek yang ditimbulkan dari keberadaan memory resident virus yaitu akan membuat sistem operasi komputer menjadi lemot.

4. Web scripting virus

Seperti namanya web scripting virus adalah sebuah kode program yang digunakan untuk mempercantik konten dalam website. Namun kode inilah yang justru akan mengganggu program, biasanya virus ini akan muncul saat terhubung internet.

Untuk sistem proteksi bisa dilakukan dengan menginstall Microsoft tool bawaan windows. Lakukan scan secara teratur menggunakan aplikasi ini.

5. Multipartite virus

Seperti memory resident virus dimana macam jenis nama virus komputer ini bersembunyi dalam RAM yang nantinya akan menginfeksi  sistem operasi tertentu kemudian menginfeksi hardisk. Cara mengatasinya yaitu dengan membersihkan adanya bad sector dan lakukan disk defragmenter (jika menggunakan OS windows).

6. FAT virus

FAT (File Allocation Table) adalah macam jenis nama virus komputer yang bertujuan untuk merusak file. Biasanya virus ini akan bersembunyi di tempat penyimpanan data pribadi. Dimana kemampuan virus ini adalah menyembunyikan file penting kita, sehingga seakan-akan file tersebut hilang karena sulit untuk kita cari.

Pencegahan : amati dan perhatikan data yang tersimpan di dalam hardisk. Apabila kita mencurigai adanya file yang tidak pernah kita buat untuk disimpan, berarti itu adalah FAT virus.

7. Companion virus

Companion virus merupakan jenis virus yang juga akan dapat mengganggu data pribadi. Virus ini akan bersembunyi di dalam hardisk. Dimana kemampuan virus ini akan membuat ekstensi yang berbeda dari ekstensi file yang asli. Lokasi di dalam hardisk, biasanya berkumpul dengan file baru. Pencegahan : install scan antivirus dan juga download firewall.

8. Polymorpic virus

Polymorpic virus merupakan jenis virus yang berkemampuan untuk menyandikan diri dengan cara yang berbeda saat menginfeksi sistem. virus ini boleh dikatakan virus yang pintar karena virus ini dapat mengubah strukturnya setelah melaksanakan tugas sehingga membuat sulit  anti virus

9. Directory virus

Directory virus, jenis virus ini memiliki kemampuan menginfeksi file dengan ekstensi exe atau com, lalu file tersebut akan dipindahkan. Dimana saat file dijalankan, maka secara otomatis virus ini akan terdeteksi dan akan menginfeksi sistem yang lain.

10. Macro virus

Marco Virus adalah macam jenis nama virus yang memiliki tingkah laku yang sama dengan kebanyakan virus, namun virus ini dibuat dengan bahasa pemrograman suatu aplikasi bukannya bahasa pemrograman suatu sistem operasi,misalnya macro yang terdapat di dalam microsoft word.

11. Boot sector virus

Bad sector adalah jenis virus dibuat untuk menginfeksi bagian terkecil dalam hardisk (sektor boot). Boot sector virus biasanya bersembunyi dalam floppy disk.

12. Overwrite viruses

Overwrite virus adalah jenis virus yang memiliki kemampuan untuk menghapus file atau data tanpa mengubah ukuran file tersebut. Sehingga pengguna tidak akan merasa curiga akan keberadaannya.

13. Direct action viruses

Direct Action Virus adalah virus yang menginfeksi file AUTOXEC BAT. Dimana file ini terletak pada directory hardisk dengan kemampuan menginfeksi perangkat eksternal

Abu travel lampung jakarta

Travel lampung jakarta.melayani rute lampung dan sekitar nya.dan jakarta sejabodetabek.silah kan yang mau pesan hubungi 081274505866-081541239606..travel ubat mikhak.
Atau untuk yang sateran ataupun ingin liburan silah kan hubungi abu travel  lampung jakarta.mobil luxio

Tugas psi pengertian dan jenis jenis virus pada komputer

  Pengertian dan jenis jenis virus pada komputer

        Virus komputer merupakan program        komputer yang dapat menggandakan atau  menyalin dirinya sendiri dan menyebar dengan   cara menyisipkan salinan dirinya kedalam program atau dokumen lain nya.

Efek dari virus komputer sangat beragam misal nya dengan merusak data pada dokumen, membuat pengguna komputer merasa terganggu. Perlu diketahui virus pada komputer pada umum nya bisa merusak software atau perangkat lunak komputer.

Virus komputer umum nya dapat merusak perangkat lunak komputer, dan tidak dapat  secara langsung merusak perangkat keras komputer,tetapi dapat mengakibatkan kerusakan dengan cara membuat program yang memaksa over process keperangkat tertentu.

    Macam macam virus pada komputer



1.Virus Trojan

Virus trojan adalah macam jenis nama virus komputer yang dibuat untuk tujuan mencuri data dan mengendalikan data yang ada di dalam komputer. Pada dasarnya trojan bukan sejenis virus, namun karena sifat trojan ini sangat menganggu maka orang-orang termasuk dalam golongan virus komputer. Untuk itu anda harus waspada akan keberadaan virus trojan 

Lokasi penyebaran yang utama yaitu akses yang terhubung ke internet, seperti email dan data pribadi yang tidak dipassword. Untuk mengatasinya yaitu dengan menggunakan antivirus khusus untuk trojan, seperti Trojan remover dan Trojan hunter.

2. Virus Worm

Virus worm adalah sejenis program yang dapat menggandakan diri. Secara umum worm tidak menginfeksi virus, namun keberadaannya cukup berbahaya dimana worm mampu menggandakan diri dengan cepat sehingga apabila  komputer yang terserang worm dalam waktu cukup lama, dapat membuat sistem komputer menjadi rapuh. Dimana worm ini akan memenuhi data dalam memori dan hardisk komputer.

Lokasi penyebarannya melalui email dan jaringan internet. Sedangkan untuk mengatasinya bisa menggunakan antivirus biasa. Jika menggunakan antivirus pro malah lebih optimal hasilnya.

3. Memory Resident virus

Memory Resident Virus, seperti namanya macam jenis nama virus komputer ini dibuat untuk menginfeksi RAM. Dengan kata lain, virus ini berada di dalam memori komputer. Memory Resident Virus biasanya akan aktif jika sistem operasi komputer dinyalakan.

Keberadaan virus ini akan mengganggu program komputer yang seharusnya berjalan secara normal. Efek yang ditimbulkan dari keberadaan memory resident virus yaitu akan membuat sistem operasi komputer menjadi lemot.

4. Web scripting virus

Seperti namanya web scripting virus adalah sebuah kode program yang digunakan untuk mempercantik konten dalam website. Namun kode inilah yang justru akan mengganggu program, biasanya virus ini akan muncul saat terhubung internet.

Untuk sistem proteksi bisa dilakukan dengan menginstall Microsoft tool bawaan windows. Lakukan scan secara teratur menggunakan aplikasi 

5. Multipartite virus

Seperti memory resident virus dimana macam jenis nama virus komputer ini bersembunyi dalam RAM yang nantinya akan menginfeksi  sistem operasi tertentu kemudian menginfeksi hardisk. Cara mengatasinya yaitu dengan membersihkan adanya bad sector dan lakukan disk defragmenter (jika menggunakan OS windows).

6. FAT virus

FAT (File Allocation Table) adalah macam jenis nama virus komputer yang bertujuan untuk merusak file. Biasanya virus ini akan bersembunyi di tempat penyimpanan data pribadi. Dimana kemampuan virus ini adalah menyembunyikan file penting kita, sehingga seakan-akan file tersebut hilang karena sulit untuk kita cari.

Pencegahan : amati dan perhatikan data yang tersimpan di dalam hardisk. Apabila kita mencurigai adanya file yang tidak pernah kita buat untuk disimpan, berarti itu adalah FAT virus.

7. Companion virus

Companion virus merupakan jenis virus yang juga akan dapat mengganggu data pribadi. Virus ini akan bersembunyi di dalam hardisk. Dimana kemampuan virus ini akan membuat ekstensi yang berbeda dari ekstensi file yang asli. Lokasi di dalam hardisk, biasanya berkumpul dengan file baru. Pencegahan : install scan antivirus dan juga download firewall.

8. Polymorpic virus

Polymorpic virus merupakan jenis virus yang berkemampuan untuk menyandikan diri dengan cara yang berbeda saat menginfeksi sistem. virus ini boleh dikatakan virus yang pintar karena virus ini dapat mengubah strukturnya setelah melaksanakan tugas sehingga membuat sulit dideteksi oleh anti virus.

9. Directory virus

Directory virus, jenis virus ini memiliki kemampuan menginfeksi file dengan ekstensi exe atau com, lalu file tersebut akan dipindahkan. Dimana saat file dijalankan, maka secara otomatis virus ini akan terdeteksi dan akan menginfeksi sistem yang lain.

10. Macro virus

Marco Virus adalah macam jenis nama virus yang memiliki tingkah laku yang sama dengan kebanyakan virus, namun virus ini dibuat dengan bahasa pemrograman suatu aplikasi bukannya bahasa pemrograman suatu sistem operasi,misalnya macro yang terdapat di dalam microsoft word.

11. Boot sector virus

Bad sector adalah jenis virus dibuat untuk menginfeksi bagian terkecil dalam hardisk (sektor boot). Boot sector virus biasanya bersembunyi dalam floppy disk.

12. Overwrite viruses

Overwrite virus adalah jenis virus yang memiliki kemampuan untuk menghapus file atau data tanpa mengubah ukuran file tersebut. Sehingga pengguna tidak akan merasa curiga akan keberadaannya.

13. Direct action viruses

Direct Action Virus adalah virus yang menginfeksi file AUTOXEC BAT. Dimana file ini terletak pada directory hardisk dengan kemampuan menginfeksi perangkat eksternal.

Tugas psi pengertian hacker

      Pengertian hacker dan macam nya

Hacker adalah seseorang yang melakukan keahlian dengan sistem komputer dan programan, istilah hacker digunakan untuk menggambarkan para revolusioner komputer yang menjadi cikal bakal para pendiri perusahaan komputer. Hacker banyak aktivitas nya ialah mengamankan sistem komputer agar tidak mudah disusupi dari program program jahat.

Berikut jenis jenis hacker

1. Whaite hat hacker adalah hacker yang memegang teguh standar etika, akses kesistem komputer dilakukan bukan untuk tujuan yang merugikan, tapi untuk menguji ketahanan sistem tersebut. Jadi hacker jenis ini senang mempelajari sebuah jaringan sistem, jadi whate hat hacker ialah hacker yang sebenar nya.

2. Black hat hacker adalah hacker berorientasi cruminal dengan sifat perusak, biasa nya mereka ada diluar security dan oleh para programers, biasa nya black hat hacker seorang memiliki pengetahuan tentang kecatatan sistem dan mengeksplotasinya untuk mendapat kan keuntungan pribadi.
Banyak black hat hacker ini mengutamakan kebebasan individu dari pada accessibility dari privacy dan security.black hat ini akan mencari cara untuk membuat lubang yang terbuka pada sistem menjadi semakin besar, black hat hacker ini akan bekerja menghasilkan keerusakan dan untuk mengancam dan memeras seseorang.

3. Red hat hacker
Secara sederhana, red hat hacker beerpikir dengan
 * hat (fire ),
*Intuition,
*opinion
*emotion (subjective).

4. Yellow hat hacker
Secara sederhana,yellow hat hacker berpikir dengan
*hat ( sun ),
*praise
*positive aspects (objective)

5. Green hat hacker
Secara sederhana, seorang green hat hacker berpikir
* hat (sky)
*big picture
*conductor hat
*thinking about thinking
*overall process

Menunjukkan pada peerusahaan  konsultasi komputer security yang digunakan untuk menjalan kan bug test sebelum sistem dijalan kan.

6. Gray hat hacker dengan skill yang terkadang kadang bertindak secara legal dengan dengan itikad baik, tapi kadabg juga tidak. Ia adalah perpaduan dari white dan black hat hacker.
Mereka meng hack untuk kepentingan pribadi tapi tidak memiliki tujuan yang merusak.jimialibaba.blogspot.com

Tugas 3.1

Private Sub Cbokode_Click()
Dim merk, harga As String

Select Case Cbokode.Text
Case "Apple MC965 MacBook Air"
merk = "Apple MacBook Air MC965"
harga = "12800000"

Case "Apple MC966 MacBook Air"
merk = "Apple MacBook Air MC966"
harga = "15800000"

Case "Apple MC968 MacBook Air"
merk = "Apple MacBook Air MC968"
harga = "9900000"

Case "Apple MC969 MacBook Air"
merk = "Apple MacBook Air MC969"
harga = "11900000"

Case "Apple MC700 MacBook Pro"
merk = "Apple MacBook Pro MC700"
harga = "10800000"

Case "Apple MC721 MacBook Pro"
merk = "Apple MacBook Pro MC721"
harga = "15900000"

Case "Apple MC723 MacBook Pro"
merk = "Apple MacBook Pro MC723"
harga = "19300000"

Case "Apple MC724 MacBook Pro"
merk = "Apple MacBook Pro MC724"
harga = "13700000"

Case "Apple MC311 MacBook Pro"
merk = "Apple MacBook Pro MC311"
harga = "24200000"

Case "Apple MC313 MacBook Pro"
merk = "Apple MacBook Pro MC313"
harga = "11900000"

Case "Apple MC314 MacBook Pro"
merk = "Apple MacBook Pro MC314"
harga = "14700000"

Case "Apple MC318 MacBook Pro"
merk = "Apple MacBook Pro MC318"
harga = "17600000"

Case "Apple MC322 MacBook Pro"
merk = "Apple MacBook Pro MC322"
harga = "21300000"


End Select
Txtmerk.Text = merk
Txths.Text = harga
Txtjj.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttotal = ""
End Sub

Private Sub cmdProses_Click()
Dim dis As String
Txthp = Val(Txtjj) * Val(Txths)

Select Case Txthp.Text
Case Is > 140000000
dis = Val(Txthp) * 0.15
Case Is > 135000000
dis = Val(Txthp) * 0.1
Case Is > 130000000
dis = Val(Txthp) * 0.05
Case Is > 120000000
dis = Val(Txthp) * 0.02
End Select
Txtdis.Text = dis

Txttotal = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Txtmerk.Enabled = False
Txths.Enabled = False
Txthp.Enabled = False
Txtdis.Enabled = False
Txttotal.Enabled = False

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

Tugas 3.5

Private Sub cmdBatal_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdProses_Click()
Dim kode As String

txtTahun = Left(txtNik.Text, 4)
txtKode = Mid(txtNik, 6 ,1)

kode = Mid(txtNik.Text, 5, 1)
If kode = "A" Then
txtGol = "A"
txtJabatan = "Manager"
txtGapok = "4000000"
txtTunjangan.Text = "1025000"
ElseIf kode = "B" Then
txtGol = "B"
txtJabatan = "Ka. Seksi"
txtGapok = "3500000"
txtTunjangan = "975000"
ElseIf kode = "C" Then
txtGol = "C"
txtJabatan = "Staff"
txtGapok = "Ka. Seksi"
txtTunjangan = "925000"
End If

kode = Right(txtNik, 3)
If kode = "KEU" Then
txtBagian = "Accounting"
ElseIf kode = "ADM" Then
txtBagian = "Administrasi"
ElseIf kode = "SDM" Then
txtBagian = "General Affair"
ElseIf kode = "EDP" Then
txtBagian = "IT Unit"
ElseIf kode = "SPM" Then
txtBagian = "Security"
End If

kode = Mid(txtNik, 6, 1)
If kode = "S" Then
txtStatus = "Single"
ElseIf kode = "M" Then
txtStatus = "Menikah"
ElseIf kode = "J" Then
txtStatus = "Janda"
ElseIf kode = "D" Then
txtStatus = "Duda"
End If

txtTotalg = Val(txtGapok) + Val(txtTunjangan)

If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If

End Sub

Private Sub Form_Load()
txtGol.Enabled = False
txtKode.Enabled = False
txtStatus.Enabled = False
txtTahun.Enabled = False
txtJabatan.Enabled = False
txtBagian.Enabled = False
txtGapok.Enabled = False
txtTunjangan.Enabled = False
txtTotalg.Enabled = False
txtTerbilang.Enabled = False
End Sub

Private Sub txtTotalg_Change()
On Error Resume Next
If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If
End Sub

Module 3.5
'membuat fungsi angka terbilang
Public Function AngkaTerbilang(ByVal nilai As Currency) As String
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
    Case 0 To 11
        AngkaTerbilang = "" + satuan(Fix(nilai))
    Case 12 To 19
        AngkaTerbilang = AngkaTerbilang(nilai Mod 10) + "Belas"
    Case 20 To 99
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 10)) + "Puluh" + AngkaTerbilang(nilai Mod 10)
    Case 100 To 199
        AngkaTerbilang = "Seratus" + AngkaTerbilang(nilai - 100)
    Case 200 To 999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 100)) + "Ratus" + AngkaTerbilang(nilai Mod 100)
    Case 1000 To 1999
        AngkaTerbilang = "Seribu" + AngkaTerbilang(nilai - 1000)
    Case 2000 To 999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000)) + "Ribu" + AngkaTerbilang(nilai Mod 1000)
    Case 1000000 To 999999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000)) + "Juta" + AngkaTerbilang(nilai Mod 1000000)
    Case Else
    AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000000)) + "Milyar" + AngkaTerbilang(nilai Mod 1000000000)
End Select
End Function

Tugas 3.2

Private Sub cmdBatal_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdProses_Click()
Dim kode As String

kode = Mid(Cbokode.Text, 3, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Yati Nur Oktavia"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Imam Tarmizi"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Valentina Mariana Adiwianti"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Riyan Suhandi"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Sinta Umpu Singa"
TxtHarga.Text = "83000"
End If

kode = Left(Cbokode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Right(Cbokode.Text, 2)
End Sub

Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False

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

Tugas 3.3

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalb = ""
End Sub

Private Sub cmdproses_Click()
Dim kode As String

kode = Left(txtkt.Text, 3)
If kode = "BIM" Then
txtht.Text = "50000"
txtjk.Text = "BIMA"
txtjb.Text = "16.00"
ElseIf kode = "EKO" Then
txtht.Text = "35000"
txtjk.Text = "EKONOMI"
txtjb.Text = "19.00"
ElseIf kode = "MUT" Then
txtht.Text = "23000"
txtjk.Text = "MUTIARA"
txtjb.Text = "17.00"
ElseIf kode = "SEN" Then
txtht.Text = "15000"
txtjk.Text = "SENJA"
txtjb.Text = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub Form_Load()
txtht.Enabled = False
txtjk.Enabled = False
txtjb.Enabled = False
txttotalp.Enabled = False
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub