Cannot modify header information ...

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 Task Manager agar bisa dibuka kembali

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

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.

[ ... ]

Parsing kalimat dalam Kata pada Visual Basic

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 :( [ ... ]