Pages

Friday, 12 October 2012

PENGELOLAAN KELAS


Pengelolaan kelas merupakan masalah tingkah laku yang kompleks. Dan guru menggunakannya untuk menciptakan dan memperhatikan untuk menciptakan dan mempertahankan kondisi kelas sedemikian rupa sehingga anak didik dapat menciptakan tujuan pengajaran secara efisien dan memungkinkan mereka dapat belajar. Dengan demikian pengelolaan kelas yang efektif adalah syarat bagi pengajaran yang efektif.

A.    DEFINISI PENGELOLAAN KELAS
Pengelolaan kelas adalah upaya yang dilakukan guru dalam mengelola anak didiknya di kelas dengan menciptakan atau mempertahankan suasana atau kondisi kelas yang mendukung program pengajaran untuk mencapai tujuan yang telah ditetapkan.

B.     TUJUAN PENGELOLAAN KELAS
Tujuan pengelolaan kelas adalah sebagai berikut: 
1.      Mewujudkan situasi dan kondisi kelas, baik sebagai lingkungan belajar maupun sebagai kelompok belajar untuk mengembangkan kemampuan semaksimal mungkin.
2.      Menghilangkan berbagai hambatan yang dapat menghalangi terwujudnya interaksi belajar mengajar.
3.      Menyediakan dan mengatur fasilitas serta perabot belajar yang mendukung dan memungkinkan siswa belajar sesuai dengan lingkungan sosial, emosional, dan intelektual siswa dalam kelas.
4.      Membina dan membimbing sesuai dengan sifat-sifat individunya.
Agar tujuan pengajaran berhasil, guru tidak hanya cukup berbekal pengetahuan tentang kurikulum, metode mengajar, media pengajaran, dan wawasan tentang materi yang akan disampaikan kepada anak didik. Di samping itu guru harus menguasai kiat manajemen atau pengelolaan kelas sehingga dapat menciptakan dan mempertahankan kondisi kelas yang menguntungkan bagi anak didik supaya tumbuh iklim pembelajaran yang aktif, kreatif, efektif, dan menyenangkan. 

C.    PRINSIP-PRINSIP PENGELOLAAN KELAS
Prinsip-prinsip pengelolaan kelas sebagai berikut:
1.      Hangat dan Antusias
Hangat dan Antusias diperlukan dalam proses belajar mengajar. Guru yang hangat dan akrab pada anak didik selalu menunjukkan antusias pada tugasnya atau pada aktifitasnya akan berhasil dalam mengimplementasikan pengelolaan kelas.
2.      Tantangan
Penggunaan kata-kata, tindakan, cara kerja, atau bahan-bahan yang menantang akan meningkatkan gairah anak untuk belajar sehingga mengurangi kemungkinan munculnya tingkah laku yang menyimpang.
3.      Bervariasi
Penggunaan alat atau media, gaya mengajar guru, pola interaksi antara guru dan anak didik akan mengurangi munculnya gangguan, meningkatkan perhatian anak. Kevariasian ini merupakan kunci untuk tercapainya pengelolaan kelas yang efektif dan menghindari kejenuhan.
4.       Keluwesan
Keluwesan tingkah laku guru untuk mengubah strategi mengajarnya dapat mencegah kemungkinan munculnya gangguan anak serta menciptakan iklim belajar mengajar yang efektif. Keluwesan pengajaran dapat mencegah munculnya gangguan seperti keributan anak, tidak ada perhatian, tidak mengerjakan tugas dan sebagainya.
5.      Penekanan pada Hal-Hal yang Positif
Pada dasarnya dalam mengajar dan mendidik, guru harus menekankan pada hal-hal yang positif dan menghindari pemusatan perhatian pada hal-hal yang negatif. Penekanan pada hal-hal yang positif yaitu penekanan yang dilakukan guru terhadap tingkah laku anak yang positif daripada mengomeli tingkah laku yang negatif. Penekanan tersebut dapat dilakukan dengan pemberian penguatan yang positif dan kesadaran guru untuk menghindari kesalahan yang dapat mengganggu jalannya proses belajar mengajar.
6.      Penanaman Disiplin Diri

Tujuan akhir dari pengelolaan kelas adalah anak didik dapat mengembangkan dislipin diri sendiri dan guru sendiri hendaknya menjadi teladan mengendalikan diri dan pelaksanaan tanggung jawab. Jadi, guru harus disiplin dalam segala hal bila ingin anak didiknya ikut berdisiplin dalam segala hal.

D.    PENDEKATAN PENGELOLAAN KELAS
Keharmonisan hubungan guru dan anak didik, tingginya kerjasama di antara siswa tersimpul dalam bentuk interaksi. Lahirnya interaksi yang optimal bergantung dari pendekatan yang guru lakukan dalam rangka pengelolaan kelas. Berbagai pendekatan tersebut yaitu:
a.                 Pendekatan Kekuasaan
Pengelolaan kelas diartikan sebagai suatu proses untuk mengontrol tingkah laku anak didik. Peranan guru disini adalah menciptakan dan mempertahankan situasi disiplin dalam kelas. Kedisiplinan adalah kekuatan yang menuntut kepada anak didik untuk mentaatinya. Di dalamnya ada kekuasaan dan norma yang mengikat untuk ditaati anggota kelas. Melalui kekuasaan dalam bentuk norma itu guru mendekatinya.
b.                Pendekatan Ancaman
Dari pendekatan ancaman atau intimidasi ini, pengelolaan kelas adalah juga sebagai suatu proses untuk mengontrol tingkah laku anak didik. Tetapi dalam mengontrol tingkah laku anak didik dilakukan dengan cara memberi ancaman, misalnya melarang, ejekan, sindiran, dan memaksa.
c.                 Pendekatan Kebebasan
Pengelolaan diartikan secara suatu proses untuk membantu anak didik agar merasa bebas untuk mengerjakan sesuatu kapan saja dan dimana saja. Peranan guru adalah mengusahakan semaksimal mungkin kebebasan anak didik.
d.                Pendekatan Resep
Pendekatan resep (cook book) ini dilakukan dengan memberi satu daftar yang dapat menggambarkan apa yang harus dan apa yang tidak boleh dikerjakan oleh guru dalam mereaksi semua masalah atau situasi yang terjadi di kelas. Dalam daftar itu digambarkan tahap demi tahap apa yang harus dikerjakan oleh guru. Peranan guru hanyalah mengikuti petunjuk seperti yang tertulis dalam resep.
e.                 Pendekatan Pengajaran 
Pendekatan ini didasarkan atas suatu anggapan bahwa dalam suatu perencanaan dan pelaksanaan akan mencegah munculnya masalah tingkah laku anak didik, dan memecahkan masalah itu bila tidak bisa dicegah. Pendekatan ini menganjurkan tingkah laku guru dalam mengajar untuk mencegah dan menghentikan tingkah laku anak didik yang kurang baik. Peranan guru adalah merencanakan dan mengimplementasikan pelajaran yang baik.
f.                 Pendekatan Perubahan Tingkah Laku

Sesuai dengan namanya, pengelolaan kelas diartikan sebagai suatu proses untuk mengubah tingkah laku anak didik. Peranan guru adalah mengembangkan tingkah laku anak didik yang baik, dan mencegah tingkah laku yang kurang baik. Pendekatan berdasarkan perubahan tingkah laku (behavior modification approach) ini bertolak dari sudut pandangan psikologi behavioral.
Program atau kegiatan yang yang mengakibatkan timbulnya tingkah laku yang kurang baik, harus diusahakan menghindarinya sebagai penguatan negatif yang pada suatu saat akan hilang dari tingkah laku siswa atau guru yang menjadi anggota kelasnya. Untuk itu, menurut pendekatan tingkah laku yang baik atau positif harus dirangsang dengan memberikan pujian atau hadiah yang menimbulkan perasaan senang atau puas. Sebaliknya, tingkah laku yang kurang baik dalam melaksanakan program kelas diberi sanksi atau hukuman yang akan menimbulkan perasaan tidak puas dan pada gilirannya tingkah laku tersebut akan dihindari.
g.                Pendekatan Sosio-Emosional
Pendekatan sosio-emosional akan tercapai secarta maksimal apabila hubungan antar pribadi yang baik berkembang di dalam kelas. Hubungan tersebut meliputi hubungan antara guru dan siswa serta hubungan antar siswa. Didalam hal ini guru merupakan kunci pengembangan hubungan tersebut. Oleh karena itu seharusnya guru mengembangkan iklim kelas yang baik melalui pemeliharaan hubungan antar pribadi di kelas. Untuk terrciptanya hubungan guru dengan siswa yang positif, sikap mengerti dan sikap ngayomi atau sikap melindungi. 
h.                Pendekatan Kerja Kelompok 
Dalam pendekatan in, peran guru adalah mendorong perkembangan dan kerja sama kelompok. Pengelolaan kelas dengan proses kelompok memerlukan kemampuan guru untuk menciptakan kondisi-kondisi yang memungkinkan kelompok menjadi kelompok yang produktif, dan selain itu guru harus pula dapat menjaga kondisi itu agar tetap baik. Untuk menjaga kondisi kelas tersebut guru harus dapat mempertahankan semangat yang tinggi, mengatasi konflik, dan mengurangi masalah-masalah pengelolaan.
i.                  Pendekatan Elektis atau Pluralistik
Pendekatan elektis (electic approach) ini menekankan pada potensialitas, kreatifitas, dan inisiatif wali atau guru kelas dalam memilih berbagai pendekatan tersebut berdasarkan situasi yang dihadapinya. Penggunaan pendekatan itu dalam suatu situasi mungkin dipergunakan salah satu dan dalam situasi lain mungkin harus mengkombinasikan dan atau ketiga pendekatan tersebut. Pendekatan elektis disebut juga pendekatan pluralistik, yaitu pengelolaan kelas yang berusaha menggunakan berbagai macam pendekatan yang memiliki potensi untuk dapat menciptakan dan mempertahankan suatu kondisi memungkinkan proses belajar mengajar berjalan efektif dan efisien. Guru memilih dan menggabungkan secara bebas pendekatan tersebut sesuai dengan kemampuan dan selama maksud dan penggunaannnya untuk pengelolaan kelas disini adalah suatu set (rumpun) kegiatan guru untuk menciptakan dan mempertahankan kondisi kelas yang memberi kemungkinan proses belajar mengajar berjalan secara efektif dan efisien.








Monday, 1 October 2012

TUGAS



1. Fungsi Tanggal dan Waktu di C#

misal kita bikin fungsi ambil tanggal hari ini
private void button1_Click(object sender, EventArgs e)
        {
            DateTime tgl = DateTime.Now;
            label1.Text = tgl.ToString();
        }

ketika method tersebut dijalankan biasanya secara default akan menghasilkan “bulan/tgl/tahun jam:menit:detik AM/PM”.
Ada beberapa pilihan cara memparsing nilai dari variabel tgl tadi
- ToLongDateString : Akan menghasilkan tanggal dalam format longdate (panjang)
- ToShortDateString : Akan menghasilkan tanggal dalam format shortdate (pendek)
- ToString(string format) : akan menghasilkan tanggal sesuai dengan format yang kita inginkan.

Anggap saja method yang pertama tadi menghasilkan nilai variabel tgl = 10/24/2008 2:48:19 PM. maka :
 String tglshort = tgl.ToShortDateString(); //akan menghasilkan "10/24/2008".
 String tgllong = tgl.ToLongDateString(); //akan menghasilkan "Friday, October 24, 2008".
 String tglformat = tgl.ToString("dd-MMM-yyyy"); //akan menghasilkan "24-Oct-2008".

dimana dd = tanggal, MMM = bulan dalam format 3 huruf, yyyy = tahun.
format ini bisa dirubah2 misal “dd/MM/yyyy” atau “MM/dd/yyyy” atau “MMM dd, yyyy”, dll
Semua cara parsing diatas akan memberikan nilai kembalian dengan tipe string.


2. Fungsi string di C#

String adalah suatu tipe data bentukan seperti halnya array, bahakan string bisa disebut array of char, yaitu array dari tipe data char (karakter), sehingga membentuk suatu tipe data baru yang bisa menyimpan susunan huruf atau karekter lainnya.
view plainprint?
1.            using System; 
2.            namespace InputOutput 
3.            { 
4.                class Program 
5.                { 
6.                    static void Main(string[] args) 
7.                    { 
8.                        String nama = Console.ReadLine(); 
9.                        Console.WriteLine("Nama Anda : " + nama); 
10.                  } 
11.              } 
12.          } 
Jika kita compile program diatas akan meminta inputan dari user dan menampilkannya di layar, output dari program diatas adalah :
view plainprint?
1.            Nama Anda : Yohanda Mandala 
Selain itu kita juga bisa melakukan suatu rekayasa pada tipe data string dengan menggunakan method methodnya, sebagai contoh adalah mencetak suatu string secara terbalik seperti dalam contoh dibawah ini :
view plainprint?
1.            using System; 
2.             
3.            namespace String 
4.            { 
5.                class Program 
6.                { 
7.                    static void Main(string[] args) 
8.                    { 
9.                        string kata = "abcdefghi"; 
10.                      char[] x = kata.ToCharArray(); 
11.                      for (int i = kata.Length - 1; i >= 0; i--) 
12.                          Console.Write(x[i]); 
13.                  } 
14.              } 
15.          } 

Maka ketika kita compile yang keluar bukanlah string "abcdefghij" akan tetapi justru sebaliknya yaitu "jihgfedcba".
kata.Length() Adalah method yang digunakan untuk mendapatkan panjang dari string tersebut. Didalam hal ini panjang dari string tersebut adalah 10, untuk penghitungannya dimulai dari 0, sehingga karakter “a” pada stringg tersebut berada pada indeks ke-0 dan karakter “j” berada pada indeks ke “9”.
kata.ToCharArray() adalah method yang digunakan untuk merubah string menjadi array of char.
Untuk melihat fungsi fungsi apa saja yang terdapat di string pada C# bisa dilihat di dokumentasi dari C# di Visual Studio.


3. Timer di C#

Tutorial kali ini adalah tutorial untuk membuat suatu jam digital di C#, kita akan menggunakan jam local atau jam yang ada pada system. untuk lebih jelasnya mari kita mulai membuat projectnya.
seperti biasa, siapkan project baru dengan cara klik file pilih new project, untuk project name silahkan isi sesuai dengan keinginan, karena tidak ada batasan dalam memberi nama pada suatu project kecuali menggunakan karakter karakter yang memang dilarang digunakan dalam menamai sebuah file, sekarang mari kita buat langsug projectnya
langkah pertama : tambahkan 3 komponen label pada form yang telah disiapkan tadi, dan juga tambahkan komponen timer ke dalam form. atur dan tata sedemikian rupa sehingga tampilannya seperti pada gambar dibawah ini


Gambar 1. Preview desain aplikasi

jika komponen timer ditambahkan kedalam form. tidak akan terjadi perubahan, akan tetapi lihat pada bagian bawah. akan muncul icon jam. itulah yang dinamakan dengan komponen timer

Langkha kedua : pada komponen timer yang telah ditambahkan kedalam form, double klik untuk membangkitkan event timerTIck. setelah itu tambahkan code berikut ini pada event yang muncul
            jamku = DateTime.Now;
            label2.Text = jamku.Hour.ToString();
            label1.Text = jamku.Minute.ToString();
            label3.Text = jamku.Second.ToString();    

langkah ketiga : pada event onLoad tambahkan source code berikut ini.
             jamku = DateTime.Now;
            timer1.Enabled = true;

dan  jangan lupa untuk mendeklatasikan variable global DateTime jamku

langkah keempat : Done. program selesai dibut, jika langkah langkah diatas dilakukan dengan benar maka, saat program dirunning tampilannya akan seperti gambar dibawah ini


Gambar 2. Hasil running program
Untuk lebih memudahkan dalam memahami tutorial ini.
download binary filenya disini,
dan juga download full projectnya disini.


4. Menampilkan Gambar di C#

Menampilkan atau mengambil gambar dengan C# pada database yang support SqlClient yaitu SQL Server :


private void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e)
        {
            textIdPerabot.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString();
            comboModel.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString();
            comboKategori.Text = dataGridView1.CurrentRow.Cells[2].Value.ToString();
            textNmaPerabot.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString();
            textHarga.Text = dataGridView1.CurrentRow.Cells[4].Value.ToString();
            Byte[] byteBLOBData = new Byte[0];
            byteBLOBData = (Byte[])(dataGridView1.CurrentRow.Cells[5].Value);
            MemoryStream stmBLOBData = new MemoryStream(byteBLOBData);
            pictureBox1.Image = Image.FromStream(stmBLOBData);

        }

Menyimpan gambar dengan VB.NET pada database yang support ODBC misal MySQL :


    Private Sub BtnUpdatePic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdatePic.Click
        Dim tpic As Byte() = System.IO.File.ReadAllBytes(txtFile.Text)
        Dim con As New OdbcConnection
        con.ConnectionString = "driver={mysql odbc 3.51 driver};server=localhost;database=karyawan;uid=root;password= ;"
        con.Open()


        Dim cmd As New OdbcCommand
        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        'PARAMETER HARUS PAKAI TANDA TANYA ? KHUSUS UNTUK ODBC
        cmd.CommandText = "UPDATE peserta SET gambar = ? WHERE idpeserta = '102' " ',@total)"
      
        cmd.ExecuteNonQuery()
       
        cmd.Dispose()
        con.Close()

   End Sub

Menampilkan atau mengambil gambar dengan VB.NET pada database yang support  ODBC misal MySQL  :

    Private Sub BtnViewPictMysql_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnViewPictMysql.Click
        Dim fstream As New IO.FileStream(IO.Path.GetDirectoryName(Application.ExecutablePath) & "\tmp.dat", IO.FileMode.Create)

        'fstream.Write(bs.Item(bs.Position)(4), 0, System.Buffer.ByteLength(bs.Item(bs.Position)(4)))
        'fstream.Write(dgv1.Rows(0).Cells("gambar").Value, 0, System.Buffer.ByteLength(dgv1.Rows(0).Cells("gambar").Value))
        fstream.Write(dgv1.SelectedRows(0).Cells("gambar").Value, 0, System.Buffer.ByteLength(dgv1.SelectedRows(0).Cells("gambar").Value))
        PicFoto.Image = Image.FromStream(fstream)
        'PicFoto.SizeMode = PictureBoxSizeMode.Zoom

        fstream.Close()
    End Sub

Cara lain menyimpan gambar binary ke database dengan C#.NET :

            con.open
            string query = "update Jenis_Penyakit set gambar=@gambar where NAMA_PENYAKIT = '" + dgGambarPenyakit.Rows[dgGambarPenyakit.SelectedRows[0].Index].Cells[1].Value.ToString() + "'";
            if (myconn.State.ToString() != "Open")
                myconn.Open();
            SqlCommand cmd = new SqlCommand(query, myconn);
            cmd.Parameters.Add("@gambar", SqlDbType.Image, 0 , "");
            cmd.Parameters[0].Value = tpic;
            cmd.ExecuteNonQuery();

Cara lain mengambil/menampilkan gambar binary dari database dengan C#.NET :

        private void dgGambarPenyakit_Click(object sender, EventArgs e)
        {
          
            myconn = koneksi.CON;
            SqlCommand cmdSelect = new SqlCommand("SELECT GAMBAR FROM JENIS_PENYAKIT WHERE NAMA_PENYAKIT = '" + dgGambarPenyakit.Rows[dgGambarPenyakit.SelectedRows[0].Index].Cells[1].Value.ToString() + "'", this.myconn);
           
            myconn.Open();
            byte[] barrImg = (byte[])cmdSelect.ExecuteScalar();


            if (barrImg != null)
            {
                string strfn = Convert.ToString(DateTime.Now.ToFileTime());
                FileStream fs = new FileStream(strfn,
                                  FileMode.CreateNew, FileAccess.Write);
                fs.Write(barrImg, 0, barrImg.Length);
                fs.Flush();
                fs.Close();
                this.myconn.Close();
                picPenyakit.Image = Image.FromFile(strfn);
            }
            else
            {
                picPenyakit.Image = null;
            }
        }


Cara lain menyimpan gambar binary ke database dengan VB.NET :

tpic = File.ReadAllBytes(oSketsa.FileName)


        If (tpic.GetType.ToString() <> "System.Object") Then
            da.UpdateCommand.Parameters("@Sketsa").Value = tpic
        End If
        'cm.Parameters.Add("@Sketsa", OdbcType.VarChar, 0, "").Value = pathCAD
        cm.ExecuteNonQuery()
        cn.Close()

Cara lain mengambil/menampilkan gambar binary dari database dengan VB.NET :

If (bs.Item(bs.Position)(4).GetType.ToString() <> "System.DBNull") Then
                Dim fstream As New FileStream(Path.GetDirectoryName(Application.ExecutablePath) & "\sket.dat", FileMode.Create)


                fstream.Write(bs.Item(bs.Position)(4), 0, System.Buffer.ByteLength(bs.Item(bs.Position)(4)))
                pSketsa.Image = Image.FromStream(fstream)
                pSketsa.SizeMode = PictureBoxSizeMode.Zoom


                fstream.Close()
            Else
                pSketsa.Image = Nothing
            End If

       
Menyimpan Gambar di Database MySQL dengan MySQLOledb


Public Function SiswaInsert(ByVal Siswa As Siswa) As MySqlDataReader
            Try
                Dim ms As MemoryStream = New MemoryStream()
                Siswa.Foto.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)


                Dim Pic_arr(ms.Length) As Byte


                ms.Position = 0
                ms.Read(Pic_arr, 0, Pic_arr.Length)


                Dim StrSQL As String = "INSERT INTO siswa" & _
               " (Nis,Kelas_ID,Tahun_ID,Nama,Kota_lahir,Tanggal_lahir,Gender,Agama,Alamat,Telepon,Terima_dkelas,Tgl_terima,Id_ThnAjaran,Sekolah_asal,Anak_ke,Status_anak,Nama_Ayah,Nama_Ibu,Pekerjaan_Ayah,Pekerjaan_Ibu,Penghasilan_Ortu,Alamat_Ortu,Telp_Ortu,Foto_Siswa) " & _
               " VALUES (@Nis,@Kelas_ID,@Tahun_ID,@Nama,@Kota_lahir,@Tanggal_lahir,@Gender,@Agama,@Alamat,@Telepon,@Terima_dkelas,@Tgl_terima,@Id_ThnAjaran,@Sekolah_asal,@Anak_ke,@Status_anak,@Nama_Ayah,@Nama_Ibu,@Pekerjaan_Ayah,@Pekerjaan_Ibu,@Penghasilan_Ortu,@Alamat_Ortu,@Telp_Ortu,@Foto_Siswa);"


                Dim myCommand As MySqlCommand = New MySqlCommand(StrSQL, myconnection.open)
                myCommand.CommandType = CommandType.Text


                Dim parameterS_Nis As MySqlParameter = New MySqlParameter("@Nis", MySqlDbType.VarChar, 4)
                parameterS_Nis.Value = Siswa.Nis


                Dim parameterS_Kelas As MySqlParameter = New MySqlParameter("@Kelas_ID", MySqlDbType.Int16)
                parameterS_Kelas.Value = Siswa.Kelas


                Dim parameterS_Angkatan As MySqlParameter = New MySqlParameter("@Tahun_ID", MySqlDbType.Int16)
                parameterS_Angkatan.Value = Siswa.Angkatan


                Dim parameterS_Nama As MySqlParameter = New MySqlParameter("@Nama", MySqlDbType.VarChar, 50)
                parameterS_Nama.Value = Siswa.Nama


                Dim parameterS_KotaLahir As MySqlParameter = New MySqlParameter("@Kota_lahir", MySqlDbType.VarChar, 30)
                parameterS_KotaLahir.Value = Siswa.KotaLahir


                Dim parameterS_TglLahir As MySqlParameter = New MySqlParameter("@Tanggal_lahir", MySqlDbType.Date)
                parameterS_TglLahir.Value = Siswa.TglLahir


                Dim parameterS_Kelamin As MySqlParameter = New MySqlParameter("@Gender", MySqlDbType.VarChar, 1)
                parameterS_Kelamin.Value = Siswa.Kelamin


                Dim parameterS_Agama As MySqlParameter = New MySqlParameter("@Agama", MySqlDbType.VarChar, 10)
                parameterS_Agama.Value = Siswa.Agama


                Dim parameterS_Alamat As MySqlParameter = New MySqlParameter("@Alamat", MySqlDbType.VarChar, 100)
                parameterS_Alamat.Value = Siswa.Alamat


                Dim parameterS_Telepon As MySqlParameter = New MySqlParameter("@Telepon", MySqlDbType.VarChar, 15)
                parameterS_Telepon.Value = Siswa.Telepon


                Dim parameterS_TerimadKelas As MySqlParameter = New MySqlParameter("@Terima_dkelas", MySqlDbType.VarChar, 30)
                parameterS_TerimadKelas.Value = Siswa.TerimadKelas


                Dim parameterS_TglTerima As MySqlParameter = New MySqlParameter("@Tgl_terima", MySqlDbType.Date)
                parameterS_TglTerima.Value = Siswa.TglTerima


                Dim parameterS_ThnAjaran As MySqlParameter = New MySqlParameter("@Id_ThnAjaran", MySqlDbType.Int16)
                parameterS_ThnAjaran.Value = Siswa.ThnAjaran


                Dim parameterS_AsalSekolah As MySqlParameter = New MySqlParameter("@Sekolah_asal", MySqlDbType.VarChar, 30)
                parameterS_AsalSekolah.Value = Siswa.AslSekolah


                Dim parameterS_AnakKe As MySqlParameter = New MySqlParameter("@Anak_ke", MySqlDbType.VarChar, 30)
                parameterS_AnakKe.Value = Siswa.AnakKe


                Dim parameterS_StatusAnak As MySqlParameter = New MySqlParameter("@Status_anak", MySqlDbType.VarChar, 30)
                parameterS_StatusAnak.Value = Siswa.StatusAnak


                Dim parameterS_NamaAyah As MySqlParameter = New MySqlParameter("@Nama_Ayah", MySqlDbType.VarChar, 50)
                parameterS_NamaAyah.Value = Siswa.NamaAyah


                Dim parameterS_NamaIbu As MySqlParameter = New MySqlParameter("@Nama_Ibu", MySqlDbType.VarChar, 50)
                parameterS_NamaIbu.Value = Siswa.NamaIbu


                Dim parameterS_KerjaAyah As MySqlParameter = New MySqlParameter("@Pekerjaan_Ayah", MySqlDbType.VarChar, 30)
                parameterS_KerjaAyah.Value = Siswa.KerjaAyah


                Dim parameterS_KerjaIbu As MySqlParameter = New MySqlParameter("@Pekerjaan_Ibu", MySqlDbType.VarChar, 30)
                parameterS_KerjaIbu.Value = Siswa.KerjaIbu


                Dim parameterS_HasilOrtu As MySqlParameter = New MySqlParameter("@Penghasilan_Ortu", MySqlDbType.VarChar, 100)
                parameterS_HasilOrtu.Value = Siswa.PenghaslianOrtu


                Dim parameterS_AlamatOrtu As MySqlParameter = New MySqlParameter("@Alamat_Ortu", MySqlDbType.VarChar, 100)
                parameterS_AlamatOrtu.Value = Siswa.AlamatOrtu


                Dim parameterS_TelpOrtu As MySqlParameter = New MySqlParameter("@Telp_Ortu", MySqlDbType.VarChar, 15)
                parameterS_TelpOrtu.Value = Siswa.TelponOrtu


                Dim parameterS_Foto As MySqlParameter = New MySqlParameter("@Foto_Siswa", MySqlDbType.Blob)
                parameterS_Foto.Value = Pic_arr
                With myCommand.Parameters
                    .Add(parameterS_Nis)
                    .Add(parameterS_Kelas)
                    .Add(parameterS_Angkatan)
                    .Add(parameterS_Nama)
                    .Add(parameterS_KotaLahir)
                    .Add(parameterS_TglLahir)
                    .Add(parameterS_Kelamin)
                    .Add(parameterS_Agama)
                    .Add(parameterS_Alamat)
                    .Add(parameterS_Telepon)
                    .Add(parameterS_TerimadKelas)
                    .Add(parameterS_TglTerima)
                    .Add(parameterS_ThnAjaran)
                    .Add(parameterS_AsalSekolah)
                    .Add(parameterS_AnakKe)
                    .Add(parameterS_StatusAnak)
                    .Add(parameterS_NamaAyah)
                    .Add(parameterS_NamaIbu)
                    .Add(parameterS_KerjaAyah)
                    .Add(parameterS_KerjaIbu)
                    .Add(parameterS_HasilOrtu)
                    .Add(parameterS_AlamatOrtu)
                    .Add(parameterS_TelpOrtu)
                    .Add(parameterS_Foto)

                End With

                Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
                Return result
            Catch SqlEx As MySqlException
                Throw New Exception(SqlEx.Message.ToString())
            End Try
        End Function


Mengambil Gambar dari MySQL dengan MySQLOledb


Dim objDataTable As New DataTable
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Try
            Dim DataControl As New AccessData.DataControl
            Dim myData As DataSet = DataControl.GetDataSet("Select * from siswa where nis = '" & txtNis.Text & "'")
            objDataTable = myData.Tables("data")
            If objDataTable.Rows.Count > 0 Then
                AddSiswa.Show()
                AddSiswa.txtNis.Text = objDataTable.Rows(0)("nis").ToString
                AddSiswa.txtNama.Text = objDataTable.Rows(0)("nama").ToString

                Dim stmBLOBData As MemoryStream = New MemoryStream()

                stmBLOBData.Write(objDataTable.Rows(0)("Foto_Siswa"), 0, System.Buffer.ByteLength(objDataTable.Rows(0)("Foto_Siswa")))

                AddSiswa.PictureBox1.Image = Image.FromStream(stmBLOBData)
           Else
                MsgBox("Data Tidak Ditemukan")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


Related Posts Plugin for WordPress, Blogger...