defgf67ay
Dołączył: 29 Paź 2010
Posty: 863
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: England
|
 Wysłany: Sob 11:48, 08 Sty 2011 Temat postu: microsoft outlook Prepared with interesting animat |
 |
|
Animated fun with the preparation of QBASIC
O638vIEWSCREEN (i, 1) a (i + l, 479), 4,5 NEXTiEND =. Suo a real character sitting on the train rolling Pago students will know the station's waiting room, there is a daughter board, continue to show the train of the situation. Rolled right word shown left. In the television program, also often see a message from the bottom of the screen continue to roll. -D master in fact this display is not difficult to achieve, can be done with QBASIC. Listing is as follows: CLSSCREEN12REM screen initialization LX = 40: Q: 15000: X = 12: Y = 20 (LX that shows the length; Q that shows the speed; X and Y coordinates that show) CH $ = HELLO! Howareyou? Whatisyourname? MyNameisMary! It'sgoodto8eeyou ...,[link widoczny dla zalogowanych]! REM string can be any length L = LEN (CH $) DIMT $ (L + l1FORi = lTOL + lT $ (i) = MID $ (cH $, i, 1) NE ) 【TiREM WHILEINKEY $ = REM initialize the array by any key to end the LOCATEX. YREM display coordinates FORK = 1TOLXPRINTT $ fK); NE) 【TKFORJ = 0TOQNEXTJREM delay QT $ (L + I) = T $ (1) FORi = lTOLT $ (i) = T $ (i +1) NEXTiREM data within the array pass each other in order to achieve the effect of rolling WENDEND inclusive history,,, v III. Breaking with OBABIC Bin shad produced five flowers par capsule statement of the program is to draw the six arc simulation cIRcLE fireworks. In order to effect real, legitimate use of a one-dimensional storage array radius, therefore,[link widoczny dla zalogowanych], the fireworks occur, arc small to large diffusion, the speed from fast to slow expansion of the enemy, circle from thick to thin, and finally disappeared, patterns appear multi-dimensional effect program list is as follows: CLSSCREENl2DIMC0l (10) COl (0) = 9: COl (1) = lO: Col (2) = l】 Col (3) = 12: Col (4) = 13: Col (5) = l4DIMA (150) b = 150F0RI = lTOl5013 = 13.0.95A (I) = 150-bNEXTIRept: x = INT (319 * RND (1)) y = INT (100 * RND (1)) z = INT (6 · RND (1)) F0Ri = lTO75IFI> 68THENGaslcCIRCLE (x,[link widoczny dla zalogowanych], y), a (i), col (z),[link widoczny dla zalogowanych], 0,0.6 CIRCLE (x, y), a (i), col (z), 1. 094,2.694 CIRCLE (x, y), a (i), col (z), 3.139.3.739CIRCLE (x, y), a (i), col (z), 4.187.4. 787CIRCLE (1, y), a (i), col (z), 5.232,5.832 SK: F0RK = lTO3000STEPl0NEXTKcIRCLE {X, Y), a (i.10), 0SKIP: NEXTIF0RK = lT0l0o0oSTEPlNEXTKG0T0reptEND ● Visua1Foxpro programming skills Four one. Customize the desktop, the toolbar to do is \This will obviously affect of the most efficient use, but also conducive to the small of the United States and close buttons,[link widoczny dla zalogowanych], try to view in your application. address this problem in fact very simple: add the following initialization code: in this Activate the toolbar or the InR in Canada with-SCREEN event into a line of code:. Backcolor = rgb (64,128,128) This.Dock (0). Caption = \Article type C ~ ntrolbox = F to go. h Ⅱ t Co:. F. IV. m transfer form. Menu. Public stomach =. Production of \ More articles related to topics：
ecco shoes outlet Helicopter vertical flight aerod
[link widoczny dla zalogowanych]
belstaff uomo Democracy, Political Reform and Rule
Post został pochwalony 0 razy
|
|
