remote mikrotik dari jauh

# Update DNS on Freedns.afraid.org

:global host "freedns.afraid.org"
:global url "urlddns"

/tool fetch url=$url host=$host

ubah urlddnsnya dengan = alamat Direct URL yang sudah terdaftar di sini

• Klik System -> Scripts -> klik tanda add [+] yang berwarna merah
•         Name dengan public
•         Policy centang semua
•         Paste code yang  kita edit tadi di bagian source kotak scripts
•         Apply -> Ok 

Terakhir

•         Klik System -> Scheduler -> klik add [+]
•         Isikan public pada name dan On Event.
•         Centang semua policy
•         Pada Start time pilih startup
•         Interval isikan 00:10:00
•         Klik tombol Ok.

script untuk inser di PowerBuilder (PB)

'dw_1.SetTransObject(SQLCA)
'dw_1.Retrieve()
'dw_1.ScrollToRow(dw_1.InsertRow(0))

'dw_2.SetTransObject(SQLCA)
'dw_2.Retrieve()

winbox

winbox adalah aplikasi yang di gunakan untuk mengontrol mikrotik.
sofeare ini sangat berguna untuk seorang jaringan yang menggunakan mikrotik.
ini saya shared aplikasinya siapa tau ada yang membutuhkannya.
untuk download silahkan di unduh

crack Potoshop CS5 100% work

Bagi yang lagi bingung mencari solusi untuk potoshop cs5 yang trial dan tidak ada serial number yang sesuain. ini gan saya kasi solusinya,  sebuah aplukasi yang bisa mengatasi masalah anda.
ini sih aplikasi saya dapat dari brousing jg. tapi ampuh 100% work.
bagi yang ingin  mencoba silahkan di untuk mengunduh pa ling INI

cobalah selagi bisa. dan jangan ragu untuk mencobanya.

untuk penggunaannya mudah sekali.
tinggal copy kan aplikasi ini ke C:\Program Files\Adobe\Adobe Photoshop CS4 dan jika ada pertanyaan untuk menimpa.langsung yes saja. atau langsung tipa saja. tidak ada masalah. ok sekian dan terima kasih.

crack idam all versi

saya shared sedikit nhr gan hasil bosing. bagi yang sedang mencari crack idm atau pacth silah kan unduh sofware ini untuk membuat idm anda menjadi tidak trial.

silah kan unduh di sini

100% bekerja gan.

tapi untuk menghilangkan tanda serial fake sudah saya shared sebelumnya. silahkan di baca posting sebelumnya.

aplikasi remove pop up idm

Ini  Aplikasi Untuk Menghilangkan Pop Up Fake Serial number yang selalu muncul di idm .
cara menghilangkannya cukup mudah, cukup di patch dengan aplikasi ini maka peringatan itu kan hilan 100% work
Link Download  Klik Disini

membuat program barang di pascal

program barang;
uses crt;
var
   nBarang : string;
   cBarang,TTL,JMLH,uByr,KBL : real;
   HRG : integer;
   begin
        clrscr;
        gotoxy(4,3); write('kode barang = '); readln(cBarang);
        gotoxy(4,4); write('nama barang = '); readln(nBarang);
        gotoxy(4,5); write('harga       = '); readln(HRG);
        gotoxy(4,6); write('jumlah beli = '); readln(JMLH);
        TTL := (HRG * JMLH);
        gotoxy(4,7); write('TOTAL       = ', TTL:0:0);
        gotoxy(4,10); write ('Uang bayar = '); readln(uByr);
        KBL := (uByr - TTL);
        gotoxy(4,12); write('Uang kembali = ', KBL:9:2);
        readln
end.

membuat program gaji kariawan di pascal

Uses crt;
Var
   nama:string[20];jabatan:string;
   Gaji:longint;
   Tunj,ppn,Total,gajibersih:real;
Begin
     Clrscr;
     Write( 'Nama Karyawan     : '); readln(nama);
     Write('Masukkan Jabatan  : '); readln(jabatan);
     If  (jabatan='Direktur') or (jabatan='direktur') then
     Begin
          Gaji:=3000000;
          Tunj:=0.1* gaji;
     End
     Else If  (jabatan='Manager') or (jabatan='manager') then
     Begin
          Gaji:=2000000;
          Tunj:=0.01* gaji;
     End
     Else If  (jabatan='Karyawan') or (jabatan='karyawan') then
     Begin
          Gaji:=1000000;
          Tunj:=0.1* gaji;
     End
     Else
     Begin
          Gaji:=800000;
          Tunj:=0.1* gaji;
     End;

     Writeln('Gaji Bersih        : Rp.',gaji);
     Writeln('Tunjangan Jabatan  : Rp.',tunj:9:2);
     Ppn:=0.2*gaji;
     Writeln('PPN 10 %           : Rp.',ppn:9:2);
     Total:=gaji+total;
     Writeln('Total Gaji         : Rp.',total:9:2);
     Readln
End.

memmbuat program barang di xbase

DO WHILE .T.

    CLEAR

    cBrg = SPACE(10)

    cNbrg = SPACE(20)

    cHrg = SPACE(8)

    STORE SPACE(6) to cJbli

    STORE 0 TO nTtl=cHrg*cJbli

    

    @ 1,4 SAY "Kode Barang      : "GET cBrg

    @ 2,4 SAY "Nama Barang      : "GET cNbrg

    @ 3,4 SAY "Harga            : "GET cHrg

    @ 4,4 SAY "Jumlah Beli      : "GET cJbli

    READ

    @ 9,27 SAY  "PT.TURUN NAIK"

    @ 11,30 SAY "NOTA BAYAR"

    @ 12,30 SAY "==========================="

    @ 14,3 SAY  " No. Barang                : "+UPPER (cBrg)

    @ 15,3 SAY  " Nama Barang               : "+UPPER (cNbrg)

    @ 16,3 SAY  " Harga                     : "+UPPER (cHrg)

    @ 17,3 SAY  " Jumlah Beli               : "+UPPER (cJbli)

    cTtl = cHrg*cJbli

    @ 18,3 SAY  "Total                      : "(cTtl)

    @ 19,25 SAY " Uang Bayar    : GET cByr

    @ 20,3 SAY  "uang kembali   : "(cBlk)

    cBlk = cByr - Ttl

    

    

    @ 21,3 SAY cBlk PICT "99,999,999"

    cLagi = "   "

    @ 7,50 SAY " mau proses lagi ? [y/t] " GET cLagi

    READ

    IF UPPER (cLagi) = "T"

        CLEAR

        @ 11,30 SAY " - THANK  YOU -  "

        EXIT

    ENDIF

ENDDO

membuat program gaji dengan exbase

DO WHILE .T.
    CLEAR
    STORE 0 TO nAnak, nGaji, nLembur
    cNip = SPACE(5)
    STORE SPACE(35) TO cNama, cJab
    cStat = SPACE(2)
    @ 1,4 SAY "Nomor Pegawai    : " GET cNip
    @ 2,4 SAY "Nama Pegawai     : " GET cNama
    @ 3,4 SAY "Jabatan          : " GET cJab
    @ 4,4 SAY "sTatus  (S/K/J/D): " Get cStat
    READ
    cStat = UPPER (cStat)
    IF cStat = "K" .OR.cStat = "J" .OR. cStat = "D" THEN
        @ 4,30 SAY "Jumlah Anak : " GET nAnak
    ENDIF
   
    @ 5,4 SAY "Gaji Pokok       : " GET nGaji
    @ 6,4 SAY "Jam Lembur       : " GET nLembur
    READ
    @  8,1 TO 23,78 DOUBLE
    @ 10,2 TO 10,77
    SET COLOR TO G+
    @  9,27 SAY "PT. MAHAKAM INDAH PERMAI"
    @ 11,30 SAY "SLIP GAJI KARYAWAN"
    SET COLOR TO
    @ 12,30 SAY "=================="
    @ 14,3 SAY "Nomor Induk Pegawai : "+UPPER (cNip)
    @ 15,3 SAY "Nama Pegawai        : "+UPPER (cNama)
    @ 16,3 SAY "Jabatan             : "+UPPER (cJab)
    IF cStat = "K" THEN
        cSK = "Kawin"
        nTjk = 100000 + 50000 * nAnak
    else
        IF cStat = "J" THEN
            cSK = "Janda"
            nTjk = 200000 + 50000 * nAnak
        else
            IF cStat = "D" THEN
                cSK = "Duda"
                nTjk = 150000 + 50000 * nAnak
            ELSE
                IF cStat = "S"
                    cSK = "Singe"
                    nTjk= 100000
                ELSE
                    cSK = "Tidak Jelas"
                    nTjk = 0
                ENDIF
            ENDIF
        ENDIF
    ENDIF
    @ 17,3 SAY "Status Keluarga     : "+cSK
    nUlemb = nLembur * nGaji / 173
    nInsentif = 0.25 * (nGaji + nTjk + nUlemb)
    nTHP = nGaji + nTjk + nUlemb + nInsentif
    nTHPS= nTHP * 12
    IF nTHPS > 50000000
        nPPH=0.3*(nTHPS-500000000)+0.25*250000000+0.15
        *200000000+0.05*50000000
    ELSE
        IF nTHPS > 250000000
            nPPH=0.25*(nTHPS-250000000)+0.15*200000000+0.05*50000000
        ELSE
            IF nTHPS > 50000000
                nPPH = 0.15*(nTHPS-50000000)+0.05*50000000
            ELSE
                nPPH = 0.05 * nTPHS
            ENDIF
        ENDIF
    ENDIF
    nPPhb = nPPh/12
    nTP = nTHP-nPPhb
    @ 19,3 SAY "Gaji Pokok          : Rp"
    @ 20,3 SAY "Tunjangan Keluarga  : Rp"
    @ 21,3 SAY "Upah Lembur         : Rp"
    @ 19,41 SAY "Insentif           : Rp"
    @ 20,41 SAY "THP                : Rp"
    @ 21,41 SAY "pajak per bulan    : Rp"
    @ 22,41 SAY "TP                 : Rp"
    @ 19,28 SAY nGaji PICT "99,999,999"
    @ 20,28 SAY nTjk PICT "99,999,999"
    @ 21,28 SAY nUlemb PICT "99,999,999"
    @ 19,66 SAY nInsentif PICT "99,999,999"
    @ 20,66 SAY nTHP PICT "99,999,999"
    @ 21,66 SAY nPPhb PICT "99,999,999"
    @ 22,66 SAY nTP PICT "99,999,999"
    cLagi = "  "
    SET COLOR TO B+*
    @ 7,50 SAY "Mau Proses Lagi ? [Y/T] " GET cLagi
    SET COLOR TO
    READ
    IF UPPER (cLagi) = "T"
        CLEAR
        SET COLOR TO G+*
        @ 11,30 SAY "- (*_*) - THANK YOU - (*_*) - "
        SET COLOR TO
        EXIT
    ENDIF
ENDDO