Cara Mengurus Paspor di Medan

Assalamualaikum,

Kali ini saya akan memposting sesuatu yang berbeda dengan dunia IT. Saya akan memberi tahu cara mengurus paspor di Medan.

Kenapa saya harus mempostingnya? karena masyarakat Medan merasa kalau mengurus paspor sangat lah susah dan mahal. Kenapa mahal? satu kata dari saya yaitu "CALO".

Sebenarnya sangat mudah dan gampang sekali. Mungkin alasan kalian menggunakan Calo dikarenakan tidak mau ambil ribet, takut berkas tidak diterima atau tidak mau antri lama.

Saya akan beritahu kalian semua kantor imigrasi yang ada di Medan untuk mengurus Paspor agar kalian bisa memilih daerah yang terdekat dengan rumah sehingga dapat mempersingkat waktu bagi kalian yang sibuk.

1. Kantor Imigrasi Kelas 1 Khusus Medan berada di Jalan Gatot Subroto K.M 6.2 No.268 A

                                                    sumber http://medan.imigrasi.go.id/

2. Kantor Imigrasi Kelas 1 Polonia berada di Jalan Mangkubumi no.2

                              sumber https://polonia.imigrasi.go.id/galeri/pelaksanaan-hari-dharma-karyadika#prettyPhoto[gallery1]/3/

3. Unit Layanan Paspor di Kualanamu International Airport (KNIA)

                                                                                                                   sumber tribun medan


Untuk yang nomor 3, kalian jangan sampai keterusan ya. Karena Lokasinya berdekatan dengan Terminal Kargo Bandara Kualanamu. Kalian bisa perhatikan Tanda Jalan warna hijau berjarak sekitar 200 Meter dari loket parkir lalu belok ke kiri.
Sebelum pergi ke kantor imigrasi, saya menyarankan agar kalian semua menyiapkan berkas yang harus kalian bawa. Yaitu :

1. KTP.
Bagi kalian yang masih dibawah umur dan belum memiliki KTP. Maka akan sedikit rumit, kalian harus membawa : KTP kedua orang tua, Surat Nikah orang tua, Fotocopy paspor orang tua yang masih berlaku, Ijazah atau Akte lahir orang tua dan Surat pernyataan tertulis (izin) dari orang tua menggunakan Materai 6000.


2. Kartu Keluarga (KK)
Pastikan kartu keluarga anda sesuai dengan KTP anda. Misalnya, kebanyakan orang sering sekali memiliki perbedaan tanggal lahir di KTP nya dan di Kartu Keluarga. Kalau beebeda maka berkas kita bisa tertolak. Saran saya kita bisa pergi mengurusnya dan mencari solusinya di kantor kelurahan atau kecamatan yang sesuai dengan domisili kita. Mereka akan membantu kita.

3. Akte Lahir atau Ijazah SD/SMP/SMA
Seperti yang sudah saya bahas di nomor 2. Pastikan berkasnya tidak ada yang berbeda, baik itu perbedaan huruf di nama seperti "Budi" di KTP menjadi "Budy" di Akte lahir.

4. Berkas Pendukung
Biasanya bagi yang di luar daerah wajib menyertakan surat domisili dari kelurahan. Lalu kita juga siapkan surat keterangan kerja dari perusahaan tempat kita bekerja.
(Masing masing berkas di fotokopi menggunakan kertas A4 Full untuk KTP jangan dipotong)


Setelah berkas kita lengkap, hal yang harus kita perhatikan sebelum mengurus paspor yaitu:

1. Berpakaian yang rapi dan wajib menggunakan kemeja yang sopan. Gunakan sepatu.
2. Disarankan datang ke kantor imigrasi terdekat sepagi mungkin. Dikarenakan antrian dibuka pada pukul 07.00 - 10.00 pagi, maka saya sarankan kalian datanglah Pukul 06.30 agar lebih cepat selesai.
3. Abaikan orang-orang yang menawarkan bantuan kepada anda selain petugas. karena biasanya banyak calo yang berkeliaran di sekitaran kantor imigrasi.


Langkah-langkah yang harus kalian ikuti yaitu :
1. Antrilah dengan tertib sesuai arahan petugas imigrasi (berseragam imigrasi) .
2. Petugas akan memeriksa kelengkapan berkas kita apakah disetujui.
3. Jika berkas sudah lengkap dan memenuhi syarat, maka petugas akan memberi kita formulir.
4. Isilah formulir dengan tepat dan benar. jika kalian bingung, kalian bisa tanyakan petugas mengenai cara mengisinya. Jangan malu bertanya.
5. Setelah selesai mengisi formulir, berikan kepada petugas agar kalian mendapatkan nomor antrian untuk wawancara dan foto.
6. Tunggu antrian sambil perhatikan nomor antrian kalian jangan sampai terlewat.
7. Setelah nomor antrian kita di panggil. Masuklah ke ruang foto yang di tentukan oleh petugas.
8. Didalam ruangan foto, kita biasanya akan di wawancara terlebih dahulu. Usahakan jangan gugup, karena pertanyaannya sangatlah mudah karena mengenai diri kita. Jika kita gugup, maka pengajuan paspor kita ditolak.
9. Jika pengajuan paspor dan wawancara berhasil, maka sidik jari kita akan di rekam. Lalu bersiap untuk di foto.
10. Setelah itu kita akan diberikan secarik kertas berisi tarif pembayaran pembuatan paspor.
11. Untuk paspor 48 halaman dikenakan biaya sebesar Rp. 355.000. sangat jauh berbeda ketika kita mengurus lewat calo hingga mencapai satu jutaan bahkan lebih.
12. Biasanya sistem pembayaran paspor bisa di Bank manapun. Namun jangan terlalu terburu-buru untuk membayarnya. tunggu sekitar 3 jam setelah foto, baru kita langsung membayarnya.
13. Setelah membayar di Bank. Maka kita bisa menunggu 3 hari kerja (hari libur tidak terhitung) untuk paspor siap dicetak.
14. Setelah 3 hari kemudian. Datanglah ke kantor imigrasi pukul 10.00 Pagi. Tunjukkan kertas bukti yang diberikan saat wawancara dan bukti pembayaran paspor.
15. Scan barcode kertas wawancara tersebut di mesin nomor antrian agar mendapatkan nomor antrian.
16. Tunggu nomor antrian kita di panggil. Setelah dipanggil tunjukkan identitas diri kita, bukti pembayaran dan bukti wawancara.
17. Paspor diserahkan dan selesai.


Sebenarnya mengurus paspor itu mudah, yang sulit adalah ketika berkas yang kita miliki tidak lengkap ataupun memiliki perbedaan di setiap berkas. Saran saya agar uruslah paspor sendiri agar menghemat biaya juga bisa membantu teman teman melalui pengalaman kita.
Wassalam

Cara Menghapus Background Pada Logo Menggunakan Photoshop CS3

Assalamualaikum Warahmatullahi Wabarakatuh,

Alhamdulillah, kali ini akhirnya saya berkesempatan untuk memposting sesuatu yang mudah-mudahan dapat menolong kalian semua.

Sebenarnya blog ini dibuat, bukan hanya untuk membagi tips tips seputar IT (Information Technology), tetapi mengenai tips tips apa saja mengenai kesulitan kita dikehidupan sehari-hari.

Kali ini saya akan memberi ilmu tentang Photoshop.
Cara Menghapus Background pada logo.

Pertama - tama buka Software Photoshop anda :

Nah disini saya menggunakan Photoshop CS3. Mungkin sedikit ketinggalan zaman ya...
Lalu, kliK "FILE" pilih "OPEN". lalu pilihlah foto yang akan kita gunakan .

Setelah kita membuka file tersebut, lalu pilih "Magic Eraser Tool".

Arahkan penghapus ke Background yang mau di hapus lalu klik. Maka background akan berubah menjadi kotak - kotak. seperti pada gambar dibawah ini. 

Akhirnya background sudah hilang, namun ternyata ini belum selesai. Kita harus men "Save" gambar yang telah kita kerjakan. Caranya yaitu klik "FILE" lalu pilih "SAVE AS" . Ganti nama filenya sesuka kalian. lalu ganti format gambarnya menjadi "PNG" seperti pada gambar dibawah ini. 

Selesai. Gambar ataupun logo yang telah kita kerjakan sudah selesai. Kita bisa menggunakannya di Microsoft Word, Excel dan Powerpoint atau juga gambar pendukung untuk poster yang akan kita buat seperti gambar dibawah ini. 

Saya juga akan memberi saran apabila bentuk logo tidak beraturan. Maka kalian bisa gunakan Eraser Tool yang kalian butuhkan selain "Magic Eraser Tool" seperti "Background Eraser Tool" ataupun "Eraser Tool" biasa.

Saya juga tidak begitu hebat di Photoshop, Tapi ada baiknya saya memberikan sedikit ilmu yang saya punya agar menjadi sedekah jariyah dan berguna bagi kita semua.

Sekian dari saya. Semoga bermanfaat bagi kalian semuanya.
Wassalam.

PEMOGRAMAN KRIPTOGRAFI

LISTING PROGRAM

1.FORM MENU

Public Class Menu   

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click         

End    

End Sub     

Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click        

Kriptografi_Caesar.Show()     

End Sub    

 Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click  

       Kriptografi_Vernam_Chiper.Show()     

End Sub    

Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click

         Kriptografi_Gronsfeld.Show()    

End Sub     

Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click       

        Kriptografi_Viginere.Show()    

 End Sub 

End Class

2.FORM KRIPTOGRAFI CAESAR

Public Class Kriptografi_Caesar

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub Kriptografi_Caesar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

3.FORM KRIPTOGRAFI VERNAM

Public Class Kriptografi_Vernam_Chiper  

  

 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         

    plainteks.Text = ""        

    kunci.Text = ""        

    chiperteks.Text = ""     

End Sub     

  Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click         

  Dim j As Integer       

  Dim jum As Integer       

  Dim sKey As String        

  Dim nKata As Integer        

  Dim nKunci As Integer         

  Dim sKata As String         

  Dim sPlain As String = ""         

  Dim nEnc As Integer       

  j = 0         

 sKata = plainteks.Text        

 jum = Len(sKata)         

 sKey = kunci.Text         

 For i = 1 To jum             

      If j = Len(sKey) Then                 

         j = 1             

      Else                 

         j = j + 1             

     End If             

     nKata = Asc(Mid(sKata, i, 1)) - 65             

     nKunci = Asc(Mid(sKey, j, 1)) - 65             

     nEnc = ((nKata + nKunci) Mod 26)             

     sPlain = sPlain & Chr((nEnc) + 65)         

     Next i        

     chiperteks.Text = sPlain    

 End Sub     

   Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress        

     e.KeyChar = UCase(e.KeyChar)         

     Dim tombol As Integer = Asc(e.KeyChar)          

     If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then             

     e.Handled = True        

 End If     

End Sub     

  

  Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged     

End Sub     

Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress         

   e.KeyChar = UCase(e.KeyChar)         

   Dim tombol As Integer = Asc(e.KeyChar)         

   If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then             

   e.Handled = True         

  End If     

End Sub     

Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged    

  End Sub 

End Class 

4.FORM KRIPTOGRAFI GRONSFELD

Public Class Kriptografi_Gronsfeld

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As Integer
        j = 0
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 48

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class

5.FORM KRIPTOGRAFI VIGINERE

Public Class Kriptografi_Viginere     

   Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click         

   Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)     

End Sub     

Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String         

    Dim j As Integer         

    Dim jum As Integer         

    Dim sKey As String         

    Dim nKata As Integer         

    Dim nKunci As Integer         

    Dim sKata As String         

    Dim sPlain As String         

    Dim nEnc As Integer         

    j = 0         

    jum = Len(Teks)         

    sPlain = ""         

    sKey = Kunci         

    skata = Teks         

 For i = 1 To jum            

    If j = Len(sKey) Then                

        j = 1             

    Else                

        j = j + 1             

   End If             

   nKata = Asc(Mid(sKata, i, 1))             

   nKunci = Asc(Mid(sKey, j, 1))             

   nEnc = ((nKata + nKunci) Mod 256)             

   sPlain = sPlain & Chr((nEnc))         

Next i         

Enkripsi = sPlain    

 End Function     

Private Sub Kriptografi_Viginere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    

  End Sub 

End Class  

6.HASIL PRINT OUT

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Coba Selesaikan Kasus Berikut Ini

Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan : 

Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120

berikut Jawaban Program: 

----------------------------------------------------------------------------------------------------------------------


uses crt;
var
nilai : byte;
i,j : byte;
hasil : integer;
k: char;
begin
clrscr;
write('Input Nilai:');readln(nilai);
for i:= 1 to 5 do
hasil:=1*2*3*4*5;
k:='=';
write('Hasil:1*2*3*4*5',k,hasil );
readln;
end.

tampilan screenshootnya



hasil akhir




Demikilahlah postingan saya  
Nama : Tengku Perdana Putra 
NPM : 12110685

Selamat Belajar Bahasa Pemrograman