This is default featured slide 1 title
Go to Blogger edit html and find these sentences. Now replace these with your own descriptions.
This is default featured slide 2 title
Go to Blogger edit html and find these sentences. Now replace these with your own descriptions.
This is default featured slide 3 title
Go to Blogger edit html and find these sentences. Now replace these with your own descriptions.
This is default featured slide 4 title
Go to Blogger edit html and find these sentences. Now replace these with your own descriptions.
This is default featured slide 5 title
Go to Blogger edit html and find these sentences. Now replace these with your own descriptions.
Senin, 30 November 2009
Senin, 23 November 2009
Pemrograman aplikasi foxpro : imput data perusahaan
Form => Init
thisform.combo1.AddItem ("Ms.Febriani")
thisform.combo1.AddItem ("Mr.Gana")
thisform.combo1.AddItem ("Ms.Vera")
thisform.combo1.AddItem ("Mr.Irma")
Combo =. Click
IF(thisform.combo1.value= "Ms.Febriani")
thisform.text1.value = "DR01"
thisform.text2.value = "FEBRIANI"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Direktur"
thisform.text5.value = "Menikah"
thisform.text6.Value = "BANDUNG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "08567345788"
thisform.image1.Picture= "2.jpg"
ELSE
IF (thisform.combo1.value="Mr.Gana")
thisform.text1.value = "MGR01"
thisform.text2.value = "Gana"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Manager"
thisform.text5.value = "Menikah"
thisform.text6.Value = "BANDUNG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "081254963315"
thisform.image1.Picture= "4.jpg"
ELSE
IF (thisform.combo1.value="Ms.Vera")
thisform.text1.value = "SKT01"
thisform.text2.value = "Vera"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Sekertaris"
thisform.text5.value = "Menikah"
thisform.text6.Value = "JAKARTA"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "0818854512"
thisform.image1.Picture= "1.jpg"
ELSE(thisform.combo1.value="Ms.Irma")
thisform.text1.value = "SKT02"
thisform.text2.value = "Irma"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Sekertaris"
thisform.text5.value = "Menikah"
thisform.text6.Value = "SEMARANG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "0896525255"
thisform.image1.Picture= "3.jpg"
thisform.text1.Enabled = .T.
thisform.text1.ForeColor = RGB(255,0,128)
thisform.text1.BackColor = RGB(255,255,255)
thisform.text2.Enabled = .F.
thisform.text3.Enabled = .F.
ENDIF
ENDIF
ENDIF
thisform.Refresh
download file click disini
NUPTK 6033763666200013
Id Pegawai : 0309.20070102.151127.5468700
NUPTK : 6033763666200013
Nama : HERI SYAIFUDIN
Tempat Lahir : BOYOLALI
Usia : 27
Ijazah : -
Tempat Tugas (Awal)
Nama Sekolah : SMK N 9 SKA
Kecamatan : BANJARSARI
Kabupaten : KOTA SURAKARTA
Provinsi : JAWA TENGAH
Status Pegawai : PNS
Tugas/Jabatan : -
Masa Kerja : -
Status Sertifikasi : -
Status Registrasi : Belum registrasi ulang
free download deepfreeze 6.0silahkan download
Sabtu, 21 November 2009
belajar pemrograman visual foxpro tingkat paling dasar
Form – load
set talk off.
set dele on
use mhs
SET ORDER TO TAG XNIM
SImpan – click
append blank
replace nim with thisform.text1.value
replace nama with thisform.text2.value
replace alamat with thisform.text3.value
thisform.refresh
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus
Batal – click
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus
Hapus – click
x=messagebox("Benar Data Akan Dihapus",4+16,"information")
if x=6 then
delete
thisform.refresh
endif
Keluar – click
x=messagebox("Yakin Pengen Keluar..!!",4+16,"information")
if x=6 then
thisform.Release
endif
Ganti – click
x=messagebox("Yakin Pengen DIGANTI..!!",4+16,"information")
if x=6 then
replace nim with thisform.text1.value
replace nama with thisform.text2.value
replace alamat with thisform.text3.value
thisform.refresh
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus
ENDIF
Cari data – click
SEEK TRIM(THISFORM.TEXT4.VALUE)
IF FOUND()THEN
THISFORM.TEXT1.VALUE=NIM
THISFORM.TEXT2.VALUE=NAMA
THISFORM.TEXT3.VALUE=ALAMAT
ELSE
MESSAGEBOX ("DATA TIDAK DITEMUKAN")
ENDIF
Grid - AfterRowColChange
LPARAMETERS nColIndex
THISFORM.TEXT1.VALUE=NIM
THISFORM.TEXT2.VALUE=NAMA
THISFORM.TEXT3.VALUE=ALAMAT
silahkan download filenya
Selasa, 01 September 2009
Jadwal Buka Bersama Alumni SMSR Solo
Panitia Buka Bersama Alumni ( IKABA ) SMK Negeri 9 Surakarta mengadakan Buka Puasa Bersama di Gedung SMK Negeri 9 Surakarta dengan Pihak Sekolah, Insya'Allah akan kami laksanakan pada :
Hari / Tanggal : Minggu, 6 September 2009
Waktu : 16.00 - Selesai
Tempat : PTT SMK Negeri 9 Surakarta
Untuk itu kami mengundang segenap teman-teman dan alumni yang ingin berpartisipasi untuk menjalin siulaturokhim antar keluarga besar SMK Negeri 9 Surakarta.
Kontribusi Peserta : Rp 15.000,-
Koordinator Panitia sebagai berikut :
1. Sarimo, S.Pd 2001 ( 085647372754 / 081802576523 )
2. Mardhani 2002 ( 085642145855 )
3. Nurtati 2003 ( 081548518043 )
4. Tri Wahyono 2004 ( 081915352395 )
5. Sudaryanto 2005 ( 085293866700 )
6. Mudrik 2006 ( 02717976978 )
7. Mailinda 2007 ( 087834961141 )
8. Narimo 2008 ( 085725641746 )
9. Ivan Sulistiyanto 2009 ( 085727474944 )
Informasi lebih lanjut http://alumnismsr-solo.blogspot.com
Senin, 31 Agustus 2009
tentang admin Heri Syaifudin : 6033763666200013
Latar belakang pendidikan penulis dimulai dari TK Sindon I Boyolali pada tahun 1993, kemudian melanjutkan studi di SD Negeri I Sindon lulus pada tahun 2000. Jenjang pendidikan Sekolah Lanjutan Pertama di MTs Nurul Islam II Tegalrejo lulus pada tahun 2002, melanjutkan studi di SMK Negeri 9 Surakarta (SMSR Solo) dan pernah menjabat sebagai Ketua Umum II OSIS SMK Negeri 9 Surakarta Periode 2003 s/d 2004 dan lulus pada tahun 2005. Magang kerja pada saat kelas 3 SLTA SMK Negeri 9 Surakarta menjadi Desainer Graphic Design dan Pekerja sablon spanduk dan kaos di Prima Verra Solo. Tahun 2005 bekerja sebagai teknisi komputer, tahun 2006 kuliah Diploma III di STMIK AUB SURAKARTA lulus dan diwisuda pada juli 2009 Beasiswa Jardiknas angkatan pertama tahun 2006 s/d 2009, tahun 2009 s/d tahun 2011 sampai sekarang melanjutkan pendidikan Strata satu di STMIK DUTA BANGSA SURAKARTA, wisuda pada oktober tahun 2011. Bekerja di SMK Muhammadiyah 3 Surakarta, yang beralamatkan Jl. Dr. Supomo Pasar Beling, Utara Tiga Serangkai Surakarta sampai dengan sekarang sebagai guru produktif Teknik Komputer Jaringan sampai dengan saat ini, Sekian dan terimakasih.
- Gambar Raster dengan aplikasiAdobe PhotoshopCS
- Gambar Vertor dengan aplikasi CorelDrawX3
- 3 Dimensi dengan aplikasi 3D Max 8.0
- Web Design dengan aplikasi Macromedia Dreamweaver
- Editing Video dengan aplikasi Ulead11
- Editing Audio dengan aplikasi Adobe Audition 1.5
- Melakukan Perakitan dan Mantenance Komputer (MR-IT)
- Web Programer (PHP dan MySQL)
Latar belakang pendidikan penulis dimulai dari TK Sindon I Boyolali pada tahun 1993, kemudian melanjutkan studi di SD Negeri I Sindon lulus pada tahun 2000. Jenjang pendidikan Sekolah Lanjutan Pertama di MTs Nurul Islam II Tegalrejo lulus pada tahun 2002, melanjutkan studi di SMK Negeri 9 Surakarta (SMSR Solo) dan pernah menjabat sebagai Ketua Umum II OSIS SMK Negeri 9 Surakarta Periode 2003 s/d 2004 dan lulus pada tahun 2005. Magang kerja pada saat kelas 3 SLTA SMK Negeri 9 Surakarta menjadi Desainer Graphic Design dan Pekerja sablon spanduk dan kaos di Prima Verra Solo. Tahun 2005 bekerja sebagai teknisi komputer, tahun 2006 kuliah Diploma III di STMIK AUB SURAKARTA lulus dan diwisuda pada juli 2009 Beasiswa Jardiknas angkatan pertama tahun 2006 s/d 2009, tahun 2009 s/d tahun 2011 sampai sekarang melanjutkan pendidikan Strata satu di STMIK DUTA BANGSA SURAKARTA, wisuda pada oktober tahun 2011. Bekerja di SMK Muhammadiyah 3 Surakarta, yang beralamatkan Jl. Dr. Supomo Pasar Beling, Utara Tiga Serangkai Surakarta sampai dengan sekarang sebagai guru produktif Teknik Komputer Jaringan sampai dengan saat ini, Sekian dan terimakasih.