D2 TEKNIK KOMPUTER (BSI PROGRAMMER)
Pada Tutorial kali ini ada yang sedikit berbeda, soalnya saya memberikan sedikit tips bagaimana kita membuat sebuah aplikasi yang berjalan dalam browser (Web Apps)...yang kemudian kita program dengan tujuan mematikan sebuah PC/Laptop Pribadi ataupun server sekalipun.
Kembali lagi dengan delphi 2010, anda install uniGUI dalam delphi anda..?? lalu anda coba ikutin Source Code ini...
Source Code :
Kembali lagi dengan delphi 2010, anda install uniGUI dalam delphi anda..?? lalu anda coba ikutin Source Code ini...
Source Code :
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm, uniGUIBaseClasses, uniButton, jpeg, ExtCtrls,
uniLabel, uniImage;
type
TMainForm = class(TUniForm)
UniButton1: TUniButton;
UniLabel1: TUniLabel;
UniImage1: TUniImage;
procedure UniButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainForm: TMainForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainForm: TMainForm;
begin
Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
Winexec('Shutdown.exe -s -t 0',SW_HIDE);
end;
initialization
RegisterMainFormClass(TMainForm);
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm, uniGUIBaseClasses, uniButton, jpeg, ExtCtrls,
uniLabel, uniImage;
type
TMainForm = class(TUniForm)
UniButton1: TUniButton;
UniLabel1: TUniLabel;
UniImage1: TUniImage;
procedure UniButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainForm: TMainForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainForm: TMainForm;
begin
Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
Winexec('Shutdown.exe -s -t 0',SW_HIDE);
end;
initialization
RegisterMainFormClass(TMainForm);
end.
uniGUI kita setting port server module dengan 8077 (Default), anda bisa bebas menggantikannya sesuai kehendak yang diingini. Lalu sekarang lihat Line uniButton1Click (Shutdown -s -t 0), ini merupakan pemrograman bash shell Windows...nah sangat mudah sobat**
Kemudian mari kita lihat hasil tampilan didalam browser kita programnya berjalan, mari silahkan....
ScreenShut :
Kemudian mari kita lihat hasil tampilan didalam browser kita programnya berjalan, mari silahkan....
ScreenShut :
Bagaimana Program yang kita buat ini bisa terkoneksi dengan HP....nah saya menggunakan jaringan Wifi HotSpot. Anda Download Connectify Pro 3.4 Pada Situs ini www.remo-xp.com, kemudian install dan lakukan settingan sebagai berikut :
Anda Setting Connecty Wifi anda Nama Hotspot : Pangeran dan Passwords : pangeran, terus Click Start HotSpot Untuk Memulai Connecty Wifi..anda; nah masih bingung, kemudian anda buka wifi dari HP (Android,BB,Tablet Juga Boleh) Lakukan Koneksi ke Hotspot Pangeran....
Sebelumnya mari kita setting IP ADDRESS Untuk Hotspot Pangeran seperti ini :
Sebagai Berikut :
1. Buat Project Dengan Delphi anda, kemudian masukkan uniGUI Project...Kemudian Ikuti Source Code Diatas, Taruh Pada Main.pas..?? Kemudian Compile dan Running *.exe pada PC/Laptop Anda.
2. Buka Webbrowser Operamini atau browser yang mana saja dari Handphone anda, jika sudah terkoneksi dengan HotSpot : Pangeran.
3. Pada Tab URL berikan akses : http://192.168.173.1:8077/
4. Tunggu sampai tampilan browser anda bisa menampilkan form delphi tersebut.
5. Kemudian anda coba mematikan PC/Laptop menggunakan Handphone.
6. Ketawa : hahahahahaha Karena Saking Senangnya...???
Ada satu hal yang perlu dipastikan, bahwa Connecty Wifi berjalan apabila adanya koneksi internet menggunakan modem..?? Jadi saran saya, lakukan koneksi internet terlebih dahulu melalui PC/Laptop dan anda harus menginstall uniGUI ext-js (External JavaScript) pada PC/Laptop supaya Program dapat tereksekusi pada tampilan browser server ataupun browser client;
Silahkan Download uniGUI ext-js : uniGUI Ext JS Runtime Installer v0.89.1.958
Silahkan Download Demo Project Matiin Laptop ||Demo Project||
Semoga Bermanfaat Guys.......???