2.PERKALIAN BILANGAN
Jumat, 30 Agustus 2019
Jumat, 23 Agustus 2019
PERULANGAN (LOOPING) PADA JAVA
perulangan
adalah suatu perintah yang ada didalam blok perulangan tersebut secara berulang ulang sesuai dengan nilai yang ditentukan atau sampai mencapai sebuah batas tertentu dari sebuah perulangan tersebut.
Dan sekarang kita akan membuat contoh programnya di java.
1.while
perulangan while bekerja dengan cara apabila kondisi while itu terpenuhi atau bernilai true maka perulangan tersebut akan terus dilakukan sampai bernilai false.
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
int i=1;
i++;
while (i <= 5){
syestem.out.print1n(i);
}
}
}
Dan sekarang kita akan membuat contoh programnya di java.
1.while
perulangan while bekerja dengan cara apabila kondisi while itu terpenuhi atau bernilai true maka perulangan tersebut akan terus dilakukan sampai bernilai false.
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
int i=1;
i++;
while (i <= 5){
syestem.out.print1n(i);
}
}
}
2.DO-WHILE
DO-while seperti while tetepi, jika do-while minimal satu kali melakukan suatu pekerjaan yang ada di dalam blok do-while tersebut akan mengulang terus sampai while bernilai false.
contoh:
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
int i=1;
}while (i <= 5);
do {
syestem.out.print1n(i);
i++;
}
}
DO-while seperti while tetepi, jika do-while minimal satu kali melakukan suatu pekerjaan yang ada di dalam blok do-while tersebut akan mengulang terus sampai while bernilai false.
contoh:
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
int i=1;
}while (i <= 5);
do {
syestem.out.print1n(i);
i++;
}
}
3.for
for adalah perulangan yang jumlah perulanganya sudah ditentukan sebelumnya dengan kata lain perulangan blok dalam for sudah ditentukan sebelumnya.
contoh :
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
}
for (int i=1; i<=5; i++){
syestem.out.print1n(i);
}
}
package looping;
/**
*
*/
* @author MARINIARIDA
/**
Public class looping {
*@param args the comand line arguments
*/
public static void main (String[] args {
}
for (int i=1; i<=5; i++){
syestem.out.print1n(i);
}
}
Jumat, 25 Januari 2019
Macam macam hecker
5 Jenis Hacker dan Teknik Yang Biasa dilakukan Hacker
A. Jenis – jenis Hacker
1. Script Kiddie Hacker
Hacker jenis ini tidak terlalu menguasai sistem komputer. Namun bukan berarti jenis hacker ini tidak dapat menembus sistem komputer. Mereka memaanfaatkan software buatan orang lain untuk menembus suatu sistem jaringan komputer.
2. Hactivist Hacker
Kemampuan jenis hacker ini digunakan untuk menyebarkan pesan-pesan yang bersinggungan dengan politil, sosial, agama serta ideologi. Biasanya mereka melakukan tekni deface pada setiap website yang berhasil diretas untuk menampilkan pesan-pesan tersebut pada website yang menjadi korban retasan hacker.
3. Grey Hat Hacker
Jenis hacker ini tidak memiliki ketetapan prinsip. Karena Grey hat Hacker selalu berada ditengah antara White hat dan black hat. terkadang hecker ini bisa memiliki etika dalam menumbus sisten, tetapi juga terkadang melanggar aturan hukum.
4. Black Hat Hacker
Jenis hacker ini bersifat merusak keamanan suatu sistem jaringan. Mulai dari pencurian identitas, menghapus file dan berbagi kerusakan lain yang sangat merugikan. Jenis hacker ini disebut jug cracker.
5. White Hat Hacker
Jenis hacker ini ini sangat teguh pada prinsip dan etika yang ditetapkan. Tujuan white hat hacker hanya untuk menguji ketahanan suatu sistem jaringan. Kebanyakan jenis hacker ini memiliki profesi konsultant keamanan suatu serve atau website.
B. Teknik yang biasa dilakukan hacker
1. Social Engineering
Media sosial merupakan target utama seorang hacker dalam menyebarkan virus komputer. Meskipun bisa dikatakan bukan merupakan teknik penghackingan namun media sosial dapat dijadikan umpan perangkap dari hacker untuk para pengguna.
2. Distributed Denial of Service
Teknik hacking yang satu ini dikenal dengan nama DDOS. Tennik ddos merupakan teknik yang dilakukan hacker dan digunakan agar sistem pada suatu jaringan tidak dapat diakses kembali. Prinsip kerja seorang hacker dengan menggunakan teknik ddos yaitu dengan memberikan sejumlah paket data secara tidak terbatas kepada server yang menjadi tujuan. Hingga akhirnya server tersebut tidak mampu lagi menerima lalu mengalami Down System sehingga sistem tidak dapat diakses kembali. Hacker jenis ini biasa berkoloni dalam pengerjaanya.
3. Phising Technique
Phising adalah suatu teknik yang digunakan untuk tujuan mendapatkan suatu email dan password suatu akun sosial media. Para hacker melakukannya dengan membuat replika halaman yang sengaja diciptakan untuk mengetahui email dna passwor pengguna sosial media yang menjadi sasaran. Akun media yang sering menjadi sasaran twitter, instagram.
4. Bruteforce Technique atau WP Bruteforce
Teknik yang satu ini biasa dilakukan para hacker pada website yang berasal dari wordpress. Prinsip kerja teknik yang satu ini dilakukan dengan cara “manual”. Sebab teknik ini dilakukan dengan cara main tebak suatu password beserta usernya yang berasal dari sebuah website.
Teknik WP bruteforce dibuat atas dua program. Dimana program pertama merupakan “sang eksekutor” dan program yang lainnya merupakan suatu list keyword yang digunakan untuk menebak-nebak user name beserta passwordnya. Listnya bisa didapat dari google.
5. Deface technique
Teknik defice ini merupakan teknik yang dilakukan oleh para Hacker setelah berhasil meretas sebuah website. Teknik dilakukan dengan sengaja untuk meninggalkan “jejak” peretasan pada website yang telah diretas dengan cara menukar tampilan halaman yang telah didesign hacker tersebut. Zone-H merupakan tempat khusus bagi hacker untuk menunjukkan hasil dari defacingnya.
6. SQL Injection
Teknik SQL Injection dilakukan dengan cara memanfaatkan eror sistem pada website tersebut. Teknik SQL merupakan teknik yang sifatnya sangat mudah dan sederhana yang dilakukan oleh para hacker. Teknik ini memanfaatkan google dork untuk mencari suatu website yang sifatnya mudah untuk diretas.
Macam macam virus
Macam Jenis Nama Virus Komputer dan Cara Mengatasinya
Belum ada rating untuk artikel ini.
Mengenal Macam Jenis Nama Nama Virus Komputer dan Malware Komputer Terbaru Serta Cara Penyebarannya – Salah satu penyebab terbesar komputer rusak dan eror yaitu pada saat komputer terkena virus. Virus pada komputer ini tak hanya menyebabkan komputer atau suatu program eror tapi juga akan menyebabkan file atau dokumen anda terancam keberadaannya.
Saat ini sudah ada cukup banyak jenis jenis virus pada komputer. Virus komputer biasanya diciptakan untuk tujuan yang yang buruk, banyak efek buruk yang di timbulkan oleh virus komputer seperti memperbanyak dirinya sendiri sehingga memori hardisk dan ram menjadi kecil.
Hal ini menjadikan komputer sering lemot, hang atau freeze, lalu mengubah format ekstensi pada file dan program yang membuat program/file tersebut tidak bisa di gunakan, dan dapat juga mencuri data pribadi seseorang tanpa sepengetahuan orang tersebut. selain itu juga virus dapat merusak komponen hardware pada komputer.
Berikut penjelasan mengenai Macam Jenis Nama Nama Virus Komputer dan Malware Komputer Terbaru Serta Cara Penyebarannya yang harus anda ketahui, antara lain :

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 ini.
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 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 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
Itulah penjelasan mengenai macam macam jenis nama virus komputer. Semoga informasi ini dapat memberikan manfaat dan diharapkan bisa langsung menyadari keberadaan virus ini dan melakukan tindakan yang tepat pada saat komputer terserang virus yaitu dengan memasang atau menginstall Anti Virus dan Anti Malware terbaik di komputer dan laptop Anda.
Minggu, 13 Januari 2019
TUGAS 3.1 ENTRI PENJUALAN LAPTOP APPLE
Private Sub Cbokode_Click()
Dim kode As String
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 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
Private Sub cmdLagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttotal = ""
End Sub
Private Sub cmdKeluar_Click()
end
End Sub
TUGAS 3.5 PT.PULANG PETANG SETIAP PAGI
Private Sub Cmdbatal_Click()
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub
Private Sub Cmdproses_Click()
Dim s As String
s = Mid(Txtnik, 5, 1)
If s = "A" Then
Txtgol = "A"
Txtjb = "Manager"
Txtgp = "4000000"
Txttjg = "1025000"
ElseIf s = "B" Then
Txtgol = "B"
Txtjb = "Ka. Seksi"
Txtgp = "3500000"
Txttjg = "975000"
ElseIf s = "C" Then
Txtgol = "C"
Txtjb = "Staff"
Txtgp = "3000000"
Txttjg = "925000"
End If
s = Mid(Txtnik, 7, 1)
If s = "S" Then
Txtks = "S"
Txtst = "Single"
ElseIf s = "M" Then
Txtks = "M"
Txtst = "Menikah"
ElseIf s = "J" Then
Txtks = "J"
Txtst = "Janda"
ElseIf s = "D" Then
Txtks = "D"
Txtst = "Duda"
End If
s = Right(Txtnik, 3)
If s = "KEU" Then
Txtbag = "Accounting"
ElseIf s = "ADM" Then
Txtbag = "Administrasi"
ElseIf s = "SDM" Then
Txtbag = "General Affair"
ElseIf s = "EDP" Then
Txtbag = "IT Unit"
ElseIf s = "SPM" Then
Txtbag = "Security"
End If
Txtth = Left(Txtnik, 4)
Txttg = Val(Txtgp) + Val(Txttjg)
Txtterbilang.Text = Terbilang(Txttg.Text)
Txtnk.SetFocus
End Sub
Function Terbilang(Angka As String) As String
Dim n1 As String
Dim nangka, Strjmlhuruf$, intpecahan As Integer, strpecahan$, urai$, Bil1$, strtot$, bil2$
Dim x, Y, z, i As Integer
For i = 1 To Len(Angka)
If Not Mid(Angka, i, 1) = "." Then
nangka = nangka + Mid(Angka, i, 1)
End If
Next
If Len(LTrim(nangka)) = 0 Then
terbit = "Nol Rupiah"
Exit Function
End If
Strjmlhuruf = LTrim(RTrim((nangka)))
intpecahan = Val(Right(Mid(Angka, 15, 2), 2))
If (intpecahan = 0) Then
strpecahan = ""
End If
x = 0
Y = 0
urai = ""
While (x < Len(Strjmlhuruf))
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
Y = Y + Val(strtot)
z = Len(Strjmlhuruf) - x + 1
Select Case Val(strtot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "Satu "
ElseIf (z = 4) Then
If (x = 1) Then
Bil1 = "Se"
Else
Bil1 = "Satu "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
z = Len(Strjmlhuruf) - x + 1
bil2 = ""
Select Case Val(strtot)
Case 0
Bil1 = "Sepuluh "
Case 1
Bil1 = "Sebelas "
Case 2
Bil1 = "Dua Belas "
Case 3
Bil1 = "Tiga Belas "
Case 4
Bil1 = "Empat Belas "
Case 5
Bil1 = "Lima Belas "
Case 6
Bil1 = "Enam Belas "
Case 7
Bil1 = "Tujuh Belas "
Case 8
Bil1 = "Delapan Belas "
Case 9
Bil1 = "Sembilan Belas "
End Select
Else
Bil1 = "Se"
End If
Case 2
Bil1 = "Dua "
Case 3
Bil1 = "Tiga "
Case 4
Bil1 = "Empat "
Case 5
Bil1 = "Lima "
Case 6
Bil1 = "Enam "
Case 7
Bil1 = "Tujuh "
Case 8
Bil1 = "Delapan "
Case 9
Bil1 = "Sembilan "
Case Else
Bil1 = ""
End Select
If (Val(strtot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
bil2 = "Puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
bil2 = "Ratus "
Else
bil2 = ""
End If
Else
bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4
bil2 = bil2 + "Ribu "
Y = 0
Case 7
bil2 = bil2 + "Juta "
Y = 0
Case 10
bil2 = bil2 + "Milyar "
Y = 0
Case 13
bil2 = bil2 + "Trilyun "
Y = 0
End Select
End If
urai = urai + Bil1 + bil2
Wend
urai = urai + strpecahan
Terbilang = urai & "Rupiah "
Terbilang = LCase(Terbilang)
n1 = UCase(Left(Terbilang, 1))
Terbilang = n1 & Mid(Terbilang, 2, Len(Terbilang) - 1)
End Function
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub
Private Sub Cmdproses_Click()
Dim s As String
s = Mid(Txtnik, 5, 1)
If s = "A" Then
Txtgol = "A"
Txtjb = "Manager"
Txtgp = "4000000"
Txttjg = "1025000"
ElseIf s = "B" Then
Txtgol = "B"
Txtjb = "Ka. Seksi"
Txtgp = "3500000"
Txttjg = "975000"
ElseIf s = "C" Then
Txtgol = "C"
Txtjb = "Staff"
Txtgp = "3000000"
Txttjg = "925000"
End If
s = Mid(Txtnik, 7, 1)
If s = "S" Then
Txtks = "S"
Txtst = "Single"
ElseIf s = "M" Then
Txtks = "M"
Txtst = "Menikah"
ElseIf s = "J" Then
Txtks = "J"
Txtst = "Janda"
ElseIf s = "D" Then
Txtks = "D"
Txtst = "Duda"
End If
s = Right(Txtnik, 3)
If s = "KEU" Then
Txtbag = "Accounting"
ElseIf s = "ADM" Then
Txtbag = "Administrasi"
ElseIf s = "SDM" Then
Txtbag = "General Affair"
ElseIf s = "EDP" Then
Txtbag = "IT Unit"
ElseIf s = "SPM" Then
Txtbag = "Security"
End If
Txtth = Left(Txtnik, 4)
Txttg = Val(Txtgp) + Val(Txttjg)
Txtterbilang.Text = Terbilang(Txttg.Text)
Txtnk.SetFocus
End Sub
Function Terbilang(Angka As String) As String
Dim n1 As String
Dim nangka, Strjmlhuruf$, intpecahan As Integer, strpecahan$, urai$, Bil1$, strtot$, bil2$
Dim x, Y, z, i As Integer
For i = 1 To Len(Angka)
If Not Mid(Angka, i, 1) = "." Then
nangka = nangka + Mid(Angka, i, 1)
End If
Next
If Len(LTrim(nangka)) = 0 Then
terbit = "Nol Rupiah"
Exit Function
End If
Strjmlhuruf = LTrim(RTrim((nangka)))
intpecahan = Val(Right(Mid(Angka, 15, 2), 2))
If (intpecahan = 0) Then
strpecahan = ""
End If
x = 0
Y = 0
urai = ""
While (x < Len(Strjmlhuruf))
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
Y = Y + Val(strtot)
z = Len(Strjmlhuruf) - x + 1
Select Case Val(strtot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "Satu "
ElseIf (z = 4) Then
If (x = 1) Then
Bil1 = "Se"
Else
Bil1 = "Satu "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
z = Len(Strjmlhuruf) - x + 1
bil2 = ""
Select Case Val(strtot)
Case 0
Bil1 = "Sepuluh "
Case 1
Bil1 = "Sebelas "
Case 2
Bil1 = "Dua Belas "
Case 3
Bil1 = "Tiga Belas "
Case 4
Bil1 = "Empat Belas "
Case 5
Bil1 = "Lima Belas "
Case 6
Bil1 = "Enam Belas "
Case 7
Bil1 = "Tujuh Belas "
Case 8
Bil1 = "Delapan Belas "
Case 9
Bil1 = "Sembilan Belas "
End Select
Else
Bil1 = "Se"
End If
Case 2
Bil1 = "Dua "
Case 3
Bil1 = "Tiga "
Case 4
Bil1 = "Empat "
Case 5
Bil1 = "Lima "
Case 6
Bil1 = "Enam "
Case 7
Bil1 = "Tujuh "
Case 8
Bil1 = "Delapan "
Case 9
Bil1 = "Sembilan "
Case Else
Bil1 = ""
End Select
If (Val(strtot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
bil2 = "Puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
bil2 = "Ratus "
Else
bil2 = ""
End If
Else
bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4
bil2 = bil2 + "Ribu "
Y = 0
Case 7
bil2 = bil2 + "Juta "
Y = 0
Case 10
bil2 = bil2 + "Milyar "
Y = 0
Case 13
bil2 = bil2 + "Trilyun "
Y = 0
End Select
End If
urai = urai + Bil1 + bil2
Wend
urai = urai + strpecahan
Terbilang = urai & "Rupiah "
Terbilang = LCase(Terbilang)
n1 = UCase(Left(Terbilang, 1))
Terbilang = n1 & Mid(Terbilang, 2, Len(Terbilang) - 1)
End Function
Langganan:
Postingan (Atom)

