15.25
alie
Contoh 1
/* -------------------------------------- */
/* file program: CGETS.C */
/*i contoh pembatasan panjang string */
/* yang dimasukan dari keyhboard */
/* ------------------------------------------ */
#include "conio.h"
main()
{
char st[27]; /*I area untuk string masukan */
char *ptr; /* pointer yang menunjuk string masukan */
clrscr();
cprintf("Nama ( maks.24 karakter ):");
st[0]=25; /* atur panjang string maksimal plus karakter NULL */
ptr=cgets(st); /* baca maksimal 24 karakter */
cprintf("Nama yang anda masukan adalah %s\r\n",ptr);
cprintf("Jumlah karakter = %d\r\n",st[1]);
getch();
}
Contoh 2
/* -------------------------------- */
/* file program : GETDATE.C */
/* untuk memperoleh tanggal sistem */
/* ----------------------------------- */
#include "conio.h"
#include...
Selasa, 22 Maret 2011
Fungsi Dalam Bahasa Pemrograman C
Berikut adalah contoh - contoh fungsi dalam bahasa C :
Contoh 1
/*----------------------------------*/
/*file program : INISIAL.C */
/*contoh penciptaan fungsi*/
/*---------------------------*/
#include "stdio.h"
main()
{
int x,y;
clrscr();
x=inisialisasi();
printf("x = %d\n",x);
y=inisialisasi();
printf("y = %d\n",y);
getch();
}
inisialisasi()
{
return(0);
}
Contoh 2
/*----------------------------------*/
/*file program: MINIMUM.C */
/*contoh fungsi yang mengandung argumen */
/*----------------------------------*/
#include
main()
{
int a=20;
int b=44;
int hasil;
clrscr();
hasil=minimum(a,b);
printf("Nilai terkecil=%d\n",hasil);
printf("Nilai terkecil=%d\n",minimum(3,2));
getch();
}
minimum(x,y)
int x,y;
{
if(x<y)
return(x);
else
return(y);
}
Contoh 3
/*--------------------------------*/
/*File...
Desain Layar Dalam Pemrograman Bahasa C
Berikut adalah contoh Source Code Program Bahasa C (Desain Layar) :
Contoh 1
/* ------------------------- */
/* file program: CLREOL.C */
/* contoh pemakaian clreol() */
/* untuk menghapus text mulai posisi kursor */
/* hingga akhir baris , dengan tujuan */
/* untuk membentuk garis berwarna-warni */
/* -------------------------------------------- */
#include "conio.h"
main()
{
int j;
clrscr();
for(j=1;j<7;j++)
{
textbackground(j); /* pilih latar belakang */
gotoxy(1,j); /* ke awal baris */
clreol(); /* hapus hingga akhir baris */
getch();
}
}
Contoh 2
/* -------------------------------- */
/* file program info layar */
/* untuk memperoleh informrasi video */
/* -------------------------------- */
#include "conio.h"
main()
{
struct text_info data;
clrscr();
directvideo=0;...
Array Dalam Bahasa C
Berikut adalah contoh fungsi didalam pemrograman bahasa C :
Contoh 1
/* -----------------------------------------*/
/* file program : DATA-HRF.C */
/* contoh inisialisasi array dimensi tiga */
/*------------------------------------------*/
#include "stdio.h"
main()
{
int i,j,k;
static int data_huruf[2][8][8]=
{{{ 0,1,1,1,1,1,0,0 } ,
{ 0,1,0,0,0,1,0,0 } ,
{ 0,1,0,0,0,1,0,0 } ,
{ 1,1,1,1,1,1,1,0 } ,
{ 1,1,0,0,0,0,1,0 } ,
{ 1,1,0,0,0,0,1,0 } ,
{ 1,1,0,0,0,0,1,0 } ,
{ 0,0,0,0,0,0,0,0 } ,
},
{{ 1,1,1,1,1,1,0,0 } ,
{ 1,0,0,0,0,1,0,0 } ,
{ 1,0,0,0,0,1,0,0 } ,
{ 1,1,1,1,1,1,1,0 } ,
{ 1,1,0,0,0,0,1,0 } ,
{ 1,1,0,0,0,0,1,0 } ,
{ 1,1,1,1,1,1,1,0 } ,
{ 0,0,0,0,0,0,0,0 }
}
};
clrscr();
/*tampilkann huruf */
for(i=0;i<2;i++)
...
Menghapus Data di Mysql menggunakan Foxpro
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdDelete pada prosedur click
*delete data ke tabel server
* Procedure cmdDelete.CLICK()
IF MESSAGEBOX('HAPUS DATA?',36,'COBA HAPUS DATA')=6
oke=SQLEXEC(ConnHandle,"delete from apl_barang")
IF oke != 0
MESSAGEBOX("data berhasil dihapus.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
ELSE
MESSAGEBOX("data gagal dihapus.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
endif
ENDI...
Mengupdate Data di Mysql menggunakan Foxpro
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdUpdate pada prosedur click
*update data ke tabel server
* Procedure cmdUpdate.CLICK()
IF MESSAGEBOX('UPDATE DATA?',36,'COBA UPDATE DATA')=6
oke=SQLEXEC(ConnHandle,"update apl_barang set kode_barang='kode_update',nama_barang='nama_update' ;
,kategori_barang='kategori_update' ;
,satuan='satuan_update',stok='5555',harga='5000000'")
IF oke != 0
MESSAGEBOX("data berhasil diupdate.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
ELSE
MESSAGEBOX("data gagal disimpan.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
endif
ENDI...
Menyimpan Data di Mysql Menggunakan Foxpro 9
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdSimpan pada prosedur click
*menyimpan data ke tabel server
* Procedure cmdSimpan.CLICK()
IF MESSAGEBOX('SIMPAN DATA?',36,'COBA SIMPAN DATA')=6
oke=SQLEXEC(ConnHandle,"INSERT INTO apl_barang (kode_barang,nama_barang,kategori_barang,satuan,stok,harga) VALUES ;
('kode','nama barang','kategori','satuan','200','1000')")
IF oke != 0
MESSAGEBOX("data berhasil disimpan.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
ELSE
MESSAGEBOX("data gagal disimpan.",64,"Informasi !")
thisform.grid1.Init
Thisform.Refresh
thisform.grid1.Refresh
endif
ENDIF
oke=SQLEXEC(ConnHandle,"INSERT INTO tabel_data_dinamis_jumlah_pegawai_kantor;
(kode,a,b,c,d,e,f) VALUES ;
(?sim1,?sim2,?sim3,?sim4,?sim5,?sim6,?sim7)")
filetarget...
Senin, 21 Maret 2011
Menampilkan Tabel Mysql di Grid Foxpro 9
Berikut adalah source kodenya :
Kita buat koneksi ke mysql terlebih dahulu.
Taruh di objek form pada prosedur load
vdbase = "mvc"
vuser = "root"
vpass = "123456"
msql = "DATABASE="+vdbase+";SERVER=localhost;port=3306;UID="+vuser+";PWD="+vpass+";provider=MSDASQLR;DRIVER={MySQL ODBC 3.51 Driver};"
PUBLIC ConnHandle
ConnHandle = SQLSTRINGCONNECT(msql)
kode di bawah ini di taruh di objek grid pada prosedur init
SQLEXEC(ConnHandle,"SELECT * FROM apl_barang","a")
thisform.Grid1.BackColor=RGB(0,128,255)
thisform.Grid1.RecordSource="a...
Koneksi database Mysql pada Foxpro
sebelum melakukan koneksi database mysql dengan fpxpro, instal dulu mysql-connector-odbc-3.51.12 sebagai konektor database mysql dengan visual foxpro.
Berikut adalah script Foxpro untuk koneksi ke Mysql :
vdbase = ALLTRIM(thisform.vdata.Value)
vuser = ALLTRIM(thisform.username.Value)
vpass = ALLTRIM(thisform.passwd.Value)
msql = "DATABASE="+vdbase+";SERVER=localhost;port=3306;UID="+vuser+";PWD="+vpass+";provider=MSDASQLR;DRIVER={MySQL ODBC 3.51 Driver};"
THISFORM.koneksi = SQLSTRINGCONNECT(msql)
IF THISFORM.koneksi <= 0
MESSAGEBOX("Koneksi Ke Server Database MySQL Gagal"+msql ,64,"Informasi !")
THISFORM.Vdata.SetFocus
Return
ELSE
...
Mengganti Password root di Mysql
Cara mengganti password root di mysql :
1. Masuk ke database mysql
2. Ketikkan perintah sql berikut.
update user set password=password('123456') where host = 'localhost';
atau
update user set password=password('123456') where user = 'root';
3. Setelah password udah diganti, langkah terakhir ketikan perintah sql dibawah ini.
flush privileges;
Selesai...., password sudah berganti dengan 123456.
GOOD LUCK,...
Jumat, 18 Maret 2011
mysql
/* CSS Document */
/* BUTTONS */
.buttons a, .buttons button{
display:block;
float:left;
background-color:#f5f5f5;
border:1px solid #dedede;
border-top:1px solid #eee;
border-left:1px solid #eee;
font-family:"Lucida Grande", Tahoma, Arial, Verdana, sans-serif;
font-size:12px;
line-height:130%;
text-decoration:none;
font-weight:bold;
color:#565656;
cursor:pointer;
padding:5px 10px 6px 7px; /* Links */
width:480px;
}
.buttons button{
width:auto;
overflow:visible;
/*padding:4px 10px 3px 7px;*/ /* IE6 */
}
.buttons button[type]{
/*padding:5px 10px 5px 7px;*/ /*...
foxpro
/* CSS Document */
/* BUTTONS */
.buttons a, .buttons button{
display:block;
float:left;
background-color:#f5f5f5;
border:1px solid #dedede;
border-top:1px solid #eee;
border-left:1px solid #eee;
font-family:"Lucida Grande", Tahoma, Arial, Verdana, sans-serif;
font-size:12px;
line-height:130%;
text-decoration:none;
font-weight:bold;
color:#565656;
cursor:pointer;
padding:5px 10px 6px 7px; /* Links */
width:480px;
}
.buttons button{
width:auto;
overflow:visible;
/*padding:4px 10px 3px 7px;*/ /* IE6 */
}
.buttons button[type]{
/*padding:5px 10px 5px 7px;*/ /*...
Kamis, 17 Maret 2011
Paging halaman dengan PHP menggunakan array
Pada pembahasan sebelumnya saya telah menulis teknik paging untuk menampilkan data dari tabel MySQL menggunakan LIMIT. sekarang saya akan memberikan tehnik paging menggunakan Array pada PHP.
Berikut adalah tehnik paging menggunakan array
Langkah 1 (pertama)Kita membuta array terlebih dahulu
<?php
$link = array("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18");
$link2 = array("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18");
?>
Langkah 2 (kedua)Membuat form untuk menampilkan berapa data yang akan ditampilkan dalam satu halaman.
<form name="form_tr" action="" method="POST">
<?php
///////////////////////////////////////////////////////////////////
////////////////////GET BATAS, POSISI, DAN HALAMAN/////////////////
///////////////////////////////////////////////////////////////////
...
Selasa, 15 Maret 2011
Paging halaman dengan PHP
Sudah satu bulan penuh saya tidak mengupdate blog ini. untuk mengupdatenya saya menambah judul baru dalam blog ini, yaitu tentang paging halaman. untuk masalah paging, saya juga masih dalam tahap belajar dan beberapa trik dan teknik yang akan saya posting dalam blog ini juga saya ambil dari beberapa referensi buku dan juga beberapa hal yang saya pelajari sendiri. semoga saja bisa bermanfaat buat kalian semua....
Paging juga dikenal dengan sebutan pagination (paginate), previous-next, tampilan per halaman, page navigator, halaman 1..2..3, dst. Apapun namanya, intinya paging merupakan suatu teknik untuk membatasi data yang akan ditampilkan dalam suatu halaman web. Biasanya paging digunakan untuk menampilkan data yang banyak dan hampir di setiap aplikasi web “si paging” selalu ada, namun jenisnya...
Jumat, 11 Maret 2011
Pemahaman tentang bahasa pemrograman
pemahaman tentang bahasa pemrograman dengan baik dan benar adalah dengan cara membaca artikel2 yang penting dan paling utama dalam bahasa pemrograman, dengan membaca dasar2 pemrograman dan memahaminya. maka akan sangat membantu kita dalam meningkatkan kualitas berfikir kita dalam membuat suatu program yang bagus.
dasar yang penting adalah bagaimana konsep dan prosedur penulisan program, mengetahui kondisi, perulangan , fungsi, class, array, dll.....
