Cara penggunaan Delay Di Delphi

Delay adalah sebuah fungsi untuk memberikan delay atau jeda waktu yang di tentukan, biasa nya delay ini di gunakan untuk memanipulasi proses loading saat login. Jadi, seakan akan proses login tersebut membutuhkan waktu proses. Langsung saja ke script nya : 

procedure Tlogin.Delay(t: Integer);
var mulai, selesai : longint;
begin
mulai:=GetTickCount;
repeat
  Application.ProcessMessages;
  Selesai:=GetTickCount;
Until (selesai-mulai) >=t;
end;

Koperasi PSHT Kalbar

Delphi

Koperasi PSHT Kalbar

Koperasi PSHT Kalbar

google3c5fa30665562ac6.html

google-site-verification: google3c5fa30665562ac6.html

Koperasi PSHT Kalbar

google3c5fa30665562ac6.html

google-site-verification: google3c5fa30665562ac6.html

Koperasi PSHT Kalbar

Cara Meningkatkan Pengunjung Blog



Tips Cara Meningkatkan Pengunjung Blog;

Dengan 'Meningkatkan Pengunjung Blog' maka hasil dari kunjungan Blog tersebut berarti = Cash tujuan dari 90% para Blogger termasuk saya, dan disini saya akan Coba Untuk mengurai bagaimana kita bisa Mendapatkan Pengunjung Blog yang banyak perharinya :

Artikel ini berawal dari Cerita - cerita singkat kawan - kawan Se-Blogger yang saling bertanya yang pertanyaannya yang paling banyak dipertanyakan tentang Trafik Blog kira - kira sebagai berikut Bagaimana :

  1. Cara meningkatkan Pengunjung Blog;
  2. Cara meningkatkan Trafik Blog;
  3. Cara meningkatkan Pengunjung Blog dengan cepat;
  4. Cara Meningkatkan Traffik dengan SEO Blog;
  5. Cara meningkatkan Visitor Blog;
  6. Cara menaikan trafik pengunjung Blog;
  7. Cara menaikan Jumlah Pengunjung Blog;
  8. Cara Menaikan Pengunjung Website;

Dari beberapa Pertanyaan tersebut akhirnya saya coba membuat sebuah artikel "10 CARA MENINGKATKAN PENGUNJUNG BLOG";  sebagai berikut :
cara meningkatkan Pengunjung Blog

Cara meningkatkan pengunjung Blog;

  • Meningkatkan Pengunjung Blog Mengunakan Media Sosial  facebook.com;

    Cara atau Tips Pertama Gunakan Media Sosial Yang Paling terbaik saat ini Yaitu "facebook.com" buat sebuah Akun Facebook yang namanya sama dengan nama kontent yang ingin kita muat dalam Blog kita saya coba praktekan disini Key Word yang ingin saya gunakan dalam Blog adalah "TUKAR LINK BACKLINK" maka saya membuat sebuah akun dengan nama Tukar Link Backlink dan hasilnya ketika kita memasukan Keyword tersebut "Tukar Link Backlink" dari Facebook.com berada dalam SERP 1 Point Pertama google.com. kemudian arahkan target visitor kita dari Facebook.com ke Blog kita dengan cara meletakan Link Blog di kolom Post FB

Cara Meningkatkan Trafik Blog;

  •  Meningkatkan Trafik Blog Lewat Fan Page;

    Cara atau Tips Kedua masih menggunakan FB buat sebuah Fan Page yang namanya lagi - lagi sama dengan Keyword yang ingin Kita gunakan saya masih mengunakan nama yang sama yaitu "Tukar Link Backlink" dan Hasilnya "Tukar Link Backlink" lagi - lagi berada di SERP 1 google

Cara Meningkatkan Pengunjung Blog dengan Cepat;


Cara Meningkatkan Trafik dengan SEO Blog;

  •  Meningkatkan Trafik dengan Cara SEO on Page Blog;

    Cara yang Ke Empat Kuasai Semua Keyword yang bisa dimungkinkan untuk mengarahkan Pembacaan google gunakan Meta Deskripsi dan meta Keyword banyak teknik ini bertebaran didunia maya tinggal diterapkan saja dalam Blog kita.

Cara Meningkatkan Visitor Blog;

  •  Tips Meningkatkan Visitor Blog Menggunakan Kaskus;

    Cara yang Ke Lima masih menggunakan Media Sosial sebagai teknik menghimpun Trafik Pengunjung Blog , gunakan Media Sosial kaskus dan buat sebuah Topik Diskusi dan perlu diingat sebisanya disemua Media Sosial tersebut masukan Link Blog Kita, apakah itu didalam Deskripsi atau apalah sebisanya Edit dan buat semaksimal mungkin

Cara Menaikan Trafik Pengunjung Blog;

  •  Tips Menaikan Trafik Blog Menggunakan Web Surfing; 

    Cara yang Ke Enam menggunakan Teknik / Tips  Surfing Blog untuk menaikan Visitor Juga Kita bisa mendapat Langsung Tambahan Pemasukan Karena Surfing yang saya maksud adalah Surfing yang dibayar Sesuai dengan berapa kemampuan Surfing Kita perhitungannya adalah setiap per 1000 Surf. Materinya bisa lihat disini'berselancar di dunia maya dibayar dollar, Namun saya menyarankan untuk blog yang baru berumur dibawah 3 Bulan Usahakan Hasil surfing yang nantinya Kita dapatkan usahakan diarahkan dibawah angka 1000 Kunjungan perhari, ini dikarenakan google biasanya akan membaca Trafik yang kita dapat, dari cara yang curang Jika melebihi angka 1000 Kunjungan dari Surfing blog itu berdasarkan pengalaman saya.

Cara Menaikan Jumlah Pengunjung Blog;

  •  Menaikan Jumlah Pengunjung Blog Menggunakan G+; 

    Cara yang Ke Tujuh masih pada Prinsip yang sama , kali ini kita gunakan G+ Rubah nama sesuai Keyword yang ingin kita Tembak dan setelah itu semua Artikel kita yang berhubungan dengan Trafik pengunjung dimasukan dalam Post (usahakan di postkan hanya artikel yang berkaitan saja) dan sebagai bahan tambahan ketika kita ingin melakukan post di G+ usahakan muat juga 'Via G+'

Cara Menaikan Pengunjung Web / site;

  •  Menaikan Jumlah Pengunjung Web / Site;

    Cara yang Ke Delapan ini adalah cara unik untuk menaikan Visitor Blog; kita Gunakan Semua Keyword yang bisa anda gunakan dan buat Keyword tersebut bisa terupdate atau bisa diganti - ganti sesuai keinginan Keyword yang Kita ingin pakai, Contoh kasus dalam Artikel ini Perhatikan! pertanyaan - pertanyaan saya diatas !!! dan bagian per point yang saya Tuliskan sebenarnya itu adalah cara yang sedikit unik dan tidak perlu dilakukan dalam penulisan Blog secara umum, namun disini saya coba mempraktekan gaya penulisan yang menggunakan Posisi H2 dan H3 yang intinya sebenarnya saya ingin menguasai semua Keyword tersebut diatas masukan secara manual dengan perintah html, (pelajari bagaimana pentingnya H1 kemudian H2 dan H3,, dst dalam SERP google).

Tips Unik Menaikan Trafik Blog;

  •  Cara Unik Aneh dan Nyeleneh Menaikan Trafik Blog;

    Cara yang Ke Kesembilan gunakan Angka Dalam Penulisan Judul Blog Cara ini tergolong tidak Lazim, saya juga masih terus bertanya tanya dan yang paling Unik dari Angka tersebut adalah angka 10 (sepuluh) entah ada apa dengan angka 10 apakah ini adalah batasan tertinggi dari Page Rank google ( saya juga masih ingin menyelami lebih dalam Keistemewaan angka 10 google ) contoh Judul Blog ini "10 CARA MENINGKATKAN PENGUNJUNG BLOG"

Rahasia Ping Menaikan TrafikRahasia Ping Menaikan Trafik Blog;

  •  Menggunakan Ping Untuk Menaikan Trafik Blog;

    Cara yang Ke Kesepuluh Gunakan Ping Blog; satu hari Satu Kali disemua Ping Blog yang bisa kita lakukan, teknik ini tergolong ampuh namun dengan syarat, Harus Membuat Artikel baru minimal Update tulisan Blog yang ada dampaknya pada Besaran Kb ukuran Blog, Jangan melakukan lebih dari satu kali perhari karena kalau kelebihan Sandbox pasti menunggu kita di Tikungan Ping hehehe.

Sebenarnya masih ada beberapa Tips lagi untuk menaikan Pengunjung Blog Kita tapi karena saya ingin berpegang pada judul yaitu "10 Cara Meningkatkan Pengunjung Blog"; maka saya cukupkan disini Tulisan Artikel saya ini semoga bermanfaat lahir dan Bathin Buat para Blogger. baca Juga Artikel Terkait Lainnya :
 
Saya Juga akan Mengulas beberapa Tips mendasar lainnya untuk memenangkan Keyword google; mulai dari cara yang unik yang sampai tergolong sedikit kasar (memaksa google.com) dan beberapa teknik yang banyak di rahasiakan master2 SEO diulasan mendatang :)

Koperasi PSHT Kalbar

Pascal : Program Toko

Hasil tampilan program



   

 disini saya akan berbagi tentang membuat contoh sebuah program sederhana menggunakan bahasa pemrograman pascal. Dimana saya disini menggunakan beberapa system algoritma, seperti sistem urut, perulangan dan keputusan. Dibawah ini merupakan source code nya. Terus masala tampilan table harap di perbaiki, karena seharusnya menggunakan kode ascii. langsung aja !

program toko;      
    uses crt;      
    label      
         mulai;      
    const      
         stok=4;      
         nama_barang : array [1..stok] of string =('TV 21"', 'DVD PLAYER', 'SOUND SYSTEM', 'AMPLIFIER');      
          harga_barang: array [1..stok] of real  =(990000, 500000, 890000, 750000);      
    (* deklarasi varibel *)      
    var      
       j : real;      
       k : string;      
       nama, alamat, coba: String;      
       tanya : char;      
       barang, banyak, no, baris, kapital,i : byte;      
       total,totald, diskon, tunai, kembalian : real;      
    begin      
         clrscr;      
         textcolor(3+blink);      
         writeln('+------------------------+);      
         writeln('| Selamat datang di toko kami  |’);      
         writeln('+-----------------------------+);      
         textcolor(yellow);      
         write('Silahkan masukkan nama anda   : ');readln(nama);      
         write('Silahkan masukkan alamat anda : ');readln(alamat);      
         textcolor(white);      
         (* mengakpitalkan inputan *)      
         for kapital:= 1 to Length(nama) do      
             nama[kapital] := UpCase(nama[kapital]);      
         for kapital:= 1 to Length(alamat) do      
             alamat[kapital] := UpCase(alamat[kapital]);      
         (*prose pengkapitalan selesai *)      
         baris:=9;      
         writeln('+---+----------+-----------+’);      
         writeln('|NO |  BARANG     |    HARGA       |’);      
         writeln('+-----+-----------------+-----------------+’);      
         for no:=1 to stok do      
         begin      
         writeln('|     |                         |                        |);      
         gotoxy(3,baris); writeln(no);      
         gotoxy(8,baris); writeln(nama_barang[no]);      
         gotoxy(24,baris); writeln('Rp. ',harga_barang[no]:0:2);      
         baris:=baris+1;      
          
         end;      
         writeln('+---+--------------+-----------+‘);      
          
         mulai:      
         textcolor(yellow);      
         writeln('Silahkan pilih barang yang akan dibeli');      
         write('Dengan cara menuliskan nomor barang  : '); readln(barang);      
         (* pengujian nomor barang jika salah *)      
         if barang > stok then      
            begin      
                    delay(1000);      
                    textcolor(red);      
            writeln(' ===================================================');      
            writeln('|| Nomor barang belum tersdia silahkan di perbaiki ||');      
            writeln(' ===================================================');      
                    writeln('1. Ulangi pembelian');      
                    writeln('x. Keluar');      
            textcolor(yellow);      
                    write('Silahkan masukkan pilihan anda ? [1/X] : ');      
                    readln(coba);      
                    if coba='1' then      
                       begin      
                            Goto mulai;      
                    end;      
                    if coba='x' then      
                         begin      
                              textcolor(red);      
                              k:='Program akan menutup otomastis ...... ';      
                              for i:=1 to length(k) do      
                              begin      
                                   write(k[i]);      
                                   delay(100);      
                                   end;      
                                   delay(1000);      
                                   exit      
                         end      
         else      
             begin  textcolor(red);      
                    writeln('Anda memasukkan karakter yang salah.');      
                    k:='Program akan menutup otomastis ...... ';      
                    for i:=1 to length(k) do      
                         begin      
                         write(k[i]);      
                         delay(100);      
                         end;      
                         delay(1000);      
                    exit      
             end;      
          
          
         end      
         (* proses jika memasukkan angka barang yang benar *)      
         else       delay(1000);      
                    textcolor(yellow);      
                    write  ('Berapa unit yang akan anda beli ?    : ');readln(banyak);      
            delay(1000);      
                    writeln('--------------------------------------------------------------------');      
          
          
                    k:='Anda membeli ';      
                    for i:=1 to length(k) do      
                        begin      
                             textcolor(white);      
                             write(k[i]);      
                             delay(70);      
                        end;      
                    write(nama_barang[barang]);      
                    k:=' banyak ';      
                    for i:=1  to length(k) do      
                        begin      
                             write(k[i]);      
                             delay(70);      
                        end;      
                    writeln(banyak ,' Unit');      
                    textcolor(yellow);      
                    delay(1000);      
                    write('Apakah data diatas benar ? [Y/T] : ');readln(tanya);      
          
                    (* proses jika data sudah benar *)      
          
                    if tanya='y' then      
                       begin      
                    total := harga_barang[barang]*banyak;      
          
                            k:='Total harga barang adalah : Rp. ';      
                            for i:=1 to length(k) do      
                                begin      
                                     textcolor(white);      
                                     write(k[i]);      
                                     delay(70);      
                                end;      
                            delay(1500);      
                            writeln(total:0:0);      
          
                            textcolor(yellow);      
                    k:='Tunai / Cash              : Rp. ';      
                            for i:=1 to length(k) do      
                                begin      
                                     write(k[i]);      
                                     delay(70);      
                                end;      
                            readln(tunai);      
                            writeln('--------------------------------------------------------------------');      
                (* proses penghitungan bayaran *)      
                if total >=4000000 then      
                                     begin      
                                     textcolor(white);      
                                     diskon:=total*10/100;      
                                     totald:=total-diskon;      
                                     kembalian:=tunai-totald;      
                                     k:='Pembelian lebih dari Rp. 3.999.999, anda mendapat diskon 10%';      
                                     for i:=1 to length(k) do      
                                         begin      
                                              write(k[i]);      
                                              delay(70);      
                                         end;      
                                     writeln;      
          
          
                                     k:='Jadi total pembayaran adalah : Rp. ';      
                                     for i:=1 to length(k) do      
                                         begin      
                                              write(k[i]);      
                                              delay(70);      
                                         end;      
                                     writeln(totald:0:0);      
          
                                     k:='Kembaliannya : Rp. ';      
                                     for i:=1 to length(k) do      
                                         begin      
                                              write(k[i]);      
                                              delay(70);      
                                         end;      
                                     writeln(kembalian:0:2);      
                                     end;      
                           if total <4000000 then      
                               begin      
                               kembalian:=tunai-total;      
                               delay(1000);      
                               k:='Total pembayaran adalah : Rp. ';      
                               for i:=1 to length(k) do      
                                   begin      
                                        write(k[i]);      
                                        delay(70);      
                                   end;      
                               writeln(total:0:0);      
                               delay(1000);      
                               writeln('Kembaliannya : Rp. ',kembalian:0:0);      
                               end;      
                    end      
          
                    else if tanya = 't' then      
                    begin      
                    goto mulai;      
                    end      
                    else begin      
                    k:='Anda memasukkan karakter yang salah system akan menutup ..... ';      
                    for i:=1 to length(k) do      
                        begin      
                             write(k[i]);      
                             delay(70);      
                        end;      
                    delay(2000);      
                    exit      
                    end;      
                    delay(2000);      
                    k:='Barang akan segera dikirim ke alamat : ';      
                    for i:=1 to length(k) do      
                        begin      
                             write(k[i]);      
                             delay(70);      
                        end;      
          
                    write(alamat);      
                    k:=' Atas nama ';      
                    for i:=1 to length(k) do      
                        begin      
                             write(k[i]);      
                             delay(70);      
                        end;      
                    writeln(nama);      
                    writeln('----------------------------------------------------------');      
          
                    readln;      
    end.   

Diatas adalah source code aplikasi toko sederhana. Dimana dalam proses kerjanya, saya menggunakan beberapa fungsi atau apalah namanya. Yang pertama sayang menggunakan ARRAY yang berfungsi sabagai tempat menampung data barang.
Saya juga menggunakan fungsi label, yang mana berfungsi sebagai penamaan dalam sebuah proses ( menurut saya hehehe ).
Ada juga perintah for, dalam program ini saya gunakan untuk mengulang banyak baris pada tabel sesuai denga banyak data yang ada. Saya gunakan juga untuk menampilkan tulisan satu persatu.
Kemudian saya menggunakan percabangan, yaitu if then else, yang berfungsi sebagai pengambil keputusan. Contoh saya ambil dari program diatas, pada barsi ke-149. Disana terlihat statement nya, penjabarannya kurang lebih seperti in. Jika varibel total bernilai lebih besar dari 4000000 maka ketentuannya terpenuhi, dan langsung proses dilanjutkan, jika tidak maka proses lain yang akan melanjutkannya.
Kemudian saya menggunakan kode goto yang brfungsi untuk berpindah ke label yang ditentukan. contoh pada baris 67. Goto mulai; yang hasilnya akan berpindah ke label mulai.
Saya juga menggunakan delay([interval]); yang berfungsi untuk memberikan jeda sesuai yang ditentukan.
Selain itu saya juga meggunakan fungsi upcase, yang berfungsi untuk mengubah huruf kecil menjadi huruf kapital.

Koperasi PSHT Kalbar

Langganan: Postingan (Atom)