SETING BGP MIKROTIK [kasus ini : ASTINET)

Pertama dapat lembaran info dari provider gini
===============================

Interface di router STIE H*****A

Interface2: DOMESTIK : 192.168.91.234   255.255.255.252

Interface3 : GLOBAL   : 192.168.91.230  255.255.255.252

Interface4 : LAN       : 118.97.15.56 /29

AS number telkom     : 17974

AS number pelanggan  : 64646

PE2-D4-KBU-INET#sh run int Gi1/3.2127

Building configuration...

Current configuration : 396 bytes

!

interface GigabitEthernet1/3.2127

 description ASTINET (GLOB) STEI H*****A Eksekutif Desa Alamat, CID 4002002127 SID 300100194-0009489981

 bandwidth 1024

 encapsulation dot1Q 2127

 ip vrf forwarding Astinet_Global

 ip address 192.168.91.229 255.255.255.252

 no cdp enable

 service-policy input rate_limit_1M

 service-policy output rate_limit_1M

end

PE2-D4-KBU-INET#sh run int Gi1/3.2128

Building configuration...

Current configuration : 397 bytes

!

interface GigabitEthernet1/3.2128

 description ASTINET (DOM) STEI H*****A Eksekutif Desa Alamat,Yogya CID 4002002128 SID 300100194-0009489981

 bandwidth 2048

 encapsulation dot1Q 2128

 ip vrf forwarding Astinet_Domestik

 ip address 192.168.91.233 255.255.255.252

 no cdp enable

 service-policy input rate_limit_2M

 service-policy output rate_limit_2M

end

#liat AS number astinet BB

         

 PPE2-D4-KBU-INET#sh running-config vrf Astinet_Domestik

 Building configuration...

 neighbor 192.168.91.234 remote-as 64646

 neighbor 192.168.91.234 prefix-list FROM_AST_BB_300100194-0009489981 in

#liat ip public astinet BB

PE2-D4-KBU-INET#sh running-config | i AST_BB_300100194-0009489981

  neighbor 192.168.91.230 prefix-list FROM_AST_BB_300100194-0009489981 in

  neighbor 192.168.91.234 prefix-list FROM_AST_BB_300100194-0009489981 in

ip prefix-list FROM_AST_BB_300100194-0009489981 seq 5 permit 118.97.15.56/29

ip prefix-list FROM_AST_BB_300100194-0009489981 seq 20 deny 0.0.0.0/0 le 32

Lanjut dengan seting mikrotik

===============================

[Interface] AS ganti : 64646

Tambah Peer [domestik] Addres 192.168.91.233, AS 17974

Tambah Peer [global] Addres 192.168.91.229, AS 17974

Tambah Networks IP 118.97.15.56 /29

Interface2 : DOMESTIK : 192.168.91.234   255.255.255.252

Interface3 : GLOBAL   : 192.168.91.230  255.255.255.252

Interface4 : LAN       : 118.97.15.57 /29

DNS ASTINET

203.130.208.18

202.134.1.10

Tampilan route

NAT

Tinggal setting komputer [public]

IPV4 ke 118.97.15.58(-62), gateway 118.97.15.57

Struk SPBU

Belom lama, saudara sepupu kerepotan ketika harus membuat SPJ anggaran. Kuitansi pembelian bensin/pertamax/solar [BBM] raib gak tau entah kemana. Saat dead-line semakin dekat maka solusi "aneh" ditempuh yakni "mencetak struk" sendiri. . . he he he :P
Setelah mencoba beberapa cara, akhirnya sodara tersebut minta juga bantuan ke penulis untuk ikut "terlibat" dalam masalah yang cukup bikin mumet tersebut. Mengingat selama ini penulis banyak berkutat dengan bahasa Delp*i 7 maka ya akhirnya buat juga program untuk mencetak struk SPBU yang nota-bene cap agak abal-abal ini.
Pertama ke images.google untuk nyari "gambar" struk SPBU, lanjut ke nyari huruf [font], dan mulai beraksi. Langsung aja hasilnya ada di 4shared dan freeware lah, source code juga disertakan. Silahkan di modifikasi sesuai kebutuhan.
Berikut ini tampilan rilis program terakhir. . . . .

loading...

Komponen TRKEdit dan TRLKEdit ada fi file RKEdit.pas; silahkan mau diintal [di delphi7] atau di-create saat run-time. 2 font juga musti di-copy-kan ke folder windows\font ya . . .

[update 26 juli 2017] mmm... banyak yg gagal ngedit/mbuka source di form reportnya... itu karna saya pake QuickReport versi 5.xx... Bawaan D7 itu QuickReport versi 3.xx, jadi musti apgred QR nye ke v5.xx ato di-ignore aja, trus sesuaikan ke QR 3.xx

kayaknya perlu disebutin nih : penulis gak bertanggung-jawab atas penyalah-gunaan program ini lho ya . . .


[update 2 Maret 2016]
Setelah mbaca beberapa komentar, program saya coba perbaiki... ada menu Opsi untuk
1. Format tanggal
2. Ubah warna

Tentang warna, sebaiknya pilih warna hitam namun dicetak menggunakan printer kasir [seperti di swalayan itu] hasilnya tentu lebih homogen

[update link 2 Juli 2017 via mediafire]

Waktu Shalat [Delphi 7]

Software untuk mencari waktu shalat sudah banyak, termasuk yang dirilis Depag RI (winhisab). Pernah googling buat nyari source-code menghitung waktu shalat untuk di"tempel" di aplikasi yang selama ini saya buat, ternyata yang ditulis pake Delphi gak ketemu. Trus googling algotima hitungan waktu shalat dan dari sekian banyak algoritma (VSOP87 dan ELP2000 (pergerakan bulan), Meous) menurut saya yang paling praktis itu seperti yang ditulis di googlecode ini. Mengapa praktis? algoritma yang lain masih belom sukses ketika saya tulis di Delphi (mungkin kurang teliti di penulisan tanda kurung di persamaan matematisnya :) ). Dan yang 1 ini sudah pantas buat saya "pamer"kan kepada pembaca (yang mau aja lho).

Buat yang ini menggunakan code saya ini, silahkan ... tentunya dengan tanggung-jawab sepenuhnya ada pada anda sendiri, iya to. . . Kan gak mungkin saya bisa nanggung kalo ada kerugian yang mungkin terjadi dari s/w buatan saya ini to ya . . . he he he

to-do : saya pengin melengkapi dengan semua algoritma untuk pembandingan hasil,jadi tunggu release yang lebih lanjutnya (semoga gak berhenti disini, amin)

ini potongan code-nya

<pre><code>

uses math;

var h,tz,sh  :integer;
    B,L,gd,gn:real;
    subuh,terbit,zuhur,ashar,maghrib,isya:real;

procedure hitung(tgl:TDateTime);
var D,T,R,beta,Z,U,Vd,Vn,W : extended;
    j : integer;

    function YearOf(const AValue: TDateTime): Word;
    var LMonth, LDay: Word;
    begin
         DecodeDate(AValue, Result, LMonth, LDay);
    end;

begin
     j :=Trunc(tgl-EncodeDate(YearOf(tgl),1,1)); //= DayOfTheYear(tgl);
     beta:=2*pi*J/365;
     D :=(180/pi)*(0.006918-(0.399912*cos(beta))+(0.070257*sin(beta))-(0.006758*cos(2*beta))+(0.000907*sin(2*beta))-(0.002697*cos(3*beta))+(0.001480*sin(3*beta)));
     T :=229.18*(0.000075+(0.001868*cos(beta))-(0.032077*sin(beta))-(0.014615*cos(2*beta))-(0.040849*sin(2*beta)));
     R :=15*TZ;
     Z :=12+((R-L)/15)-(T/60);
     U :=(180/(15*pi))*arccos((sin((-0.8333-0.0347*sign(H)*sqrt(abs(H)))*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     Vd:=(180/(15*pi))*arccos((-sin(Gd*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     Vn:=(180/(15*pi))*arccos((-sin(Gn*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     W :=(180/(15*pi))*arccos((sin(arctan(1/(Sh+tan(abs(B-D)*pi/180))))-sin(D*pi/180)*sin(B*pi/180))/(cos(D*pi/180)*cos(B*pi/180)));

     subuh  :=Z-Vd;
     terbit :=Z-U;
     zuhur  :=Z;
     ashar  :=Z+W;
     maghrib:=Z+U;
     isya   :=Z+Vn;
end;

</code></pre>

langsung aja, ini link donlot-nya

[update link 2 juli 2017 via mediafire]