Menangani Masalah Notice (Undefined Index) pada XAMPP

Bagi yang beralih dari PHP 4.x ke PHP 5.x atau bagi yang baru menggunakan XAMPP versi terbaru mungkin pernah menjumpai peringatan seperti ini :

atau pesan peringatan seperti ini:

                       |  Notice: Undefined index: mod in /var/www/blogsaya/index.php on line 7

        maka pesan peringatan tersebut hanyalah pesan peringatan (notice), bukan kesalahan (error). Namun nampak tidak elegan jika pesan seperti itu muncul di halaman website kita. Untuk menyembunyikan pesan peringatan tersebut cukup dengan menambahkan sebaris kode berikut di bagian paling awal kode PHP.

                      |  error_reporting(E_ALL^E_NOTICE);

atau jika tidak mau menambahkan kode tersebut untuk coding-coding berikutnya maka lebih efekti menggunakan cara sebagai berikut :

1. Buka php.ini --> letaknya ada di XAMPP / PHP / php.ini.
2. setelah di buka maka carilah : error_reporting = , agar lebih mempercepat pencarian maka gunakan CTRL + F untuk memudahkannya. maka anda akan mengemukan : error_reporting = E_ALL | E_STRICT
3. Ubahlah menjadi :error_reporting = E_ALL & ~E_NOTICE .
4. Jika sudah maka Restart Apace nya , ini terletak pada XAMPP Control Panel.  

Semoga Bermanfaat.

Read More

Cls Koneksi

Ass..

Mungkin dah banyak yang Membahas Tentang Cls Koneksi.

tapi gak ada salahnya Jika Ane dapat membantu teman2 yang sedang belajar Pemprograman.

Cls Koneksi adalah suatu Class / Script yang digunakan untuk menghubungkan antara Pemrograman dengan Database...

Kali ini akan dibahas beberapa Class Koneksi.

ClsKoneksi Database MySql

Imports Microsoft.VisualBasic

Imports MySql.Data.MySqlClient

Public Class ClsKoneksi

    Protected tblUser = New DataTable

    Protected SQL As String

    Protected Cn As MySqlConnection

    Protected Cmd As MySqlCommand

    Protected Da As MySqlDataAdapter

    Protected Ds As DataSet

    Protected Dt As DataTable

    Public Function OpenConn() As Boolean

        Cn = New MySqlConnection("server=localhost; user id=root; password=''; database=rental")

        Cn.Open()

        If Cn.State <> ConnectionState.Open Then

            Return False

        Else

            Return True

        End If

    End Function

    Public Sub CloseConn()

        If Not IsNothing(Cn) Then

            Cn.Close()

            Cn = Nothing

        End If

    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")

            Return Nothing

            Exit Function

        End If

        Cmd = New MySqlCommand(Query, Cn)

        'Cmd = New OleDb.OleDbCommand(Query, Cn)

        'Da = New OleDb.OleDbDataAdapter

        Da = New MySqlDataAdapter

        Da.SelectCommand = Cmd

        Ds = New Data.DataSet

        Da.Fill(Ds)

        Dt = Ds.Tables(0)

        Return Dt

        Dt = Nothing

        Ds = Nothing

        Da = Nothing

        Cmd = Nothing

        CloseConn()

    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")

            Exit Sub

        End If

        Cmd = New MySqlCommand(Query, Cn)

        Cmd.Connection = Cn

        Cmd.CommandType = CommandType.Text

        Cmd.CommandText = Query

        Cmd.ExecuteNonQuery()

        Cmd = Nothing

        CloseConn()

    End Sub

End Class

ClsKoneksi Database Microsoft Access.

Imports Microsoft.VisualBasic

Imports System.Data.Sql

Public Class ClsKoneksi

    Protected tblUser = New DataTable

    Protected SQL As String

    Protected Cn As OleDb.OleDbConnection

    Protected Cmd As OleDb.OleDbCommand

    Protected Da As OleDb.OleDbDataAdapter

    Protected Ds As DataSet

    Protected Dt As DataTable

    Public Function OpenConn() As Boolean

        Cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\film.accdb;Persist Security Info=False;")

        Cn.Open()

        If Cn.State <> ConnectionState.Open Then

            Return False

        Else

            Return True

        End If

    End Function

    Public Sub CloseConn()

        If Not IsNothing(Cn) Then

            Cn.Close()

            Cn = Nothing

        End If

    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")

            Return Nothing

            Exit Function

        End If

        Cmd = New OleDb.OleDbCommand(Query, Cn)

        Da = New OleDb.OleDbDataAdapter

        Da.SelectCommand = Cmd

        Ds = New Data.DataSet

        Da.Fill(Ds)

        Dt = Ds.Tables(0)

        Return Dt

        Dt = Nothing

        Ds = Nothing

        Da = Nothing

        Cmd = Nothing

        CloseConn()

    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")

            Exit Sub

        End If

        Cmd = New OleDb.OleDbCommand

        Cmd.Connection = Cn

        Cmd.CommandType = CommandType.Text

        Cmd.CommandText = Query

        Cmd.ExecuteNonQuery()

        Cmd = Nothing

        CloseConn()

    End Sub

End Class

ClsKoneksi Database Sql Server.

Imports Microsoft.VisualBasic

Imports System.Data.Sql

Public Class ClsKoneksi

Protected tblPengguna = New DataTable

Protected SQL As String

Protected Cn As SqlClient.SqlConnection

Protected Cmd As SqlClient.SqlCommand

Protected Da As SqlClient.SqlDataAdapter

Protected Ds As DataSet

Protected Dt As DataTable

Public Function OpenConn() As Boolean

Cn = New SqlClient.SqlConnection(“Data Source=.\SAMSUL-PC\SQLEXPRESS;Initial Catalog=Puskesmas;Integrated Security=True”)

Cn.Open()

If Cn.State <> ConnectionState.Open Then

Return False

Else

Return True

End If

End Function

Public Sub CloseConn()

If Not IsNothing(Cn) Then

Cn.Close()

Cn = Nothing

End If

End Sub

Public Function ExecuteQuery(ByVal Query As String) As DataTable

If Not OpenConn() Then

MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed”)

Return Nothing

Exit Function

End If

Cmd = New SqlClient.SqlCommand(Query, Cn)

Da = New SqlClient.SqlDataAdapter

Da.SelectCommand = Cmd

Ds = New Data.DataSet

Da.Fill(Ds)

Dt = Ds.Tables(0)

Return Dt

Dt = Nothing

Ds = Nothing

Da = Nothing

Cmd = Nothing

CloseConn()

End Function

Public Sub ExecuteNonQuery(ByVal Query As String)

If Not OpenConn() Then

MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed..!!”)

Exit Sub

End If

Cmd = New SqlClient.SqlCommand

Cmd.Connection = Cn

Cmd.CommandType = CommandType.Text

Cmd.CommandText = Query

Cmd.ExecuteNonQuery()

Cmd = Nothing

CloseConn()

End Sub

End Class

Sekian dulu Share dari ane..

semoga jadi manfaat buat ane maupun Buat orang lain.

Read More

Error pada XAMPP

Ass....
Duh kmren ane da sdikit masalah nie gan sama XAMPP.
ane dapet tugas buat Projek pake Database MySql...ane dah Install XAMPP ternyata eh ternyata   gagal gak bsa konek....
Pusing juga cari Errornya....Mana buat besok lagi mulai Projek'y :-(....Setelah Puter-Puter cari info Akhirnya Ketemu juga..;-).
Mungkin buat agan2 yang Install XAMPP'y msih blum berhasil siapa tahu cara ini bisa membuat Pusing Agan hilang..hee..hee
capek ye Dengerin aye Ngoceh terus kayak burung Beo...
OK gan Kita langsung ke TKP-----
dari Informasi yang ane dapet Ternyata port 80 yang kita gunakan untuk Apache port itu juga di gunakan oleh IIS dari Mickrosoft..jadi antara port Apache dengan port IIS itu bertabrakan...
klo menurut ane yang kita install duluan yang menang..
jadi hal yang harus kita lakukan adalah merubah port 80 menjadi 8080..
pertama masuk ke Computer >> localdisk (c :)"ane install'y pada Drive C >>xampp >>apache >>conf >>httpd.conf...buka httpd.conf lalu cari tulisan Listen : 80 ubah menjadi 8080.

klo sudah diUbah terus kita masuk ke Computer >> localdisk (c :) >>xampp >>apache >>conf >>extra >>httpd-ssl.conf...buka httpd-ssl.conf cari tulisan Listen : 443 ubah menjadi 4499.

masih di httpd--ssl.conf cari tulisan <VirtualHost _default_:443> ubah menjadi 4499

dan ServerName localhost:443 ubah menjadi 4499...jangan Lupa di Save..

coba jalankan XAMPP nya..

klo sudah running Apache dan MySql nya maka agan diKatakan "BERHASIL"....

Sekian dlu tutorial dari ane semoga ada manfaatnya....

Read More

Membuat Text Bergerak dengan VB.Net

Bissmillahirahmanirrahim...
dengan nama Allah SWT,Alhmdulillah ane masih di berikan kesempatan buat share ilmu kepada agan2 semua.
Sekarang ane mau share tentang Membuat Text Bergerak dengan VB.Net...
bagi agan2 yang baru / akan belajar VB.Net gak ada salahnya jika membuat Program sederhana agar tambah semangat belajar VB.Net nya..
siapkan objek-objek yang akan kita pakai sekarang :
objek          Properties       Value

label               Text          I love U (terserah agan mau tulis apa)
button            Text            Keluar    (name : btnKeluar)
timer1           Enable          True         Interval : 10
timer2           Enable          False       Interval : 10

codingnya seperti ini :

klo codingnya sudah tinggal di debug (F5).

klo berhasil maka label1 (I love U) akan berjalan kiri & kanan.
Tinggal kembangin aja sesuai Kreatifitas agan-agan semua.
SELAMAT MENCOBA.....!!!!...

Read More

Mengetik dengan 10 Jari

Bagi orang yang awam menggunakan Komputer.Mengetik merupakan sesuatu yang menyenangkan.
Apalagi kalau bisa mengetik dengan 10  jari,kayak di film-film gitu...
nah kali ini saya akan share Cara mengetik dengan 10 jari.

pertama kita harus fokus dulu terhadap apa yang akan kita tulis,nantinya hal ini dapat membuat mata kita fokus ke keyboard..dengan begitu kalian akan lebih cepat menghapal huruf yang ada di keyboard.
kedua letakan jari-jari dengan benar.dengan mengetik satu atau dua kalimat pastikan diatas tuts yang benar.

• jempol kanan atau kiri ada di tuts Spacebar.
• telunjuk kiri untuk tuts huruf  R,F,T,C,V dan B.
• telunjuk kanan untuk tuts huruf J,U,Y,N dan M.
• jari tengah kiri untuk tuts huruf E dan D.
• jari tengah kanan untuk tuts huruf I,K dan tanda koma (,)
• jari manis kiri untuk tuts huruf W,S dan X
• jari manis kanan untuk tuts huruf O,L dan tanda titik(.)
• jari kelingking kiri untuk tuts huruf Q,A dan Z
• jari kelingking kanan untuk tuts huruf P,titik dua(:),slash (/) dan tanda tanya (?)

ketiga biasakan mengetik dengan jari-jari yang mati.dalam hal ini jari tengah,jari manis dan kelingking.biasanya jari-jari tersebut sangat susah untuk di gerakan.
Keempat biasakan mengetik dengan hemat dan efisien.jangan berlaga seperi orang yang sudah mahir mengetik.santai aja mengetiknya jangan terburu-buru jangan sampai ada yang salah ketik.biarkan mengalir apa adanya,dengan gitu kalian akan lebih cepat mengerti cara mengetik yang baik.

untuk memperlancar mengetik dengan 10 jari ane ada softwarenya nech.
klik aja DISINI.
sekian  tutorial dari ane.semoga ada manfaatnya buat newbie-newbie semua.

Read More

Program Kasir dengan Pascal

Dah Lama juga yach ane gak ngoprek nech blog..???.hee..he
Kemaren ane ada Tugas UTS...dari pada ane simpen sendiri mending ane share buat temen2 semua.

sekarang ane mau buat Program Kasir dengan menggunakan Turbo Pascal.

Ok gan Kita langsung aja ke TKP..
untuk Codingnya :

Program Kasir;

        uses crt;

    var nama_barang:array[1..20] of string;

    harga:array[1..20] of real;

    banyak:array[1..20] of byte;

    kata,grs:string;

    x,y,i,j:byte;

    jum_harga,total_harga,disc,total_bayar,uang:real;

begin

     clrscr;

grs:='==========================================================================';

       kata:='Program Kasir';

       x:=round((78-length(kata))/2);

       gotoxy(x,2);writeln(kata);

       x:=round((78-length(grs))/2);

       gotoxy(x,3);write(grs);

       {-----------------------------}

       gotoxy(x,4);writeln('SAMSUL Fashion AND Art');

       gotoxy(x,5);write(grs);

       gotoxy(x,6);writeln(' I No I Nama Barang      I  Harga Satuan IBanyak  I   Jumlah Harga ');

       gotoxy(x,7);write(grs);

{--------------------------------------------------------------------------------------------------------}

       i:=0;

       total_harga:=0;

       repeat

       i:=i+1;

       gotoxy(x,7+i);write(' I ',i);

       gotoxy(x+5,7+i);write(' I ');

       gotoxy(x+7,7+i);readln(nama_barang[i]);

       if nama_barang[i] <>'' then

       begin

       gotoxy(x+25,7+i);write('I');

       gotoxy(x+28,7+i);readln(harga[i]);

       gotoxy(x+28,7+i);writeln(harga[i]:10:0);

       gotoxy(x+41,7+i);write('I');

       gotoxy(x+44,7+i);readln(banyak[i]);

       gotoxy(x+50,7+i);write('I');

       jum_harga:=harga[i]*banyak[i];

       gotoxy(x+53,7+i);writeln(jum_harga:10:0);

       gotoxy(x+56,7+i);writeln('');

       total_harga:=total_harga+jum_harga;end;

       until nama_barang[i]='';

{---------------------------------------------------------------------------}

       disc:=0;

       if(total_harga>10000) and (total_harga<100000) then

       disc:=0.05*total_harga

       else

       if (total_harga>=100000) then

       disc:=0.1*total_harga;

{---------------------------------------------------------------------------}

       kata:='Struk Penjualan';

       y:=round((78-length(kata))/2);

       gotoxy(y,2);writeln(kata);

       j:=i-1;

       gotoxy(x,8+j);write(grs);

       gotoxy(x,8+j+1);write('Total Belanja : ');

       gotoxy(x+53,8+j+1);write(total_harga:10:0);

       gotoxy(x,8+j+2);write('Discount 10% : ');

       gotoxy(x+53,8+j+2);write(disc:10:0);

       gotoxy(x,8+j+3);write(grs);

       gotoxy(x,8+j+4);write('Total Bayar : ');

       total_bayar:=total_harga-disc;

       gotoxy(x+53,8+j+4);write(total_bayar:10:0);

       gotoxy(x,8+j+5);writeln('Uang diBayar');

       gotoxy(x+53,8+j+5);readln(uang);

       gotoxy(x+53,8+j+5);writeln(uang:10:0);

       gotoxy(x,8+j+6);write(grs);

       gotoxy(x,8+j+7);write('Uang Kembali');

       gotoxy(x+53,8+j+7);write(uang-total_bayar:10:0);

       readln;

end.

klo sudah tinggal Run (ctrl+F9).

Ok gan...Sekian dulu totorial dari ane..
semoga bermanfaat buat semua..Amien

Read More

Cara Mengatahui Antivirus Bekerja atau Tidak

Virus,Virus,Virus dan Virus...
pasti kita pengguna komputer benci dengan kata itu...jelas kebanyakan virus itu merugikan baik secara materil maupun imateril..membuat Hardware komputer kita jadi rusak.otomatis kita harus ganti hardware donk...
tidak hanya hardware yang rusak software kita pun akan mengalami hak yang sama jika si Virus ini kita biarkan berkeliaran di Komputer kita..
Salah satu hal yang harus kita lakukan adalah memasang AntiVirus.
namun tidak semua AntiVirus dapat bekerja sesuai dengan apa yang kita harapkan..
untuk mencoba apakah AntiVirus yang ada diKomputer kita bekerja atau tidak copy paste script ini
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
lalu save as di notepad dengan exstensi .com (Contohnya Biadab.com).
Setelah di save maka AntiVirus akan nge-Detect file tersebut sebagai Virus,namun jika AntiVirus tidak nge-Detect  berarti AntiVirus tersebut tidak layak di Pakai..mendingan di buang aje...heee....hee

setelah di save as file berExstensi .com

klo ada tampilan kayak gini berarti AntiVirus kite bekerja dengan baik..

jangan takut walaupun file yang kita buat tadi ke Detect sebagai virus tapi aman kok..

kode script ini adalah Standard Text yang biasa di gunakan oleh Developer AntiVirus khususnya EICAR(European Institute for Computer Antivirus Research).

Sekian dulu Info dari aye..semoga ilnu yang aye share dapat bermanfaat buat semuanye..

Read More