Selasa, Juni 30, 2009

mmmm..... berusaha untuk membuat aplikasi untuk tugas pemrograman terstruktur menggunakan delphi 7. saya mencoba bikin alarm sekali jalan

berikut codingnya

------------------------------------------------



unit uAlarm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, MPlayer, Grids, Menus;

type
TForm1 = class(TForm)
Timer1: TTimer;
lbpukul: TLabel;
btset: TButton;
gbpukul: TGroupBox;
edpukul: TDateTimePicker;
btok: TButton;
edpesan: TMemo;
PopupMenu1: TPopupMenu;
tutupaplikasi1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btsetClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure tutupaplikasi1Click(Sender: TObject);
private
{ Private declarations }
procedure tampilwaktu;
public
{ Public declarations }
end;

isi = record
pukul : TTime;
pesan : String[255];
end;

var
Form1: TForm1;
wkt: TTime;
fileisialarm: file of isi;
alarm: isi;
implementation

uses Math;

{$R *.dfm}

//--------tampilkan waktu berjalan sekarang
procedure TForm1.tampilwaktu;
begin
wkt:=Now;
lbpukul.Caption:=TimeToStr(wkt);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tampilwaktu;
//--cek data alarm
if (lbpukul.Caption=TimeToStr(alarm.pukul)) then
begin
Windows.Beep(70,100);
ShowMessage('Pukul : '+TimeToStr(alarm.pukul)+chr(13)+'Pesan : '+alarm.pesan);
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tampilwaktu;
//--------menghubungkan file--------//
AssignFile(fileisialarm,'alarm.DAT'); //--nama file
if FileExists('alarm.DAT') then //--jika file telah ada
begin
Reset(fileisialarm); //--buka file untuk dibaca
end
else
begin
Rewrite(fileisialarm); //--buat file baru jika file alarm.DAT tidak ditemukan
end;
end;

//--------tampilkan groupbox untuk setting alarm
procedure TForm1.btsetClick(Sender: TObject);
begin
gbpukul.Visible:=True;
edpukul.Time:=wkt;
btset.Enabled:=False;
end;

procedure TForm1.btokClick(Sender: TObject);
begin
//--------simpan data
alarm.pukul:=edpukul.Time;
alarm.pesan:=edpesan.Text;
write(fileisialarm,alarm);
ShowMessage('Alarm berbunyi pada pukul '+TimeToStr(edpukul.Time)+chr(13)+'dengan pesan : '+edpesan.Text);
gbpukul.Visible:=False; //--sembunyikan groupbox setelah setting alarm
btset.Enabled:=True; //--aktifkan kembali button atur alarm
end;

//--tutup aplikasi
procedure TForm1.tutupaplikasi1Click(Sender: TObject);
begin
Form1.Close;
end;

end.

------------------------------------------------

:) :) :) :) :) :)
aplikasi sederhana. mungkin kalo ada yg mau memberi saran, saya sangat berterima kasih sekali...

Kamis, Juni 25, 2009

window.close

hebat... hebat... hebat...
hebring...

cari2 info di om google ttg window close di php alias nutup halaman web, ternyata ktemu di http://www.diskusiweb.com/viewthread.php?tid=17536

ini scriptnya...




tengkyu so much...

Selasa, Juni 23, 2009

Al Quran online

cari.. cari.. cari.. ayat-ayat Al Quran buat tugas makalah PAI. Alhamdulillah akhirnya nemu jg situsnya.
Lengkap.
Plus artinya.
situsnya di http://quran.kawanda.net/

Rabu, Juni 17, 2009

Entrepreneurship? Teknopreneurship? bingung???

Apa perbedaan pelaku usaha kecil, entrepreneur tradisional, dan teknopreneurship?

Usaha Kecil

* Motivasinya bekerja sendiri, lebih ke pesonaliti pemilik dan biasanya memiliki ide-ide khusus
* Kepemilikan biasanya langsung dari pendiri atau dengan rekan bisnis
* Gaya manajerial lebih hanya ke trial and error dan masih sering menghindari resiko, juga arus kas keuangan masih stabil
* Kepemimpinan dari usaha kecil memiliki hubungan baik dengan bawahan, saling berkolaborasi, dan biasanya sering menghasilkan kemenangan kecil
* Inovasi dari usaha kecil memerlukan waktu yang lama sesuai dengan tanggung jawab pemilik
* Outsourcing atau jaringan kerja usaha kecil masih sederhana dan jika lobi bisnis biasanya langsung ke pemilik
* Potensi pertumbuhan stabil
* Target pasar local dan melakukan penekanan biaya

Entrepreneur Tradisional

* Motivasi lebih ke banyak konsep dan ide, eksploitasi banyak kesempatan dan akumulasi kekayaan
* Kepemilikan berada di saham pengendali dengan keuntungan yang maksimal
* Gaya manajerial yang professional dan mau menerima resiko
* Kepemimpinan dengan otoritas tinggi
* Inovasi bukan prioritas utama, namun mengandalkan franchise dan lisensi
* Outsourcing penting, namun saying sulit mendapatkan tenaga ahli
* Potensi pertumbuhan menggunakan proteksi, monopoli, oligopoly, sehingga pertumbuhan secara global lambat
* Target pasar lebih ke nasional dan memakan waktu lama

Teknopreneur

* Motivasi demi kesuksesan dengan teknologi baru, penuh kompetisi dan resiko
* Kepemilikan berasal dari saham kecil hingga besar
* Gaya manajerial dengan pengalaman terbatas, namun fleksibel, dan memiliki semangat inovasi yang berkelanjutan
* Kepemimpinan selalu menghargai kontribusi dan pencapaian, juga berjuang secara kolektif
* Dalam inovasi selalu menjadi pemimpin dalam riset, IT dan biotek global, plus kecepatan peluncuran produk ke pasar
* Berkembang bersama dalam satu tim outsourcing
* Potensi pertumbuhan sangat besar karena selalu mengakuisisi teknologi dan pasar berubah seiring teknologi baru
* Target pasar global dan mendidik konsumen teknologi baru

Teknopreneurship sudah seharusnya didorong pengembangannya oleh pemerintah. Hanya dengan bertambahnya jumlah mereka itulah, maka bangsa Indonesia akan mampu menjadi bangsa yang bersaing pada tataran persaingan global. Teknopreneur tidak sekedar ‘menjual’ barang komoditas ataupun barang industri yang persaingan pasarnya relative ketat. Mereka menjual produk inovatif yang mampu menjadi subsitusi maupun komplemen dalam kemajuan peradaban manusia.

Diambil dari buku “Entrepreneurship Membangun Spirit Teknopreneurship”
Pengarang : Ir. Arman Hakim Nasution dkk.
Penerbit Andi (www.andipublisher.com )

ap aj strategi pemasaran dalam perspektif bisnis?

Strategi pemasaran yang bisa digunakan untuk menjual product bisnis Anda :

Penjualan Konvensional
Penjualan yang biasa terjadi di mana setiap tangan (reseller) akan meraih untung dari product yang dijual. Contohnya adalah product yang dijual di toko-toko atau supermarket.

Konsinyasi
Sering digunakan banyak penjual atau perusahaan atau yang disebut dengan istilah titip jual. Perusahaan menitipjualkan product mereka kepada reseller. Contohnya adalah buku-buku di toko buku yang besar, atau warung makan yang besar.

Direst Selling
Merupakan strategi penjualan untuk memasarkan product langsung kepada konsumen, tidak lagi melewati tangan per tangan. Contohnya penawaran kartu kredit, asuransi, membership card, product bank dan sebagainya.

Telemarketing
Berarti jualan jarak jauh, biasanya menitikberatkan kepada penjualan melalui suara. Contohnya bank penerbit kartu kredit ataupun perusahaan computer yang besar.

Member Get Member (MGM)
Strategi yang memanfaatkan konsumen yang ada untuk meraih konsumen baru. Hampir semua penerbit atau perusahan telepon pernah menggunakan trik ini.

Cross Selling
Berarti menjual product lain kepada konsumen yang sama secara langsung. Hampir sama seperti MGM, yang lebih berfokus kepada konsumen.

Take One Boxes
Merupakan strategi penjualan yang sederhana, namun sangat efektif, karena metode ini selalu standby setiap saat dan biayanya kecil. Contohnya dalam penawaran kartu kredit, membership, dan property dengan menyebar brosur dan form aplikasi.

TV Shopping
Berarti penjualan melalui televisi. Contohnya di Indonesia, ada DRTV atau media TV shopping lainnya.

Mail Order
Merupakan penjualan yang dilakukan melalui pos atau kiriman surat. Contohnya adalah penjualan product asesoris, asesoris kecantikan, dan lain-lain.

Telepon Shopping
Tidak ada tenaga pemasar langsung seperti di telemarketing, yang ada hanya tenaga penjual yang menerima telepon. Hampir mirip dengan mail order, hanya saja pembayaran telepon shopping melalui cash, transfer atau kartu kredit setelah barang diterima.

Company Referral
Strategi yang memanfaatkan perusahaan lain yang produknya berbeda, namun masih ada kaitannya product yang akan dipasarkan dari perusahaan Anda. Contohnya toko computer yang menawarkan jasa ISP (Internet Service Provider).

Multi Level Marketing (MLM)
Banyak tips untuk menjalankan strategi MLM. Namun, yang terpenting, jika sudah mengikuti satu jaringan MLM, maka ada larangan untuk tidak mengikuti MLM lainnya.

E-Commerce
Strategi penjualan melalui Internet, walau tanpa product yang ditawarkan sekalipun. Contohnya beritanet.com, andipublisher.com, dan sebagainya.

Program Afiliasi
Merupakan program penjualan yang memasang banner iklan situs perusahaan ke perusahaan lainnya. Program afiliasi ini juga disebut company referral era dunia maya.

Viral Marketing
Merupakan gabungan dari program pemasaran jaringan dan Internet. Pemasaran yang dimaksud bukan MLM, bukan sekedar e-commerce, dan dilaksanakan secara offline dan online.

Sumber : Buku “Seni Menjual : Perspektif Bisnis, Ide-Ide Penjualan Serta Strategi Pemasaran”
Pengarang : Ali Arifin
Penerbit : Andi Offset

USB hub tenaga matahariiiiiiiiii............

Untuk USB hub yang satu ini mungkin tampak biasa, dengan harga berkisar $20 dan satu kelebihannya adalah menggunakan power dari sinar matahari untuk charging mobile phone dan gadget USB. Device hardware satu ini diciptakan oleh Brando, yang membuat USB Solar Charging 4-Port Hub ini dapat digunakan sebagai USB hub tradisional atau sebagai charger yang eco-friendly, dengan menggunakan power matahari.

Bobot device USB Solar Charging 4-Port Hub ini sekitar 54 gram dengan 6 konektor mobile phone dan sebuah baterai built-in sehingga user masih bisa menggunakannya walaupun tidak ada sinar matahari. USB Solar Charging 4-Port Hub ini juga dapat di-charge dengan power supply AC selain menangkap solar sinar matahari.

Fitur utama device hardware USB Solar Charging 4-Port Hub :

* Backup power yang portable dan nyaman
* Menggunakan matahari untuk charging mobile phone, PDA, MP3 player, MP4 player, PSP dan NDS Lite.
* Memiliki baterai Lithium-ion yang dapat di-charge dari sinar matahari atau power supply AC
* Memiliki 4 port USB 2.0 dan kompatbel dengan USB 1.1, hanya plug dan play
* Support untuk system Windows 2000/XP/Vista, Mac OSX dan Linux
* Dimensi : 64 x 64 x 16mm
* Bobot : 54g

Konektor :

* A - Nokia II (2mm)
* B - Nokia I (3.5mm)
* C - Mini USB (for Motorola/HTC/Dopod/MP3/MP4)
* D - LG
* E - Samsung i98
* F - Sony Ericsson

sumber : http://www.beritanet.com/Hardware/Hardware/USB-Solar-Charging-4-Port-Hub.html

virus sandra dewi hihihihihihi...

Ada-ada aja, teman-teman kita ini. Mungkin dia adalah salah satu penggemar Sandra Dewi sehingga dia menamakan virus ini "Sandra Dewi" yang membawa nama salah satu kampus computer di Kalimantan Timur. Berikut list virus Sandra Dewi yang dibuat dari bahasa pemrograman visual basic:
Sangat sakit rasanya apabila cinta kita ditolak oleh seseorang,
pada zaman dahulu orang menggunakan fasilitas dukun sebagai media untuk mendapatkan cintanya
Seiring dengan berkembangnya Teknologi informasi,
media yang digunakannya untuk mendapatkan cintanya adalah VIRUS

Ciri-ciri file virus Sandra Dewi menurut Vaksin.com :

* Ada ukuran file sebesar 132 kb
* Ada file Application
* Ada file dengan ekstensi exe
* Ada icon gambar (JPEG image)
* Ada file Sandra Dewi Bugil.exe di semua root drive
* Ada file C:Documents and Settings%user%Start MenuProgramsStartupSandra Dewi Bugil.exe
* C:WINDOWSSandra Dewi Bugil.exe
* C:WINDOWSsystem32 Sandra Dewi Bugil.exe
* Membuat duplikat file virus pada setiap folder yang ada pada removable drive/usb.

Cara membersihkan virus Sandra Dewi menurut Vaksin.com :
1. Lepas kabel jaringan dari komputer
2. Matikan “System Restore” selama proses pembersihan virus (untuk Windows XP/Vista)
3. Gunakan tools pengganti task manager, seperti Process Explorer (download di http://www.sysinternals.com/utils/index.html) untuk mematikan virus yang aktif di memory, yakni :

* C:Documents and Settings%user%Start MenuProgramsStartupSandra Dewi Bugil.exe
* C:WINDOWS Sandra Dewi Bugil.exe

4. Salin script registry ini di notepad dengan nama “repair.inf” di computer yang bersih untuk menghapus string registry yang telah dibuat oleh virus.
[Version]
Signature="$Chicago$"
Provider=Vaksincom Oyee &nb sp; &nbs p; ; & nbsp; &n bsp; &nb sp;
[DefaultInstall]
AddReg=UnhookRegKey
DelReg=del
[UnhookRegKey]
HKCR, batfileshellopencommand,,,"""%1"&qu ot; %*"
HKCR, comfileshellopencommand,,,"""%1"&qu ot; %*"
HKCR, exefileshellopencommand,,,"""%1"&qu ot; %*"
HKCR, piffileshellopencommand,,,"""%1"&qu ot; %*"
HKCR, lnkfileshellopencommand,,,"""%1"&qu ot; %*"
HKCR, scrfileshellopencommand,,,"""%1"&qu ot; %*"
HKLM, SOFTWAREMicrosoftWindows NTCurrentVersion, RegisteredOrganization,0, "Organization"
HKLM, SOFTWAREMicrosoftWindows NTCurrentVersion, RegisteredOwner,0, "Owner"
HKLM,SOFTWAREMicrosoftWindowsCurrentVersionExplorerAd vancedFolderHiddenSHOWALL, CheckedValue, 0x00010001,1
HKLM,SOFTWAREMicrosoftWindowsCurrentVersionExplorerAd vancedFolderHiddenSHOWALL, DefaultValue, 0x00010001,2
[del]
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem, DisableRegistryTools
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem, DisableMsConfig
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem, DisableTaskMgr
HKCU, SoftwarePoliciesMicrosoftWindowssystem, DisableCMD
HKCU, SoftwareMicrosoftInternet ExplorerMain, Window Title
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoFolderOptions
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoFind
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoClose
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoControlPanel
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoRun
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoStartMenuMorePrograms
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoViewContextMenu
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, NoViewOnDrive
HKCU, SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer, StartMenuLogoff

5. Klik file repair.inf tersebut untuk menginstal-nya.
6. Hapus file virus yang mempunyai ciri-ciri sebagai berikut, bisa dengan menggunakan fungsi search :

* Icon gambar (JPEG Image)
* Extension exe
* Ukuran 132 kb

7. Untuk pembersihan optimal dan mencegah infeksi ulang, update antivirus atau menggunakan Norman Malware Cleaner (http://normanasa.vo.llnwd.net/o29/public/Norman_Ma lware_Cleaner.exe)

Kamis, Juni 11, 2009

aneka kerajinan

Berawal dari hobi, dilanjutkan dengan proses produksi untuk diperjual belikan... :)


hantaran


tempat gula + kopi tingkat


tempat permen


aneka tempat


aneka tempat


aneka tempat

Kami menerima pesanan di wilayah Surabaya, Sidoarjo, dan sekitarnya.
Hubungi Nina - 081332697934