" Kuliah Si Boersan "

Tampilkan postingan dengan label Belajar Function. Tampilkan semua postingan

15 April 2014

Membuat aplikasi kalender dengan PHP

17.22 Unknown 1 comment

Dalam membuat aplikasi kita kadang meminta user memasukkan tgl lahir, tanggal mulai masuk sekolah dan lainlain. Kita bisa membuat aplikasi kalender yang membuat user merasa nyaman memilih tanggalnya.

Misal aplikasinya sebagai berikut:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>
<script language="javascript">
function buka_tgl(s_url)
{
    s_param = "width=300,height=300,scrollbars=1,resizable=1";
    new_window = window.open(s_url,"tgl",s_param);
    new_window.focus();
}
</script>
<body>
<form name=tgl_coba>
<br>Mulai:<input type="text" name="tgl_mulai"/>
<a href=javascript:buka_tgl('tanggal.php?tgl_init='+document.tgl_coba.tgl_mulai.value+'&balik=tgl_coba.tgl_mulai&balik_format=dd-mm-YYYY')><img src=tgl.png border=0></a>dd-mm-YYYY
<br>Selesai:<input type="text" name="tgl_selesai"/><a href=javascript:buka_tgl('tanggal.php?tgl_init='+document.tgl_coba.tgl_selesai.value+'&balik=tgl_coba.tgl_selesai&balik_format=dd-mm-YYYY')><img src=tgl.png border=0></a> dd-mm-YYYY
</form>
</body>
</html>

Kemudian untuk kalendernya sebagai berikut:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<style type="text/css">
*
{
    font-family: Arial, Helvetica, sans-serif;
    font-size: 10pt;
    margin:0;
    padding:0;

}
.dt_init
{
    background-color: #99ffff;
}

.sabtu
{
    background-color: #f8ebbd;
}

.minggu
{
    background-color: #fce1ed;
}

</style>
    <title>Tanggal</title>
</head>
<body>
<form method="POST" name="myform">
<?php
$a_bulan['01']="Januari";
$a_bulan['02']="Februari";
$a_bulan['03']="Maret";
$a_bulan['04']="April";
$a_bulan['05']="Mei";
$a_bulan['06']="Juni";
$a_bulan['07']="Juli";
$a_bulan['08']="Agustus";
$a_bulan['09']="September";
$a_bulan['10']="Oktober";
$a_bulan['11']="November";
$a_bulan['12']="Desember";

$balik=$_GET['balik'];
if ($balik=="")
{
    $balik=$_POST['balik'];
}

echo "<script language=\"javascript\">
function balikin(nilai)
{
    opener.document.$balik.value=nilai;
    self.close();
}
</script>";

$balik_format=$_GET['balik'];
$balik_format=$_GET['balik_format'];
if ($balik_format=="")
{
    $balik_format=$_POST['balik_fomat'];
}

$tgl_init=$_GET['tgl_init'];
if ($tgl_init=="")
{
    $tgl_init=$_POST['tgl_init'];
    if ($tgl_init=="")
    {
          if ($balik_format=="dd-mm-YYYY")
          {
               $tgl_init=date("d-m-Y",time());
        }
        else
        {
               $tgl_init=date("Y-m-d",time());
        }
    }
}

$bulan_tampil=$_POST['bulan_tampil'];
if ($bulan_tampil=="")
{
    if ($balik_format=="dd-mm-YYYY")
     {
           list ($temp,$bulan_tampil,$tahun_tampil)=explode("-",$tgl_init);
    }
    else
    {
           list ($tahun_tampil,$bulan_tampil,$temp)=explode("-",$tgl_init);
    }
}
if ($tahun_tampil=="")
{
    $tahun_tampil=$_POST['tahun_tampil'];
}
/*if ($tahun_tampil=="")
{
    $tahun_tampil=date("Y",time());
}
*/
$tot_tanggal=date("t",strtotime("$tahun_tampil-$bulan_tampil-01"));
$day_first=date("N",strtotime("$tahun_tampil-$bulan_tampil-01"));

echo "\n<select name=\"bulan_tampil\" onChange=\"document.myform.submit()\">";
for ($b=1;$b<=12;$b++)
{
    if ($b<10)
    {
       $bs="0$b";
    }
    else
    {
       $bs="$b";
    }


    if ($bs==$bulan_tampil)
    {
       $selected="selected=\"selected\"";
    }
    else
    {
       $selected="";
    }
    echo "\n <option value=\"$bs\" $selected>".$a_bulan[$bs]."</option>";
}
echo "\n</select>";

echo "\n<select name=\"tahun_tampil\" onChange=\"document.myform.submit()\">";
$thn_start=$tahun_tampil-50;
$thn_end=$tahun_tampil+50;
for ($t=$thn_start;$t<=$thn_end;$t++)
{
    if ($t==$tahun_tampil)
    {
       $selected="selected=\"selected\"";
    }
    else
    {
       $selected="";
    }
    echo "\n <option value=\"$t\" $selected>$t</option>";
}

echo "\n</select>";
echo "\n <input type=\"hidden\" name=\"tgl_init\" value=\"$tgl_init\">";
echo "\n <input type=\"hidden\" name=\"balik\" value=\"$balik\">";
echo "\n <input type=\"hidden\" name=\"balik_format\" value=\"$balik_format\">";

echo "<div>".$a_bulan[$bulan_tampil]." $tahun_tampil </div>";
echo "<table border=\"1\">";
echo "<tr>
<td>Sen</td>
<td>Sel</td>
<td>Rab</td>
<td>Kam</td>
<td>Jum</td>
<td class=\"sabtu\">Sab</td>
<td class=\"minggu\">Ming</td>
</tr>
";
echo "<tr>";
$w=1;
for ($a=1;$a<$day_first;$a++)
{
    echo "<td></td>";
    $w++;
}

for ($d=1;$d<=$tot_tanggal;$d++)
{
    if ($w==1)
    {
       echo "
       <tr>";
    }
    if ($d<10)
    {
       $ds="0$d";
    }
    else
    {
       $ds="$d";
    }

    if ($w==6)
    {
       $class="class=\"sabtu\"";
    }
    else if ($w==7)
    {
       $class="class=\"minggu\"";
    }
    else
    {
       $class="";
    }

    if ($balik_format=="dd-mm-YYYY")
    {
        $nilai="$ds-$bulan_tampil-$tahun_tampil";
    }
    else
    {
        $nilai="$tahun_tampil-$bulan_tampil-$ds";
    }

    if ($tgl_init==$nilai)
    {
       $class="class=\"dt_init\"";
    }

    echo "<td $class align=\"center\"> <a href=\"javascript:balikin('$nilai');\">$d</a></td>";
    $w++;
    if ($w==8)
    {
       $w=1;
       echo "
       </tr>";
    }
}
while ($w>1 && $w<8)
{
    echo "<td></td>";
    $w++;
    if ($w==8)
    {
       echo "
       </tr>";
    }
}


echo "</table>";
?>
</form>
</body>
</html>

Koneksi Flash dengan Mysql dan PHP

09.28 Unknown No comments

Ini merupakan tutorial dasar bagaimana mengkoneksikan Flash dan mengambil data dari MySQL yang akan ditampilkan di aplikasi Flash Anda. Kepada para suhu Flash mohon bantuannya kalau ada kesalahan dalam tutorial ini.

Yang dibutuhkan dalam tutorial ini antara lain:

Program Aplikasi Macromedia Flash / Adobe Flash (Saya menggunakan Adobe Flash CS3)
Database MySQL (Saya menggunakan Mysql 5.0.24)
PHP (Saya menggunakan PHP 5.1.4)
Web Server Apache (Saya menggunakan Apache 2.0.59)
Editor (Saya menggunakan Notepad)
Sudah kenalan dengan Flash, PHP dan MySQL

1. Go To Flash Stage

Buka dokument baru, buat sebuah Dynamic text fields (Text Tools) dengan nama variable varNama pada property. Kemudian convert to Symbol menjadi sebuah Movie Clip dengan nama bebas terserah Anda. Kembali ke text yang sudah menjadi Movie Clip, klik kanan kemudian pilih Action (Untuk mengetikan Action Script). Ketik Script di bawah ini:

onClipEvent (load) {
// Load file php dari local server dengan mengirimkan variable nama
loadVariables(”http://localhost/flash/koneksi.php?nama=supono”, this, “GET”);
}

Flash kita udah beres, Sekarang kita bekerja ke MySQL
2. Next MySQL Database

Buat sebuah database dengan nama misalnya “taskdb”, kemudian buat tabel bernama flash dengan dua field yaitu nama dan nomor telepon setelah tabel dibuat, jangan lupa masukkan datanya.

CREATE DATABASE `taskdb`;
CREATE TABLE `flash` (
`nama` varchar(25) NOT NULL,
`telepon` varchar(25) NOT NULL
)
INSERT INTO `flash` (`nama`, `telepon`) VALUES (’Kantin Kampus’, ‘08574555666′);

3. Next PHP Script

Setelah di buat database nya pada step sebelumnya, saatnya untuk menyambungkan dengan menggunakan sebuah bahasa pemrograman yang bernama PHP. Secara umum, sama seperti biasa, yaitu koneksi ke database, kemudian pilih nama database kemudian query ke table dan tampilkan deh. Untuk mengirimkan ke Aplikasi flash yaitu dengan mengisi nama text field pada flash yang kita beri nama variable “varNama” diisi dengan hasil dari array database (lihat pada baris terakhir sebelum tanda kurung kurawal)

//koneksi.php
//tampilkan data atas nama supono
//level: basic, by supono | http://supono.wordpress.com

if($_GET['nama']) {
$link = mysql_connect(”localhost”, “root”, “vertrigo”)
or die(”error: koneksi ke database gagal”);
$select_db = mysql_select_db(”taskdb”);
$query = “SELECT * FROM flash WHERE nama=’”.$_GET['nama'].”‘”;
$result = mysql_query($query)
or die(”error: perintah query gagal $query”);
mysql_close($link);
$row = mysql_fetch_array($result);
mysql_free_result($result);
print “varNama=$row[nama] - ($row[telepon])”;
}
?>

Latihan Pembuatan Array,procedure dan function menggunakan Pascal Part 3

07.35 Unknown 1 comment

Mungkin banyak yang uda paham m pascal saya cuma ingi share apa yang saya dapat waktu kuliah, ini merupakan praktek jaman semester 3. Jauh sekali dari harapan semester 3 baru dapat pascal sungguh ironis sekali. tapi tak apa yang penting terlambat dari pada tidak sama sekali. berikut ini scrip pascal pembuatan array, procedur dan function.

Program arr_pro_fun;

uses crt;

var

km,mt,wk:array[1..15] of string;

kw:array[1..15] of char;

b1,b2,tl: array [1..15] of longint;

nm,al:string[25];

tb:longint;

i,n:byte;

jwb:char;

procedure garis;

begin

writeln('-------------------------------------------------------');

end;

procedure input;

begin

tb:=0;

clrscr;

garis;

writeln(' LPK GLOBAL NETWORK');

garis;

garis;

writeln('| MT01 | Visual Basic | 150.000| A | Pagi | 75.000|');

writeln('| MT02 | Visual Foxpro | 175.000| B | Sore | 100.000|');

writeln('| MT31 | Internet | 200.000|----------------------');

garis;

writeln;

write('Masukan Nama = ');readln(nm);

write('Masukan Alamat = ');readln(al);

write('Masukan Jumlah Kursus = ');readln(n);

garis;

for i:=1 to n do

begin

writeln('Materi Kursus Ke-',i);

writeln;

write('Masukan Kode Materi = ');readln(km[i]);

if (km[i]='MT01') or (km[i]='mt01') then

begin

mt[i]:='Visual Basic';

b1[i]:=150000;

end

else if (km[i]='MT02') or (km[i]='mt02') then

begin

mt[i]:='Visual Foxpro';

b1[i]:=175000;

end

else

begin

mt[i]:='Internet';

b1[i]:=200000;

end;

write('Masukan Kode Waktu = ');readln(kw[i]);

writeln;

if upcase(kw[i])='A' then

begin

wk[i]:='Pagi';

b2[i]:=75000;

end

else

begin

wk[i]:='Sore';

b2[i]:=100000;

end;

function hitung:longint;

begin

for i:=1 to n do

begin

tl[i]:=b1[i]+b2[i];

end;

procedure output;

begin

clrscr;

writeln(' LPK GLOBAL NETWORK');

garis;

writeln('Nama = ',nm);

writeln('Alamat = ',al);

garis;

writeln('NO MATERI KURSUS WAKTU BIAYA1 BIAYA2 TOTAL');

garis;

for i:=1 to n do

begin

gotoxy(2,7+i);writeln(i);

gotoxy(4,7+i);writeln(mt[i]);

gotoxy(18,7+i);writeln(wk[i]);

gotoxy(24,7+i);writeln('Rp.',b1[i]);

gotoxy(35,7+i);writeln('Rp.',b2[i]);

gotoxy(46,7+i);writeln('Rp.',tl[i]);

tb:=tb+tl[i];

end;

garis;

writeln('Total bayar = ','Rp.':34,tb:4);

writeln;

end;

begin

input;

hitung;

output;

readln;

end.

" Kuliah Si Boersan "

New Posts

News Post

Popular Post

15 April 2014

Membuat aplikasi kalender dengan PHP

30 Juni 2013

Koneksi Flash dengan Mysql dan PHP

18 Juni 2011

Latihan Pembuatan Array,procedure dan function menggunakan Pascal Part 3

Info Bisnis Terkini

10 Lagu Terbaru beserta Liriknya

New Comments

Traffic Kuliah Si Boersan

Link and Banner Friend

Member Link