Blog Inspirasi Digital

Blog Inspirasi Digital

Tutorial Mikrotik, Hotspot, Blog, SEO, WEB 2.0, HTML, CSS, Javascript dan Inspirasi Digital

Lazarus IDE: Merubah huruf pada TLabel dengan TComboBox


Penulis: Aplikasi dan Jaringan
Chanel Youtube : Simple Tutorial

Kali ini kita akan membuat sebuah percobaan kecil, bagaimana huruf atau kalimat label milik TLabel di Lazarus IDE dapat kita rubah menggunakan daftar jenis huruf yang telah kita tambahkan didalam dropdown menu atau TComboBox secara "on the fly". Artinya kita tidak perlu untuk membongkar kode hanya untuk mengganti jenis huruf milik TLabel, cukup dengan menggantinya dari aplikasi.



Berikut adalah langkah-langkahnya :

1. Buat sebuah project baru di Lazarus IDE.

2. Tambahkan sebuah TLabel komponen dan sebuah TComboBox komponen diatas Form1 sebagai lembar kerja. Sehingga otomatis masing-masing akan diberi nama ComboBox1 dan Label1.

3. Dari Object Inspector, pilih property milik TComboBox yang bernama ComboBox1 dan set propertiesnya "Read Only" dengan True. Dan dari Events milik ComboBox1, lakukan klik 2 kali atau dobel klik di area kosong sebelah kanan "OnChange" sehingga akan ditampilkan lembar source editor. Tambahkan kode kedalamnya :

[code]
Label1.Font.Name := ComboBox1.Items.Strings[(ComboBox1.Items.IndexOf(ComboBox1.Text))];
[/code]

Dimana dengan kode diatas, untuk merubah huruf di TLabel (Label1), kita memerlukan perubahan properties nama huruf (Font Name) milik Label1 yang didapat dari list atau daftar huruf di TComboBox (ComboBox1).

4. Dari Object Inspector kembali, pilih property Form1 (TForm), kemudian pilih Events dan lakukan dobel klik di area kosong sebelah kanan "OnCreate" sehingga kita akan kembali ke lembar source editor, lalu tambahkan kode kedalamnya :

[code]
ComboBox1.Items.AddStrings(Screen.Fonts);
[/code]

Dimana dengan kode diatas akan memuat semua huruf yang terdapat didalam operating system (OS), kedalam TComboBox (ComboBox1) yang mana setiap huruf akan berbeda antara Windows, Linux atau MacOS.

5. Selesai, tekan F9 atau klik menu Run untuk melihat hasil akhirnya.


Kode selengkapnya adalah sebagai berikut :

[code]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Font.Name := ComboBox1.Items.Strings[(ComboBox1.Items.IndexOf(ComboBox1.Text))];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddStrings(Screen.Fonts);
end;

initialization
{$I unit1.lrs}

end.
[/code]

Baca Selengkapnya →

Mikrotik: Cara Mengurukan Port Game Dari Kecil ke Besar Dengan TextFixer

Yang sering terabaikan adalah urutan port dalam mangle mikrotik kadang berpengaruh juga pada performa kelancaran alur paket data, terlebih jika ada banyak Port Game didalamnya, Untuk mengurutkan banyak port sekaligus biar lebih rapi dari angka kecil ke paling besar bisa menggunakan tool online yang biasa saya gunakan TextFixer

Mangle mikrotik hanya membatasi 15 port per koma dalam satu baris, pastikan semua port terisi dulu baru dilanjutkan dibawahnya.



Baca Selengkapnya →

FREE DNS Ping Test Tool Menggunakan Batch File

FREE DNS Ping Test Tool Menggunakan Batch file windows, Sesuai namanya pasti sudah mengerti fungsinya berguna untuk mencari Free DNS terbaik didunia saat ini yang bisa dicoba pada routernya, silahkan cari ping terkecil dari DNS selain Google DNS atau OpenDNS yang sudah pasaran :D

Source code bisa di download di github:
https://github.com/buananetpbun/FREE-DNS-PING-TEST-DOS-BATCH

jangan lupa jadi follower saya :)



SOURCE CODE:
@ECHO off
ECHO ===============================================
ECHO FREE DNS PING TEST
ECHO BY: BUANANET, SEPTEMBER 2019
ECHO fb.com/buananet.pbun
ECHO ===============================================
CALL:IP 8.8.8.8
ECHO * Google 8.8.8.8:   %ms%
CALL:IP 8.8.4.4
ECHO * Google 8.8.4.4:   %ms%
ECHO ===============================================
CALL:IP 208.67.222.222
ECHO * OPENDNS 208.67.222.222:  %ms%
CALL:IP 208.67.222.222
ECHO * OPENDNS 208.67.220.220:  %ms%
ECHO ===============================================
CALL:IP 1.1.1.1
ECHO * Cloudflare DNS 1.1.1.1:  %ms%
CALL:IP 1.0.0.1
ECHO * Cloudflare DNS 1.0.0.1:  %ms%
ECHO ===============================================
CALL:IP 9.9.9.9
ECHO * Quad9 9.9.9.9:   %ms%
CALL:IP 149.112.112.112
ECHO * Quad9 149.112.112.112:  %ms%
ECHO ===============================================
CALL:IP 4.2.2.1
ECHO * Verizon DNS 4.2.2.1:   %ms%
CALL:IP 4.2.2.2
ECHO * Verizon DNS 4.2.2.2:   %ms%
CALL:IP 4.2.2.3
ECHO * Verizon DNS 4.2.2.3:   %ms%
CALL:IP 4.2.2.4
ECHO * Verizon DNS 4.2.2.4:   %ms%
CALL:IP 4.2.2.5
ECHO * Verizon DNS 4.2.2.5:   %ms%
ECHO ===============================================
CALL:IP 199.85.126.10
ECHO * Norton ConnectSafe 199.85.126.10: %ms%
CALL:IP 199.85.127.10
ECHO * Norton ConnectSafe 199.85.127.10: %ms%
ECHO ===============================================
CALL:IP 84.200.69.80
ECHO * DNS Watch 84.200.69.80:  %ms%
CALL:IP 84.200.70.40
ECHO * DNS Watch 84.200.70.40:  %ms%
ECHO ===============================================
CALL:IP 8.26.56.26
ECHO * Comodo Secure DNS 8.26.56.26:  %ms%
CALL:IP 8.20.247.20
ECHO * Comodo Secure DNS 8.20.247.20: %ms%
ECHO ===============================================
CALL:IP 64.6.64.6
ECHO * Verisign 64.6.64.6:   %ms%
CALL:IP 64.6.65.6 
ECHO * Verisign 64.6.65.6:   %ms%
ECHO ===============================================
CALL:IP 192.95.54.3
ECHO * OpenNIC 192.95.54.3:   %ms%
CALL:IP 192.95.54.1
ECHO * OpenNIC 192.95.54.1:   %ms%
ECHO ===============================================
CALL:IP 81.218.119.11
ECHO * GreenTeamDNS 81.218.119.11:  %ms%
CALL:IP 209.88.198.133 
ECHO * GreenTeamDNS 209.88.198.133:  %ms%
ECHO ===============================================
CALL:IP 185.228.168.9
ECHO * CleanBrowsing 185.228.168.9:  %ms%
CALL:IP 185.228.169.9
ECHO * CleanBrowsing 185.228.169.9:  %ms%
ECHO ===============================================
CALL:IP 198.101.242.72
ECHO * Alternate DNS 198.101.242.72:  %ms%
CALL:IP 23.253.163.53
ECHO * Alternate DNS 23.253.163.53:  %ms%
ECHO ===============================================
CALL:IP 176.103.130.130
ECHO * AdGuard DNS 176.103.130.130:  %ms%
CALL:IP 176.103.130.131
ECHO * AdGuard DNS 176.103.130.131:  %ms%
ECHO ===============================================
CALL:IP 176.209.244.0.3
ECHO * CenturyLink 209.244.0.3:  %ms%
CALL:IP 209.244.0.4
ECHO * CenturyLink 209.244.0.4:  %ms%
ECHO ===============================================
CALL:IP 195.46.39.39
ECHO * SafeDNS 195.46.39.39:   %ms%
CALL:IP 195.46.39.40
ECHO * SafeDNS 195.46.39.40:   %ms%
ECHO ===============================================
CALL:IP 208.76.50.50
ECHO * SmartViper 208.76.50.50:  %ms%
CALL:IP 208.76.51.51
ECHO * SmartViper 208.76.51.51:  %ms%
ECHO ===============================================
CALL:IP 216.146.35.35
ECHO * DYN 216.146.35.35:   %ms%
CALL:IP 216.146.36.36
ECHO * DYN 216.146.36.36:   %ms%
ECHO ===============================================
CALL:IP 45.33.97.5
ECHO * FreeDNS 45.33.97.5:   %ms%
CALL:IP 37.235.1.177
ECHO * FreeDNS 37.235.1.177:   %ms%
ECHO ===============================================
CALL:IP 77.88.8.8
ECHO * Yandex.DNS 77.88.8.8:   %ms%
CALL:IP 77.88.8.1
ECHO * Yandex.DNS 77.88.8.1:   %ms%
ECHO ===============================================
CALL:IP 91.239.100.100
ECHO * UncensoredDNS 91.239.100.100:  %ms%
CALL:IP 89.233.43.71
ECHO * UncensoredDNS 89.233.43.71:  %ms%
ECHO ===============================================
CALL:IP 74.82.42.42
ECHO * Hurricane Electric 74.82.42.42: %ms%
ECHO ===============================================
CALL:IP 109.69.8.51
ECHO * puntCAT 109.69.8.51:   %ms%
ECHO ===============================================
CALL:IP 156.154.70.1
ECHO * Neustar 156.154.70.1:   %ms%
CALL:IP 156.154.71.1 
ECHO * Neustar 156.154.71.1:   %ms%
ECHO ===============================================
CALL:IP 45.33.97.5
ECHO * Fourth Estate 45.77.165.194:  %ms%
ECHO ===============================================
CALL:IP 37.235.1.177
ECHO * Tenta 37.235.1.177:   %ms%
CALL:IP 99.192.182.101
ECHO * Tenta 99.192.182.101:   %ms%
ECHO ===============================================
ECHO.
ECHO ** Test Done! **
ECHO.
ECHO.
  
ECHO.&PAUSE&GOTO:EOF
 
:IP
SET ms=# RTO #
FOR /F "tokens=4 delims==" %%i IN ('ping.exe -n 1 %1 ^| FIND "ms"') DO SET ms=%%i
GOTO:EOF

Baca Selengkapnya →

Banyak Port Game Dalam Mangle Mikrotik Akan Membebani CPU Router?

Apa dengan memasukan banyak port game akan membebani CPU router? kalo ada yang bilang iya berarti belum memahami konsep firewall, pada kenyatannya firewall pada mikrotik hanya membatasi include 15 port dalam satu baris tidak lebih dari itu, lalu bagaimana dengan port dibawahnya? jika baris pertama menggunakan passthrough=yes maka akan dilanjutkan ke port baris berikutnya, begitu seterusnya sampai paket tersebut bener2 ditandai kedalam packet mark.

Ada yang mengatakan menggunakan port game tergolong teknik jadul, entah jadul seperti apa yang di maksud atau memang dia tidak punya list port game sama sekali :D



Lalu bagaimana dengan teknik menggunakan port selain game? sebagai contoh !80,21,22,23,443,500-1000...dst..Edan! jujur saja ini sesuatu yang konyol, bagaimana mungkin bisa diterapkan, bagaimana bisa mengetahui port ini adalah port selain game, karena ada ribuan custom port selain port default yang terdaftar dalam list TCP/IP. hati2 menggunakan konsep ini jika menggunakan 2 line apalagi sebagai cara untuk pisah jalur antara game dan bukan game, salah2 banyak port yang bocor, efeknya bukan tambah bagus malah makin jelek.

Lalu bagaimana solusinya? clue dari saya bisa dengan menggunakan 2 konsep filtering, yang menggunakan setingan saya pasti sudah tidak asing, karena didalamnya sudah ada 2 yaitu port game dan port selain game, kenapa harus ada 2? konsep ini perlu dilakukan untuk menandai bahwa port yang digunakan bener2 port game, jika bukan port game maka dilanjutkan ke filter berikutnya yaitu port selain game. disini kalian harus memahami lagi nilai besaran packet sebelum menyatakan bahwa itu adalah paket game, karena pada kenyatannya tidak ada game dengan trafik diatas 2Mbps selain hanya game roblox yang saya temui sampai saat ini.

Tunggu update 2020 saya sudah menyiapkan traffic shaping dengan konsep yang lebih sangar dan lebih ramah dengan semua router apapun tipenya. selalu kunjungi halama facebook saya https://www.facebook.com/buananetmikrotik/


Baca Selengkapnya →

Prioritas ICMP di Mangle Mikrotik bisa mengatasi game lag?

Banyak yang keliru dengan mendahulukan icmp di mangle bisa mengatasi game lag, ini sangat tidak beralasan karena pada kondisi ini mangle icmp hanya memprioritaskan paket, bukan memperbaiki apalagi menstabilkan latency dalam game. Ping dan latency dalam in game tidak menggunakan protocol icmp dalam proses ping kebanyakan, mereka (pengembang) lebih banyak menggunakan protocol TCP dan UDP dalam proses ping game itu sendiri.



masalah game lag sebenarnya bukan dari nilai ping yang kita request seperti kebanyakan ke 8.8.8.8, ini hanya indikator bahwa jaringan kita tidak sedang bermasalah, mungkin client ada protes kenapa game pubg lag padahal ping katanya aman, pastikan kembali ini sebenarnya hanya masalah jarak tempuh server game yang berhubungan dengan hop dan TTL antara client dan server game, dimana semakin pendek hop tentu jaringan semakin bagus dan stabil, efeknya game semakin lancar. jadi kalo kita pake ISP di indonesia dan meminta game di semua server luar harus lancar adalah sesuatu yang konyol 😵 solusinya hanya bisa dibantu dengan vpn untuk meringkas hop ke server game 😅



Baca Selengkapnya →

Cara Perbaiki atau Reset TCP/IP dengan Batch File

Optimasi windows-nya sudah bagus, tapi kalo TCP/IP-nya di sepelekan sama aja bohong, saran saya sebaiknya sebelum windows atau image diskless di distribusikan ke client tidak ada salahnya sekali lagi untuk merilis ulang ethernet biar bener2 fresh, paling tidak dengan tidak ada masalah di tcp/ip booting windows bisa lebih ngacir :D

silahkan download scriptnya di github saya disini



SOURCE CODE:
 @ECHO off  
 :: Window Attributes  
 TITLE WINDOWS 7-10 TCP/IP Reset and repair  
 COLOR 1F  
 ECHO.  
 ECHO ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ  
 ECHO Ý                                               Ý  
 ECHO Ý Windows 7-10 TCP/IP Reset and repair          Ý  
 ECHO Ý By BuanaNET SECURE, Sept 2019                 Ý  
 ECHO Ý fb.com/buananet.pangkalanbun                  Ý  
 ECHO Ý                                               Ý  
 ECHO. ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß  
 ECHO.  
 ECHO.  
 ECHO ==============================================================  
 ECHO # RESET IP ....  
 ECHO --------------------------------------------------------------  
 netsh int ip reset  
 ECHO ==============================================================  
 ECHO # RESET IP TO DHCP ....  
 ECHO --------------------------------------------------------------  
 netsh interface ip set address "Local Area Connection" dhcp  
 ECHO ==============================================================  
 ECHO # RESET DNS TO DHCP ....  
 ECHO --------------------------------------------------------------  
 netsh interface ip set dns "Local Area Connection" dhcp  
 ECHO ==============================================================  
 ECHO # RESET WINSOCK ....  
 ECHO --------------------------------------------------------------  
 netsh winsock reset  
 ECHO ==============================================================  
 ECHO # CLEAR ARP CACHE ....  
 ECHO --------------------------------------------------------------  
 netsh interface ip delete arpcache  
 ECHO ==============================================================  
 ECHO # CLEAR DNC CACHE ....  
 ECHO --------------------------------------------------------------  
 ipconfig /flushdns  
 ECHO.   
 ECHO --------------------------------------------------------------  
 ECHO. "REPAIR DONE...."  
 ECHO --------------------------------------------------------------  
 PAUSE  
 EXIT  

Baca Selengkapnya →

Cara Backup Mikrotik Dengan Batch File

Backup mikrotik dengan mudah tanpa harus login ke winbox, sekali input langsung otomatis backup di file mikrotik dan download otomatis ke PC, silahkan coba tool versi Batch File yang baru saya buat td pagi :D (bekerja di versi ROS 6.xx, belum saya test di versi ROS v5.xx)

Syarat:
1. FTP harus aktif -> IP -> services - FTP enable ( port default 21)
2. User harus pake Full Access
3. Setting konfigurasi di file "MIKROTIK BACKUP.Bat"
set user=admin
set pass=12345
set ip=192.168.10.1 (ip gateway)

Source coce silahkan download di Github
jangan lupa jadi follower saya :)

 @echo off  
 :: Set username and password mikrotik (with full access)  
 set user=admin  
 set pass=12345  
 set ip=192.168.10.1 (ip gateway)  
 :: Window Attributes  
 title EASY BACKUP MIKROTIK  
 mode CON: cols=55 lines=22  
 :: Menu  
 echo.  
 echo ================================================  
 echo EASY BACKUP MIKROTIK FROM BATCH       
 echo ================================================  
 echo By: Buananet SECURE! 2019  
 echo fb.com/buananet.pbun
 echo ------------------------------------------------  
 echo.  
 :: Input File Name  
 echo Enter File Name For Backup (without space):  
 set /p name="File Name = "   
 :: mikrotik script  
 echo /system backup save name=%name%>script.backup.rsc  
 :: ftp commands to upload script  
 echo user %user%> ftp.dat  
 echo %pass%>> ftp.dat  
 echo put script.backup.rsc>> ftp.dat  
 echo quit>> ftp.dat  
 :: upload script  
 ftp -n -s:ftp.dat %ip%> NUL  
 echo.  
 echo *** Backup %name%.backup on mikrotik done!  
 echo.  
 :: Question backup to PC  
 echo Are you sure backup to local computer?  
 choice /c YN  
 if %errorlevel%==1 goto yes  
 if %errorlevel%==2 goto no  
 :yes  
 echo user %user%> ftp.dat  
 echo %pass%>> ftp.dat  
 echo get %name%.backup>> ftp.dat  
 echo quit>> ftp.dat  
 :: upload script  
 ftp -n -s:ftp.dat %ip%> NUL  
 echo.  
 echo *** Backup and Download %name%.backup on PC done!  
 echo.  
 :: cleanup  
 del /q ftp.dat  
 del /q script.backup.rsc  
 echo.&pause&goto:eof  
 :no  
 :: cleanup  
 del /q ftp.dat  
 del /q script.backup.rsc  
 echo.&pause&goto:eof 




Baca Selengkapnya →

 

Back to Top