CARA MENGAKTIFKAN PTK GURU

Proses keaktifan PTK dalam satu sekolah dilakukan secara kolektif berdasarkan ajuan dari Kepala Sekolah ke Dinas. Namun untuk cetak Kartu Digital setiaptetap dilakukan mandiri oleh setiap PTK.
Catatan : Ajuan kolektif tersebut sekaligus sebagai laporan resmi rekap beban kerja PTK aktif di sekolah ke Dinas setempat. Info selengkapnya dapat Anda lihat disini.
Berikut langkah singkat mencetak kartu digital bagi PTK yang sekolahnya telah diajukan vervalnya oleh Kepala dan telah ajuan vervalnya oleh Dinas :
 1. Login sebagai PTK pada http://padamu.siap.web.id/ .
 2. Silakan isi PegID/NUPTK dan password login akun PTK Anda dan pilih layanan Padamu PTK jika telah berhasil login.

 3. Pada halaman dasbor PADAMU PTK Anda akan ditampilkan status keaktifan Anda, perhatikan gambar.

 4. Klik Info Mengajar untuk melihat Riwayat Mengajar Anda.
Pemutakhiran riwayat mengajar tidak perlu di entri manual lagi oleh setiap guru. Sistem akan meng-update riwayat mengajar baik di sekolah induk atau non induk secara otomatis ke setiap portofolio guru sesuai dengan isian jadwal kegiatan belajar mengajar mingguan pada semester aktif yang di entri oleh petugas admin/operator sekolah.Catatan : harap disiapkan dokumen penjadwalan mingguan pembelajaran di setiap kelas pada semester 2 TP. 2014/2015 yang telah berlaku di sekolah saat ini sebagai dasar entri ke sistem Padamu Negeri). Klik untuk melihat Panduan Pengaturan Jadwal Kelas Mingguan. Berikut contoh tampilan Daftar Riwayat mengajar Anda.

 5. Unggah foto Anda, klik Unggah Foto.
Pilih file foto dari media penyimpanan komputer Anda. File yang dapat diunggah adalah file JPG, PNG, dan GIF dengan ukuran maksimum yang diijinkan 250 X 400 pixel.
 6. Selanjutnya, klik Periksa Portofolio, periksa portofolio Anda.

Jika ada yang harus disesuaikan silakan klik Edit Kembali, namun jika sudah sesuai klik OK.
 7. Selanjutnya, klik tombol Aktifkan Portofolio untuk periode Tahun Ajuran 2014-2015 Semester 2.
 8. Langkah terakhir setelah semua PTK dalam satu sekolah melakukan keaktifan secara kolektif dan telah diajukan Kepala Sekolah ke Dinas untuk persetujuan verval, barulah PTK tersebut dapat mencetak kartu digital. TombolCetak kartu digital akan aktif jika verval ajuan kepala sekolah telah disetujui dinas. Klik tombol Cetak untuk mencetak kartu digital PTK.

 9. Selamat, kartu digital Anda sebagai tanda keaktifan PTK periode Tahun Ajuran 2014-2015 Semester 2 telah berhasil dicetak.

CONTOH PROGRAM STACK PADA VISUAL BASIC 2008

Membuat Program Stack  menggunakan Visual Basic 2008

       

Aturan Permainan

dalam permainan kali ini, aturan nya simple saja, bila kita tekan tombol Push, maka nilai textbox di atas nya akan naik, dan textbox dibawahnya mengambil nilai textbox yg diatasnya, begitu juga bila kita tekan tombol pop. setelah kita siap mendesain programnya langsung saja dengan cepat menuju Properties lalu ganti:

1. textbox1 kita ganti namenya menjadi txtinput

2.textbox2 kita ganti namenya menjadi tmpush

3. textbox3 kita ganti namenya menjadi tmpop

4. button1 kita ganti textnya menjadi Push dan namenya menjadi tblpush

5. button2 kita ganti textnya menjadi Pop dan namenya menjadi tblpop

NB"dalam proses penggantian Name, tidak boleh menggunakan "space"

langkah pertama,

kita masukkan listing berikut, tepat dibawah Public class 

 Private m_stack As New Collections.Stack

Private Sub tampilstack()
        Dim values() As Object = m_stack.ToArray()
        Dim txt As String
        For i As Long = 0 To values.GetUpperBound(0)
            txt &= values(i) & " "
        Next i

        tmpush.Text = txt
    End Sub

tapi ingat, private class dan end class jangan sempat terganggu sedikitpun, jika anda tidak ingin program nya error;

langkah selanjutnya>>>

double click pada Tblpush lalu ketikkan listing berikut;

m_stack.push(txtinput.Text)
        txtinput.Text = txtinput.Text + 1
        txtinput.Select(0, 0)
        tampilstack()

jika kita ingin membuat pertambahan angka, maka kita ganti text yg bergaris biru diatas menjadi listing berikut.

txtinput.Text = Chr(Asc(txtinput.Text) + 1)

langkah selanjutnya>>>
 
double click pada Tbl pop lalu ketikkan listing berikut;

tmpop.Text = m_stack.pop() & " " & tmpop.Text
        tampilstack()

 
BY : ALWIN TANOGA