Belajar mau kapan pun,mau sebentar atau lama yang penting niat dan ikhlas karna itu sangat berpengaruh terhadap apa yang kita pelajari.

pa kabar para pembaca blog,,
saya ingin berbagi cerita lgi kpda pembaca blog,walaupun tulisan saya masih berantakan,tapi saya mw belajar itu yang harus saya terapkan..
belajar ga perlu lama-lama,belajar cukup sebentar tp niat dan ihklas insya allah ap yang kita pelajari akan masuk k otak d banding dengan belajar lama tpi bawaan.a bosen,percuma gan kgk bkal masuk k otak ilmu.a masuk pling cuma sedikit,,betul ga?
belajar sebaik.a yang teratur,biar otak kita terbiasa dalam membaca mengingat,ibarat kata otak itu pisau semakin di asah maka mkan tajam,,begitu juga otak kita semakin rajin belajar maka otak kita aq semakin tajam dalam memahami suatu pelajaran,betul???

belajar juga mau kapan pun klo memang niat untuk belajar gpp,,yg penting kuncinya harus niat dan ihklas,,mau belajar malem,pagi dan siang,,

mungkin saya slah satu paling males belajar tp saya klo lgi belajar niat dan ihklas jdi insya allah ilmu.a dapet gan,,(sok banget saya wkwkwkw)

mulai sekarang belajar itu harus niat dan ihklas,itu kuncinya

NIAT DAN IHKLAS

sekian gan cerita dari saya tentang ini,semoga bermanfaat ^^

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 ^_^

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 ^_^

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

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,,,
^_^

Media Pencetak

Media pencetak

View more presentations from febry_risdianto.

Perangkat Output Printer

Perangkat output printer

View more presentations from febry_risdianto.