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
Archive for 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
Contoh Program Pascal Menu Makanan
Contoh Program Pascal Menu Makanan
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');
Program Pascal Luas dan Keliling
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);
CSS pada List
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-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
Contoh CSS Eksternal
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 :
Contoh Program dengan Foxpro
Contoh Program dengan Foxpro
Sebenarnya penrograman ini hampir sama dengan Visual Basic, perbedaannya sedikit sekali. Apakah itu? Langsung saja cekidot
Array pada Pascal
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;
Menggunakan Listbox Visual Basic (VB)
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
Program Penghitung (Kalkulator) dengan Visual Basic
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 ^_^
Membuat Program Master Data (Clipper)
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
Program Mencetak Laporan (Clipper)
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
Menampilkan Data per Record (Clipper)
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()
Menghapus Data Record Database (Clipper)
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
Mengedit Data Record Database (Clipper)
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.
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
Menggunakan / Mengaktifkan Databse pada Cipper
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 :
Cara membuat Database pada Clipper
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
|
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 :
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;
Perkalian acak Visual Basic (code)
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.
Option Explicit
Dim kali As Integer
Dim angkaprob As Integer, angkabetul As Integer
Koding Pascal untuk Mencari Bilangan Prima
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;
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.
