Komunitas Informatika Aneuk Nanggröe

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

Share | 
 

 Membuat label mutar pada vfp

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
teuku arfan
SD


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

PostSubyek: Membuat label mutar pada vfp   Thu 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
Lihat profil user
 
Membuat label mutar pada vfp
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Lampu depan ninja 250 yg low beam bisa dimodif nyala dua duanya?
» Fitur baru Readmore pada blogspot!
» [Blender] How to Cellshading
» Pasang comment Union pada commentar Blog mu
» perkenalan newbie biasa seperti yang lain pada umumnya

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