Komunitas Informatika Aneuk Nanggröe
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Komunitas Informatika Aneuk Nanggröe

Dengan Agama hidup menjadi terarah, dengan Ilmu hidup menjadi mudah dan dengan seni hidup menjadi indah..!!
 
IndeksPortalLatest imagesPencarianPendaftaranLogin

 

 Membuat label mutar pada vfp

Go down 
PengirimMessage
teuku arfan
SD
teuku arfan


Male
Jumlah posting : 40
Age : 38
Lokasi : Panteriek
Registration date : 07.06.08

Membuat label  mutar pada vfp Empty
PostSubyek: Membuat label mutar pada vfp   Membuat label  mutar pada vfp Icon_minitimeThu Jun 26, 2008 11:43 pm

Silahkan....
simpan dalam prg :

Public sudut,Top,Left,radius,xx
xx=0
loForm=Createobject('oForm')
loForm.Show(1)
Return

Define Class oForm As Form
AutoCenter=.T.
Height=400
Width=600
Caption="LABEL MUTER"

Add Object label1 As Label With ;
Top = 180, ;
Left = 250, ;
Autosize=.T.,;
FontSize=12,;
FontBold=.t.,;
Caption="dodol",;
ForeColor=RGB(IIF(200+xx>255,0,200+xx),0,0)

Add Object Timer1 As oTimer With ;
Interval = 10

Add Object cmdClose As CommandButton With ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"

Procedure Init
** Public sudut,Top,Left,radius,xx
** xx=0
sudut=0
Top=180
Left=288
radius=120
ENDPROC

Procedure cmdClose.Click
Thisform.Release
Endproc
Enddefine

Define Class oTimer As Timer
OleClass = "Timer"
Procedure Timer

sudut=sudut+0.03
loForm.label1.Left=Left+Sin(sudut)*radius
loForm.label1.Top=Top+Cos(sudut)*radius
Endproc
Enddefine
Kembali Ke Atas Go down
 
Membuat label mutar pada vfp
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Membuat AutoNumber+Tanggal ( No. Faktur Otomatis )
» Pendeklarasian variabel pada Visual Basic
» Membuat prg hyperlink dgn vfp
» Membuat game tetris dengan vfp
» Membuat text active title bar berjalan ala vfp

Permissions in this forum:Anda tidak dapat menjawab topik
Komunitas Informatika Aneuk Nanggröe :: General Category :: Pemrograman :: FoxPro-
Navigasi: