adf.ly adalah

Kita sering download file program, freeware, lagu dan muncul web adfly .

Terlihat bagi yang belum terbiasa merasa kesulitan, karena kita ditampilkan dengan iklan yang muncul. Tapi bagi yang sudah terbiasa itu tidak masalah.

Terus apa sih adfly itu, dia adalah jasa periklanan. Setiap pemilik usaha yang menginginkan diiklankan usahanya, adfly adalah tempatnya. Adfly akan menampilkan usaha setiap link yang digunakan di click.

Bagi pemilik web atau blog akan mendapat komisi dolar dari setiap click link yang mereka pasang.

Bagi teman-teman yang berkunjung di blog saya, mulai saat ini saya gabung dengan adfly. Semoga tidak menggangu. Ini bentuk usaha saya untuk mendapat uang dari internet. Dan bagi teman-teman ingin gabung silahkan ikut mendaftar disini adfly.

Advertisements

Membuat Backup dan Restore Mysql dengan Lazarus

Pagi – pagi buat catatan di blog ” Membuat Backup dan Restore database Mysql di lazarus “ Cara ini berlaku juga di delphi. LAngsung saja Buatlah 2 button, Button Backup dan Restore. Pada proses ini kita menggunakan mysqldump yang sudah disediakan oleh mysql. Lokasi mysqldump tergantung dari instalasi mysqlnya. Jika menggunakan Xampp, cari lokasi terlebihdahulu.

Pada Button Backup isi event click berikut ;

procedure TMain.BackupClick(Sender: TObject);
const
READ_BYTES = 2048;

var
command: TProcess;
s: string;
output: TStringList;
BytesRead, n: LongInt;
m: TMemoryStream;

begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
SaveDialog1.Free;
SaveDialog1 := TSaveDialog.Create(Self);
SaveDialog1.InitialDir:= GetUserDir + ‘My Documents\’;
SaveDialog1.Filter:=’Backup Files|*.bfl’;
if SaveDialog1.Execute then begin
s := SaveDialog1.FileName;
if not (copy(s,Length(s)-3,Length(s)-1) = ‘.bfl’) then
s := s + ‘.bfl’;
command := TProcess.Create(Nil);
output := TStringList.Create;
M := TMemoryStream.Create;
BytesRead := 0;
command.CommandLine := ‘c:\mysqldump -u root -p’+ZConnection1.Password+’ -h ‘+ZConnection1.HostName+’ database’;
command.Options := command.Options + [poUsePipes];
command.Execute;
while command.Running do begin
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n)
else
// whitout data, wait 100 ms
Sleep(100);
end;
// we read the last part
repeat
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n);
until n <= 0;
M.SetSize(BytesRead);
output.LoadFromStream(M);
output.SaveToFile(s);
output.Free;
command.Free;
M.Free;
ShowMessage(‘Backup ready.’)
end else
ShowMessage(‘Backup canceled.’);
end;

 

Dan untuk button Restore isi dengan prosedure berikut

procedure TFMain.restoreClick(Sender: TObject);
var
s: string;
tfFile: TextFile;
begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
OpenDialog1.Free;
OpenDialog1 := tOpenDialog.Create(Self);
OpenDialog1.InitialDir:=GetUserDir+’My Documents\’;
OpenDialog1.Filter:=’Backup Files|*.bfl’;
if OpenDialog1.Execute then begin
AssignFile(tfFile, OpenDialog1.FileName);
if not FileExists(OpenDialog1.FileName) then
exit;
reset(tfFile);
ZQuery1.SQL.Clear;
readln(tfFile,s);
While not eof(tfFile) do begin
Readln(tfFile,s);
if length(s) > 0 then begin
s := StringReplace(s, #10, ”, [rfReplaceAll]);
s := StringReplace(s, #13, ”, [rfReplaceAll]);
s := StringReplace(s, #9, ‘ ‘, [rfReplaceAll]);
if not ((s[1]+s[2]) = ‘–‘) then begin
ZQuery1.SQL.Add(s);
if s[length(s)] = ‘;’ then begin
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear
end
end
end
end;
CloseFile(tfFile);
ShowMessage(‘Restauration done.’);
end else
ShowMessage(‘Restauration canceled.’);
end;

 

Semoga bermanfaat

Setting email (SMTP) di joomla

Bismillah… Pagi-pagi tulis dikit catatan, siapa tau nanti ada yang membutuhkan. Yaitu bagaimana cara setting email yang ada di web. Kegunaannya, untuk mengirim email aktifasi ke calon user, seperti contohnya mbak/mas daftar facebook, biar facebook aktif maka kita diminta buka email dan klik link aktifasi yang mereka berikan.

Itu salahsatu manfaatnya, untuk setingannya saya sajikan dalam bentuk gambar di bawah, semoga bermanfaat.

 

smtpmailjoomla

4 Item yang harus di ingat dalam seting dasar mikrotik

Dasar dari seting mikrotik :

1. Mikrotik mampu berhubungan dengan ISP

2. Mikrotik mendapat akses internet

3. Client mampu berhubungan dengan mikrotik

4. Client mendapat akses internet dari mikrotik

Untuk mendapatkan keempat dasar diatas, kita harus perhatikan 4 item berikut.

1. Interface, berikan identitas setiap ethernet.

2. Address, berikan IP disetiap interface yang sudah di rubah  (jangan lupa /24)

3. Router, setting gateway dari ip isp

4. DNS, isikan dns dari isp atau ip dari mikrotik
Dengan 4 dasar ini mikrotik sudah dapet berfungsi sebagai router pemberi akses internet. Setelah ini silahkan seting sesuai kebutuhan.

Semoga bermanfaat

Download Kode Warna Singkat

Berikut saya berikan link kode warna singkat untuk teman-teman yang suka desain, baik web maupun desain gambar. Klik Link

Anda tinggal klik kanan pada warna yang anda pilih, selanjutnya tinggal paste

Flatcoolor2

Kelebihannya juga kita bisa memilih jenis warna nya,

Flatcoolor

semoga bermanfaat

Tampilan Windows 10 sangat kecil

Sekedar catatan ketika menemukan tampilan aplikasi di windows 10 sangat kecil. Ada beberapa aplikasi yang terinstal di laptop ato PC kita mempunyai tampilan sangatlah kecil. Informasi yang di dapat dari System Windows 10 ini ternyata mereka menerapkan Scalling, jadi harus di sincronkan antara resolusi dan scalingnya.

Klik kanan pada desktop dan pilih driver vga anda dan pada display di control panel, setingan pada gambar dibawah adalah setingan paling nyaman buat saya.

Screen Shot 06-29-16 at 03.51 PM

 

Kemudian seting Display yang ada di control panel, klik set a custom scaling level, kemudian lilih nilai 100%

Screen Shot 06-29-16 at 03.52 PM

Screen Shot 06-29-16 at 03.52 PM 001

Membuat Tulisan Melengkung Dengan Word 2007

Untuk Kasmawati semoga membantu.

1. Pertama ketik tulisan yang di inginkan, disini saya menuliskan ” Kalender 2014 ”

maseadi
2. Pilih word Art
maseadi1
3. Pilih tulisan melengkung
maseadi2
4. Kemudian Muncul inputan teks yang telah kita tulis di depan, disini bisa merubah tulisan font, ukuran dan tebal tulisan
maseadi3
5. Tarik pojok kanan bawah sampai menemukan lengkungan yang diinginkan
maseadi4 maseadi5
6. Ini merupakan menu untuk merubah dari kerenggangan tulisan sampai merubah tulisan.
maseadi6

7. Untuk variasi yang lain bisa menggunakan  effect font, tool ditunjukkan  gambar di bawah ini. Disitu kita bisa memilih bentuk apa aja yang kita inginkan, seperti yang saya contohkan yaitu membuat tulisan melingkar bulat.
maseadi7maseadi8