.note to study

File Manager Tiny MCE

2009-03-18T12:24:00.000-07:00

Berbagi sedikit pengetahuan tentang Tiny MCE (free). Tanpa disadari Form editor text yang dapat di customize layaknya aplikasi word ini banyak terdapat di berbagai CMS yang digunakan sekarang (wordpress,joomla, dsb). Bagi tukang buat website mungkin pernah bersentuhan dengan Tiny MCE, kalo belum pernah silakan sentuh saja. Memang kita ketahui bahwa Tiny MCE menyediakan fitur editor yang dapat kita unduh secara free namun ternyata Tiny MCE sendiri tidak menyertakan secara lengkap plugin / fitur pada download free. Sebuah fitur "file manager" pada Tiny MCE dijual terpisah. Plugins ini memiliki fitur upload image dan image manager. Bagi seorang pengguna(klien) editor tyni MCE tentu saja ini dapat menjadi sebuah kesulitan sendiri, pasalnya ketika hendak memasukan image atau sebuah media pada editornya, maka pengguna harus mengunggah file image ketempat lain(imageshack,photobucket) dan lalu menyalin tag img src nya dalam editor. hmmm klasik sekali hehehe.... Untuk itu jika hendak memanfaatkan plugin ini di Tiny MCE (sekali lagi yang free) dan belum punya dana untuk membeli pluginsnya, anda diwajibkan menalar kodingnya dan menambah beberapa baris pemrograman untuk memodifikasinya. Upsss jangan merasa bingung dulu, mbah google tentu lebih mengerti bagaimana dan apa yang seharusnya anda lakukan. coba gunakan keyword2 khusus untuk menemukan jawabannya. Sample yang sempat saya temukan bisa di explore disini

Salah satu contoh tidak adanya plugin Tyni MCE ini bisa dilihat pada wordpress. upss.. sebelumnya ini bukan sebagai bahan perbandingan yah.Wordpress disini yang di download dan bisa dipasang di localhost atau diweb pribadi, bukan yang blog free seperti xxxx.wordpress.com.

Wordpress... sebuah CMS yang dapat dimanfaatkan dengan mudah untuk membuat sebuah website, dengan sidikit kemampuan CSS, koding dll anda dapat memiliki website yang ciamik dari CMS ini. lalu ada apakah dengan tyni MCE? Ternyata editor text pada wordpress juga menggunakan Tyni MCE, namun dimodifikasi oleh pengembang wordpress untuk memiliki fitur upload image dan media. ini bisa dilihat bahwa si pengembang memodifikasinya dengan menambahkan upload file pada "MEDIA".Oleh sebab itu jika pengguna CMS ini hendak memasukan file image, video dan lainnya harus mengupload terlebih dahulu ke media kemudian meng- insertkan ke texarea tyni MCE..

hmmmm...semoga anda yang hendak memanfaatkan fitur ini bisa menyiasati setiap kesulitan yang dihadapi hehehehe...

sekian dulu ...semoga bermanfaat..

Cannot modify header information ...

2008-09-23T10:00:00.000-07:00

Cannot modify header information - headers already sent by

Pernah menemukan eror koding php seperti atas????
Eror ini biasanya disebut whitespaces problem …dan pengertian whitespaces itu sendiri merupakan tambahan line kosong pada akhir file. Biasanya ada dua file yang terlibat dalam eror ini. Jika terjadi eror ini, maka file yang perlu anda edit adalah file yang pertama, file kedua hanyalah file pendukung. Biasanya eror seperti ini diakibatkan karna adanya karakter seperti spasi ataupun enter sesudah atau sebelum tag php. Atau adanya pengiriman header setelah content dikirim.

Untuk penanganannya anda bisa melakukan modifikasi koding pada file yang error, dengan kata lain anda bermain pada kodingnya. Ada cara yang lebih simple bagi yang males melakukan koding atau bosan atau ngga bisa koding (seperti saya) yaitu cukup dengan melakukan perubahan konfigurasi pada php.ini... anda cukup merubah value ini

output_buffering=on;

Dengan merubah nilai diatas, error terebut tidak akan muncul lagi..Perlu diketahui, eror macam ini biasanya akan muncul setelah website kita diupload pada server hosting bukan di localhost. Biasanya kalo di local eror semacam seperti tidak muncul, saya juga masih bertanya-tanya kenapa tidak muncul di XAMPP saya. Kalau ada yang ketemu jawabannya tolong yah dibagi..

Sekian dulu ya, semoga bermanfaat......

Membuat background di blogspot

2008-09-14T10:35:00.001-07:00

Saya ingin membagi sedikit lagi ilmu tentang bagaimana cara membuat background texture klasik mirip kayu-kayuan di blog sayah. Cara pembuatan background yg saya pake inih sebenernya simple banget dan bahkan sangat simple, kalo dihitung itu hanya beberapa kali klik mouse dan jadih. Nah caranya begini :

Buka Photosop, buat project baru (CTRL-N) dengan ukuran 200 x 1000 pixel.
Lalu mulai sini hitung jumlah klik mouse ya. Sekarang setting bagian background color dan foreground color dengan komposisi warna hitam (000000) pada foreground color dan warna heksa 231c02 untuk background color(ngga tau nama warnanya).
Klik Pilih Filter -> Render -> Fibers . Criingg... Lalu muncul kaya gini ni, nah udah hampir keliatan tuh bentuk hasilnya kan.

Disini anda bisa mengatur variance dan strength texturenya. Saya kembalikan ke anda mau mengisi berapapun sesukanya ajah. Klo dah selesai ngatur klik lagi OK. Laluuu…. Jadih deh… untuk background pada blog ini, saya buat landscape.

Nah sekarang gimana cara masang di blog, sekali lagi blogspot ya hehehe…

Login dolo, lalu edit layout HTML nya jangan lupa centang Expand Widget Templates. Edit bagian tag body, tambahkan backgroud url image anda. Contohnya :

body{ margin-top:0px; padding: 0px; text-align: left; font:$bodyfont; color:$textcolor; background: #2f2503 url('http://img205.imageshack.us/img205/9691/bggpoy3.gif') top repeat left; }

Save deh.. klo belum yakin preview dolo. Sukses yach....

membuat Task Manager agar bisa dibuka kembali

2008-05-18T23:45:00.000-07:00

Salah satu akibat yang disebabkan oleh Virus yang pernah saya alami antara lain "Task Manager" tidak bisa di buka...agar "task manager" bisa dibuka kembali dapat dilakukan melalui "regedit"

berikut Langkah2 tuk untuk MengAktifkan Task Manager agar bisa dibuka Kembali:
1. Buka regedit (Start - Run - ketik regedit, Enter)
2. Pilih HKCU (HKEY_CURRENT_USER)
3. Pilih Software
4. Pilih Microsoft
5. Pilih Windows
6. Pilih CurrentVersion
7. Pilih Policies
8. Pilih System
9. Set DisableTaskMgr menjadi 0
10.Kemudian Re-start Windows

InsyaAllah Task Manager bisa dibuka Kembali.....Selamat Mencoba.... :)

Menyimpan Status CheckBox pada Delphi

2008-04-18T09:00:00.000-07:00

Disalah satu bagian pada program Tugas Akhirku, terdapat 18 checkbox yg merupakan informasi dari kelengkapan data naskah (lihat postingan saya tentang Tugas Akhir). Saya berfikir bagaimana caranya menginisiasi ke 18 checkbox itu dan menyimpannya ke dalam database, begitu juga sebaliknya membaca database kemudian merepresentasikan ke dalam checkbox apakah checked=true atau false. Cara kuno yg saya dapatnya adalah cara manual dengan banyak coding dan memakan banyak field di database (harus menyediakan 18 field dalam 1 tabel)

//untuk menulis ke database atau write
if checkbox1.checked=true then table1.fieldvalues['isi1']:='1' else
table1.fieldvalues['isi1']:='0';
....
if checkbox18.checked=true then table1.fieldvalues['isi18']:='1' else table1.fieldvalues['isi18']:='0';
//=============================================================================
//untuk membaca database atau read
if table1.fieldbyname('isi1').asstring='1' then checkbox1.checked := true else checkbox1.checked:=false;
.....
if table1.fieldbyname('isi18').asstring='1' then checkbox18.checked := true else checkbox18.checked:=false;

Script diatas sangatlah tidak efisien, membutuhkan banyak waktu,tempat dan ruang. Saya bertanya sana sini, mencari sana sini bagaimana caranya hal tersebut dapat disimpan dalam database namun dengan sedikit coding dan sedikit memakan space database. Akhirnya saya mencoba men-dinamiskan ke 18 checkbox tadi, dan menjadikan semuanya dalam 1 field saja. Setelah itu diinisiasi menggunakan angka biner. Jadi untuk setiap checkbox kita tidak perlu menyediakan 18 field dalam tabel, namun cukup 1 field yg isinya merupakan angka biner yg merepresentasikan status checkbox tadi.

untuk simulasinya silahkan ikuti langkah berikut :

1. buka delphi anda dan buat aplikasi baru
2. siapkan 2 buat edit (ganti namanya menjadi Ed_masuk dan Ed_keluar), 2 button (ganti captionnya menjadi Input dan Output), dan 18 checkbox (TCheckbox, nama biarkan default)
3. simulasi pertama yaitu kita membuat inisiasi atas ke 18 checkbox menjadi 18 urutan angka biner. kemudian menyimpannya kedalam Ed_keluar (Tedit ini seolah2 adalah field dari database). Masukkan beberapa perintah berikut didalam event - Onclick Button2 (output)

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
kode : array [1..18] of string;
checkbox : array [1..18] of TCheckBox;
begin
ed_keluar.Clear;
i:=1;
for i:=1 to high(checkbox) do
begin
if TCheckbox(FindComponent('Checkbox'+IntToStr(i))).Checked = true then kode[i]:='1'
else kode[i]:='0';
ed_keluar.Text := ed_keluar.Text+kode[i];
end;
end;

Untuk mencobanya, silahkan centang beberapa checkbox kemudian klik tombol Output. Maka pada ed_keluar akan terlihat urutan 18 angka biner. angka 0/1 merepresentasikan status checkbox anda, apakah dicentang atau tidak. Urutan angka biner sesuai dengan urutan Checkbox anda.

4. Simulasi kedua adalah menerima urutan 18 angka biner (seharusnya dari database) dari Ed_masuk kemudian membaca per karakter dan merepresentasikan status Checkbox tadi. Buat event-Onclick pada button1 (Input) kemudian lengkapi prosedurnya dengan perintah berikut

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer; kode : array [1..18] of string;
begin
i:=1;
j:=1;
for i:=1 to length(ed_masuk.Text) do
begin
kode[i] := copy(ed_masuk.Text,i,j);
if kode[i]='1' then TCheckbox(FindComponent('Checkbox'+IntToStr(i))).Checked := true
else TCheckbox(FindComponent('Checkbox'+IntToStr(i))).Checked := false;
end;
end;

Untuk mencobanya silahkan masukkan 18 angka biner (0/1) kedalam ed_masuk kemudian klik tombol Input. Maka checkbox yg tercentang berasal dari angka '1' dari urutan yg anda masukkan sebelumnya.

Alhamdulillah script jadi lebih sedikit dan cuma butuh 1 field dalam tabel...so simple..... :D

terima kasih buat rekan2 di Delphi Indonesia.

Tulisan ini juga saya tulis di blog saya

Technorati Tags: delphi, checkbox, array

Powered by ScribeFire.

Setting GPRS IM3 untuk Internetan

2008-04-16T01:21:00.000-07:00

Setting im3, berhubung saya sudah sering kali mendapat pertanyaan baik langsung atau pun sms tentang bagaimana menyetting im3 untuk internetan, maka saya sedikit berbagi tulisan tentang setting im3 semoga bisa bermanfaat.

Langkah awal : Setting DataComm
1.new Account : M3-GPRS
2.APN : www.indosat-m3.net
3.username : gprs
4.password : im3

Langkah kedua : Setting Internet Profile
1.New Profile : M3-GPRS
2.Connect Using : M3-GPRS
3.Use Proxy : Yes
4.Proxy address : 10.19.19.19
5.Port number : 8081

setting ini bisa dimanfaatkan untuk langsung terkoneksi dengan PC anda. Berikut saya contohkan dengan Blutooth. Hidupkan bluetooth dan lakukan koneksi service dia-up HP.
Setelah terkoneksi lakukan dial dengan no default (*99***1#). ada dua jenis username yang dapat digunakan : gprs untuk volumebase dan indosat@durasi untuk ngenet dengan timebase. password isi dengan im3

jika anda mengalami kegagalan koneksi, lakukan reset all pada HP anda dan ulangi setting manual diatas. Semoga berhasil !!!

*Setting ini telah terbukti berhasil di Sony Ericsson Z550i
*Setting ini bisa dilakukan dengan otomatis dengan mengirimkan pesan GPRS merekhape
Tipe HP ke 3939

Validasi Email Pada Delphi 7

2008-04-11T07:01:00.001-07:00

Data yg dimasukkan ke dalam suatu database sebaiknya merupakan data yg benar-benar telah tervalidasi. Sehingga nantinya data selalu akurat dan tidak terjadi hal-hal yg tidak diinginkan. Salah satu yg wajib hukumnya untuk di validasi yaitu data Email. Email memiliki struktur yg berbeda dari data lainnya. Berikut struktur dari data Email

nama_email@domain.com

Jika dilihat, maka email memiliki struktur unik sebagai berikut :

1. karakter '@'. selalu ditandai dengan karakter '@' setelah nama_email anda
2. Nama Domain. Setelah karakter '@' dilanjutkan dengan nama domain email anda.
3. karakter titik '.' (dot). Karakter ini selalu ada untuk memisahkan nama domain dengan jenis domainnya
4. jenis domainnya (.net, .com, .co.id ,,,). Jenis domain minimal adalah 2 karakter

Sesuai struktur diatas maka untuk membuat validasi email, kita gunakan aturan2 diatas sebagai validitasnya.

Langsung ke tahap teknis. Seperti biasa buka Delphi anda dan siapkan sebuah aplikasi baru.

1. Siapkan sebuah Edit (Tedit) dan sebuah Button (TButton)
2. Buka Unit anda (F12) kemudian masukkan function tambahan berikut ini bagian bawah Implementation

function IsValidEmail(const Value: String): boolean;

function CheckAllowed(const s: String): boolean;
var i: Integer;
begin
Result:= False;
for i:= 1 to Length(s) do // illegal char in s -> no valid address
if not (s[i] in ['a'..'z','A'..'Z','0'..'9','_','-','.'])then Exit;
Result:= true;
end; //end of function CheckAllowed

var i,len: Integer; namePart, serverPart: String;

begin // of IsValidEmail

Result:= False;
i:= Pos('@', Value);
if (i=0) or (Pos('..',Value) > 0) then Exit;
namePart:= Copy(Value, 1, i - 1);
serverPart:= Copy(Value,i+1,Length(Value));
len:=Length(serverPart);
// must have dot and at least 3 places from end,
// 2 places from begin
if (len<4) or (Pos('.',serverPart)=0) or (serverPart[1]='.') or (serverPart[len]='.') or (serverPart[len-1]='.') then Exit;
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);

end; //end of function IsValidEmail

3. Double Click pada button, atau masuk ke Events - Onclick. Masukkan perintah berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsValidEmail(edit1.Text) then showmessage ('Email anda Benar')
else showmessage('Email anda salah');
end;

Penjelasan: (Setelah user memasukkan email pada Tedit dan kemudian melakukan klik pada button)

1. Prosedur ButtonClick akan berjalan (point 3 diatas), dan melakukan pemanggilan function IsValidEmail
2. Email anda ditampung dalam variabel 'Value' dalam function tsb.
3. Value di cek apakah terdapat karakter '@'
4. Value di cek apakah terdapat karakter '.' (dot)
5. Sistem melakukan cek pada susunannya
6. Sistem melakukan cek huruf (apakah input yg diberikan sesuai) pada function CheckAllowed
7. Hasil akhirnya adalah boolean (True/False)
8. Jika hasil akhirnya adalah True, maka sistem akan menampilkan pesan 'Email anda benar', dan sebaliknya jika hasilnya False maka sistem akan menampilkan pesan 'Email anda salah')

Semoga bermanfaat buat semua..

Powered by ScribeFire.

Objek Picture berjalan di VB.NET

2008-04-06T11:17:00.000-07:00

Seorang teman berkata kepada saya, " , bisa ngga kita buat gambar berjalan di form vb.Net, tapi kalo sewaktu-waktu bisa berhenti( dikontrol)". Kira-kira begitu pertanyaannya. Saya simpulkan untuk menjawab bisa, saya coba menjalankan objek dengan bantuan timer plus sedikit bantuan rekursif, dan bisa dikontrol dengan mouse.

Semoga bisa membantumu teman...

Click Download

Memberikan animasi transparan pada saat menjalankan aplikasi Delphi

2008-04-05T00:11:00.000-07:00

Ini merupakan trik yang sederhana…

Trik ini dapat digunakan untuk mempercantik tampilan aplikasi anda, namun walaupun sederhana animasi ini dapat menarik perhatian dari orang yang melihat aplikasi yang anda bangun.

Aplikasi ini berfungsi untuk memunculkan form aplikasi anda secara perlahan dan dengan tampilan transparan, tidak seperti tampilan default dari Delphi yang menampilkan form aplikasi anda secara langsung.

Berikut adalah contoh program menggunakan fasilitas tersebut :

Form1.Hide;

AnimateWindow(Form1.Handle, 5000, AW_BLEND);

Form1.Show;

Kode di atas dapat anda masukkan ke dalam procedure ketika anda memunculkan form (FormShow)

Ket :

5000 = merupakan lamanya waktu saat program dijalankan hingga form tersebut terlihat menjadi utuh (lamanya waktu animasi transparan), 5000 berarti 5 detik.

AW_BLEND = merupakan jenis dari animasi transparan, dengan fungsi AW_BLEND animasi langsung memunculkan seluruh form. Anda juga dapat mencoba dengan AW_HOR_POSTIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, AW_VER_NEGATIVE.

Terima kasih udah dikasih kesempatan nulis di blog ini…

Semoga bermanfaat… :)

Searching di ListView

2008-04-01T11:43:00.000-07:00

Sial... maksudnya bikin buru-buru biar bisa di upload untuk temen- temen di www. vb-bego.net eh.. malah keduluan servernya eror,websitenya kagak bisa dibuka.Udah kepalang mau upload, Terpaksa dah nulis di blog dulu neh...

Neh program pencarian pada listview. Biasanya kan pencarian dari database, tapi ini pencarian pada listview. mungkin akan bermanfaat, agar tidak terus-terusan manggil data dari database. Pencarian ini saya buat dengan memanfaatkan konsep matriks :)

silakan download di : http://rapidshare.com/files/104126558/pencarianDi_Listview.zip.html

semoga membantu

salam.... BeGO

CopyFile Visual Basic 6

2008-03-29T07:22:00.001-07:00

hmm.. dari pada neh trik jamuran d hardisk, aku upload aja dah, sapa tau ada yang membutuhkan..
Ini contoh trik untuk mengcopy File.
dengan menggunaka Fungsi bawaan : CopyFile
kalo ada yang berminat silakan download aja di sini :
http://rapidshare.com/files/102961075/copyPDFdiVB.zip.html

bersambung dengan file-file lain.... hehehe...

Parsing kalimat dalam Kata pada Visual Basic

2008-03-13T07:57:00.000-07:00

Masih dengan visual basic yang sederhana,...
Sedikit berbagi ilmu bagaimana melakukan parsing kalimat ke dalam kata.
Di visual basic teknik ini sangat simple dan mudah, mungkin ya hanya dengan modal rajin membaca dan buka kamus VB anda sudah bisa menemukan caranya. Dalam implementasinya anda cukup menggunakan fungsi split dan array beres dah semua. Dibahasa pemrograman lain akan butuh algoritma yang cukup panjang ; nanti mungkin akan coba saya bahas. Sekarang contoh di bahasa VB dulu ya, berikut code contohnya.

Sebelumnya sediakan 2 textbox yang properties multiline di set True dan satu commanButton. lalu seperti biasa, copy paste saja neh :

Private Sub Command1_Click()
Dim inn As String
inn = Text1.Text
ReDim kata(1000) As String
kata() = Split(inn) '<-- teknik parsing

For i = 0 To UBound(kata())
Text2.Text = Text2.Text + "kata " + CStr(i) + " : " + kata(i) + vbCrLf
Next i
End Sub

Setelah copy paste, masukan kalimat yang ingin anda parsing pada text1 dan tekan tombol maka kalimat akan di parsing pada text2 . Semoga cukup bisa membantu untuk projek anda.

nb: kapan ya nulis selain VB, wah :(

Matrik for VB + .NET

2008-02-21T00:27:00.000-08:00

Beberapa hari menghayalkan bagaimana memanipulasi matrik di pemrograman VB. Kebingungan karna data matrik buanyak dan stiap elemen sangat penting. Saya mulai dari VB6 , saat itu saya coba manfaatkan componen Listview, komponen ini cukup membantu sampe berhasil. Kemampuan listview seperti tabel saya perumpamakan seperti matrik yang sama2 memiliki kolom dan baris. horeeeeee....

Belum puas dengan itu saya coba buat pada VB.NET, kali ini saya buka-buka buku. hasilnya wah, di .NET sangat memudahkan untuk operasi matrik. Disini sudah support untuk manipulas maupun sorting matrik. wah semakin seneng...

Berikut saya posting contoh pembuatan matrik di vb.NET (Pocket PC). Sebelumnya harus diingat bahwa pada bahasa pemrograman matrik diimplementasikan dengan array .

Pendeklarasian array satu dimensi

Dim namaarray(10) as tipedata

Pendeklarasian array multidimensi. Pembuatan array ini dengan komponen baris dan kolom.

Dim namaarray(10,5 ) as tipedata -> berarti membuat array dengan 10 baris dan 5 kolom.

Pemberian nilai pada array multidimensi

Pada kolom 1:
namaarray(0, 0) = "163"
namaarray(1, 0) = "170"
namaarray(2, 0) = "172"
namaarray(3, 0) = "166"
namaarray(4, 0) = "167"
namaarray(5, 0) = "168"
namaarray(6, 0) = "173"
namaarray(7, 0) = "168"

Pada Kolom 2
namaarray(0, 1) = "163"
namaarray(1, 1) = "170"
namaarray(2, 1) = "172"
namaarray(3, 1) = "166"
namaarray(4, 1) = "167"
namaarray(5, 1) = "168"
namaarray(6, 1) = "173"
namaarray(7, 1) = "168"

Begitu seterusnya untuk kolom2 selanjutnya dan jumlah baris sesuai deklarasi awal.Perlu diingat diketahui perbedaan array pada VB6 dan .Net adalah kalau di VB 6 kita bisa mengatur nilai awal array misalnya namaarray(1 to 10), sedangkan pada .NET selalu diawali dengan 0 (Nol).

Terimakasih, Semoga bisa jadi bahan inspirasi

combo Trik

2008-02-21T00:16:00.000-08:00

setelah beberapa saat buka2 direktori kerja, saya menemukan file ini. File yang saya buat waktu membantu menyelesaikan permasalah seorang temen dengan combo. Dari pada lumutan di dalam direktori saya posting disini aja ya...
Ini contoh trik combo, tinggal di edit sedikit dan bisa digunakan sesuai keinginan anda.

"sebelumnya sediakan 2 combobox di form anda. copy paste deh..

Private Sub Form_Load()
Dim i As Integer
For i = 1 To Screen.FontCount
Me.Combo1.AddItem Screen.Fonts(i)
Me.Combo2.AddItem Screen.Fonts(i)
Next i
End Sub

'+++++++++++ Coding combo2

Private Sub Combo1_Change()
Dim item As Integer, count As Integer

'deteksi jumlah item di combo
count = Me.Combo1.ListCount - 1

For item = 0 To count
'jika huruf awal = huruf awal item
If LCase$(Me.Combo1.Text) = Left$(LCase(Me.Combo1.List(item)), Len(LCase(Combo1.Text))) Then
'menetapkan isi terpilih
Me.Combo1.ListIndex = item
Exit For
End If
Next item

SendKeys "{F4}"

End Sub

Private Sub Combo1_GotFocus()
SendKeys "{F4}"
End Sub

'+++++++++++ Coding combo2
Private Sub Combo2_GotFocus()
SendKeys "{F4}"
End Sub

shutdown timer {vb.6}

2008-02-20T21:18:00.001-08:00

Sebenarnya script ini sudah banyak tersebar dimana-mana, baik buku ataupun di forum. Bagi saudara yang belum sempat menemukannya, ini code untuk membuat komputer shutdown. Dengan sedikit sentuhan componen timer anda sudah bisa membuat aplikasi shutdown timer sendiri. Semoga bisa menjadi sumber inspirasi untuk project selanjutnya.

Sebelumnya anda cukup menyediakan 1 textbox, 1 command dan 1 timer pada form anda lalu copy paste code berikut. Selamat mencoba

'code textbox
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo pesan

If KeyAscii = 13 Then

If Text1.Text = "0" Or Text1.Text < interval =" 60000" enabled =" False">

'code timer
Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Shell ("shutdown -s -f -t 0")
Else
Text1.Text = Text1.Text - 1
End If
End Sub
'code command
Private Sub Command1_Click()
Timer1.Interval = 0
Text1.Enabled = True
Text1.Text = "min"
End Sub

Sekuriti FORM VB 6.0

2008-02-20T19:08:00.000-08:00

Dilihat dari judul mungkin akan sangat aneh, tapi cobalah baca dengan seksama agar memahami :
Perlu diketahui dengan Visual Basic kita bisa melakukan hal yang baik, atau sangat merugikan. Form pada VB bisa kita buat agar tidak tertutup ketika form dijalankan. Proteksi Form VB bisa dilakukan dengan memanfaatkan event unload Form. Berdasarkan siklus hidupnya event ini dijalankan sebelum alokasi memori dibersihkan. Artinya masih ada kesempatan kita untuk mencegah hal tersebut terjadi yaitu dengan cara memberikan nilai 1 pada argumen cancel. Berikut lebih jelasnya.

Private blnStatus As Boolean

Private Sub cmdOK_Click()

If (Me.Text1.Text = "cookie") Then

blnStatus = True

Unload Me

Else

blnStatus = False

MsgBox "Untuk menutup form ini silakan isikan nama cookie", vbCritical, "cookie"

End If

End Sub

--
Private Sub Form_Unload(Cancel As Integer)

If Not blnStatus Then

Cancel = 1

Call cmdOK_Click

End If

End Sub

Dengan code diatas sudah dipastikan penutupan form dengan (kontrol X) ataupun dengan kombinasi Alt-F4 tidak akan berhasil!! Tetapi sangat mudah bagi TaskManager dengan “Hak Istimewanya” untuk membunuh/ menutup form anda. Perlu diketahui di Visual Basic ada tersimpan trik bagi anda untuk menghidari “hak istimewa” tersebut.

Nah, sudah mengerti dengan judul diatas??? Jangan-jangan belum neh??
Jadi code ini bisa dipakai untuk mambuat program untuk kebaikan sekuriti atau bisa anda gunakan untuk berbuat hal yang merugikan,…begitu lho…. Capekk dech…

Clear CMD di JAVA

2008-02-20T19:06:00.000-08:00

Di dunia pemrograman tentulah banyak yang mengenal java. Bahasa ini cukup di minati untuk dipelajari. Karna sifatnya yang open source dan multiplatform bahasa ini menjadi sangat besar. Sampai-sampai di kembangkan untuk banyak aplikasi, example : JSP, Applet dsb..
Saya orang yang sedang ingin tau bagaimana sebenarnya bahasa java itu, walau saya hanya belajar bagian program command atau klo boleh di bilang itu paling sederhana di J2SE, tapi saya menemukan beberapa yang menjadi pertanyaan..

Simple sekali sebenernya, bagi programer java tentulah tau bahwa program java di compile dan di jalan kan di CMD. Sekali lagi ini hanya program yang berjalan di Command promt ato sebut saja program paling sederhana dan tanpa GUI. Pertanyaan yg timbul bagaimana cara atau perintah untuk membersihkan layar commandPromt (tampilan) program itu sendiri??? Seperti kita ketahui bahwa perintah untuk membersihkan di cmd windows adalah cls dan cmd di Linux adalah clear.

Sebelumnya kita review tentang sejarah adanya bahasa java. Bahwa bahasa ini dikembangkan dari bahasa C . nah di bahasa C sendiri memiliki perintah untuk membersihkan layar yaitu clrscr. Kenapa di java sendiri setelah yang dikembangkan dari C malah saya belum menemukan perintahnya, padahal hal ini merupakan bagian kecil dari bahasa java yang sudah sangat besar.

nah gimana ini??????
hmmm... ini entah saya yang belum nemu, atau saya belum berusaha mencari atau apa ya..

shutdown timer {vb.6}

2008-02-20T18:59:00.000-08:00

'code textbox
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo pesan

If KeyAscii = 13 Then

If Text1.Text = "0" Or Text1.Text < interval =" 60000" enabled =" False">

'code timer
Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Shell ("shutdown -s -f -t 0")
Else
Text1.Text = Text1.Text - 1
End If
End Sub
'code command
Private Sub Command1_Click()
Timer1.Interval = 0
Text1.Enabled = True
Text1.Text = "min"
End Sub