PPDB SMP MAKARYA JAKARTA TAHUN 2020/2021

INFORMASI DAN PENDAFTARAN :Awaludin, S.E.I.                   : 0857 7756 2550 Nurcahyo Pramono,SE.      : 0856 9751 9227Eko Hermanto                      : 0878 7566 2672Nopiah Purnama, S.Pd.       : 0857 5919 9828Eki Rahmawati, S.Kep.        : 0878 3931 3584Tugino                                   : 08788 6030 772

Cara Edit Teks Pada File PDF Apakah file pdf bisa diedit? Bagimana caranya? Itulah pertanyaan yang sering muncul ketika saya denger dari teman-teman baik di kantor maupun di luar kantor. Adakalanya dari sekian banyak file pdf yang anda print untuk dijadikan laporan/dokumen memiliki kesalahan dalam penulisan teks, padahal anda sudah menggabungkan sekian banyak halaman dari file-file tersebut menjadi satu kesatuan laporan, misalnya. Jika sudah seperti ini, maka anda berpikir untuk menyusun ulang file tersebut, namun betapa repotnya jika anda harus menge-print ulang dokumen word ke pdf dan menyisipkannya kembali ke halaman di mana letak kesalahan teks tersebut berada. cara edit teks pdf secara mudah Pada tutorial pdf kali ini, akan ditunjukkan bagaimana menyunting teks pada file pdf dan mengganti teks (kata/kalimat) dengan tulisan yang baru. Sebagai demo pada panduan tips dan trik pdf kali ini, aplikasi pdf yang digunakan yaitu Adobe Acrobat X (jangan salah ya... adobe acrobat, bukan adobe reader). Jika anda menggunakan versi acrobat yang lain selain versi X, bisa saja hanya tampilannya letak toolbarnya saja yang mungkin berbeda namun pada prinsipnya caranya sama. Berikut contoh file pdf yang akan di-edit dari kesalahan/kekurangan penulisan pada file pdf: walidin.net menjadi http://walidin.net, troubleshuoting menjadi troubleshooting, infromasi menjadi informasi. Buka file pdf yang ingin anda edit cara-edit-teks-pdf Klik Tool dan pilih Edit Decument Text. Kemudian klik pada teks salah yang ingin di revisi. cara-mengedit-teks-pdf Edit kesalahan penulisan text yang lainnya cara-mengubah-teks-pdf cara-menyunting-teks-pdf Save untuk menyimpan hasil perbaikan file pdf kamu. cara-koreksi-teks-pada-file-pdf Dengan software pdf yaitu adobe acrobat, sebenarnya kasus kesalahan penulisan teks seperti di atas bisa diatasi dengan sedikit tips dan trik, karena adobe acrobat dapat memperbaiki kesalahan penulisan teks pada file pdf. Cara edit file pdf pun tidak susah dan hanya membutuhkan beberapa klik saja, karena aplikasi acrobat sebagai aplikasi pdf edit yang paling bagus & populer, memiliki tool yang cukup ampuh untuk memodifikasi setiap kesalahan yang anda lakukan ketika bekerja dengan file pdf. Mudah kan untuk mengedit kesalahan teks yang mungkin anda buat ketika bekerja dengan file pdf ? Semoga panduan tentang tips dan trik file pdf bisa bermanfaat buat anda. Jangan lupa tunggu tutorial tips dan trik berikutnya.

Edaran Pengendalian penggunaan KJP 2016

http://disdik.jakarta.go.id/index.php/2-uncategorised/256-surat-edaran-nomor-57-se-2016-tentang-pengendalian-penggunaan-dana-kartu-jakarta-pintar-tahun-anggaran-2016

Edaran Pasar Murah daging bersubsidi untuk penerima KJP

http://disdik.jakarta.go.id/index.php/2-uncategorised/255-surat-edaran-nomor-56-se-2016-tentang-kegiatan-pasar-murah-daging-bersubsidi-untuk-penerima-kartu-jakarta-pintar-tahun-anggaran-2016

Edaran Mutasi Peserta Didik sd-smp-smk

http://disdik.jakarta.go.id/index.php/2-uncategorised/257-surat-edaran-nomor-59-se-2016-tentang-perpindahan-mutasi-peserta-didik-sd-smp-sma-dan-smk

Rincian Biaya PPDB SMP Makarya 2016/2017

CARA MEMBUAT ADD IN TERBILANG UNTUK MICROSOFT EXCEL 2007

CARA MEMBUAT ADD IN TERBILANG UNTUK MICROSOFT EXCEL 2007

Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel 2007. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.

Langkah-langkahnya sebagai berikut :
1. Copy paste kode dibawah ini pada notepad ("Terbilang dengan akhiran rupiah" atau "Terbilangan tanpa akhiran rupiah")
2. Lalu Save As dengan akhiran "terbilang.xlam" dan taruh terserah anda, contoh c:/My Documents
3. Kemuadian buka excel 2007
4. Excel Option

5.Pilih tabs "Add-Ins", lalu "Go…".

6. Muncul kotak berikut tekan pada tombol "Browse"

7. Cari file yang anda simpan tadi (misal di c:/My Documents)

8. Klik tombol "Ok" lalu akan muncul kotak berikut :

9. Klik Ok lagi untuk menyeselaikan proses pemasangan Add-Ins
Sekarang kita check apakah fungsi tersebut berfungsi. Untuk memakainya anda perlu mengetahui formulanya. Misal angka yang hendak anda buatkan terbilangnya ada di cell "A1", maka formulanya adalah sebagai berikut :
=terbilang(A1,4,"Rupiah.")

Kode Terbilang dengan akhiran rupiah :

Attribute VB_Name = "Module1"
Option Explicit

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "RIBU "
Place(3) = "JUTA "
Place(4) = "MILYAR "
Place(5) = "TRILYUN "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "NOL RUPIAH"
Case Else
Rupiah = Rupiah & "RUPIAH"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " DAN " & Sen & "SEN"
End Select

If IsNeg = True Then
Terbilang = "MINUS " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function


' Mengubah angka 100-999 menjadi teks *
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "SE"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "SERATUS "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "RATUS "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function


'*******************
' Mengubah puluhan *
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "SEPULUH "
Case 11: Result = "SEBELAS "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "BELAS "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "PULUH "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function


'********************************
' Mengubah satuan menjadi teks. *
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "SATU "
Case 2: Satuan = "DUA "
Case 3: Satuan = "TIGA "
Case 4: Satuan = "EMPAT "
Case 5: Satuan = "LIMA "
Case 6: Satuan = "ENAM "
Case 7: Satuan = "TUJUH "
Case 8: Satuan = "DELAPAN "
Case 9: Satuan = "SEMBILAN "
Case Else: Satuan = ""
End Select
End Function

Kode terbilang tanpa akhiran rupiah : 

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select

If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function


'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function


'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function


'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function