Tugas Web FrameWork 1

Posted in web framework by

<?php
$koneksi = mysql_connect(“localhost”,”root”,””);
mysql_select_db(“mahasiswa”,$koneksi);
if(!$koneksi){
die (“tidak terkoneksi”);
}
?>

<form name=”formMahasiswa” method=”post” >
<?php
echo ” NIM  : <input type=’text’ size = ‘8’ name = ‘Nim’><br>
Nama : <input type=’text’ name = ‘Nama’><br>
Tanggal Lahir (yyyy/mm/dd): <input type=’text’ name = ‘TL’><br>
Jenis Kelamin : <select name = ‘Jenkel’>
<option value = ‘pria’ selected=”>Pria</option>
<option value = ‘wanita’>Wanita</option>
</select> <br>
Angkatan : <input type=’text’ name = ‘Angkatan’><br>
Alamat : <textarea name = ‘Alamat’ cols=’30’ rows=’4′></textarea><br>
<input type=’submit’ name=’simpan’ value=’submit’></form>” ;

if ($_POST[‘simpan’]==”submit”){
$nim=$_POST[‘Nim’];
$Nama=$_POST[‘Nama’];
$TL=$_POST[‘TL’];
$Jenkel=$_POST[‘Jenkel’];
$Angkatan=$_POST[‘Angkatan’];
$Alamat=$_POST[‘Alamat’];

$sql=”insert into mhs values(‘$nim’,’$Nama’,’$TL’,’$Jenkel’,’$Angkatan’,’$Alamat’)”;
$hasil=mysql_query($sql,$koneksi);
if(!$hasil){echo “Data gagal dimasukan”;}
}
?>

<br>
<hr width=100%>
<?php
$cari=’select *from mhs order by Nim’;
$sql2=mysql_query($cari,$koneksi);
$no=0;
echo “<table>”;
echo “<tr>
<td>No</td><td>Nim</td><td>Nama</td><td>Tanggal Lahir</td><td>Jenkel</td><td>Angkatan</td><td>Alamat</td>
</tr>
“;
while($baris=mysql_fetch_row($sql2)){
$no++;
echo “<tr>
<td>NO</td>
<td>$baris[0]</td>
<td>$baris[1]</td>
<td>$baris[2]</td>
<td>$baris[3]</td>
<td>$baris[4]</td>
<td>$baris[5]</td>
</tr>”;
}
echo “</table>”;
?>

Operasi Folder Dalam PHP

Posted in PHP by

Sekarang saya akan coba jelaskan sedikit mengenai operasi folder dalam PHP dan sejumlah fungsi yang terkait dengan folder direktori.

1. Mengubah Folder Kerja

Untuk mengubah folder kerja, PHP menyediakan fungsi bernama chdir(). Bentuk pemanggilannya adalah sebagai berikut

chdir(nama_folder)

Hasil  berupa :

– TRUE kalau operasi berhasil dilaksanakan.

– FALSE kalau terjadi suatu kegagalan.

2. Membaca Folder

Apabila anda bermaksud membaca isi suatu folder, anda harus membuka folder tersebut terlebih dahulu, baru kemudian bisa membacanya. Setelah operasi pembacaan selesai, anda perlu menutup folder tersebut.

Untuk membuka folder digunakan fungsi opendir(), sintak pemanggilannya sebagai berikut :

opendir(nama_dir)

Nilai balik fungsi ini berupa bilangan yang bertipe integer dan menyatakan pegangan folder, yang selanjutnya digunakan pada fungsi – fungsi yang akan segera akan kita bahas.

Nah setelah folder terbuka, maka barulah isi folder tersebut dapat kita baca dengan menggunakan fungsi readdir().

readdir(pegangan)

Disini argumen pegangan adalah pegangan folder yang diperoleh melalui pemanggilan fungsi opendir(). Adapun nilai baliknya berupa string yang berisi sebuah entri dalam folder.

Lalu untuk menutup sebuah folder cukup dengan fungsi closedir(pegangan).

contoh skrip :

<?php

    $dir=opendir(“.”);

    while ($entri = readdir($dir))

       print(“$entri<br>\n”);

    closedir($dir);

?> Continue reading →

Union, Intersection, Differences, Concatenation dan Reverse Dengan Delphi 7

Posted in Praktikum TBO by

                   Concatenation adalah sebuah operasi bahasa, atau lebih dikenal nya sebagai perkalian bahasa (saya kira). Misal ada bahasa L1 =  {ab, bba} dan L2 = {bb,aba} , maka jika kedua bahasa itu dilakukan operasi concatenation maka akan menjadi L3={abbb,ababa,bbabb,bbaaba} . Nah kalau secara teori saya sendiri juga tidak begitu mengerti, tapi untuk membuat program yang seperti itu dengan delphi saya malah mengerti.

                  Logikanya begini , langkah pertama yang harus dilakukan adalah memisahkan setiap kata yang terpisahkan oleh koma. Maka  diperlukan sebuah komponen penampung untuk melakukan hal tersebut. Untuk itu saya akan menggunakan komponen combobox,  Sebenarnya tidak hanya dengan combobox saja yang digunakan untuk ini, anda dapat menggunakan komponen lain seperti listbox, memo atau lainnya.  Setelah kedua bahasa telah dipisah dan berada dalam masing combobox, misal combobox1 dan combobox2 maka untuk langkah concatinationnya adalah menggunakan dua perulangan.  tambahkan satu value atau kata dari setiap baris combobox1 ke semua baris combobox2 . ulang langkah tersebut hingga baris dari combobox1 habis.

 Oke, berikut ini adalah perintah untuk memsisahkan string tersebut.

procedure TForm1.memecahkanbahasa(kata : string);
var
 i,j : integer;
 stringdata : string;
begin
  j:=0;
  for i := 1 to length(kata)+1 do
   begin
    if(kata[i]<>’,’) and (kata[i]<>”) then
     begin
      stringdata:=stringdata+”+kata[i];
     end

    else
     begin
      ComboBox1.Items.Add(stringdata);
      Inc(j);
      stringdata:=”;
     end;
   end;
end; Continue reading →

Tutorial Mengganti Background FB Menjadi Foto Sendiri

Posted in Coba - coba by

Berikut ini akan saya jelaskan bagaimana untuk mengganti background FB di laptop kita menjadi foto kita sendiri. Oke biar ngak usah berlama – lama langsung saja kita praktekan. sebaiknya anda mengikuti langkahnya satu demi satu.

 

1. Masuk ke URL http://userstyles.org/styles/browse/facebook

 

 

 

 

 

 

 

 

 

Setelah tampil halaman seperti diatas lalu pilih lah tema yang diinginkan | klik gambarnya

 

2. Instal penggaya ke browser | klik button berwarna hijau

 

 

 

 

 

 

 

 

 

Tunggu sampai penggaya terinstal

Continue reading →