Febry Risdianto

Minggu, 15 Januari 2012

Lebih baik berusaha dari pada Mengeluh

assalammualaikum para pembaca blog,,
ada sedikit cerita buat kalian,untuk berbagi pengalaman,iseng aj sich nulis di blog ini,tp syapa tw ad yang membaca blog gue n langsung masuk ke otak terus ke hati dan bermanfaat alhamdulilah gue dapet pahala,hahahahah
Kata-kata "Lebih baik berusaha dari pada mengeluh" ini gue ambil status-status FB n twitter,50% tentang keluhan 30% tentang cinta 20% tentang hidupnya dan dakwah d FB dan 10% tenttang informasi,,knapa keluhan lebih banyak persentase.a di banding sma yang laen??
oke sedikit cerita tentang gambaran,,
biasanya keluhan itu muncul ketika apa yang kita harapkan itu tidak tercapai ataupun sedang emosi terhadap sesuatu,betul tidak para pembaca blog??
seandainya kita berfikir apa yang kita lakuin adalah usaha dan hasil apa yg kita lakuin adalah bukti kita usaha,mungkin kita akan berlapang dada,yang penting kita sudah USAHA,dari pda ngeluh doank kerjaan,a yang ad malah tampak sebuah kelemahan di dalam jiwa kita,,ap ga malu klo kita ngeluh trus dah gtu klo ngeluh pasti kebanyakan para pengguna internet langsng update fb atw pun twitter,berharapa ad yang koment dan kasih jempol,,betul ga?
lebih baik usaha dari pda mengeluh,,wlaupn asilnya tidak seprti apa yang kita mauu,,, :)
untuk para pembaca blog,,semoga cerita singkat kali ini bermanfaat dan mulai berfikir,
thank dah mw baca ^_^

Jumat, 02 Desember 2011

Program Penjualan

assalammualaikum gan,,
saya dapet aspirasi setelah saya menunggu warung usaha ortu saya,,saya berkinginan membuatkan program penjualan,,wlaupn sederhana tp mudah2an berguna,,dan bagi yg bsa memperbagus bagi2 yh ilmu.a ^_^
langsung ajh saya kasih gambaran dan coding.n,,disini cuma ad 2 from yg pertama untuk barang dsna kita mnginput data2 /barng2 yg ingin kita jual dah d from penjualan untuk barang apa yg d sudah d jual,,

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode = Text1.Text
Adodc1.Recordset!nama_barang = Text2.Text
Adodc1.Recordset!harga_barang = Text3.Text
Adodc1.Recordset!untung = Text4.Text

Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Refresh
End Sub

dan ini from yg ke 2 dan gambarnya

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
Text5 = ""
End If
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!kode = Text1.Text
Adodc2.Recordset!nama_barang = Text2.Text
Adodc2.Recordset!harga_barang = Text3.Text
Adodc2.Recordset!untung = Text4.Text

Adodc2.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

cukup sekian gan yg bsa w kasih ke kalian,mudah2an bermanfaat bwt yg memerlukan program ini,,
wassalammualaikum wr.wb ^_^

Selasa, 25 Oktober 2011

Program Menginput Data

assalammualaikum gan...
sory nie udah lma ga update blog w hehehe,,sibuk ma acara sndiri
w ad info ga jauh2 beda dengan program sblmnya,,tp mudah-mudahan bermanfaat gan,,

nie tampilan awal.a gan pke MDI,,Isi,a ad data dosen,data ruangan,data mata_kuliah,data jadwal,dan data yg pngen d tampilin,,

sory bgt nie gan w mw ksih code.a tp d warnet ga ad program vb.a heheh
code.a nyusul yah gan,,,mav skali lgi

Minggu, 18 September 2011

Membuat Aplikasi Absensi Menggunakan Visual Basic

ASSALAMMUALAIKUM GAN,,,,
nie ad sedikit program sederhana yg saya modif,,,jika ingn coba silakan ajh,,nie skrip.a...

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!no = Text1.Text
Adodc1.Recordset!nip = Text2.Text
Adodc1.Recordset!nama = Text3.Text
Adodc1.Recordset!tanggal = Text4.Text
Adodc1.Recordset!jenis_kelamin = Text5.Text
Adodc1.Recordset!bagian = Text6.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus

End Sub

Private Sub Command2_Click()
End
End Sub

mudah kn,,,selamat mencoba gan,,,
^_^