SEKILAS INFO YANG BERKAITAN DENGAN DAPODIK

Bagaimana cara memperoleh NISN bagi siswa yang belum memiliki ?

1. silakan download (unduh) Formulir Peserta Didik (F-PD) dan formulir A.1 pengajuan Nomor Induk Siswa Nasional (NISN) baru pada situs NISN http://nisn.data.kemdiknas.go.id/ melalui menu FORMULIR PENGAJUAN;
2. Mencetak formulir-formulir tersebut;
3. Mengisi formulir-formulir tersebut secara manual;
4. Menyerahkan kepada operator NISN/NPSN sekolah dimana siswa berasal;
5. Bagi pihak sekolah dapat mengirim formulir A.1. tersebut ke PDSP melalui email : pdsp@kemdiknas.go.id untuk diberikan NISN.

Contoh Soal UKG Online IPA SMP 2012

Silakan langsung ke TKP......selamat mencoba kompetensi anda, klik di sini

Interface soal UKG Online Matematika SMP dengan interface 'resmi'

Bagi teman-teman yang berminat uji coba UKG Online Matematika, silakan klik disini

Contoh soal UKG Online Bahasa Indonesia SMP dengan soal resmi

Bagi rekan-rekan guru bahasa indonesia SMP, silakan anda mencoba kemampuan kompetensi disini

Soal UKG Bahasa Inggris SMP dengan interface resmi

Bagi rekan-rekan guru Bahasa Inggris silakan coba kemampuan kompetensinya disini

Download Mozilla Firefox 13.0.1

Assalamualaikum,kali ini saya mau kasih software browser updates dari mozilla yaitu mozilla firefox 13.0.1 Ini adalah versi terbaru dari mozilla yang baru saja dirilis dan merupakan pengembangan dari mozilla forefox 13.0.Mungkin masih kelihatan sama dengan mozilla sebelumnya karena tidak ada fitur yang begitu baru yang begitu mencolok di firefox 13.0.1 ini.Namun tentu saja Mozilla Firefox 13.0.1 juga ada penambahan untuk plugin nya dan tentu saja keamanan lebih baik . Mozilla ini mendukung IDM versi terbaru yaitu IDM 6.11
Berikut screenshotnya.

Oke langsung saja untuk men download nya silahkan klik disini.
Download Mozilla Firefox 13.0.1

Sekian dari saya untuk download mozilla firefox 13.0.1,selamat mencoba.
Salam sukses untuk kita semua.

Buat Terbilang di Excel

Buat Terbilang di Excel

Membuat formula terbilang di Excel, ini sangat berguna untuk yang suka membuat kwitansi dan invoice di usaha atau di kantor yang masih menggunakan aplikasi Ms.Office(Excel)
*Buka Aplikasi Excel
*Cari pada menu Developer " Lihat pada gambar dibawah ini :"

*Pada pojok kiri,klik Visual Basic

*Berikutnya Pilih pada Modules

*Copy Paste Formula berikut ini pada Modules Excel Tersebut :

Public Function terbilang(ByVal N As Long) As String
    Const Ribu = 1000&
    Const Juta = Ribu * Ribu
    Const Milliar = Ribu * Juta
    'Const Trillion = Thousand * Billion

    Dim Buf As String: Buf = ""

    If (N = 0) Then terbilang = "Nol": Exit Function

    If (N < 0) Then Buf = "Min ": N = -N

    If (N >= Milliar) Then
        Buf = Buf & EnglishDigitGroup(N \ Milliar) & " Milliar"
        N = N Mod Milliar
        If (N) Then Buf = Buf & " "
    End If

    If (N >= Juta) Then
        Buf = Buf & EnglishDigitGroup(N \ Juta) & " Juta"
        N = N Mod Juta
        If (N) Then Buf = Buf & " "
    End If

    If (N >= Ribu) Then
       
        If N \ Ribu = 1 Then
           Buf = Buf & "Seribu"
        Else
           Buf = Buf & EnglishDigitGroup(N \ Ribu) & " Ribu"
        End If
       
        N = N Mod Ribu
       
        If (N) Then Buf = Buf & " "
       
    End If

    If (N > 0) Then
        Buf = Buf & EnglishDigitGroup(N)
    End If

    terbilang = Buf + " Rupiah   #"
'    a = terbilang
End Function

' Support function to be used only by terbilang()
Function EnglishDigitGroup(ByVal N As Integer) As String
    Const Ratus = " Ratus"
    Const satu = "Satu"
    Const dua = "Dua"
    Const tiga = "Tiga"
    Const Empat = "Empat"
    Const Lima = "Lima"
    Const Enam = "Enam"
    Const Tujuh = "Tujuh"
    Const delapan = "Delapan"
    Const sembilan = "Sembilan"
    Dim Buf As String: Buf = ""
    Dim Flag As Integer: Flag = False

    'Do Ratuss
    Select Case (N \ 100)
    Case 0: Buf = "":  Flag = False
    Case 1: Buf = "Seratus": Flag = True
    Case 2: Buf = dua & Ratus: Flag = True
    Case 3: Buf = tiga & Ratus: Flag = True
    Case 4: Buf = Empat & Ratus: Flag = True
    Case 5: Buf = Lima & Ratus: Flag = True
    Case 6: Buf = Enam & Ratus: Flag = True
    Case 7: Buf = Tujuh & Ratus: Flag = True
    Case 8: Buf = delapan & Ratus: Flag = True
    Case 9: Buf = sembilan & Ratus: Flag = True
    End Select

    If (Flag) Then N = N Mod 100
    If (N) Then
        If (Flag) Then Buf = Buf & " "
    Else
        EnglishDigitGroup = Buf
        Exit Function
    End If

    'Do sepuluhs (except teens)
    Select Case (N \ 10)
    Case 0, 1: Flag = False
    Case 2: Buf = Buf & "Dua Puluh": Flag = True
    Case 3: Buf = Buf & "Tiga Puluh": Flag = True
    Case 4: Buf = Buf & "Empat Puluh": Flag = True
    Case 5: Buf = Buf & "Lima Puluh": Flag = True
    Case 6: Buf = Buf & "Enam Puluh": Flag = True
    Case 7: Buf = Buf & "Tujuh Puluh": Flag = True
    Case 8: Buf = Buf & "Delapan Puluh": Flag = True
    Case 9: Buf = Buf & "Sembilan Puluh": Flag = True
    End Select

    If (Flag) Then N = N Mod 10
    If (N) Then
        If (Flag) Then Buf = Buf & " "
    Else
        EnglishDigitGroup = Buf
        Exit Function
    End If


    Select Case (N)
    Case 0: 'ndak ado
    Case 1: Buf = Buf & satu
    Case 2: Buf = Buf & dua
    Case 3: Buf = Buf & tiga
    Case 4: Buf = Buf & Empat
    Case 5: Buf = Buf & Lima
    Case 6: Buf = Buf & Enam
    Case 7: Buf = Buf & Tujuh
    Case 8: Buf = Buf & delapan
    Case 9: Buf = Buf & sembilan
    Case 10: Buf = Buf & "Sepuluh"
    Case 11: Buf = Buf & "Sebelas"
    Case 12: Buf = Buf & "Dua belas"
    Case 13: Buf = Buf & "Tiga belas"
    Case 14: Buf = Buf & "Empat belas"
    Case 15: Buf = Buf & "Lima Belas"
    Case 16: Buf = Buf & "Enam Belas"
    Case 17: Buf = Buf & "Tujuh Belas"
    Case 18: Buf = Buf & "Delapan Belas"
    Case 19: Buf = Buf & "Sembilan Belas"
    End Select

    EnglishDigitGroup = Buf
End Function

*Jangan lupa diSAVE.
*Buat pada tampilan Excel seperti ini =terbilang(),yang dalam kurung penempatan untuk terbilangnya

*Lihat hasil pada gambar dibawah ini :

***Semoga Bermanfaat***

BUKU AJAR PTD TIK KL7 MOD3 SMP RSBI.pdf - 4shared.com - berbagi-pakai dokumen - unduh

BUKU AJAR PTD TIK KL7 MOD3 SMP RSBI.pdf - 4shared.com - berbagi-pakai dokumen - unduh

Deadline Tugas Komputer

deadline pukul 24.00 WITA ...... hari Jum'at, 1 Juni 2012 ..... untuk kelas B

Deadline Tugas Computer

Deadline pukul 24.00... khusus kelas A hari Senin, 28 May 2012