Archive for 2012

Menampilkan Segitiga Bintang dengan Pascal

Senin, 06 Agustus 2012


Menampilkan Segitiga Bintang dengan Pascal


Sudah lama tidak posting, kali ini saya lagi-lagi posting tentang Turbo Pascal.
Chek this out !



uses crt;
var a,b:integer;
begin
a:=5;
while a>=1
do begin

No responses yet

Contoh Program Pascal Menu Makanan

Kamis, 14 Juni 2012


Contoh Program Pascal Menu Makanan


Lagi-lagi posting tentang pascal :)
Lumayan dah buat nostalgia. Check it out !

program paket_makanan;
uses wincrt;
const
     A=10000;
     B=15000;
     C=20000;
var
   menu:byte;
   jawab:char;
   jumlah,harga:longint;
procedure menu_utama;
begin
 clrscr;
     writeln('==========================');
     writeln('daftar menu KFC');
     writeln('__________________________');
     writeln('1.KOMBO 1');
     writeln('2.KOMBO 2');

No responses yet

Program Pascal Luas dan Keliling

Selasa, 12 Juni 2012


Program Pascal Luas dan Keliling

Sudah lama banget nggak posting. Kali ini saya posting tentang koding pascal untuk mencari luas dan keliling dari berbagai bangun datar. Chek it out !


uses wincrt;
var luas,hasil:real;
i,pil,p,t,l,a:integer;
procedure kel_persegi;
begin
clrscr;
writeln('Keliling Persegi');


writeln('sisi = ');
write ('Hasil= ');
gotoxy(7,2);readln(p);
hasil:=4*p;
gotoxy(7,3);write(hasil:4:2);

No responses yet

CSS pada List

Rabu, 25 April 2012

CSS pada List


Didalam CSS ada beberapa perintah untuk mengontrol tampilan dari list style, diantaranya adalah:
list-style-type: contoh tipe; adalah untuk mengubah bentuk bullet yang ada di depan dari list menu. 
list-style-image: url(contoh.jpg); adalah untuk mengubah bentuk bullet dengan gambar . 
list-style-position: posisi; adalah untuk memposisikan list menu: inside dan outside. 
Untuk lebih jelasnya, coba ketik kode dibawah ini dan save dengan nama file style.css

No responses yet

Contoh CSS Eksternal

Selasa, 24 April 2012

Contoh CSS Eksternal

Style Sheet external adalah style sheet yang didefinisikan secara terpisah dalam file tersendiri. Dikarenakan pendefinisian file terpisah, maka harus diberikan ekstensi penyimpanannya dengan diakhiri  .css  ( contoh : style.css  ) dan tidak perlu didefinisikan di dalam tag HTML. Sedangkan untuk dokumen HTML-nya harus dihubungkan menggunakan sebuah link untuk mengakses atau memanggilnya.
Sebagai contoh sederhana untuk mempraktikkan Cascade Style Sheet External dapat dicoba dengan mengetikkan kode program berikut ini :

No responses yet

Contoh Program dengan Foxpro

Jumat, 20 April 2012

Contoh Program dengan Foxpro

Sebenarnya penrograman ini hampir sama dengan Visual Basic, perbedaannya sedikit sekali. Apakah itu? Langsung saja cekidot


2 responses so far

Array pada Pascal

Rabu, 18 April 2012

Array pada Pascal

Sudah lama g update,kali ini saya posting tentang contoh array pada bahasa pemrograman pascal. Langsung simak aja d bawah ini, bagi yang kebetulan dapat tugas tentang ini, langsung sedot aja. Langsung edit saja sesuai kebutuhan. Kalau ada yang mau ditanyakan, bisa langsung koment.
Berikut adalah screenshot nya 

uses crt;
type
    nilai=array[1..2,1..4] of integer;
    nama=array [1..2] of string;

No responses yet

Menggunakan Listbox Visual Basic (VB)

Jumat, 27 Januari 2012

Menggunakan Listbox Visual Basic
   Berikut ini ada salah satu contoh dalam penggunaan listbox yang ada pada visual basic. Contoh ini bisa di ubah-ubah sesuai kebutuhan kok. Bagaimana caranya? Ya tinggal mengedit aja sendiri. Hehehehe

Ketikkan kode di bawah ini :
Private Sub cmdAdd_Click()
'Menampilkan nama kota di lstKunjung sesuai yang dipilih di lstKota

No responses yet

Program Penghitung (Kalkulator) dengan Visual Basic

Jumat, 20 Januari 2012

Program Penghitung  dengan Visual Basic
   Sekedar untuk latihan atau coba-coba bagi yang ingin belajar bahasa pemrograman visual basic(vb),  langsung saja mempraktekkan kode program yang ada di bawah ini.

Setelah membuat tampilan seperti di atas, langsung sedot aja kodingnya ^_^

No responses yet

Membuat Program Master Data (Clipper)

Minggu, 15 Januari 2012

Membuat Program Master Data


   Yang di maksud program master data di sini adalah program yang mengelola mulai dari menambah, mengubah, maupun menghapus data-data yang utama. Nah, mari kita praktekkan yang di bawah ini.


# INCLUDE "INKEY.CH"
# INCLUDE "SETCURS.CH"

IF ! FILE("barang.DBF")
        dbcreate("barang.dbf",{{"KD_brg","C",5,0},;
                              {"nama_brg","C",20,0},;
                              {"satuan","C",10,0},;
                              {"merk","C",15,0},;
                              {"harga","n",7,0},;
                               {"stok","N",2,0}})
       
   use barang
   index on kd_brg to barang

No responses yet

Program Mencetak Laporan (Clipper)

Jumat, 13 Januari 2012

Program Mencetak Laporan


   Selain menampilkan data per record, kita juga bisa menampilkan seluruh record sekaligus. Yaitu dengan membuat laporan, untuk lebih jelasnya langsung saja kita coba yang di bawah ini.

Langsung ketik aja kode di bawah ini :

local mscreen, mcolor
save scre to mscreen
CLOSE DATABASE
use BARANG index BARANG 
pilih=0
pilih:=alert("Media Cetakan",{"Layar","Printer","Batal"})
Do case
   case pilih=1
        set printer off
        set cons off
        set alter to lapor.txt
        set alter on

No responses yet

Menampilkan Data per Record (Clipper)

Kamis, 12 Januari 2012

Menampilkan Data per Record


   Hmmm... setelah kita membuat, menggunakan, menambah record, mengedit record, dan menghapus record pada database clipper, sekarang bagaimana cara menampilkan record-record yang sudah kita tambahkan sebelumnya?
Langsung saja kita ke TKP
Koding program dari tampilan di atas adalah   :
# INCLUDE "INKEY.CH"

use barang index barang

LABEL()
tunjuk()
tampil()    
do while.t.
X:=inkey(0)
do Case
    case X=K_LEFT
          SKIP -1
          tampil()

No responses yet

Menghapus Data Record Database (Clipper)

Rabu, 11 Januari 2012

Menghapus Data Record Database

  Sedikit berbeda dengan program menambah data record dan juga mengedit data record, untuk membuat program menghapus data ada sua model penghapusan yaitu menghapus data dengan cara menandai, yaitu dengan perintah DELETE dan menghilangkan data record dari database, yaitu dengan perintah PACK.
# INCLUDE "INKEY.CH"
use barang index barang
LABEL()
tunjuk()
LAYAR=SAVESCREEN(0,0,24,79)
MKD_BRG=SPACE(5)
do while.t.
X:=inkey(0)
do Case
    case X=K_F1
          CARIDATA()
    case X=K_DEL
         HA_PUS()
    Case X=K_ESC
         kunci= .F.
         exit
      endcase

No responses yet

Mengedit Data Record Database (Clipper)

Senin, 09 Januari 2012

Mengedit Data Record Database


   Bagaimana mengubah atau mengedit record data yang sudah ditambahkan pada database? Untuk mengedit data record database yang pernah anda masukkan lewat program menambah data, digunakan perintah-perintah atau fungsi pencarian baik secara linier, jika database tidak diindex, seperti LOCATE FOR, ataupun dengan pencarian secara biner, jika database diindex, seperti SEEK, FIND atau fungsi DbSeek(). Untuk menyimpan kembali ke database, digunakan perintah REPLACE.
Listing Program :
use barang index barang
LABEL()
pil=space(1)
DO WHILE .T.

No responses yet

Menambahkan Data Record Database (Clipper)

Menambahkan Data Record Database   


   Setelah kita bisa membuat database pada clipper dan juga mengaktifkan database pada clipper, sekarang mari kita coba menambah data record database.Kurang lebih tampilannya seperti ini


Langsung saja anda ketikan kode seperti yang ada di bawah ini :

IF ! FILE("barang.DBF")
        dbcreate("barang.dbf",{{"KD_brg","C",5,0},;
                              {"nama_brg","C",20,0},;
                              {"satuan","C",10,0},;
                              {"merk","C",15,0},;
                              {"harga","n",7,0},;
                              {"stok","N",2,0}})
   use barang
   index on kd_brg to barang
  ENDIF
use barang index barang

No responses yet

Menggunakan / Mengaktifkan Databse pada Cipper

Minggu, 08 Januari 2012

Menggunakan / Mengaktifkan Databse pada Cipper

    Setelah kemarin belajar membuat database pada clipper, kali ini kita akan belajar menggunakan database yang sudah dibuat. Bagi yang belum bisa membuat database alias ketinggalan postingan kemarin, bisa baca di sini. Bagi yang sudah baca, mari kita lanjutkan.
   Bentuk umum perintah yang digunakan adalah
USE <nama database> INDEX <data file database>
atau
USE <nama database> INDEX <data file database> NEW

Kesalahan yang mungkin terjadi pada saat diberikan perintah USE adalah nama file tidak ada dalam directory yang aktif, oleh kare itu sering digunakan sauatu fungsi standar yang dipakai untuk mengetahui apakah nama file yang disebutkan ada dalam direktory ataukah tidak, yaitu fungsi File().
contoh :
if file (“barang.dbf”)
      use barang index barang
else
      Alert(“Database tidak ada dalam directory”)
Endif
Return
  Selain dengan cara tersebut, mengaktifkan database dapat dilakukan dengan menggunakan operator makro (&). Contoh :

No responses yet

Cara membuat Database pada Clipper

Sabtu, 07 Januari 2012

Cara membuat Database pada Clipper

   Berbeda dengan pascal, clipper bisa menyimpan dan mengakses data yang telah disimpan sebelumnya. Yaitu menyimpannya kedalam database. Langsung saja, untuk membuat database pada clipper, perintah umumnya :
DBCREATE(<nama database>,<variable struktur database>
 Misal kita ingin membuat database seperti tabel sebagai berikut

Nama Field
Type
Lebar/Width
Dec
Kd_brg
C
5

Nm_brg
C
20

Merk
C
15

Satuan
C
10

Harga
N
7
0
stok
N
4
0
kode atau perintah untuk menciptakan database seperti di atas adalah  :

function database()
DbCreate(“Barang.DBF”,;
          {{“kd_brg”,”C”,5,0},;
           {“nm_brg”,”C”,20,0}.;
           {“merk”,”C”,15,0},;
           {“satuan”,”C”,10,0},;
           {“harga”,”N”,7,0},;
           {“stok”,”N”,4,0}}
INDEX ON NO_BAR TO BARANG.NTX
Return
   Selain  menggunakan koding, bisa juga memakai Database Utility (DBU) bawaan dari clipper itu sendiri, dengan menjalankan Command Prompt (CMD).
Contoh : D:\DBU (lalu tekan enter)
maka akan akan mucul seperti ini :
Lalu tekan F3 dan pilih database untuk membuat database, setelah itu masukan field dan typenya seperti contoh dibawah ini :

No responses yet

Koding Login (pasword) dengan Pascal

Koding Login (pasword) dengan Pascal

   Pernahkah anda memasukan pasword saat akan login atau mengakses sesuatu? Dan setelah beberapa kali memasukan pasword yang salah, maka tidak bisa memasukan pasword lagi untuk beberapa saat? Program semacam itu bisa juga dibuat dengan bahasa pemrograman pascal. Ini dia kodenya :
uses crt;
var pas:string;
    i:integer;
begin
clrscr;
i:=3;

No responses yet

Perkalian acak Visual Basic (code)

Jumat, 06 Januari 2012

Perkalian acak Visual Basic (code)
   Koding pascal sudah, clipper juga sudah, sekarang giliran visual basic. Ini ada contoh program yang dibuat menggunakan visual basic, yaitu perkalian yang angka-angkanya bisa muncul sendiri secara acak (random). Lumayan buat koleksi atau sekedar coba-coba.

Setelah membuat form seperti diatas, masukan kode di bawah ini :

Option Explicit
Dim kali As Integer
Dim angkaprob As Integer, angkabetul As Integer

No responses yet

Koding Pascal untuk Mencari Bilangan Prima

Kamis, 05 Januari 2012

Koding Pascal untuk Mencari Bilangan Prima

      Ok, selanjutnya kembali lagi tentang bahasa pemrograman pascal. Mungkin ada yang lagi nyari koding (coding) pascal bagaimana menampilkan bilangan prima. Bilangan prima adalah bilangan yang hanya habis dibagi dengan dua angka, yaitu 1 dan bilangan itu sendiri. Misalnya bilangan 7, hanya akan habis dibagi 1 dan 7 (bilangan itu sendiri), jadi blangan 7 termasuk bilangan prima.
     Sekarang, bagaimana menuangkan pengertian tersebut kedalam sebuah bahasa pemrograman yang sederhana (pascal)? Kita harus mengggunan perulangan bersarang, yaitu sebuah perulangan yang didalamnya berisi perulangan lagi. Kita lihat kode programnya :
uses crt;
var i1,j1,prima1:integer;
function prima(i,j:integer):integer;
var k:integer;
begin
i:=1;
     while i<=100 do begin
     k:=0;
     j:=1;
          while j<=i do begin
          if i mod j=0 then
          k:=k+1;
          j:=j+1;
          end;

3 responses so far

Koding 'menu pull-down' pada Clipper

Bagi temen2 yang masih agak bingung bagaimana membuat form utama yang terdapat bar menu yang dilengkapi menu tarik (pull-down), bisa copas dari sini.
Silakan edit sesuai kebutuhan     :D


#INCLUDE "INKEY.CH"
#INCLUDE "SETCURS.CH"
#INCLUDE "BOX.CH"

set wrap on
set mess to 24
do while .t.
   set colo to g+/w
   @0,0 clea to 0,79
   @24,0 clea to 24,79
   set colo to b+/w
   frame := repl (chr(176),9)
   @1,0,23,79 box frame
   @0,5  prompt "File" mess "Proses Entry Data"
   @0,20 prompt "Informasi" mess "Proses Cetak Informasi"
   @0,40 prompt "Utility" mess "Proses Bantuan"
   menu to pilih
   do case
      case pilih = 1
          menu1()
      case pilih = 2
          menu2()
      case pilih = 3
          menu3()
   endcase
end do

func menu1()
   local msscreen, mcolor
   save screen to msscreen
   mcolor := setcolor()
   do while .t.

No responses yet

« Newer posts Older posts »

Diberdayakan oleh Blogger.

Followers