Month: May 2008

Actual Training

Upload File dengan PHP

Artikel kali ini akan membahas bagaimana cara untuk mengupload file kedalam web app anda.

Pertama kali buat halaman untuk memasukan file yang akan anda upload dengan nama upload.html, kodenya sebagai berikut:

<html xmlns="http://www.w3.org/1999/xhtml">
<body>
<form method="post" enctype="multipart/form-data" action="prosesupload.php">
Upload File : <input type="file" name="userfile" />
<input type="submit" name="action" value="Upload" />
</form>
</body>
</html>

image

Ketika tombol submit ditekan maka file prosesupload.php akan segera dipanggil, file ini berisi kode php yang akan mengupload file kedalam web app anda. Adapun kode lengkap dari program tersebut:

Continue reading

Actual Training

Menggunakan Object Collection dan Generic (VB) Part 2

Pada blog yang sebelumnya saya sudah membahas cara menggunakan object array pada VB.NET, pada artikel kali ini saya akan meneruskan untuk membahas object collection yang lain yang sering digunakan yaitu List

Pada .NET 2.0 List menggunakan fitur Generic, sehingga kita bisa mebuat object collection yang “typed safe”.

Dengan array kita harus mendeklarasikan terlebih dahulu kapasitas array, tapi bila menggunakan List tidak perlu karena object yang disimpan pada list bersifat dinamis

Contoh penggunaan List sederhana:

Untuk membuat object list baru yang bertipe string kodenya

'Menggunakan List yang bertipe string
        Dim objNama As New List(Of String)

Untuk menambahkan nilai bertipe string kedalam list caranya

'cara menambahkan kedalam elemen list
        objNama.Add("Erick")
        objNama.Add("Anton")
        objNama.Add("Willy")
        objNama.Add("Bejo")

Untuk mengambil nilai dari object list:

'untuk mengambil elemen yang ada dalam list
        For Each strNama As String In objNama
            Console.WriteLine(strNama)
        Next

List tidak hanya digunakan untuk menampung nilai dengan tipe-tipe data native seperti int,double,currency,dll tapi list juga bisa digunakan untuk menampung nilai yang bertipe object

Continue reading

antonie

Fungsi-fungsi untuk Lock, Hibernate, Logoff, Shutdown Windows pada VB.NET

Harus import:
using System.Runtime.InteropServices;

Lock Computer:

[DllImport(“user32.dll”)]
public static extern void LockWorkStation();

Kemudian panggil fungsinya:
LockWorkStation();

Logoff:

[DllImport(“user32.dll”)]
public static extern int ExitWindowsEx(int uFlags, int dwReason);

Panggil fungsinya:
Logoff biasa:
ExitWindowsEx(0, 0);
Logoff force:
ExitWindowsEx(4, 0);

Reboot:
ExitWindowsEx(2, 0);

Shutdown:
ExitWindowsEx(1, 0);

Hibernate:
Application.SetSuspendState(PowerState.Hibernate, true, true);
Standby:
Application.SetSuspendState(PowerState.Suspend true, true);

Bagus kan??

antonie

Akses SQLite menggunakan JDBC (java)

import java.sql.*;

public class Main {
   public static void main(String[] args) throws Exception {
         Class.forName("org.sqlite.JDBC");
         Connection conn = DriverManager.getConnection("jdbc:sqlite:test.db");
         Statement stat = conn.createStatement();
         ResultSet rs = stat.executeQuery("SELECT Question, Answer, Type FROM Questions");
         while (rs.next()) {
            System.out.println(rs.getString("1"));
            System.out.println(rs.getString("2"));
            System.out.println(rs.getString("3"));
         }
         rs.close();
         conn.close();
  }
}
antonie

Pembuatan Database SQLite dengan VB.NET 2005

Tutorial ini mencoba menunjukkan bagaimana koneksi dengan SQLite dengan VB.NET 2005.
Kita membutuhkan sebuah DLL yang bernama System.Data.SQLite (http://sqlite.phxsoftware.com/) yang bersifat freeware…

Imports System.Data.SQLite
Imports System.IO

Private Sub btn_createdb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_createdb.Click

        'Save Dialog Box
        Dim f As New SaveFileDialog
        f.Filter = "SQLite 3 (*.db3)|*.db3|All Files|"
        f.ShowDialog()
        'Create Database
        Dim SQLconnect As New SQLite.SQLiteConnection()
        'Database Doesn't Exist so Created at Path
        SQLconnect.ConnectionString = "Data Source=" &amp; f.FileName &amp; ";"
        SQLconnect.Open()
        SQLconnect.Close()

    End Sub

Private Sub btn_tables_create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_tables_create.Click

            Dim SQLconnect As New SQLite.SQLiteConnection()
            Dim SQLcommand As SQLiteCommand
            SQLconnect.ConnectionString = "Data Source=" &amp; txt_dbpath.Text &amp; ";"
            SQLconnect.Open()
            SQLcommand = SQLconnect.CreateCommand
            'SQL query to Create Table
            SQLcommand.CommandText = "CREATE TABLE " &amp; txt_tables_name.Text &amp; "(id INTEGER PRIMARY KEY AUTOINCREMENT, title TEXT, description TEXT, image BLOB);"
            SQLcommand.ExecuteNonQuery()
            SQLcommand.Dispose()
            SQLconnect.Close()
End Sub

Selamat mencoba!

antonie

Mengembalikan Image BLOB Menggunakan Web Service (VB.NET)

Pada kasus ini kita menggunakan SQLSERVER sebagai databasenya, dengan field seperti ini:

Field Tipe Data
==============
RowID int(11)
Picture BLOB

Yang perlu anda lakukan adalah mengganti parameter yang digunakan untuk koneksi ke SQLSERVER:
Buat method seperti ini pada Web Service Anda…

' Parameternya adalah sebuah id suatu record tertentu
Public Function GetPicture(ByVal RowID As Long) As Byte()
  Dim Con As SqlClient.SqlConnection
  Dim DA As SqlClient.SqlDataAdapter
  Dim SQL As String
  Dim BA As Byte()
  Dim SC As New SqlCommand

  SQL = "SELECT Picture FROM Pictures WHERE  RowID = " &amp; RowID
  Con = New SqlConnection("User ID=YourID;password=YourPassword;" &amp; _"Data Source=SQLSERVER;Initial Catalog=DatabaseName")

  SC.Connection = Con
  SC.Connection.Open()
  SC.CommandType = CommandType.Text
  SC.CommandText = SQL
  BA = CType(SC.ExecuteScalar(), Byte())
  SC.Connection.Close()
  SC.Dispose()
  Return BA

End Function

Kemudian siapkan sebuah picture box (PictureBox1) dan buat prosedur ini pada VB Desktop Anda:

Public Sub SetPicBox(ByVal ImageArray As Byte())
  Dim ArraySize As New Integer
  ArraySize = ImageArray.GetUpperBound(0)

  Dim fs As New System.IO.FileStream("tmp.gif",
  System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
  fs.Write(ImageArray, 0, ArraySize + 1)
  fs.Close()
  PictureBox1.Image = New Bitmap("tmp.gif")
End Sub

Dan terakhir pada event on_Load pada form Anda, buat prosedur ini.
Anda bisa menggantinya dengan event-event lain.
Pada contoh dibawah ini, kita mencoba menggambil record dengan nomor 23:

Private Sub frmPicture_Load(ByVal sender As Object,
  ByVal e As System.EventArgs) Handles MyBase.Load
  SetPicBox(YourService.GetPicture(23))
End Sub

Nah, selamat mencoba!

antonie

Fungsi Explode/Split pada String dengan bahasa C

Pernah tahu fungsi explode PHP atau split nya VB.NET? fungsi tersebut sangat berguna bagi kita yang hendak melakukan tokenisasi… nah, kita bisa mencobanya pada bahasa C:
#include
#include
#include

void explode(char str[100],char hasil[10][50],char dasar,int *counter1){
int i,counter2=0;
for(i=0;i<strlen(str);i++){
if(str[i] == dasar){
counter2=0;
*counter1=*counter1 + 1;
}
else{
hasil[*counter1][counter2]=str[i];
counter2++;
}
}
}

void main(){
char str[100],hasil[10][50];
int counter1=0;
printf(“masukkan kalimat : “);fflush(stdin);gets(str);
char dasar = ‘ ‘;
explode(str,hasil,dasar,&counter1);
for(int i=0;i<=counter1;i++){
printf(“%s\n”,hasil[i]);
}
}
Nah silahkan mencoba…

antonie

Pemrograman XML dengan PHP

Ini tulisan sederhana untuk menambahkan data pada dokumen XML dengan PHP..
Studi kasus yang ada adalah buku tamu..

Pertama, kita buat terlebih dahulu sebuah file XML bernama “bukutamu.xml”, sebagai berikut:

<?xml version=”1.0″ encoding=”UTF-8″?>
<bukutamu>
<message>
<username>anton</username>
<email>anton@ukdw.ac.id</email>
<web>http://lecturer.ukdw.ac.id/anton</web&gt;
<pesan>hallo coba satu</pesan>
<kode>1</kode>
</message>
</bukutamu>

Kemudian untuk menambahkan data buku tamu baru adalah sebagai berikut:

file: bukutamu.html

Silahkan mengisi buku tamu sebagai berikut:<br>
<form name=”form2″ method=”post” action=”bukutamu2.php”>
<table width=”75%” border=”0″>
<tr>
<td width=”29%”>Uername</td>
<td width=”71%”><input name=”username” type=”text” id=”username” value=””></td>
</tr>
<tr>
<td>Email</td>
<td><input name=”email” type=”text” id=”email” value=””></td>
</tr>
<tr>
<td>Web / Situs</td>
<td> <input name=”web” type=”text” id=”web”>
<font color=”#FF0000″>*must use prefix ‘http://&#8217; first</font></td>
</tr>
<tr>
<td>Pesan</td>
<td><textarea name=”pesan” cols=”40″ rows=”5″ id=”pesan”></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type=”submit” name=”Submit” value=”Isi Buku Tamu”></td>
</tr>
</table>
</form>

Kemudian file bukutamu2.php:

if(isset($_REQUEST[“Submit”])){
$doc = new DOMDocument;
$doc->load(‘bukutamu.xml’);
$doc->formatOutput = true;

$bukutamu = $doc->getElementsByTagName(“bukutamu”);
foreach($bukutamu as $val)
$bukutamunode = $val;

$msgnode = $doc->createElement(‘message’,”);
$msgnode = $bukutamunode->appendChild($msgnode);

$usernode = $doc->createElement(‘username’,”);
$usernode = $msgnode->appendChild($usernode);

$uservalue = $doc->createTextNode($_REQUEST[“username”]);
$uservalue = $usernode->appendChild($uservalue);

$emailnode = $doc->createElement(’email’,”);
$emailnode = $msgnode->appendChild($emailnode);

$emailvalue = $doc->createTextNode($_REQUEST[“email”]);
$emailvalue = $emailnode->appendChild($emailvalue);

$webnode = $doc->createElement(‘web’,”);
$webnode = $msgnode->appendChild($webnode);

$webvalue = $doc->createTextNode($_REQUEST[“web”]);
$webvalue = $webnode->appendChild($webvalue);

$pesannode = $doc->createElement(‘pesan’,”);
$pesannode = $msgnode->appendChild($pesannode);

$pesanvalue = $doc->createTextNode($_REQUEST[“pesan”]);
$pesanvalue = $pesannode->appendChild($pesanvalue);

$h = $doc->save(“bukutamu.xml”);

if($h > 0){
echo “<p>Terimakasih atas partisipasi Anda telah mengisi buku tamu di situs kami.<br>”;

}
}