Statement Case di Turbo Pascal

Kali ini saya akan memposting tentang Statement Case di Turbo Pascal, ada baiknya sebelum anda membaca postingan ini, anda membaca postingan saya yang sebelumnya yaitu Statement IF di Turbo Pascal
Case adalah struktur percabangan selain IF yang dapat digunakan untuk menentukan sebuah pilihan atau lebih. Case juga sering ditunakan untuk menyederhanakan perintah IF yang bertingkat tingkat

Contoh penggunaan Case di turbo pascal

Bentuk pertama

program statement_if;
uses crt;
var
 pilihan:integer;
begin
 clrscr;
 writeln('1. Pilihan pertama');
 writeln('2. Pilihan kedua');
 writeln('3. Pilihan ketiga');
 write('Tentukan pilihanmu : ');readln(pilihan);
 
 case pilihan of
  1:
   begin
   writeln('Anda memilih pilihan pertama');
   end;
  2:
   begin
   writeln('Anda memilih pilihan kedua');
   end;
  3:
   begin
   writeln('Anda memilih pilihan ketiga');
   end;
 else
  begin
  writeln('Anda tidak memilih pilihan yang ada di menu');
  end;
 end;
 
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini
ketikan angka 1 maka akan muncul text bertuliskan 'Anda memilih pilihan pertama', jika anda mengetikan angka 2 maka akan muncl text bertuliskan 'Anda memilih pilihan kedua', jika anda mengetikan angka 3 maka akan muncul text bertuliskan 'Anda tidak memilih pilihan yang ada di menu'

Bentuk kedua

program statement_case;
uses crt;
var
 nilai:integer;
begin
 write('Masukan nilai siswa : ');readln(nilai);

 case nilai of
  90..100:
   begin
   writeln('Anda mendapatkan A');
   end;
  80..89:
   begin
   writeln('Anda mendapatkan B');
   end;
  70..79:
   begin
   writeln('Anda mendapatkan C');
   end;
  60..69:
   begin
   writeln('Anda mendapatkan D');
   end;
 else
  begin
  writeln('Anda mendapatkan E');
  end;
 end;

 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini
Jika anda mengetikan antara 90 sampai 100 maka akan muncul text bertuliskan 'Anda mendapatkan A' jika anda mengetikan 80 sampai 89 maka akan muncul text bertuliskan 'Anda mendapatkan B', jika anda mengetikan antara 70 sampai 79 maka akan muncul text bertuliskan 'Anda mendapatkan C', jika anda mengetikan 60 sampai 69 maka akan muncul text bertuliskan 'Anda mendapatkan D', jika anda mengetikan angka di bawah 60 maka akan muncul text bertuliskan 'Anda mendapatkan E

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini

Read More

Statement IF di Turbo Pascal

Kali ini saya akan posting tentang Statement IF di Turbo Pascal
IF merupakan salah satu struktur kendali dalam bahasa pemrograman dan di dalam program yang dibuat
pasti banyak menggunakan statement IF, oleh karena itu IF sangatlah berguna dalam membuat program

Ada beberapa penggunaan IF diantaranya adalah

• IF Tunggal
• IF Ganda
• IF Bersarang

Contoh penggunaan IF Tunggal

program if_tunggal;

uses crt;
var
 bil:integer;
 ket:char;
begin
 clrscr;
 write('Masukan Bilangan : ');readln(bil);
 if (bil=2) then
  begin
   writeln('Anda menginputkan angka 2');
  end;
 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini
Ketikan angka 2 maka akan muncul text 'Anda menginputkan angka 2' jika tidak maka tidak akan terjadi apa apa

Contoh penggunaan IF Ganda

program if_ganda;
uses crt;
var
 bil:integer;
 ket:char;
begin
 clrscr;
 write('Masukan Bilangan : ');readln(bil);
 if (bil=1) then
  begin
  writeln('Anda mengetikan angka 1');
  end
 else
  begin
  writeln('Anda tidak mengetikan angka 1');
  end;
 readln;
end.

Jika dijalankan maka akan seperti gambar di bawah ini

Ketikan angka 1 maka akan muncul text bertuliskan 'Anda mengetik angka 1' jika anda mengetikan angka selain 1 maka akan muncul text bertuliskan 'Anda tidak mengetikan angka 1'

Contoh Penggunaan IF Bersarang

program if_bersarang;
uses crt;
var
 nilai,absensi:integer;
begin
 clrscr;
 write('Masukan nilai siswa : ');readln(nilai);
 write('Masukan absensi siswa : ');readln(absensi);
 if (nilai>=70) then
  begin
  writeln('Anda berhasil lulus');
  end
 else
  begin
   if (absensi>50) then
    begin
    writeln('Anda berhasil lulus');
    end
   else
    begin
    writeln('Anda tidak lulus');
    end;
 end;
 readln;
end. 

Jika dijalankan maka akan seperti gambar dibawah ini
Jika anda menginputkan nilai 70 maka akan muncul text 'anda berhasil lulus' jika nilai kurang dari 70 namun absensi yang anda ketikan lebih dari 50 maka akan muncul text 'anda berhasil lulus' namun jika nilai kurang dari 70 dan absensi kurang dari 50 maka akan muncul text 'anda tidak lulus

Semoga berhasil

Terima kasih atas kunjungan anda, jangan lupa untuk memberikan komentar anda

Read More

Search Data Dengan PHP dan MySQL

Setelah beberapa hari yang lalu saya memposting tentang Membuat Login Case Sensitive Dengan PHP dan MySQL
kali ini saya akan memposting tentang Search Data Dengan PHP dan MySQL



Caranya adalah sebagai berikut

1. Buatlah sebuah database dengan nama Latihan
    
2. Buatlah sebuah tabel siswa dengan script dibawah ini
   
   

   create table siswa (
   nis varchar(10) not null primary key,
   nama varchar(20) not null,
   alamat varchar(50) not null,
   kelamin varchar(15) not null
   )
   
   

3. Buatlah sebuah folder dengan nama searchphpmysql
4. Buatlah sebuah file koneksi.php untuk mengkoneksikan website ke database dengan script dibawahi ni
   
   

   <?php
   $server="localhost"; // alamat server
   $username="root"; // username mysql
   $password="root"; // password mysql, jika tidak diberi password maka isi dengan ""
   $nama_db="latihan"; // nama database yang akan digunakan
   
   $koneksi=mysql_connect($server,$username,$password) or die (mysql_error());
   $db=mysql_select_db($nama_db);
   ?>

5. Buatlah sebuah file .index.php lalu ketikan script dibawah ini
   
   

   <?php include "koneksi.php";?> <!-- mengincludekan file koneksi.php !-->
   
   <?php
   $kategori=$_POST['kategori']; //menampung value dari combobox kategori
   $cari=$_POST['textcari']; // menampung value dari textcari
   if (!empty($kategori) or !empty($cari)) { // jika $kategori tidak kosong or $cari tidak kosong maka akan dilakukan di redirect ke halaman ?kategori='nilai dari $kategori'&cari='nilai dari $cari'
    header ("location: ?kategori=".$kategori."&cari=".$cari);
   }
   ?>
   <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
   <html xmlns="http://www.w3.org/1999/xhtml">
   <head>
   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
   <title>Tutorial Koding</title>
   </head>
   <body>
   <table width="700" cellpadding="0" cellspacing="0" align="center">
   <tr>
   <td height="34" colspan="5" align="center"><strong><h2>Daftar Data Siswa</h2></strong></td>
   </tr>
   <form method="post" action="">
   <tr>
   <td height="32" colspan="5">Pencarian Data Siswa &nbsp;
     <select name="kategori">
       <option value="nis">NIS</option>
       <option value="nama">Nama</option>
       <option value="alamat">Alamat</option>
       <option value="kelamin">Jenis Kelamin</option> &nbsp; 
     </select>  <input type="text" name="textcari" /> &nbsp; <input type="submit" name="cari" value="Cari" /></td>
   </tr>
   </form>
   <tr>
   <td width="69">No.</td>
   <td width="119">NIS</td>
   <td width="246">Nama</td>
   <td width="141">Alamat</td>
   <td width="123">Jenis Kelamin</td>
   </tr>
   <tr>
   <?php
   $kategori=$_GET['kategori']; //mendapatkan nilai kategori
   $cari=$_GET['cari']; // mendapatkan nilai cari
   if (empty($kategori) and empty($cari)) { //jika $kategori dan $cari kosong
    $sqlsiswa=mysql_query("select * from siswa"); // sql untuk menampilkan seluruh data siswa
   } else { 
    $sqlsiswa=mysql_query("select * from siswa where ".$kategori." like '%".$cari."%'"); //sql untuk menampilkan hasil pencarian data siswa
    }
   while ($datasiswa=mysql_fetch_array($sqlsiswa)) {$a++; // perulangan untuk menampilkan data siswa
   ?>
   <td><?=$a; // nomor urut?></td>
   <td><?=$datasiswa['nis']; // menampilkan data nis?></td>
   <td><?=$datasiswa['nama']; // menampilkan data nama?></td>
   <td><?=$datasiswa['alamat']; // menampilkan data alamat?></td>
   <td><?=$datasiswa['kelamin']; //menampilkan data kelamin?></td>
   </tr>
   <?php } ?>
   </table>
   </body>
   </html>

6. Buka browser anda lalu ketikan http://localhost/searchphpmysql
   
7. Pilih kategori pencarian lalu ketikan sebuah kata pada textcari dan klik tombol cari maka akan muncul data dari hasil pencarian yang anda lakukan

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Sekian dulu dari saya

Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini

Read More

Membuat Login Case Sensitive Dengan PHP dan MySQL

Setelah beberapa hari yang lalu saya memposting tentang Simpan Edit Hapus Dengan PHP dan MySQL kali ini saya akan memposting tentang Membuat Login Case Sensitive Dengan PHP dan MySQL

Apa itu Case Sensitive ?

Case Sensitive adalah suatu aturan penulisan ejaan yang membedakan antara huruf kapital dan huruf kecil, misalkan ada 2 buah kata yaitu Php dan php jika di baca 2 kata itu memang sama, tapi jika di pandang dari case sensitivenya 2 kata itu sangatlah berbeda. Kenapa berbeda ?

Perhatikan pada kata pertama yaitu Php dimana kata tersebut diawali dengan P (huruf kapital) sedangkan pada kata kedua yaitu php dimana kata tersebut diawali dengan p (huruf kecil)

Setelah anda mengetahui tentang apa itu Case Sensitve saya akan membahas tentang Membuat Login Case Sensitive Dengan PHP dan MySQL, jadi misalnya anda mempunyai sebuah tabel dengan nama petugas yang memiliki 2 column yaitu username dan password.

Lalu anda mengisi tabel tersebut dengan username=Admin dan password=Admin, setelah itu anda membuat sebuah form login dan jika anda menginputkan username admin dan password admin maka anda tidak akan berhasil login, dan jika anda menginputkan username Admin dan password Admin maka anda akan berhasil login.

baiklah langsung saja 

Langkah-langkah Membuat Login Case Sensitive Dengan PHP dan MySQL

1. Buatlah sebuah database dengan nama login
2. Buatlah sebuah tabel petugas dengan script dibawah ini
   
   

   CREATE TABLE petugas (
   user_id int auto_increment primary key,
   username varchar(15) not null,
   password varchar(15) not null 
   )

3. Tambahkan data ke tabel petugas dengan script dibawah ini
   
   

   insert into petugas
   (username,password) 
   values 
   ('Admin','Admin')

4. Buatlah sebuah folder dengan nama Login dan simpan di C:\xampp\htdocs
5. Buatlah sebuah file php dengan nama koneksi.php dan ketikan script dibawah ini
   
   

   <?php
   $server="localhost"; // server datanase mysql
   $username="root"; // user database mysql
   $password="root"; // password database mysql
   $db="login"; // nama database mysql
   
   $koneksi=mysql_connect($server,$username,$password) or die (mysql_error()); 
   $database=mysql_select_db($db); 
   ?>

6. Buatlah sebuah file php dengan nama index.php dan ketikan script dibawah ini
   
   

   
   <?php include "koneksi.php"; 
   if (isset($_POST['btn_login'])) {
   $textuser=$_POST['username']; // mengisi variabel textuser dengan username yang diinputkan
   $textpassword=$_POST['password']; // mengisi variabel textpassword dengan password yang diinputkan
   $sqllogin=mysql_query("select * from petugas where username='".$textuser."' and password='".$textpassword."'"); 
   $datapetugas=mysql_fetch_array($sqllogin); 
   $jumlah=mysql_num_rows($sqllogin); 
   if ($jumlah>0) { 
    if ($datapetugas['username']==$textuser and $datapetugas['password']==$textpassword) { //mengecek username dan password dari tabel petugas sama persis dengan username dan password yang diinputkan
     echo "<center>Anda berhasil login<center>"; 
     echo "<meta http-equiv='refresh' content=3;url='admin.php'>"; 
    } else { 
     echo "<center>Anda gagal login</center>";
     echo "<meta http-equiv='refresh' content=3;url='./'>";
    }
   } else {
    echo "<center>Anda gagal login</center>";
    echo "<meta http-equiv='refresh' content=3;url='./'>";
   }
   
   }
   ?>
   <html>
   <head>
   <title>Login Case Sensitive</title>
   </head>
   <body>
   <form method="post" action="">
   <table cellpadding="0" cellspacing="0" width="500" align="center">
   <tr>
   <td colspan="3">Form Login</td>
   </tr>
   <tr>
   <td>Username</td>
   <td>:</td>
   <td><input type="text" name="username"></td>
   </tr>
   <tr>
   <td>Password</td>
   <td>:</td>
   <td><input type="password" name="password"></td>
   </tr>
   <tr>
   <td colspan="2">&nbsp;</td>
   <td><input type="submit" name="btn_login" value="Login"> &nbsp; <input type="reset" name="batal" value="Batal"></td>
   </tr>
   </table>
   </form>
   </body>
   </html>

7. Buka web browser anda dan buka http://localhost/login/
   
   
   
8. Inputkan username Admin dan password Admin lalu klik tombol login maka anda akan berhasil login

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Selamat mencoba
Sekian dulu dari saya, terima kasih atas kunjungannya

Read More

Simpan Edit Hapus Dengan PHP dan MySQL

Pada postingan kali ini saya akan membahas tentang Simpan Edit Hapus Dengan PHP dan MySQL, ada baiknya anda membaca postingan saya sebelumnya tentang Syntak Dasar SQL
sebelum memulainya saya akan membahas tentang

Apa itu PHP?
PHP (Hypertext Preprocessor) adalah bahasa scripting web HTML-embedded, ini berarti kode PHP dapat disisipkan ke dalam HTML halaman Web. Ketika sebuah halaman PHP diakses, kode PHP dibaca atau diurai oleh server. Output dari fungsi PHP pada halaman biasanya dikembalikan sebagai kode HTML yang dapat dibaca oleh browser.
Karena kode PHP diubah menjadi HTML sebelum halaman dibuka, pengguna tidak dapat melihat kode PHP pada suatu halaman website, ini membuat halaman PHP cuku aman untuk mengakses database dan informasi yang lainnya

Kelebihan PHP dari bahasa pemrograman yang lain

• Bahasa pemrograman PHP adalah sebuah bahasa script yang tidak melakukan sebuah kompilasi dalam penggunaannya
• Web Server yang mendukung PHP dapat ditemukan dimana-mana dari mulai apache, IIS, Lighttpd, hingga Xitami dengan konfigurasi yang relatif mudah.
• Dalam sisi pengembangan lebih mudah, karena banyaknya milis-milis dan developer yang siap membantu dalam pengembangan
• Dalam sisi pemahaman, PHP adalah bahasa scripting yang paling mudah karena memiliki referensi yang banyak
• PHP adlaah bahasa open source yang dapat digunakan di berbagai sistem operasi (Linux, Unix, Macintosh, Windows) dan dapat dijalankan secara runtime melalui console serta juga dapat menjalankan perintah - perintah system.

Tipe data
PHP memiliki 8 tipe data yaitu

1. Integer
2. Double
3. Boolean
4. String
5. Object
6. Array
7. Null
8. Resource

Setelah kita tahu apa itu PHP, maka saya akan melanjutkan bagaimana cara untuk Simpan, Edit, Hapus Dengan PHP dan MySQL

1. Masuk ke http://localhost/phpmyadmin/ buatlah sebuah database dengan nama latihan

2. Buatlah sebuah tabel siswa dengan script dibawah ini

CREATE TABLE siswa (
nis varchar(15) not null primary key,
nama varchar(30) not null,
alamat varchar(30) not null,
kelamin varchar(15) not null )

3. Buatlah sebuah folder di C:\xampp\htdocs dengan nama Latihan

4. Buatlah sebuah file PHP dengan nama koneksi.php dan ketikan script dibawah ini

<?php
$server="localhot"; //alamat server
$username="root"; // Username MySQL
$password="root"; //Password Mysql jika tidak ada password maka kosongkan saja
$namadb="Latihan"; //Nama database

$koneksi=mysql_connect($server,$username,$password) or die ("Gagal terkoneksi keserver");

$db=mysql_select_db($namadb) or die("Database tidak ditemukan");
?>

simpan di dalam folder Latihan

5. Buatlah sebuah file PHP dengan nama index.php dan ketikan script dibawah ini

<?php include "koneksi.php";?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<table width="600" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="7" align="center"><h3>Daftar Data Siswa</h3></td>
</tr>
<tr>
<td colspan="2"><a href="./tambah.php">Tambah Data</a></td>
</tr>

<tr>
<td width="52">No.</td>
<td width="73">NIS</td>
<td width="97">Nama</td>
<td width="161">Alamat</td>
<td width="105">Jenis Kelamin</td>
<td align="center" colspan="2">Action</td>
</tr>
<tr>
<?php
$sqlsiswa=mysql_query("select * from siswa order by nis asc");
while ($datasiswa=mysql_fetch_array($sqlsiswa)) {$a++;
?>
<td><?=$a;?></td>
<td><?=$datasiswa['nis'];?></td>
<td><?=$datasiswa['nama'];?></td>
<td><?=$datasiswa['alamat'];?></td>
<td><?=$datasiswa['kelamin'];?></td>
<td width="51"><a href="./edit.php?nis=<?=$datasiswa['nis'];?>">Edit</a></td>
<td width="59"><a href="./hapus.php?nis=<?=$datasiswa['nis'];?>">Hapus</a></td>
</tr>
<?php } ?>
</table>
</body>
</html>

simpan di dalam folder Latihan

6. Buatlah sebuah file PHP dengan nama tambah.php dan ketikan script dibawah ini

<?php include "koneksi.php"; 

if (isset($_POST['simpan'])) {
 $nis=$_POST['nis'];
 $nama=$_POST['nama'];
 $alamat=$_POST['alamat'];
 $kelamin=$_POST['kelamin'];
 $sqlsimpan=mysql_query("insert into siswa(nis,nama,alamat,kelamin) values ('".$nis."','".$nama."','".$alamat."','".$kelamin."')");
 echo "<center>Data siswa berhasil disimpan</center>";
 echo "<meta http-equiv='refresh' content=3;url='./'>";
}

?>
<form method="post" action="">
<table width="600" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="3" align="center"><h2>Tambah data siswa</h2></td>
</tr>
<tr>
<td>NIS</td>
<td>:</td>
<td><input type="text" name="nis"></td>
</tr>
<tr>
<td>Nama</td>
<td>:</td>
<td><input type="text" name="nama"></td>
</tr>
<tr>
<td>Alamat</td>
<td>:</td>
<td><textarea name="alamat"></textarea></td>
</tr>
<tr>
<td>Jenis Kelamin</td>
<td>:</td>
<td><select name="kelamin">
<option value="Laki - Laki" selected>Laki - Laki</option>
<option value="Perempuan">Perempuan</option>
</select>
</td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
<td><input type="submit" name="simpan" value="Simpan"> &nbsp; <input type="reset" name="batal" value="Batal"></td>
</tr>
</table>
</form>

simpan file tersebut di dalam folder Latihan

7. Buatlah sebuah file PHP dengan nama edit.php lalu ketikan script dibawah ini

<?php include "koneksi.php";

$nis=$_GET['nis'];
$sqlsiswa=mysql_query("select * from siswa where nis='".$nis."'");
$datasiswa=mysql_fetch_array($sqlsiswa);

if(isset($_POST['edit'])) {
 $id=$_GET['id'];
 $nis=$_POST['nis'];
 $nama=$_POST['nama'];
 $alamat=$_POST['alamat'];
 $kelamin=$_POST['kelamin'];
 $sqledit=mysql_query("update siswa set nis='".$nis."',nama='".$nama."',alamat='".$alamat."',kelamin='".$kelamin."' where nis='".$id."'");
 echo "<center>Data siswa berhasil diedit</center>";
 echo "<meta http-equiv='refresh' content=3;url='./'>"; 
 }
?>
<form method="post" action="./edit.php?&id=<?=$datasiswa['nis'];?>">
<table width="600" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="3" align="center"><h2>Edit Data Siswa</h2></td>
</tr>
<tr>
<td>NIS</td>
<td>:</td>
<td><input type="text" name="nis" value="<?=$datasiswa['nis'];?>"></td>
</tr>
<tr>
<td>Nama</td>
<td>:</td>
<td><input type="text" name="nama" value="<?=$datasiswa['nama'];?>"></td>
</tr>
<tr>
<td>Alamat</td>
<td>:</td>
<td><textarea name="alamat"><?=$datasiswa['alamat'];?></textarea></td>
</tr>
<tr>
<td>Jenis Kelamin</td>
<td>:</td>
<td><select name="kelamin">
<option value="<?=$datasiswa['kelamin'];?>" selected><?=$datasiswa['kelamin'];?></option>
<option value="Laki - Laki">Laki - Laki</option>
<option value="Perempuan">Perempuan</option>
</select>
</td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
<td><input type="submit" name="edit" value="Edit"> &nbsp; <input type="reset" name="batal" value="Batal"></td>
</tr>
</table>
</form>

simpan file tersebut di dalam folder Latihan

8. Buatlah sebuah file PHP dengan nama hapus.php lalu ketikan script dibawah ini

<?php include "koneksi.php";
$nis=$_GET['nis'];
$sqlhapus=mysql_query("delete from siswa where nis='".$nis."'");
echo "<center>Data siswa berhasil dihapus</center>";
echo "<meta http-equiv='refresh' content=3;url='./'>";
?>

simpan file tersebut di dalam folder Latihan

9. Buka http://localhost/Latihan/ maka akan muncul tampilan seperti gambar dibawah ini

10. klik tambah data untuk menambah data siswa, klik hapus untuk menghapus data, kelik edit untuk mengedit data siswa

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Semoga berhasil
sekian dulu dari saya, terima kasih atas kunjungannya

Read More

Encryption dan Decryption String Dengan VB.NET Bagian 2

Kali ini saya akan melanjutkan postingan saya yang sebelumnya yaitu Encryption dan Decryption String Dengan VB.NET Bagian 1
jika kemarin anda sudah berhasil melakukan encryption kali ini saya akan melanjutkan bagaimana melakukan decrytion nya, sebelum memulainya ada baiknya anda melihat atau mendownload source code pada postingan saya sebelumnya Encryption dan Decryption String Dengan VB.NET Bagian 1

Oke setelah anda sudah mendownload source code nya
langsung saja

1. Buka project encrypt_decrypt_text_bagian1

2. Tambahkan 1 buah textbox, button dan label

Object	Property	Value
Label1	Text	Hasil Decrypt
Textbox1	Name	Txt_decrypt
Button1	Name	Btn_decrypt
	Text	Decryption

sehingga design formnya seperti gambar dibawah ini 

3. Buatlah sebuah fungsi untuk decryption string dengan script dibawah ini

Private Function DecryptText(ByVal Chippedtexta As System.String) As System.String
        Dim mykey As String = "Tutorial Koding"
        Dim iv() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
        Dim inputbytearray(Chippedtexta.Length) As Byte
        Dim strresult As System.String
        Try
            Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Strings.Left(mykey, 8))
            Dim des As New DESCryptoServiceProvider
            inputbytearray = Convert.FromBase64String(Chippedtexta)
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(bykey, iv), CryptoStreamMode.Write)
            cs.Write(inputbytearray, 0, inputbytearray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
            strresult = encoding.GetString(ms.ToArray())
            Return strresult
        Catch ex As Exception
            Throw New Exception
        End Try
    End Function

4. Double Click tombol btn_decrypt lalu tambahkan script dibawah ini

txt_decrypt.Text = DecryptText(txt_encrypt.Text)

5. Tekan CTRL+S lalu jalankan program tersebut dengan menekan F5

6. Input kan sebuah string ke dalam txt_awal lalu tekan tombol Encrypt maka hasilnya akan seperti gambar dibawah ini

7. Tekan tombol Decryption maka pada text decrytion akan muncul string yang sama dengan yang ada di text awal

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Semoga berhasil

Sekian dulu dari saya terima kasih atas kunjungannya

Read More

Penggunaan SUM, MIN, MAX, COUNT, AVG Di SQL

Pada postingan kali ini saya akan membahas tentang Penggunaan SUM, MIN, MAX, COUNT, AVG Di SQL

baiklah sebelum memulainya ada baiknya anda membaca postingan saya sebelumnya yaitu Syntak Dasar SQL

Apa itu SUM ?

SUM adalah suatu fungsi pada SQL yang digunakan untuk menjumlahkan nilai dari sekumpulan record

Apa itu MIN ?

MIN adalah suatu fungsi pada SQL yang digunakan untuk mendapatkan nilai terkecil dari sekumpulan record

Apa itu MAX?

MAX adalah kebalikan dari SUM, yaitu fungsi yang digunakan untuk mendapatkan nilai tertinggi dari sekumpulan record

Apa itu COUNT?

Count adalah suatu fungsi pada SQL yang digunakan untuk mendapatkan jumlah baris atau record dari suatu tabel

Untuk contoh penggunaannya :

1. Buatlah sebuah database dengan nama latsql

2. Buatlah sebuah tabel di dalam database latsql dengan script dibawah ini

CREATE TABLE barang (
kd_brg varchar(20) primary key,
nm_brg varchar(50) not null,
hrg_jual int not null,
stock int not null
)

3. Isi data pada tabel barang dengan script dibawah ini

INSERT INTO barang (kd_brg,nm_brg,hrg_jual,stock) 
values 
('BRG0001','Kecap','8000','10'),
('BRG0002','Sabun','5000','15'),
('BRG0003','Kapas','3000','5'),
('BRG0004','Sambal','7000','15'),
('BRG0005','Aqua','3000','15')

Jika sudah sekarang waktunya untuk Penggunaan SUM, MIN, MAX, COUNT, AVG Di SQL

Contoh penggunaan SUM, misalkan anda ingin menjumlahkan stock semua data barang

SELECT SUM(stock) as jumlahstock FROM barang

as jumlahstcok adalah fungsi untuk memberikan nama field pada query tersebut

Contoh penggunaan MIN, misalkan anda ingin mendapatkan nilai terkecil dari stock barang

SELECT MIN(stock) as stockterkecil FROM barang

as stockterkecil adalah fungsi untuk memberikan nama field pada query tersebut

Contoh penggunaan MAX, misalkan anda ingin mendapatkan nilai terbesar dari stock barang

SELECT MAX(stock) as stockterbesar FROM barang

as stockterbesar adalah fungsi yang memberikan nama field pada query tersebut

Contoh penggunaan COUNT, misalkan anda ingin mendapatkan jumlah barang yang memiliki stock 15

SELECT count(stock) as stock15 FROM barang where stock='15'

as stock15 adalah fungsi yang memberikan nama field pada query tersebut

Contoh penggunaan AVG, misalkan anda ingin mendapatkan rata-rata harga jual barang

SELECT AVG(stock) as ratastock from barang

as ratastock adalah fungsi yang memberikan nama field pada query tersebut

Anda bisa mendownload database + source codenya di sinii

password : http://dwirandyherdinanto.blogspot.com/

Sekian dulu dari saya

Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini

Read More

7 Situs Paling Populer Untuk Ping Postingan Blog

Setelah beberapa hari yang lalu saya memposting tentang Auto Publish Post/Artikel Ke Facebook kali ini saya akan memposting tentang 7 Situs Paling Populer Untuk Ping Postingan Blog

Bagi para blogger mungkin tidak asing lagi dengan istilah PING

Apa itu PING ?

Ping digunakan untuk mengeping mesin pencari agar blog kita cepat terindex di mesin pencari

misalnya saja ketika saya membuat artikel baru, agar cepat terindex di mesin pencari saya melakukan ping ke mesin pencari tersebut

jadi ping juga termasuk cara agar artikel kita cepat terindex ke mesing pencari

7 Situs Paling Populer Untuk Ping Postingan Blog

1. http://blogsearch.google.com/ping
   Blog Search Google ini berguna untuk mengindex blog anda ke google.com
2. http://www.pingmyurl.com/
   Ping My Url adalah Search Engine untuk menyebarkan website yang anda ping di PingMy Url
3. http://pingomatic.com/
   Ping-o-Matic, Pinger Ke Sebuah Search Engine Yang Menyebarkan Blog Kita Ke Berbagai Website ( Support RSS )
4. http://www.mypagerank.net/service_pingservice_index
   My Page Rank ini berguna untuk mengecek page rank sebuah website, tapi juga mempunyai fasilitas untuk ping website kita ke search engine
5. http://www.totalping.com/
   Total Ping ini sama seperti yang lainnya berguna juga untuk ping website kita, ada baiknya anda langsung saja mencobanya agar tahu perbedaannya
6. http://feedshark.brainbliss.com/
   Feed Shark ini berguna untuk ping website kita ke search engine interlokal
7. http://googleping.com/
   Google Ping adalah situs yang paling sering saya gunakan untuk ping artikel saya ke search engine Google.com

Dengan Ping situs website kita, akan membuat website kita cepat terindex ke search engine

Tapi jangan melakukan ping secara bertubi-tubi karena akan dianggap sebagai SPAM

Read More

Encryption dan Decryption String Dengan VB.NET Bagian 1

Setelah beberapa hari yang lalu saya memposting tentang Mengatasi "Could not load file or assembly 'file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified."

Kali ini saya akan memposting tentang  Encryption dan Decryption String Dengan VB.NET
Apa itu Encryption ? Encryption adalah proses untuk mengaburkan informasi untuk membuat informasi terseubt tidak bisa dibaca tanpa pengetahuan khusus

Apa itu Decryption ? Decryption adalah proses untuk mengubah hasil dari encryption ke bentuk aslinya sehingga informasi tersebut dapat dibaca

Encryption dan decryption biasa digunakan untuk menyimpan konfigurasi atau pengaturan khusus pada sebuah program agar konfigurasi tersebut tidak mudah  dibaca oleh orang lain
atau juga biasanya digunakan untuk menyimpan sebuah password user ke dalam database

Kali ini saya akan memberikan tutorial tentang Encryption dan Decryption String Dengan VB.NET

:Langkah langkah membuat Encryption dan Decryption String Dengan VB.NET

1. Buka Visual Studio dan buatlah sebuah project dengan nama encrypt_decrypt_text_bagian1

2. Buatlah sebuah form dengan nama frmencryptdecrypt

3. Design Form tersebut sesaui dengan gambar di bawah ini

Object	Property	Value
Label1	Name	Label1
Label2	Name	Label2
Textbox1	Name	Txt_awal
Textbox2	Name	Txt_encrypt
Button1	Name	Btn_encrypt
	Text	Encryption

4. Double Click Form encrypt decrypt lalu 2 buah Namespace

1. Import System.Io
2. Imports System.Security.Cryptography

5. Pada Event Form_Load tambahkan script di bawah ini

txt_awal.Text = ""
txt_encrypt.Text = ""

6. Buatlah sebuah fungsi untuk Encrypt String dengan script dibawah ini

    Private Function EncryptText(ByVal SourceText As System.String) As System.String
        Dim MyKey As String = "Tutorial Koding"
        Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
        Dim strResult As System.String = ""

        Try
            Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Strings.Left(MyKey, 8))
            Dim InputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(SourceText)
            Dim des As New DESCryptoServiceProvider
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(bykey, IV), CryptoStreamMode.Write)
            cs.Write(InputByteArray, 0, InputByteArray.Length)
            cs.FlushFinalBlock()
            strResult = Convert.ToBase64String(ms.ToArray())
        Catch ex As Exception
            Throw New Exception
        End Try
        Return strResult
    End Function

7. Double Click tombol btn_encrypt lalu tambahkan script dibawah ini

txt_encrypt.Text = EncryptText(txt_awal.Text)

8. Tekan Ctrl+S lalu jalankan program tersebut dengan menekan F5

9. Input kan sebuah string ke dalam txt_awal lalu tekan tombol Encrypt maka hasilnya akan seperti gambar dibawah ini

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Semoga berhasil

Untuk dercryption saya kan melanjutkannya pada postingan selanjutnya dengan judul Encryption dan Decryption String Dengan VB.NET Bagian 2

Read More

Auto Publish Post/Artikel Blog Ke Facebook

Gunakan aplikasi RSS Graffiti untuk mempublikasikan (publish) konten/artikel blog ke facebook secara otomatis (auto post). Keuntungan menggunakan aplikasi RSS Graffiti untuk blog cukup banyak diantaranya:

• Tidak perlu memasukkan link/url postingan blog anda satu-persatu ke facebook setiap setelah anda mempublish konten/artikel.
• Dapat meningkatkan traffic melalui social media terbesar (Facebook).
• Tampilan post yang berbeda. Jika kita memasukkan link secara manual ke facebook tampilan post akan berbeda dengan RSS Graffiti dan lebih menarik.
• Gambar dan deskripsi sudah pasti sesuai dengan gambar dan deskripsi konten blog asli. Sering kita melihat gambar dan deskripsi blog yang salah tampil ketika kita memasukkan link secara manual ke facebook, dengan mempublikasikan konten/artikel   blog ke facebook secara otomatis melalui RSS Graffiti, masalah tersebut dapat teratasi.

Aplikasi RSS Graffiti ini sudah ada versi terbaru yaitu RSS Graffiti™ 2.0 BETA. Karena aplikasi ini masih baru, jadi masih tahap BETA. Walaupun masih tahap beta aplikasi ini bisa di gunakan dengan baik. Aplikasi ini bekerja berdasarkan feed blog.

Berikut langkah-langkah cara menggunakan aplikasi Rss graffiti - Auto Publish Post (Konten/Artikel) Blog ke Facebook melalui RSS Graffiti:

1. Kunjungi RSS Graffiti.
2. Lalu klik Ke Aplikasi.

3. Izinkan Rss graffiti untuk Mengelola halaman, Kirim atas nama anda dan Wawasan, Klik "Izinkan".

3. Setelah anda masuk ke aplikasi RSS Graffiti, klik Add New Publishing Plan.

4. Pada Name New Publishing Plan masukkan nama blog anda, lalu klik Create Publishing Plan.

5. Klik Add New di sebelah kanan Source.

6. Pada "enter URL or Twitter shortcut" masukkan url Feed blog anda. Contoh: http://blog-dollar98.blogspot.com/feeds/posts/default ATAU jika anda sudah mendaftarkan blog anda ke Feedburner silahkan gunakan url http://feeds.feedburner.com/BlogDollar98.Ubah tulisan berwarna biru dengan url blog anda atau id url feedburner anda. Setelah itu klik Add Source.

7. Source Name Override dan Source URL Override tidak perlu di isi karena tidak wajib (Not required). Setelah itu set Update frequency, Maximum posts per update dan Post order per update seperti pada gambar di bawah ini. Save.

8. Kemudian Klik Add new di sebelah kanan Target. Setting seperti pada gambar di bawah ini lalu klik Save changes.

9. Terakhir, untuk memulai atau mengaktifkan auto post/publish konten/artikel blog ke facebook via RSS Graffiti silahkan set "Off" menjadi "ON".

10. Done!

sumber : http://blog-dollar98.blogspot.com/2012/08/auto-post-blog-ke-facebook.html

Read More