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
