Tulisan Biasa Penulis

Qreport adalah komponen yang Langsung tertanam pada delphi 7, tetapi untuk menggunakan nya terlebih dahulu harus kita instal, Berbeda dengan Versi diatas nya Qreport sudah langsung ada. Qreport digunakan untuk mencetak Laporan Seperti hal nya kita ingin membuat struk penjualan atau laporan lain nya sesuai dengan kebutuhan. Berikut ini Langkah" nya. 1. Buka Aplikasi Delphi 7 2.Pada Menu Bar Pilih Component >> Install Packages >> Add 3. Lalu Cari Pada Drive C: atau sesuai kan letak anda menginstal Delphi 7 4.Pilih Borland >> Delphi 7 >> Bin Ketikan Ini dclqrt70.bpl 5.Seperti gambar dibawah ini : 6. Bila sudah Tekan Ok 7. Dan liat pada Pojok Kanan >> Geser Selamat Qreport Berhasil Anda Instal... 

Sebelum nya sudah saya post membuat bootable dengan Flashdisk disini , Selanjutnya saya akan posting sedikit cara burning CD/VCD sesuai ukuran dengan kebutuhan anda. Burning ini bisa digunakan untuk Data atau Sistem Operasi. Maaf untuk Topik diatas karena saya terlalu semangat :v Download UltraIso 1. Run Administrator ultra Iso 2. File >> open pilih Iso sistem Operasi 3. Seperti gambar ini setelah di buka 4. selanjutnya klik icon ini atau klik Tools>>Burn CD/DVD Image 5. Klik Verify 6. Selanjutnya terakhir klik pada Burn Tinggal tunggu beberapa saat... Mudah kan :) Semoga bermanfaat ...

Penampakan seperti diatas terdiri dari tanggal + inisial pelanggan saya singkat PP + no urut pelanggan Komponen yang digunakan qpelanggan= adoquery letakkan pada procedure atau sesuai kebutuhan anda... procedure autonumber; berikut lisitng program nya : procedure TForm1.autonumber; var kode : Double; begin qpelanggan.Close; qpelanggan.SQL.Clear; qpelanggan.SQL.Add(' select * from tblpelanggan order by kd '); qpelanggan.Open; if qpelanggan.RecordCount = 0 then kode:=001 else begin qpelanggan.Last; kode:=StrToFloat(copy (qpelanggankd.AsString,1,3)); kode:=kode + 1; end; edkode.Text:=  FormatDateTime('yy//mm/dd',Date) + 'PP'  + FormatFloat('000',kode); if qpelanggan.RecordCount > kode then begin ShowMessage('database full hubungi pengembang'); Form1.Close; end;

Berikut ini tampilan program Jasa pembuatan hubungi Facebook Admin Tanya jawab silahkan berikan komentar :)

Disini atau Media fire Disini

VPN atau Virtual Private Network adalah Penghubung antara node satu pada sebuah jaringan dengan node lain nya dimana node ini dihubungkan dengan sebuah media baik dengan kabel atau nirkabel. Umum nya VPN ada pada sebuah perusahaan atau instansi-instansi lain nya, untuk membentuk suatu jaringan private komunikasi dalam suatu area. dimana area ini masih dalam 1 lingkup seperti hal nya Perusahaan guna untuk saling berkomunikasi atau keamanan. Baca wikipedia atau disini Kini VPN telah berkembang, VPN tidak hanya di gunakan untuk Jaringan private Perusahaan. kita sendiri Pun dapat menggunakan VPN, yang guna nya tentu banyak selain untuk keamanan jaringan karena IP kita tersembunyi kan oleh server selain itu pula IP kita tidak akan terdeteksi karena sudah berubah, selain itu pula koneksi kita bebas surfing didunia maya, yang akan coba saya jabarkan ini adalah VPN free. Misalnya saja kita buka google dan ketikan My IP perhatikan IP kita. Klik Disini Berikut ini Daftar VPN

Pertama Buka Internet Download Manager[IDM], Selanjut nya buka pada download Option, lalu masuk pada tab Proxy Seperti pada gambar Isikan Proxy dan Port Selanjutnya Pilih Sock 5 dan Terakhir klik OK

Pertama Siapkan SC Tiap Provider, karna tempat beda kartu dan beda port pula  Lalu pastikan anda sudah membuat akun SSH yang akan saya praktekan adalah setting manual tetapi kalau ada injek tinggal sesuaikan. Cara Membuat Akun SSH . Untuk Permulaan : SC anda sudah tersetting APN sesuai dengan SC masing jika Belum sesuaiakan Disini Saya Contohkan dengan menggunakan FastSSH Selanjutnya Buka Bitvise yang belum punya download bitvise disini Liat gambar Pada Tab Login No yang tertera No 1 isikan dengan host  bisa beupa link seperti diatas atau IP misalkan 192.xxx.xxx.xxx No 2 Isikan dengan Port Mulai dari 22, 80, 143, 109, 443. cek satu". No 3 Isikan Username No 3 Isikan Password Untuk mencoba tekan Login Bila ada tampilan dibawah ini tekan accept for this session Selanjutnya Bila sudah berhasil  tekan Logout Masih pada tab Login selanjutnya, Buka Proxy Settings Cara Mencari Proxy Silahkan Baca Disini Setelah Sel

Download Proxifier Yang belum ada silahkan download dahulu Jika kita ingin membuat multi SSH lebih dari 1 yang akan kita setting adalah pada bagian Services Seperti dibawah ini saya contohkan 2 akun ssh Listen Port diatur pada 1081 dan akun 1 nya lagi pada port 1080 Bila sudah ada buka Prixifier seperti dibawah ini : Pada menu dibawah ini Pilih Profile lalu proxy Server Proxy server lalu pilih add maka tampil dibawah ini isikan address nya sebanyak 2x sesuai ilustrasi diatas lalu pilih sock5 Masih di Proxy Server selanjutnya Drug dan Drop seperti dibawah ini namun sebelum nya Pilih Create dan berikan nama nya sesuaikan saja. Setelah itu klik OK pada bagian Profile kembali,  pilih Proxification rules Selanjut nya add pilih semua yang sudah di add

Berikut ini Langkah Setting Proxy di Mozilla Buka Pada Pengaturan >>> Canggih Lalu Pilih Pengaturan dibawah canggih Lalu Muncul tampilan Berikut ini Sesuaikan Seperti dibawah ini : Sedangkan Untuk Opera dan Chrome Selanjutnya Pilih pada LAN Settings Add caption Isikan Pada Proxy Server isikan seperti dibawah ini

Berikut ini cara Mencari Proxy Menggunakan Bantuan Web Proxy Seperti dibawah ini : 1. Hidemyass 2. Incloak 3. Syps Berikut ini salah Contohkan Salah Satu menggunakan Hidemyass Proxy Country cari Indonesia Protocol cari Http karena yang kita butuhkan HTTP nya dan yang laen sesuaikan kebutuhan selanjutnya Update Result nanti akan keluar Beberapa Proxy silahkan coba sesuai kebutuhan anda.

      Setting Modem Untuk Operator TELKOMSEL: Username: wap Password: wap123 APN: telkomsel Dial Number: *99# Setting Modem Untuk Operator XL: Username: xlgprs Password: proxl APN: www.xlgprs.net Dial Number: *99***1#  atau Untuk APN diisi : xlunlimited Username= dikosongkan  Password=dikosongkan Setting Modem Untuk Operator FLASH: Username: wap Password: wap123 APN: flash Dial Number: *99# Setting Modem Untuk Operator Indosat M2 - IM2: Username: (sesuai yang didaftarkan) Password: (sesuai yang didaftarkan) APN: indosatm2 Dial Number: *99# Setting Modem Untuk Operator MENTARI: Username: indosat Password: indosat APN: indosatgprs Dial Number: *99# Setting Modem Untuk Operator MENTARI PAKET GPRS: Username: indosat@durasi Password: indosat@durasi APN: indosatgprs Dial Number: *99# Setting Modem Untuk Operator MATRIX: Username: indosat Password: indosat APN: indosat3g Dial Number: *99# Setting

Berikut ini link yang bisa digunakan untuk SSH. ya untuk pengertian silahkan cari sendiri ga dikasih juga pasti pada tau :D jalur internet aman kurang lebih begitu... tapi sekarang banyak digunakan untuk internet gratis :D 1. fastssh klik  Create SSH Account terserah yang mana tapi usahakan yang limit acc sedikit ya, kalo penuh ya yang 999999/day untuk uji coba. Masukan Username dan Password, lalu tinggal Create Account deh.... Kalo Berhasil Nanti Seperti INI, kalau belum ya coba lagi :D 2. Lowerping yang selanjutnya ini ni... Jika sudah berhasil maka akun nya akan seperti ini tampilan nya...  silahkan pilih server Lowerpingserver 3. ShellCJB Isikikan username dan password selanjut nya continue lalu tunggu  "Your shell account has been created and will be active in a few minutes. SSH to shell.cjb.net on port 22 or 443 to log in." Selanjutnya tunggu beberapa saat. Kalo ada yang lain Sil

Yang akan Coba saya terangkan adalah koneksi database Mysql dengan bantuan Mysql Conector ODBC Win32 ,  Selain itu Tutorial ini akan membuat Button untuk Baru, Hapus, Edit, Keluar, Batal, Simpan dan Pencarian.   Buat database seperti diatas,Sebelum nya saya postingkan   membuat database menggunakan syntax Sql   database diatas  membuat database menggunakan Friendly user SQLyoq enterprise  silahkan baca terlebih dahulu cara membuat nya. Buat nama database db_latihan Buat nama tabel tb_barang Selanjutnya Buat Tampilan Form seperti dibawah ini : Sesuaikan Komponen Berikut : Komponen Property Value  Form Name  FBarang Caption  From Data Barang Panel1 - - Panel2 - - Panel3 - -   Panel4 - -  Groupbox1 Caption Pencarian Data  Label1 Caption Kode Barang  Label2

  Diatas tampilan nya, silahkan sesuaikan komponen nya seperti diatas. Berikut ini Source code nya Klik 2x pada button : procedure TForm1.Button1Click(Sender: TObject); var Jumlah, hasil,bonus :integer; begin Jumlah:=StrToInt(Edit1.Text); hasil:=Jumlah * 10000; bonus:=hasil div 100000; Edit2.Text:=IntToStr (bonus)+' SUSU Kaleng'; end; end.

Buat tampilan seperti diatas, Setelah itu buat variabel Global seperti dibawah ini : var     Form1: TForm1;   C,K:INTEGER; implementation Klik pada form lalu pilih event ,Form create. Isikan untuk menghapus saat form dijalankan  procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; end; Buat Function Seperti dibawah ini letakkan seperti dibawah ini type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     FUNCTION KELVIN:INTEGER;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; bila sudah seperti biasa ctrl+shift +c pada function diatas, lalu selanjutnya ketikan seperti dibawah ini function TForm1.KELVIN: INTEGER; begin // ambil nilia C sebagai Interger dari Edit1.text  C:=StrToInt(Edit1.Text);  // Hitung Fungsi Kelvin  KELVIN:

Tampilan Program  Tampilan Komponen sebagai Berikut  Pada ComboBox Isikan Pada Items Fahreinhet Reamur  Kelvin Buat Procedure Bersih procedure TForm1.bersih; begin     edtcelcius.Text:='';     edthasil.Text:='';     ComboBox1.Text:=''; end; Buat Function seperti dibawah ini: private     { Private declarations }   public     { Public declarations }     Procedure Bersih;     function kelvin (cel : integer) : Integer;     function reamur (cel : integer) : Real;     function fahreinheit (cel : integer) : Real;   end; Selanjut nya Klik 2x Pada Bitbtn1 atau pada hitung procedure TForm2.BitBtn1Click(Sender: TObject); var     celcius : Integer; begin     celcius:=StrToInt(edtcelcius.Text);     case ComboBox1.ItemIndex of     0:     begin        edthasil.Text:=FloatToStr(fahreinheit(celcius));     end;     1:     begin        edthasil.Text:=CurrToStr