New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

splash screen cantik

disini kita berbagi karna ilmu tidak akan dibawah mati, buat rekan-rekan yang senang dengan tampilan
unik, disini aku akan membuat Splash screen dengan menggunakan table….
Buatlah table seperti berikut :
untitled1
buah container, 10 label, 2 buah timer, 1 buah shape dan 2 buah text
Coding program

Object : Form1 Procedur : Activate
USE keti
_SCREEN.Hide
for i = 0 to 150 step 1
thisform.nload.value = I && nload adalah text
thisform.shp.width=i+1 && shp adalah Shape
inkey(0.000001,"h")
next
thisform.nload.value=150
thisform.shp.width=thisform.nload.width-2
inkey(1,"h")
LOCAL tinggi,mulai
tinggi=(thisform.height /50)
FOR mulai=1 TO tinggi
thisform.Height=thisform.Height -50
thisform.Top=(_screen.height-thisform.Height )/2
thisform.Width=thisform.Width -50
thisform.Left=(_screen.Width-thisform.Width )/2
DOEVENTS
NEXT mulai
thisform.Release

Object : Form1 Procedur : Unload
_SCREEN.Show

Object : Form1 Procedur : Init
LPARAMETERS tnDrivenumber
Declare integer GetModelNumber in diskSerial.dll Integer nDrivelpBuffer,String
aa=space(40)
?GetModelNumber(tnDrivenumber,@aa)
thisform.text1.value=(strTRAN(aa,CHR(0),""))
IF !FILE('biologi.ocx')
THISFORM.Label4.Caption = ""
THISFORM.Label5.Caption = ""
THISFORM.Label6.Caption = ""
else
RESTORE FROM biologi.ocx ADDITIVE
THISFORM.Label4.Caption = ocx1
THISFORM.Label5.Caption = ALLTRIM(ocx2) +' '+ALLTRIM(ocx3)
THISFORM.Label6.Caption=ocx7
ENDIF

Object : Timer3 Procedur : Timer
if ! reccount()=0
skip +1
if eof()
go bottom
endif
thisform.label1.Caption=nama
ENDIF

Object : Timer1 Procedur : Timer
LOCAL Keti, Black, kwk
Keti =ThisForm.CAPTION
Black =SUBSTR(Keti,1,1)
kwk = SUBSTR(Keti, 2, LEN(Keti))
ThisForm.CAPTION = kwk + Black

download selengkapnya

splash screen cantikSocialTwist 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