download software anti virus smadav 2009 Rev. 7.4

download smadav 2009 Rev. 7.4

Read More

Foxpro : Imput data siswa

download

Read More

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

Read More

NUPTK 6033763666200013

DATA UMUM PTK         :
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

Read More

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

Read More