New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

membuat program yang menggunakan serial number

Sebuah gulali dari seorang pemula………..!!!!!!!!!!!!!!
Bagi rekan-rekan yang dah susah payah buat program dan pada akhirnya program itu bisa di copy paste ma orang kan sayang…. Ni ada potongan program sederhana buat protek dengan serial number agar tak bisa lagi di copy paste…. Tapi rekan-rekan jangan tertawain ya soalnya masih pakai table…..he..he…
Langsung aja yach…

Buat table apa aja namanya, terserah kamu…..
Contoh table
untitled
Setelah membuat table selanjutnya buatlah sebuah form sebagai berikut
1
Coding program
Object : Frmsetup Procedur : UnLoad
RELEASE ALL LIKE ocx*


Object : Frmsetup Procedur : Init
THISFORM.txtPerusahaan.Enabled = .F.
THISFORM.txtAlamat.Enabled = .F.
THISFORM.txtKota.Enabled = .F.
THISFORM.txtTelpon.Enabled = .F.
THISFORM.txtFax.Enabled = .F.
THISFORM.txtemail.Enabled = .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
THISFORM.text8.Enabled= .F.
thisform.text9.Enabled= .F.
THISFORM.cmdSelesai.Enabled = .F.
IF !FILE('biologi.ocx')
THISFORM.txtPerusahaan.Value = ""
THISFORM.txtAlamat.Value = ""
THISFORM.txtKota.Value = ""
THISFORM.txtTelpon.Value = ""
THISFORM.txtFax.Value = ""
THISFORM.txtemail.Value=""
THISFORM.text4.Value = ""
else
RESTORE FROM biologi.ocx ADDITIVE
THISFORM.txtPerusahaan.Value =ocx1
THISFORM.txtAlamat.Value= ocx2
THISFORM.txtKota.Value=ocx3
THISFORM.txtemail.Value=ocx4
THISFORM.txtTelpon.Value=ocx5
THISFORM.txtFax.Value= ocx6
THISFORM.text4.Value =ocx7
ENDIF

Object : Frmsetup Procedur : Activate
THISFORM.TXTPERUSAHAAN.SETFOCUS

Object : Cmdselesai Procedur : Click
SET SAFETY OFF
ocx1 = THISFORM.txtPerusahaan.Value
ocx2 = THISFORM.txtAlamat.Value
ocx3 = THISFORM.txtKota.Value
ocx4 = THISFORM.txtemail.Value
ocx5 = THISFORM.txtTelpon.Value
ocx6 = THISFORM.txtFax.Value
ocx7 = THISFORM.text4.Value
SAVE TO biologi.ocx ALL LIKE ocx*

IF thisform.optiongroup1.option1.Value=1
IF THISFORM.text4.Value=THISFORM.txtnilai.Value
THISFORM.txtNilai2.Value=0
THISFORM.txtNilai1.Value=0
THISFORM.Release
ELSE
MESSAGEBOX("Serial Number Not valid",64,"Information")
ENDIF
ELSE
thisform.optiongroup1.option2.Value=1
THISFORM.txtNilai2.Value=1
THISFORM.txtNilai1.Value=1
THISFORM.txtNilai3.Value=30
THISFORM.Release
Endif

Object : Cmdbatal Procedur : Click
frmutama.RELEASE
quit

Object : text5 Procedur : InteractiveChange
cno2=ALLTRIM(Thisform.text5.Value)
a=cno2+''
Thisform.text4.Value=a

Object : text6 Procedur : InteractiveChange
cno=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno
Thisform.text4.Value=a

Object : text7 Procedur : InteractiveChange
cno3=alltrim(Thisform.text7.Value)
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno+'-'+cno3
Thisform.text4.Value=a 
Object : text8 Procedur : InteractiveChange
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno
Thisform.text4.Value=a

Object : text9 Procedur : InteractiveChange
cno4=alltrim(Thisform.text9.Value)
cno3=alltrim(Thisform.text7.Value)
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno+'-'+cno3+'-'+cno4
Thisform.text4.Value=a

Object : text9 Procedur : Lostfocus
thisform.cmdSelesai.Enabled= .T.

Object : option1 Procedur : Click
THISFORM.txtPerusahaan.Value = ""
THISFORM.txtAlamat.Value = ""
THISFORM.txtKota.Value = ""
THISFORM.txtTelpon.Value = ""
THISFORM.txtFax.Value = ""
THISFORM.txtemail.Value=""
THISFORM.text4.Value = ""
THISFORM.txtPerusahaan.Enabled = .T.
THISFORM.txtAlamat.Enabled = .T.
THISFORM.txtKota.Enabled = .T.
THISFORM.txtTelpon.Enabled = .T.
THISFORM.txtFax.Enabled = .T.
THISFORM.txtemail.Enabled = .T.
thisform.text5.Enabled= .T.
thisform.text6.Enabled= .T.
thisform.text7.Enabled= .T.
THISFORM.text8.Enabled= .T.
thisform.text9.Enabled= .T.
thisform.cmdSelesai.Enabled= .F.
THISFORM.txtPerusahaan.SetFocus

Object : option2 Procedur : Click
THISFORM.txtPerusahaan.Enabled = .F.
THISFORM.txtAlamat.Enabled = .F.
THISFORM.txtKota.Enabled = .F.
THISFORM.txtTelpon.Enabled = .F.
THISFORM.txtFax.Enabled = .F.
THISFORM.txtemail.Enabled = .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
THISFORM.text8.Enabled= .F.
thisform.text9.Enabled= .F.
thisform.cmdSelesai.Enabled= .T.

THISFORM.txtPerusahaan.Value =" KwK Initial Studio "
THISFORM.txtAlamat.Value =" Jl. Pemuda No.48 Daya "
THISFORM.txtKota.Value =" Makassar"
THISFORM.txtemail.Value =" syamsulkwk@gmail.com "
THISFORM.txtTelpon.Value = " Indonesia "
THISFORM.txtFax.Value =" 081241514646 "
THISFORM.text4.Value =" Demo Version 30 Day's "
Tampilan program ketika di Run

download selengkapnya

membuat program yang menggunakan serial numberSocialTwist Tell-a-Friend

0 komentar:

Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property