CONTOH SURAT PERMOHONAN JUDUL SKRIPSI

Nomor          : Istimewa                                              Banda Aceh, 02 April  2013

Lampiran      : -                                                            Kepada Yth,

Hal               : Permohonan Judul                               Bapak/Ibu DIREKTUR  AMIKI

                                                                                    Di –

                                                                                                Tempat

Assalamu’alaikum Wr. Wb

Dengan Hormat,

Saya yang bertanda tangan dibawah ini :

          Nama           : HAMDAN

          NPM            : 10014023001

          Jurusan         : MANAJEMEN INFORMATIKA

Sehubungan dengan berlangsungnya Program Pengalaman Lapangan (PPL) pada

Kantor Wilayah Badan Pertanahan Nasional Provinsi Aceh, Terhitung mulai tanggal 13 Maret 2013, maka dengan ini saya mengajukan judul kepada Bapak/Ibu.

Adapun rencana judul laporan Program Pengalaman Lapangan (PPL) yang saya ajukan adalah :

1.             Database Daftar Urutan Kepangkatan Menggunakan Microsoft Visual Basic 6.0 Pada Kantor Wilayah Badan Pertanahan Nasional Provinsi Aceh

2.             Aplikasi Kenaikan Gaji Berkala Pegawai Menggunakan Microsoft Visual Basic 6.0 Pada Kantor Wilayah Badan Pertanahan Nasional Provinsi Aceh

3.             Sistem Informasi Pensiun Pegawai Menggunakan Microsoft Visual Basic 6.0 Pada Kantor Wilayah Badan Pertanahan Nasional Provinsi Aceh

Demikian pengajuan judul ini saya perbuat besar harapan kiranya Bapak/Ibu bisa menyetujui judul tersebut, atas perhatian Bapak /Ibu saya ucapkan terima kasih.

Pemohon

HAMDAN

Read More

Belajar Membuat Login dan Form pada Visual Basic 6.0

ToolBox	Properties
Label	Name [Label1/Nama]      [Label2/Password]
TextBox	Name [Text1][Text2] Text [hapus]
CommandButton	Name [Command1/Masuk]      [Command2/Batal]

Code :

Private Sub Command1_Click()

On Error Resume Next

If Text1.Text <> "" And Text2.Text = "hamdan" Or Text1.Text <> "" And Text2.Text = "hangly" Then

Me.Hide

MDIForm1.Show

Else

MsgBox "Password Salah..!", vbInformation, "Perhatian"

Text2.SetFocus

SendKeys "{Home}+{End}"

End If

End Sub

_____________________________________________________________________

Private Sub Command2_Click()

End

End Sub

_____________________________________________________________________

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

_____________________________________________________________________

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

ToolBox	Properties
Label	Name [Label1/KodeSupplier]      [Label2/Nama]      [Label3/Alamat]      [Label4/Telpon]
TextBox	Name [Text1][Text2]      [Text3][Text4] Text [hapus]
CommandButton	Name [Command1/Tambah]      [Command2/Simpan Data]      [Command3/Batal] [Command4/Ok] [Command5/Cari dan Lihat Tabel] [Command6/Lihat Laporan]

Code :

Private Sub Command1_Click()

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text1.BackColor = &H80000005

Text2.BackColor = &H80000005

Text3.BackColor = &H80000005

Text4.BackColor = &H80000005

Text1.SetFocus

End Sub

_____________________________________________________________________

Private Sub Command2_Click()

With Form2.Adodc1.Recordset

    .AddNew

    !KdSupplier = Text1.Text

    !Nama = Text2.Text

    !Alamat = Text3.Text

    !Telp = Text4.Text

    .Update

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

End With

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Text1.SetFocus

TEXT_TIDAK_AKTIF

Text1.BackColor = &H8000000F

Text2.BackColor = &H8000000F

Text3.BackColor = &H8000000F

Text4.BackColor = &H8000000F

End Sub

_____________________________________________________________________

Private Sub Command3_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

End Sub

_____________________________________________________________________

Private Sub Command4_Click()

Me.Hide

MDIForm1.Show

End Sub

_____________________________________________________________________

Private Sub Command5_Click()

Me.Hide

Form2.Show

End Sub

_____________________________________________________________________

Private Sub Command6_Click()

With DataReport1

.WindowState = vbMaximixed

.Show

End With

End Sub

_____________________________________________________________________

Private Sub Form_Load()

koneksi

Adodc.ConnectionString = Conn.ConnectionString

Adodc.RecordSource = "select * from Supplier"

Adodc.Refresh

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

TEXT_TIDAK_AKTIF

Me.Width = 9540

Me.Height = 5940

Me.Top = 2000

Me.Left = 2000

End Sub

Sub TEXT_TIDAK_AKTIF()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

Sub TEXT_AKTIF()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

End Sub

_____________________________________________________________________

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

_____________________________________________________________________

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

_____________________________________________________________________

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

_____________________________________________________________________

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command2.SetFocus

End If

End Sub

Terimakasih telah mampir ke blog kami Lihat juga disini

Read More

PERINTAH PADA TOMBOL KEYBOARD DENGAN CEPAT DAN MUDAH

Ane tau sobat pasti sibuk membuat makalah, surat, dan lain-lain, nah dari itu ini ada tips-tips untuk membantuk kinerja sobat.... dengan menggunakan perintah-printah dari keyboard mungkin sedikit membantu.
berikut adalah perintah-perintah pada tombol keyboar:

ALT + E	Mengedit Pilihan Dalam Program Saat Ini
ALT + F	Mengajukan Pilihan Menu Di Program Saat Ini.
ALT + F4	Menutup Layar Aktif
ALT + ENTER	Menampilkan properti dari objek yang dipilih
ALT + ESC	Mengelilingi item dalam urutan yang telah dibuka
ALT + HOME	Menampilkan menu Start Awal Di Google.
ALT + Space	Buka menu sistem untuk jendela aktif
ALT + Space + N	Minimize Halaman
ALT + Space + R	Merestore
ALT + Space + X	Untuk Meperpesar Tampilan
ALT + TAB	Pergantian antara item yang terbuka
CTRL + A	Pilih Semua Teks.
CTRL + C	Copy
CTRL + N	Buka menu baru pada aplikasi yang sedang dipakai
CTRL + O	Membuka menu yang disimpan
CTRL + T	Menambah Tab Di Mozzilla/Gogle Chrome
CTRL + V	Paste
CTRL + X	Meng-Cut file.
CTRL + Home	Pergi Ke Awal Dokumen.
CTRL + End	Pergi Ke Akhir Dokumen.
CTRL + TAB	Bergerak Maju melalui tab
CTRL + Alt + Del	Memunculkan Taskmanager,
Fn + F2	Rename File/Folder
Prt sc	Screenshoot
Shift + Del	Hapus Tanpa Masuk Recycle Bin
Shift + Depan	Highlights Dari Posisi Saat Ini Ke Awal Baris.
Shift + End	Highlights Dari Posisi Saat Ini Sampai Akhir Baris.
Windows + D	Menampilkan Desktop.
Windows + E	Membuka My Computer.
Windows + F	Pencarian Untuk File Atau Folder.
Windows + F1	Menampilkan Windows Help.
Windows + L	Log Off Komputer
Windows + M	Minimized Semua Tampilan Kerja layar aktif
Wind + Shift + M	Mengembalikan Minimized Windows.
Windows + R	Membuka Kotak Run
Windows+ U + R	Restart komputer
Windows  + U	Membuka Utility Manager.
Windows+ U + U	SHut Down Cepat

Lihat Juga Disini

Read More

CONTOH SURAT PERMOHONAN PPL

                                                                            Banda Aceh, 14 Februari 2013

Lampiran         : 1 (satu) eks                                 Kepada Yth,

Perihal             : Permohonan (PPL)                   Bapak Direktur AMIK Indonesia

                                                                            Di -

                                                                                     Tempat

Assalamualaikum wr .wb

Saya yang bertanda tangan di bawah ini :

         Nama                  : HAMDAN

         NPM                  : 10014023001

         Tempat tgl lhr      : Lae Mate, 17 Agustus 1993

       Dengan ini mengajukan permohonan Kepada Direktur AMIK Indonesia agar kiranya saya dapat melaksanakan Program Pengalaman Lapangan (PPL) pada  Kantor Pekerjaan Umum Dinas Pengairan Banda Aceh yang beralamat di jalan Ir. Moh Thaher No. 18, Lueng Bata- Banda Aceh. Sebagai bahan pertimbangan turut saya lampirkan bahan administrasi

Sbb :

1.      Surat permohonan

2.      Transkip nilai IPK: 3,54

3.      Foto copy KRS semester genap

4.      Slip SPP semester genap

5.      Slip PPL

6.      Pas photo warna ukuran 3x4 1 lembar

       Demikian Surat Permohonan ini saya buat dengan sebenarnya atas perhatiannya saya ucapkan terimakasih.

                                                                         Banda aceh,  14 Februari 2013

                                                                                         Pemohon

                                                                                          Hamdan



Lihat juga Disini

Read More

CARA MENGIRIM TUGAS,BAHAN,BERKAS DARI FACEBOOK

Mungkin selama ini temen-temen sudah lama menggunakan facebook tapi kurang taw ternyata facebook juga bisa kita gunakan untuk mengirim tugas kita atau berkas-berkas lain. ok langsung saja kita perhatikan cara-cara mengirim tugas lewat facebook.

Perhatikan gambar berikut:

1. klik di menu pesan (pilih salah satu teman yang menerima tugas kita nanti)

2. klik di tambahkan file

3. klik my computer(jika data tersimpan di my computer)

4. klik 2 kali di local disk (D)

5. Klik tugas yang mau kita kirim
6. klik Open

7. klik Balas

Nah selesai deh.....
Thenk yah dah datang ke artikel ane moga bermanfaat amin......

Lihat Juga disini

Read More