Template Voucher Mikhmon sederhana

Cara bypass login page hotspot Mikrotik dan membatasi kecepatannya.

Buka winbox

- IP > Hotspot > Host.

- pilih mac address yg akan di bypass.

- klik kanan, make binding.

- Ok.

- IP > Hotspot > IP Bindings.

- double klik mac address yg sudah dibinding.

- pilih type bypassed.

- Ok.

sampai disini perangkat yg di binding sudah bisa bebas dari login page. 

untuk membatasi kecepatan

- Pilih

Restart Otomatis Router Board Mikrotik OS

Software yang digunakan adalah Winbox

- Buka Software Winbox.
- Login Ke Mikrotik Menggunakan IP / MAC address dan Password.
- System > Schedule
- Klik Icon + (Add) pada kiri atas.
* Name = Sembarang Saja
* Start Time = Jam restart
* Interval = ulang dalam berapa jam ? 1d = 1 hari sekali, 2d = 2 hari sekali.
* On Event = /system reboot
- Apply / OK.

Selesai.

Ping

VPS Untuk EA Forex Murah

Silahkah daftar disini

Template Voucher 2000

Test posting via email

Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan Ini hanya postingan percobaan 

Penomoran Otomatis

ga banyak bacot lah langsung aja ke coding 

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
 i : integer;
 a : string;
begin
 i := 0;
 // pertama ambil nilai angka saja.
 a := copy(sEdit1.Text,4,7);
 // arti perintahnya adalah ambil 7 karakter pada sEdit1
 // dimulai dari huruf ke 4 sampai akhir string
 // variabel a berisi string dengan nilai 0000000
 // maka kita akan konversikan ke integer yang akan menghasilkan nilai 0 saja.
 // dan kita akan menambahkan 1 kenaikan nilai pada setiap kita klik
 i := StrToInt(a)+1;
 a := IntToStr(i);
 // i akan bernilai a + 1, yg artinya akan terus bertambah 1 setiap button di gunakan.
 // cek berapa karakter nilai yang baru ?
 // jika nilai 1 - 9 maka String yang tetap adalah 'No.000000x' dan nilai yang berubah dibelakangnya.
 // selanjutnya jika 10 - 99 dianggap 2 karakter maka yang tetap adalah 'No.00000xx' x yang berubah nilainya
 if Length(a) = 1 then
  sEdit1.Text := 'No.000000'+a;
 if Length(a) = 2 then
  sEdit1.Text := 'No.00000'+a;
 if Length(a) = 3 then
  sEdit1.Text := 'No.0000'+a;
 if Length(a) = 4 then
  sEdit1.Text := 'No.000'+a;
 if Length(a) = 5 then
  sEdit1.Text := 'No.00'+a;
 if Length(a) = 6 then
  sEdit1.Text := 'No.0'+a;
 if Length(a) = 7 then
  sEdit1.Text := 'No.'+a;
end;

Delphi syntax:

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

S : String
Index : Awal Karakter yang akan diambil
Count : Jumlah Karakter yang akan diambil

Form Login Sederhana

My Note

Penting untuk saya ingat,
Dahulukan membaca manual book pada produk yang baru disentuh.
Jangan sok tau, bertanya lah kepada orang yang sudah tau / berpengalaman.
Perbanyaklah mendengar dan membaca, dari pada berbicara yang kurang penting.
Tertawalah setiap ada kesempatan tertawa :)