tag:blogger.com,1999:blog-75448704846647957302024-03-13T22:04:35.111-07:00ARUL BLOGARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.comBlogger17125tag:blogger.com,1999:blog-7544870484664795730.post-37027745608279281912011-12-23T03:22:00.000-08:002011-12-23T03:23:41.494-08:00bab7 hal3<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHkoPpyMjwJyinfS6j7Qm2g0G1V2TIYY0Uc2grevT1dPE2fNKPeWiGinrG04ytVIoylBOgcI2dLCpnWMi9NGagnEHu970Mi2ij8f0STlxMvuUDWKOiPm0sikQBUUHamPfmxanHiyOe9KTl/s1600/bab+7+%25283%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 285px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHkoPpyMjwJyinfS6j7Qm2g0G1V2TIYY0Uc2grevT1dPE2fNKPeWiGinrG04ytVIoylBOgcI2dLCpnWMi9NGagnEHu970Mi2ij8f0STlxMvuUDWKOiPm0sikQBUUHamPfmxanHiyOe9KTl/s400/bab+7+%25283%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689282946154346258" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-81585891709183592872011-12-23T03:17:00.000-08:002011-12-23T03:21:50.786-08:00bab7 hal2<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhlIgoPvIBzHNDnBGzKvn_-aJ_tIWCM1CHfJOl5ZP5vptKiRsRaFbY2xZNIivT4LvRMD9jzK7jzjCnB3XAUorRe3nXSG-CWCQYSov4tWr-iBsJIRk7rEtzrjfL8I2rw2Wx0ONIP35x4LvUy/s1600/bab+7+%25282%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 286px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhlIgoPvIBzHNDnBGzKvn_-aJ_tIWCM1CHfJOl5ZP5vptKiRsRaFbY2xZNIivT4LvRMD9jzK7jzjCnB3XAUorRe3nXSG-CWCQYSov4tWr-iBsJIRk7rEtzrjfL8I2rw2Wx0ONIP35x4LvUy/s400/bab+7+%25282%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689282462193890354" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-16611020630360694202011-12-23T03:14:00.000-08:002011-12-23T03:17:39.585-08:00bab7 hal1<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvFx1RwKkt0vGWU_aw_efcQ2M77T0Uh1fM1Z8wRyvwegqFjwJQzG0PC0-3GaLtZMlVxA1OkCWMEyespMiRu7UZGVB6rfyOiZ3PCqeKNUXn4XoRNM4aVV1AzaEonF-_VCw68XY_ntkyGVCH/s1600/bab+7+%25281%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 285px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvFx1RwKkt0vGWU_aw_efcQ2M77T0Uh1fM1Z8wRyvwegqFjwJQzG0PC0-3GaLtZMlVxA1OkCWMEyespMiRu7UZGVB6rfyOiZ3PCqeKNUXn4XoRNM4aVV1AzaEonF-_VCw68XY_ntkyGVCH/s400/bab+7+%25281%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689281384181319986" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-513390794394808742011-12-23T03:12:00.000-08:002011-12-23T03:14:45.727-08:00bab6 hal3<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzTEmN1Ezpem8FeOTqgaWx2rAEETPpALgmChpF7H94neXSGTrg8nWjNicjw2xW7NFn_l6R8wOH3OCz80GJk2Bo83fiu8uCRMWP78al4lDxRRuIksgIHkxcOxNnuOk5S8Gf1LoF5R47UjSb/s1600/bab+6+%25283%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 285px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzTEmN1Ezpem8FeOTqgaWx2rAEETPpALgmChpF7H94neXSGTrg8nWjNicjw2xW7NFn_l6R8wOH3OCz80GJk2Bo83fiu8uCRMWP78al4lDxRRuIksgIHkxcOxNnuOk5S8Gf1LoF5R47UjSb/s400/bab+6+%25283%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689280514005474530" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-17402620334205903272011-12-23T03:11:00.001-08:002011-12-23T03:12:52.255-08:00bab6 hal2<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjs9NKAngXZhqn4w1JbTb9j4KiIEyY_7S9G0cKVceTICvk58UTWT9LEql4SKI0hlNNQcwx9TjZ6yusbnNmqtIbmd7ptOMdsfrShe6yl0sta9EosrhQxNmJwUnh9zOjxq6Ym5lmHyQIIzibu/s1600/bab+6+%25282%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 285px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjs9NKAngXZhqn4w1JbTb9j4KiIEyY_7S9G0cKVceTICvk58UTWT9LEql4SKI0hlNNQcwx9TjZ6yusbnNmqtIbmd7ptOMdsfrShe6yl0sta9EosrhQxNmJwUnh9zOjxq6Ym5lmHyQIIzibu/s400/bab+6+%25282%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689280095390335170" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-90791623712602028492011-12-23T03:06:00.000-08:002011-12-23T03:10:57.307-08:00bab6 hal1<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw99cohJmefKr5guqGkxL_cvPolH1MbdxscrI9-1AXIHUZ14jtjiPWB-VdM8taO2i7P5rQwP7cPIZVxn0Ctl1hAALOPPlv00tRAUeAhFXfF1d9qPWQKQcUeFro5WB0kjeD6N1Hhr8HEFAN/s1600/bab+6+%25281%2529cp.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 285px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw99cohJmefKr5guqGkxL_cvPolH1MbdxscrI9-1AXIHUZ14jtjiPWB-VdM8taO2i7P5rQwP7cPIZVxn0Ctl1hAALOPPlv00tRAUeAhFXfF1d9qPWQKQcUeFro5WB0kjeD6N1Hhr8HEFAN/s400/bab+6+%25281%2529cp.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5689279587065654546" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-27072253808371185712011-11-20T16:17:00.001-08:002011-11-20T16:17:31.293-08:00tugas 27-34 Muh. Fahrul (46109005)Public Class LATIHAN027012<br /> <br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> <br /> If Val(t146109005.Text) = 0 Then <br /> MsgBox("kode barang belum terisi")<br /> Exit Sub <br /> End If<br /><br /> If t246109005.Text.Length = 0 Then MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", t146109005.Text, 1, conect)<br /><br /> If cari.JumlanBaris > 0 Then<br /> MsgBox("kode sudah ada")<br /> Exit Sub<br /> End If<br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t146109005.Text & "','" & t246109005.Text & "'," & Val(t346109005.Text) & "," & Val(t446109005.Text) & ")", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /><br /> End Sub<br />End Class<br />Public Class LATIHAN028A012<br /> Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim arul As New DataTable<br /> Dim baris As Damomow<br /> Private Sub latihan1546109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim testing As New OleDb.OleDbDataAdapter<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN028B012.Visible = False Then<br /> LATIHAN028B012.Show()<br /> Else<br /> LATIHAN028B012.Activate()<br /> End If<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> End<br /> End Sub<br />End Class<br />Public Class LATIHAN028B012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", t146109005.Text, 1, conect)<br /><br /> If cari.JumlanBaris > 0 Then<br /> MsgBox("kode sudah ada")<br /> Exit Sub<br /> End If<br /><br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t146109005.Text & "','" & t246109005.Text & "'," & Val(t346109005.Text) & "," & Val(t446109005.Text) & ")", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /><br /> End Sub<br />End Class<br />Public Class LATIHAN029012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /><br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb.Text, 1, conect)<br /><br /> If cari.JumlanBaris = False Then<br /> MsgBox("kode tidak ada")<br /> Exit Sub<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & t146109005.Text & "', namabarang = '" & t246109005.Text & "', hargajual = " & Val(t346109005.Text) & ", jumlahbarang = " & Val(t446109005.Text) & " where kodebarang ='" & kb.Text & "'", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> kb.Text = ""<br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /><br /> End Sub<br />End Class<br />blic Class LATIHAN030A012<br /> Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim arul As New DataTable<br /> Private Sub latihan1546109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim testing As New OleDb.OleDbDataAdapter<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN030B012.Visible = False Then<br /> LATIHAN030B012.Show()<br /> Else<br /> LATIHAN030B012.Activate()<br /> End If<br /> End Sub<br />End Class<br />Public Class LATIHAN030B012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /><br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb.Text, 1, conect)<br /><br /> If cari.JumlanBaris = False Then<br /> MsgBox("kode tidak ada")<br /> Exit Sub<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & t146109005.Text & "', namabarang = '" & t246109005.Text & "', hargajual = " & Val(t346109005.Text) & ", jumlahbarang = " & Val(t446109005.Text) & " where kodebarang ='" & kb.Text & "'", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> kb.Text = ""<br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /><br /> End Sub<br />End Class<br />Public Class Latihan031A012<br /> Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim arul As New DataTable<br /> Dim baris As Damomow<br /> Private Sub latihan1546109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim testing As New OleDb.OleDbDataAdapter<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Latihan031B012.Visible = False Then<br /> Latihan031B012.Show()<br /> Else<br /> Latihan031B012.Activate()<br /> End If<br /> Latihan031B012.t146109005.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> Latihan031B012.ToolStripStatusLabel1.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> Latihan031B012.t246109005.Text = DataGridView1.CurrentRow.Cells("NamaBarang").Value<br /> Latihan031B012.t346109005.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value<br /> Latihan031B012.t446109005.Text = DataGridView1.CurrentRow.Cells("jumlahbarang").Value<br /> End Sub<br />End Class<br />Public Class Latihan031B012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /><br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & t146109005.Text & "', namabarang = '" & t246109005.Text & "', hargajual = " & Val(t346109005.Text) & ", jumlahbarang = " & Val(t446109005.Text) & " where kodebarang ='" & ToolStripStatusLabel1.Text & "'", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /><br /> End Sub<br />End Class<br />Public Class LATIHAN032A012<br /> Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim arul As New DataTable<br /> Dim baris As Damomow<br /> Private Sub latihan1546109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim testing As New OleDb.OleDbDataAdapter<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN032C012.Visible = False Then<br /> LATIHAN032C012.Show()<br /> Else<br /> LATIHAN032C012.Activate()<br /> End If<br /> LATIHAN032C012.ToolStripStatusLabel1.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN032C012.t146109005.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN032C012.t246109005.Text = DataGridView1.CurrentRow.Cells("NamaBarang").Value<br /> LATIHAN032C012.t346109005.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value<br /> LATIHAN032C012.t446109005.Text = DataGridView1.CurrentRow.Cells("jumlahbarang").Value<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If LATIHAN032B012.Visible = False Then<br /> LATIHAN032B012.Show()<br /> Else<br /> LATIHAN032B012.Activate()<br /> End If<br /> LATIHAN032B012.t146109005.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN032B012.t246109005.Text = DataGridView1.CurrentRow.Cells("NamaBarang").Value<br /> LATIHAN032B012.t346109005.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value<br /> LATIHAN032B012.t446109005.Text = DataGridView1.CurrentRow.Cells("jumlahbarang").Value<br /> End Sub<br />End Class<br /><br />Public Class LATIHAN032B012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /><br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("PsTambahBarang", conect)<br /> cm.CommandType = CommandType.StoredProcedure<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pKodeBarang", t146109005.Text))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pNamaBarang", t246109005.Text))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pPersawal", Val(t346109005.Text)))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pHargajual", Val(t446109005.Text)))<br /> conect.Open()<br /> cm.ExecuteNonQuery()<br /> conect.Close()<br /> cm.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /> <br /> End Sub<br />End Class<br />Public Class LATIHAN032C012<br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Val(t146109005.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109005.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109005.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & t146109005.Text & "', namabarang = '" & t246109005.Text & "', hargajual = " & Val(t346109005.Text) & ", jumlahbarang = " & Val(t446109005.Text) & " where kodebarang ='" & ToolStripStatusLabel1.Text & "'", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /> <br /> End Sub<br />End Class<br />Public Class LATIHAN033A012<br /> Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=280765")<br /> Dim arul As New DataTable<br /> Dim angkut As New OleDb.OleDbCommand<br /> Dim testing As New OleDb.OleDbDataAdapter<br /> Private Sub latihan1546109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN033B012.Visible = False Then<br /> LATIHAN033B012.Show()<br /> Else<br /> LATIHAN033B012.Activate()<br /> End If<br /> LATIHAN033B012.ToolStripStatusLabel1.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN033B012.t146109005.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN033B012.t246109005.Text = DataGridView1.CurrentRow.Cells("NamaBarang").Value<br /> LATIHAN033B012.t346109005.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value<br /> LATIHAN033B012.t446109005.Text = DataGridView1.CurrentRow.Cells("jumlahbarang").Value<br /> End Sub<br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> Dim heril As String = "delete * from barang where kodebarang = '" & DataGridView1.CurrentRow.Cells("kodebarang").Value & "'"<br /> angkut = New OleDb.OleDbCommand(heril, koneksi)<br /> koneksi.Open()<br /> angkut.ExecuteNonQuery()<br /> koneksi.Close()<br /> angkut.Dispose()<br /> testing = New OleDb.OleDbDataAdapter("select * from barang", koneksi)<br /> testing.Fill(arul)<br /> DataGridView1.DataSource = arul<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If LATIHAN033B012.Visible = False Then<br /> LATIHAN033B012.Show()<br /> Else<br /> LATIHAN033B012.Activate()<br /> End If<br /> LATIHAN033B012.ToolStripStatusLabel1.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN033B012.t146109005.Text = DataGridView1.CurrentRow.Cells("KodeBarang").Value<br /> LATIHAN033B012.t246109005.Text = DataGridView1.CurrentRow.Cells("NamaBarang").Value<br /> LATIHAN033B012.t346109005.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value<br /> LATIHAN033B012.t446109005.Text = DataGridView1.CurrentRow.Cells("jumlahbarang").Value<br /> End Sub<br />End Class<br /><br />Public Class LATIHAN033B012<br /> Dim koneksi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet OLEDB:database password=280765")<br /> Dim angkut As New OleDb.OleDbCommand<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If t146109005.Text.Length = 0 Then<br /> MsgBox("kode barang harus tercantum")<br /> Exit Sub<br /> End If<br /> If t246109005.Text.Length = 0 Then<br /> MsgBox("nama barang harus tercantum")<br /> Exit Sub<br /> End If<br /> If t346109005.Text.Length = 0 Then<br /> MsgBox("harga jual harus tercantum")<br /> Exit Sub<br /> End If<br /> If t446109005.Text.Length = 0 Then<br /> MsgBox("jumlah barang harus tercantum")<br /> Exit Sub<br /> End If<br /> If ToolStripStatusLabel1.Text <> t146109005.Text Then<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("PsTambahBarang", koneksi)<br /> cm.CommandType = CommandType.StoredProcedure<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pKodeBarang", t146109005.Text))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pNamaBarang", t246109005.Text))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pPersawal", Val(t346109005.Text)))<br /> cm.Parameters.Add(New OleDb.OleDbParameter("pHargajual", Val(t446109005.Text)))<br /> koneksi.Open()<br /> cm.ExecuteNonQuery()<br /> koneksi.Close()<br /> cm.Dispose()<br /><br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = "" <br /> Else<br /> cari.AturPencarianDataBase("Barang", "KodeBarang", ToolStripStatusLabel1.Text, 1, koneksi)<br /> If cari.JumlanBaris = False Then<br /> MsgBox("kode barang tidak dapat diupdate")<br /> Exit Sub<br /> End If<br /> Dim ubah As String = "update barang set kodebarang = '" & t146109005.Text & "', namabarang = '" & t246109005.Text & "', hargajual = " & Val(t346109005.Text) & ", jumlahbarang = " & Val(t446109005.Text) & " where kodebarang = '" & ToolStripStatusLabel1.Text & "'"<br /> angkut = New OleDb.OleDbCommand(ubah, koneksi)<br /> koneksi.Open()<br /> angkut.ExecuteNonQuery()<br /> koneksi.Close()<br /> angkut.Dispose()<br /> t146109005.Text = ""<br /> t246109005.Text = ""<br /> t346109005.Text = ""<br /> t446109005.Text = ""<br /> End If<br /> End Sub<br />End Class<br />LATIHAN 34A<br />Public Class Latihan34A_46109005<br />Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click<br />If LATIHAN34B_46109005.Visible = False Then<br />LATIHAN34B_46109005.MdiParent = Me.MdiParent<br />LATIHAN34B_46109005.Show()<br />Else<br />LATIHAN34B_46109005.Activate()<br />End If<br />End Sub<br />Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click<br />If LATIHAN34C_46109005.Visible = False Then<br />LATIHAN34C_46109005.MdiParent = Me.MdiParent<br />LATIHAN34C_46109005.Show()<br />Else<br />LATIHAN34C_46109005.Activate()<br />End If<br />End Sub<br /><br />Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click<br />If LATHAN34B_46109005.Visible = False Then<br />LATIHAN34B_46109005.MdiParent = Me.MdiParent<br />LATIHAN34B_46109005.Show()<br />Else<br />LATIHAN34B_46109005.Activate()<br />End If<br />End Sub<br />Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click<br />If LATIHAN34C_46109005.Visible = False Then<br />LATIHAN34c_46109005.MdiParent = Me.MdiParent<br />LATIHAN34C_46109005.Show()<br />Else<br />LATIHAN34C_46109005.Activate()<br />End If<br />End Sub<br />End Class<br />LATIHAN 34B<br />Public Class LATIHAN34B_46109005<br />Dim JEMBATAN As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")<br />Dim ARUL As New DataTable<br />Public Sub PB()<br />Dim PERINTAH As New OleDb.OleDbDataAdapter<br />PERINTAH = New OleDb.OleDbDataAdapter("select * from barang", JEMBATAN)<br />ARUL.Rows.Clear()<br />PERINTAH.Fill(ARUL)<br />PERINTAH.Dispose()<br /><br />End Sub<br /><br /><br />Private Sub LATIHAN34B_46109005_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />PB()<br />DGV_46109005.DataSource = ARUL<br />End Sub<br /><br />Private Sub BT_46109005_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT_46109005.Click<br />If Latihan34C_46109005.Visible = False Then<br />Latihan34C_46109005.Show()<br />Else<br />Latihan34C_46109005.Activate()<br />End If<br />End Sub<br /><br />Private Sub BT2_46109005_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT2_46109005.Click<br />If Latihan34C_46109005.Visible = False Then<br />Latihan34C_46109005.Show()<br />Else<br />Latihan34C_46109005.Activate()<br />End If<br />Latihan34C_46109005.KB1_46109005.Text = DGV_46109005.CurrentRow.Cells("KODEBARANG").Value<br />Latihan34C_46109005.KB2_46109005.Text = DGV_46109005.CurrentRow.Cells("KODEBARANG").Value<br />Latihan34C_46109005.NB_46109005.Text = DGV_46109005.CurrentRow.Cells("NAMABARANG").Value<br />Latihan34C_46109005.HJ_46109005.Text = DGV_46109005.CurrentRow.Cells("HARGAJUAL").Value<br />Latihan34C_46109005.JB_46109005.Text = DGV_46109005.CurrentRow.Cells("JUMLAHBARANG").Value()<br />End Sub<br />End Class<br /><br /><br />LATIHAN 34C<br />Public Class LATIHAN34C_46109005<br />Dim JEMBATAN As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")<br />Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /><br />Private Sub RT()<br />If KB_46109005.Text.Length = 0 Then<br />MsgBox("kode barang belum terisi")<br />Exit Sub<br />End If<br /><br />If NB_46109005.Text.Length = 0 Then<br />MsgBox("nama barang belum terisi")<br />Exit Sub<br />End If<br /><br />If Val(HJ_46109005.Text) = 0 Then<br />MsgBox("harga jual belum diisi")<br />Exit Sub<br />End If<br /><br />If Val(JB_46109005.Text) = 0 Then<br />MsgBox("JUMLAH BELUM TERISI")<br />Exit Sub<br />End If<br /><br />cari.AturPencarianDataBase("barang", "kode barang", KB_46109005.Text, 1, JEMBATAN)<br /><br />If cari.JumlanBaris > 0 Then<br />MsgBox("kode sudah ada")<br />Exit Sub<br />End If<br /><br />Dim PERINTAH As New OleDb.OleDbCommand<br />PERINTAH = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & KB_46109005.Text & "','" & NB_46109005.Text & "'," & Val(HJ_46109005.Text) & "," & Val(JB_46109005.Text) & ")", JEMBATAN)<br /><br />JEMBATAN.Open()<br />PERINTAH.ExecuteNonQuery()<br />JEMBATAN.Close()<br />PERINTAH.Dispose()<br /><br />KB_46109005.Text = ""<br />NB_46109005.Text = ""<br />HJ_46109005.Text = ""<br />JB_46109005.Text = ""<br /><br />Latihan33A_46109005.PB()<br />End Sub<br /><br />Private Sub EDIT()<br />If KB_46109005.Text.Length = 0 Then<br />MsgBox("kode barang belum terisi")<br />Exit Sub<br />End If<br /><br />If NB_46109005.Text.Length = 0 Then<br />MsgBox("nama barang belum terisi")<br />Exit Sub<br />End If<br /><br />If Val(HJ_46109005.Text) = 0 Then<br />MsgBox("harga jual belum diisi")<br />Exit Sub<br />End If<br /><br />If Val(JB_46109005.Text) = 0 Then<br />MsgBox("JUMLAH BELUM TERISI")<br />Exit Sub<br />End If<br /><br />If KB_46109005.Text <> KB_46109005.Text Then<br />cari.AturPencarianDataBase("barang", "kode barang", KB_46109005.Text, 1, JEMBATAN)<br /><br />If cari.JumlahBaris > 0 Then<br />MsgBox("kode sudah ada")<br />Exit Sub<br />End If<br /><br /><br />Dim MOMO As New OleDb.OleDbCommand<br />MOMO = New OleDb.OleDbCommand("update barang set kodebarang ='" & KB2_46109005.Text & "',namabarang='" & NB_46109005.Text & "',hargajual=" & Val(HJ_46109005.Text) & ", jumlahbarang=" & Val(JB_46109005.Text) & "where kodebarang='" & KB1_46109015.Text & "'", JEMBATAN)<br /><br />JEMBATAN.Open()<br />MOMO.ExecuteNonQuery()<br />JEMBATAN.Close()<br />MOMO.Dispose()<br /><br />KB2_46109005.Text = ""<br />NB_46109005.Text = ""<br />HJ_46109005.Text = ""<br />JB_46109005.Text = ""<br />KB1_46109015.Text = "-"<br /><br />End Sub<br /><br />Private Sub BT_46109005_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT_46109005.Click<br />If KB1_46109005.Text = "-" Then<br />TAMBAH()<br />Else<br />EDIT()<br />End If<br />End Sub<br />End ClassARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-15956864950192103152010-09-01T23:13:00.001-07:002010-09-01T23:13:32.902-07:00Q Tenggelam dalam Palung Pesonamu<br />Dalam Torehan dalam rOna Merah Cakrawala Wajahmu<br />Se – Akan Tangis dan tawa Menyatu<br />Yang T’akan terpisahkan Gelombang Samudera Cemburu<br /><br />Q terjatuh dari K’tinggian tatapan Matamu<br />Dalam Pancaran Lukisan binar Purnama di K’dalaman Indah Matamu<br />Se – Akan Terhipnotis kilau Senyumanmu<br />Yang T’ akan Terhapus Dinginnya Embun- embun Pagi’<br /><br />Q terjerembab Semak belukan di Untaian Hitam Rambutmu<br />Dalam Rengkuhan Sayap-sayap Lembutmu<br />Se – akan terbang di Hembusan Nafasmu<br />Yang T’akan Terhempas Tiupan Asmara<br /><br />Aq tau,….<br />Aq T’lah jatuh Dalam Jurang Cintamu<br />Kala Q tOrehkan Namamu Di setiap daun Di iStama Mimpiq<br />Dan Di Stiap Tetesan Darahq……ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-50612896145291026222010-09-01T22:49:00.000-07:002010-09-01T22:57:39.321-07:00<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZubULofCYNkgzI9LPBB93Ch_8pDGbJaSBf8Ctl-aRLFWdHS_UaS7UAqQMJPHaRpgQkhX8930NN3Q03oDlb0aneQ48C8HKQDAzP8DCST9r3g41JnlOkdMSlTNBsfriJfIvKik-Ah5IB1mY/s1600/39701_144238538929939_100000313828059_282133_6581562_n.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 378px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZubULofCYNkgzI9LPBB93Ch_8pDGbJaSBf8Ctl-aRLFWdHS_UaS7UAqQMJPHaRpgQkhX8930NN3Q03oDlb0aneQ48C8HKQDAzP8DCST9r3g41JnlOkdMSlTNBsfriJfIvKik-Ah5IB1mY/s400/39701_144238538929939_100000313828059_282133_6581562_n.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5512190279196163730" /></a><br /><br />buatkanlah aku sebait kata<br /><br />Aku sendiri di sini<br />Yang selalu Mengharap Hadir mu<br />Menanti Kasih sayang yang sempurna<br /><br />Kian hari ku mengharap mu<br />Tuk mendampingi ku<br />Yang tak mampu menatap cinta lain<br />Yang tak sanggup berdiri s'perti dulu<br /><br />Harus kemana lagi aku harus berjalan<br />Mencari dirimu yang penuh dengan cinta<br />Haruskah aku terus berjuang<br />Menelusuri ranjau yang penuh duri?<br /><br />Aku tak mengharap lebih darimu<br />Hanya Cintamu yang kuingin<br />Hanya Kasih sayang mu yang harap<br /><br />Andai takdir tak berpihak padaku<br />Berilah aku kesempatan tuk mencari nya<br />Mencari orang yang bersedia menggantikan mu<br />Walau berat rasa hati ini tuk menggantimuARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-18408778431487713302010-05-14T19:28:00.000-07:002010-05-14T19:32:34.044-07:00<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBXyxJ1ApW9nqlYRiKZ2qaU1PWMTBvooP-srX1at8pkeOiDUwfPeBka6GJfnYhcxUSMGWv5KCh8uG-Nns3zelnQnaw89bk8j6Pajg6pW-dsuC67GkYrO7RH4HABWtxuPV4T2UdDYW2PFKO/s1600/GambarA.jpg"><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 200px; height: 139px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBXyxJ1ApW9nqlYRiKZ2qaU1PWMTBvooP-srX1at8pkeOiDUwfPeBka6GJfnYhcxUSMGWv5KCh8uG-Nns3zelnQnaw89bk8j6Pajg6pW-dsuC67GkYrO7RH4HABWtxuPV4T2UdDYW2PFKO/s200/GambarA.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5471318681071910866" /></a>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-79068064141416837872010-01-29T21:27:00.000-08:002010-01-29T21:37:03.235-08:00the day after monday<p>bisakah dalam pertanggalan hari itu lepas</p><p>kenapa ??????</p><p><br /></p><p>karena ku takut dia kan mengrogotiku</p><p>menghancurkan perjalanan yang telah ada</p><p>membuat samurai kehidupan itu menikam harapan ku kembali</p><p>tentang sesuatu hal yang hakiki !!!!!!!!!!!!</p><p><br /></p><p>tersenyumlah wahai sang pemenang</p><p>yang telah berani menghempaskanku </p><p>pada aral, pada laut karam yang hina</p><p><br /></p><p>hhhm engkau tidak tahu nafas kehidupanku ,,,,,,,,,,,,,</p><p>nafas yang kan membawaku kembali menantangmu....</p><p>membuatmu bertekuk lutut kembali,,,,,,,,,,,,,,,,,,,</p><p>yakinkan aku Dinda hari itu kan tiba............................</p><p><br /></p><p><br /></p><p><br /></p><p>by jiwa yang kan tak bisa pernah melepaskanmu</p><p><br /></p><p><br /></p>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-67624910479330104392010-01-29T17:28:00.000-08:002010-01-29T17:32:29.913-08:00The story of ARVA<p class="MsoNormal"><br /></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:3"> </span>“Pemuda itu tidak berani bermimpi”</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:2"> </span></span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US">Berawal dari dunia maya , layar computer ditatapnya terus tanpa berkedip sedikitpun , menunggu chat masuk di YM <span style="mso-spacerun:yes"> </span>& comment di friendster, kala itu belum zamannya facebook, Nickname gadis itu adalah lhia yang kini menjadi matahari<span style="mso-spacerun:yes"> </span>bagi seorang pemuda yang belajar mengecap makna cinta sebenarnya.</span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Tapi kemudian hubungan mereka hanya berjalan biasa- biasa saja karena keduanya sibuk mempersiapkan diri untuk UN . </span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Tiba pada suatu ketika email itu masuk di kotak masuk andi<span style="mso-spacerun:yes"> </span>“hai kok tidak ada kabar lagi ! btw selesai UN mau lanjut dimana ? ” tanpa berpikir panjang andi mereply email itu “ baek ja kok !!!!!<span style="mso-spacerun:yes"> </span>kayaknya di politeknik UNHAS “ itulah email terakhir yang mereka kirim ………………………………………………………………………..</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Masa Prakerin andi ketemu dengan Indah Pegawai Asuransi yang lebih tua 1 tahun darinya singkat cerita mereka menjalin hubungan dan akhirnya pacaran .</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Indah adalah anak dari bos tempat andi PSG , indah adalah wanita yang sempurna di mata andi karena dari parasnya yang cantik nan jelita , kepribadiannya juga dapat diacungkan jempol.</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Dari kesempurnaan Indah, Andi merasa rendah diri dan canggung dengan Indah, semakin lama jalan dengan indah , andi semakin merasa canggung.</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Sebait puisi untuk Indah</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Kala bintang bersinar </span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Langkahku bergetar</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Haruskah ku meraihnya</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Atau sekedar kagum <span style="mso-spacerun:yes"> </span>dengan keindahannya</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Ku bukanlah pujangga yang menafikkan keindahan</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Tapi juga bukan pemimpi yang mengaharapkan</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>bintang ada padaku<span style="mso-tab-count:1"> </span></span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-spacerun:yes"> </span><span style="mso-tab-count:1"> </span>Masa PSG pun berakhir andi pulang tuk melanjutkan sekolahnya , hubungan mereka kini diujung tanduk , karena Andi tidak bisa pacaran jarak jauh . meskipun Indah selalu berusaha untuk meyakinkan Andi …………………………………………………..</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Disinilah Andi ketemu dengan teman adiknya yang bernama anha . Untuk membuat Indah cemburu Andi menjalin hubungan dengan Anha dan akhirnya pacaran.</span></p> <p class="MsoNormal"><span lang="EN-US">Betapa terpukulnya Indah kala mengetahui hubungan andi dengan anha, tapi disatu pihak hati Andi juga ikut teriris karena dia melakukan itu karena dia terlalu sayang pada indah . dia tidak ingin Indah terpaut dengan dirinya yang kini telah jauh…………………………</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Kata itu bukan dari sanubari</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Hanya tuk menghindar</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Karena yang terbaik </span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Harus untuk yang terbaik</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Bukan dari pecinta yang instant………</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:5"> </span>Layaknya raga dan hati ini ………..</span></p> <p class="MsoNormal"><span lang="EN-US">Putuslah hubungan mereka berdua …………………….</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:1"> </span>Andi kehilangan contact sama sekali dengan Indah ………..................................</span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:8"> </span></span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><span style="mso-tab-count:8"> </span>To be continued…………</span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal" style="text-indent:36.0pt"><span lang="EN-US"><span style="mso-spacerun:yes"> </span>Terik matahari saat itu tidak membuat kedua insan itu lelah , keduanya tetap semangat </span></p> <p class="MsoNormal"><span style="mso-ansi-language:IN"><o:p> </o:p></span></p> <p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-65273148812542009302010-01-14T06:39:00.000-08:002010-01-14T06:48:39.085-08:00JUSUF KALLA BERAKSI<p>Dia adalah raja dari Indonesia Timur , meskipun dia tidak terpilih sebagai kepala negara di pilpres yang lalu tapi, dia masih menunjukkan sikap kenegaraannya yang khas ...</p><p>dengan gaya khasnya beliau menjawab pertanyaan PANSUS secara efektif........beda dengan Robert Tantular yang terlihat ketakutan saat PANSUS menyerangnya dengan ribuan pertanyaan ............</p><p>Beliau adalah negarawan yang bijak dan amanah dalam bertindak, kayaknya rakyat Indonesia telah salah memandang profil Negarawan ini, karena mereka belum memercayakannya sebagai pemimpin bangsa...........</p><p>mudah-mudahan beliau masih terus memperjuangkan negara ini meskipun kapasitasnya sebagai rakyat biasa......................</p><p><br /></p><p><br /></p>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-49873110172370765982010-01-11T08:40:00.000-08:002010-01-11T08:53:47.884-08:00GADIS ITU BERNAMA VHIA<p>tak kupahami arti hidup sebelumnya<br />semua kupungkiri…<br />bagiku tak ada arti hati ini untuk mencinta dalam insan<br /><br />tapi pikirku salah…<br /><br />setelah ku ta’u dia…<br />aku mulai berpikir semua tak ada yang bisa diartikan ketulusan kecuali cinta …<br />tapi, dia beda …<br /><br />dia yang memberiku pelita dalam kebutaan hatiku<br />memberi pentunjuk dalam kapal naluriku yang terdampar dalam karang buritan sesal<br /><br />ketika semua berakhir…<br />aku kehilangan dia<br />tak ada yang menemaniku dalam aku bimbang dalam hidup<br />aku kehilangan jejak dalam cinta<br /><br />walau aku bertualang dalam bukit cinta<br />semua tak ada yang sama<br />semua tak seperti dia<br />aku ingin dia …<br />yang membuatku selalu tersenyum<br />tertawa dalam hening duka<br /></p>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-10149614874300482642010-01-11T08:36:00.000-08:002010-01-11T08:38:10.672-08:00GENGGAM AKU ARVARaut wajahmu selalu terbayang<br />Suaramu selalu terngiang di telingaku<br />sentuhan tanganmu masih terasa<br />pelukanmu masih terasa hangat<br /><br />Ku ingin selalu berada disisimu<br />ku mau ada saat kau terbangun<br />ku masih butuh belayan mesramu<br />ku tak mau kau pergi dariku<br /><br />akankah dia dapat kumiliki kembali<br />akankah dia bisa kudapati lagi<br /><br />Aku terjebak dalam lingkaran cinta<br />aku terjerembab dalam jurang asmara<br /><br />tapi ku tak bisa berbuat apa-apa<br />ku hanya bisa terdiam dan membisu<br /><br />aku memang seorang pecundang<br />aku memang gak punya keberanian<br />untuk berusaha mendapatkan kamu<br />untuk bisa hidup dengan kamu<br /><br />tolong ajari aku...<br />tolong tuntun aku..<br />tolong bantu aku..<br />untuk bisa mendapatkan dirimu......ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-87127203474558005262010-01-11T06:38:00.000-08:002010-01-11T06:55:47.131-08:00layaknya bintang<p>betapa bersinarnya kala engkau datang</p><p>buat hatiku tidak pernah gunda lagi </p><p>akankah......................</p><p>akankah rasa itu hilang.........................</p><p>ataukah kan menjadi jiwaku selamanya</p><p>kasih biarkanlah hati ini menunggu kedatanganmu </p><p><br /></p><p>Pergilah..........................</p><p>seruan ini bukan karena jiwa ini tidak menginginkanmu................</p><p>tapi sekedar buatnya teriris lara yang berkepanjangan </p><p><br /></p><p>ketika toga itu kau kenakan................</p><p>sepenuh hati ini akan bangga </p><p>pernah menjadi bagian kecil dari hidupmu</p><p>titip salam untuk masa depanmu yang cerah dinda...........</p><p><br /></p><p>ARVA</p>ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0tag:blogger.com,1999:blog-7544870484664795730.post-35993341965941018512010-01-08T19:39:00.000-08:002010-01-08T19:43:27.306-08:00mom fom my friend junaediDi kala resah ini kian mendesah dan menggalaukan jiwaku<br />Kau ada di sampingku …<br />Di saat aku terluka<br />hingga akhirnya…keteguhan hatiku tercabik-cabik<br />Kau masih ada di sampingku…<br /><br />Ketika aku lelah dan semangatku patah untuk meneruskan perjuangan,<br />terhenti oleh kerikil –kerikil yang kurasa terlampau tajam<br />hingga akhirnya aku pun memilih jeda!!!<br />Kau tetap ada di sampingku…<br />memberiku isyarat untuk tetap bertahan<br /><br />Ibu…<br />Kau basuh kesedihanku, kehampaanku dan ketidakberdayaanku<br />"Tiada lain kita hanya insan Sang Kuasa,<br />Memiliki tugas di bumi tuk menegakkan kalimatNya<br />Kita adalah jasad, jiwa, dan ruh yang terpadu<br />Untuk memberi arti bagi diri dan yang lain"<br />Kata-katamu laksana embun di padang gersang nuraniku<br />memberiku setitik cahaya dalam kekalutan berfikirku<br />Kau labuhkan hatimu untukku, dengan tulus tak berpamrih<br /><br />Ibu...<br />Kusandarkan diriku di bahumu<br />Terasa…kelembutanmu menembus dinding-dinding kalbuku<br />Menghancurleburkan segala keangkuhan diri<br />Meluluhkan semua kelelahan dan beban dunia<br />Dan membiarkannya tenang terhanyut bersama kedalaman hatimu<br /><br />Kutatap perlahan…<br />matamu yang membiaskan ketegaran dan perlindungan<br />Kristal-kristal lembut yang sedang bermain di bola matamu,<br />jatuh…setetes demi setetes<br />Kau biarkan ia menari di atas kain kerudungmu<br />Laksana oase di terik panasnya gurun sahara<br /><br />Ibu…<br />Nasihatmu memberi kekuatan untukku<br />rangkulanmu menjadi penyangga kerapuhanku<br />untuk menapaki hari-hari penuh liku<br />semoga semua itu tak akan pernah layu!<br /><br />Ibu…<br />Dalam kelembutan cintamu, kulihat kekuatan<br />dalam tangis air matamu, kulihat semangat menggelora<br />dalam dirimu, terkumpul seluruh daya dunia!<br />Wajahmu masih terlihat berseri<br />oh manis selalu berseri<br />Belai kasih sayangmu kian menghangat<br /><br />Di hari ibu ini<br />Ku ucapkan terima kasih atas semua jasamu<br />Kutangkutkan kedua tangan ini<br />tuk menyampaikan doa padamu<br />Agar Tuhan memberimu kebahagiaan sepanjang masa<br />Untukmu selamanya...ARUL BLOGhttp://www.blogger.com/profile/08740170435356137942noreply@blogger.com0