Accueil > > > ALLEZ, POUR S'AMUSER... UNE CLASSE FORMULAIRE D'ATTENTE STYLE MATRIX
ALLEZ, POUR S'AMUSER... UNE CLASSE FORMULAIRE D'ATTENTE STYLE MATRIX
Information sur la source
Description
Bah, rien d'important... juste comment utiliser les anciennes fonctions du foxBase à des fins ludiques
Source
- * Basé sur un code de Olaf Doschke
- * et transformé en classe formulaire
- * à reserver aux traitements
- * qui ne souffriront pas d'un peu de CPU
- * en moins ...
-
- matrix = CREATEOBJECT("oMatrix", "INKEY(.01)=27")
- matrix.show()
-
- #DEFINE screenwidth 80
- #DEFINE screenheight 30
-
- DEFINE CLASS oMatrix as Form
- backcolor=RGB(0,0,0)
- fontname="Courier New"
- Caption="Reloadding..."
-
- FUNCTION init
- PARAMETERS cBreakCondition
- SET TALK off
- this.Width=screenwidth * FONTMETRIC(7, this.FontName, this.FontSize)
- this.Height=screenheight * FONTMETRIC(1, this.FontName, this.FontSize)+SYSMETRIC(9)
- this.AddProperty("BreakCondition", cBreakCondition)
- ENDFUNC
-
- FUNCTION activate
- DIMENSION protectedpositions[screenwidth,screenheight]
- DIMENSION trails[screenwidth,2]
- LOCAL cBreakCondition
- cBreakCondition = this.BreakCondition
-
- FOR x = 1 TO screenwidth
- FOR Y = 1 TO screenheight
- protectedpositions[x,y] = CHR(0)
- ENDFOR Y
- ENDFOR x
-
- DO WHILE .T.
- FOR ii = 1 TO 42
- x=INT(RAND()*screenwidth)
- Y=INT(RAND()*screenheight)
- IF protectedpositions[x+1,y+1] = CHR(0)
- this.FORECOLOR = RGB(0,RAND()*208,0)
- @Y,x SAY CHR(RAND()*224+32)
- ENDIF
- ENDFOR ii
-
- lntrail = RAND()*screenwidth+1
- IF EMPTY(trails[lntrail,1])
- trails[lntrail,1] = 1.0
- trails[lntrail,2] = RAND()*2.0+0.5
- ENDIF
-
- FOR lntrail = 1 TO screenwidth
- IF !EMPTY(trails[lntrail,1])
- lngreen = 255
- lcchar = CHR(RAND()*224+32)
- this.FORECOLOR = RGB(0,lngreen,0)
- Y = INT(trails[lntrail,1])
- IF Y<screenheight
- @ Y,lntrail-1 SAY lcchar
- protectedpositions[lntrail,y+1] = lcchar
- ENDIF
-
- FOR Y = Y-1 TO 0 STEP -1
- lngreen = MAX(lngreen - 7,0)
- IF lngreen >0
- this.FORECOLOR = RGB(0,lngreen,0)
- IF Y<screenheight
- @ Y,lntrail -1 SAY protectedpositions[lntrail,y+1]
- ENDIF
- ELSE
- IF Y<screenheight
- protectedpositions[lntrail,y+1] = CHR(0)
- ENDIF
- ENDIF
- ENDFOR Y
-
- trails[lntrail,1] = trails[lntrail,1] + trails[lntrail,2]
- IF trails[lntrail,1] > 1.5 * screenheight
- trails[lntrail,1] = 0
- FOR Y = 1 TO screenheight
- protectedpositions[lntrail,y] = CHR(0)
- this.FORECOLOR = RGB(0,0,0)
- @ Y,lntrail-1 SAY ' '
- ENDFOR Y
- ENDIF
- ENDIF
- ENDFOR lntrail
-
- cBreakCondition = this.BreakCondition
-
- DOEVENTS && FORCE
- IF &cBreakCondition
- EXIT
- ENDIF
-
- ENDDO
- RELEASE protectedpositions
- RELEASE trails
- this.release()
- ENDFUNC
-
- ENDDEFINE
-
-
* Basé sur un code de Olaf Doschke
* et transformé en classe formulaire
* à reserver aux traitements
* qui ne souffriront pas d'un peu de CPU
* en moins ...
matrix = CREATEOBJECT("oMatrix", "INKEY(.01)=27")
matrix.show()
#DEFINE screenwidth 80
#DEFINE screenheight 30
DEFINE CLASS oMatrix as Form
backcolor=RGB(0,0,0)
fontname="Courier New"
Caption="Reloadding..."
FUNCTION init
PARAMETERS cBreakCondition
SET TALK off
this.Width=screenwidth * FONTMETRIC(7, this.FontName, this.FontSize)
this.Height=screenheight * FONTMETRIC(1, this.FontName, this.FontSize)+SYSMETRIC(9)
this.AddProperty("BreakCondition", cBreakCondition)
ENDFUNC
FUNCTION activate
DIMENSION protectedpositions[screenwidth,screenheight]
DIMENSION trails[screenwidth,2]
LOCAL cBreakCondition
cBreakCondition = this.BreakCondition
FOR x = 1 TO screenwidth
FOR Y = 1 TO screenheight
protectedpositions[x,y] = CHR(0)
ENDFOR Y
ENDFOR x
DO WHILE .T.
FOR ii = 1 TO 42
x=INT(RAND()*screenwidth)
Y=INT(RAND()*screenheight)
IF protectedpositions[x+1,y+1] = CHR(0)
this.FORECOLOR = RGB(0,RAND()*208,0)
@Y,x SAY CHR(RAND()*224+32)
ENDIF
ENDFOR ii
lntrail = RAND()*screenwidth+1
IF EMPTY(trails[lntrail,1])
trails[lntrail,1] = 1.0
trails[lntrail,2] = RAND()*2.0+0.5
ENDIF
FOR lntrail = 1 TO screenwidth
IF !EMPTY(trails[lntrail,1])
lngreen = 255
lcchar = CHR(RAND()*224+32)
this.FORECOLOR = RGB(0,lngreen,0)
Y = INT(trails[lntrail,1])
IF Y<screenheight
@ Y,lntrail-1 SAY lcchar
protectedpositions[lntrail,y+1] = lcchar
ENDIF
FOR Y = Y-1 TO 0 STEP -1
lngreen = MAX(lngreen - 7,0)
IF lngreen >0
this.FORECOLOR = RGB(0,lngreen,0)
IF Y<screenheight
@ Y,lntrail -1 SAY protectedpositions[lntrail,y+1]
ENDIF
ELSE
IF Y<screenheight
protectedpositions[lntrail,y+1] = CHR(0)
ENDIF
ENDIF
ENDFOR Y
trails[lntrail,1] = trails[lntrail,1] + trails[lntrail,2]
IF trails[lntrail,1] > 1.5 * screenheight
trails[lntrail,1] = 0
FOR Y = 1 TO screenheight
protectedpositions[lntrail,y] = CHR(0)
this.FORECOLOR = RGB(0,0,0)
@ Y,lntrail-1 SAY ' '
ENDFOR Y
ENDIF
ENDIF
ENDFOR lntrail
cBreakCondition = this.BreakCondition
DOEVENTS && FORCE
IF &cBreakCondition
EXIT
ENDIF
ENDDO
RELEASE protectedpositions
RELEASE trails
this.release()
ENDFUNC
ENDDEFINE
Conclusion
merci à Olaf Doschke pour la base de fonctionnement.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
combobox dans un formulaire [ par brunaux ]
Bonjour à tous !utilisant VFP 6.0 occasionnellement pour faire des écrans de saisie,je voudrais savoir comment l'on fait dans un combobox(donc avec un
re-combobox dans formulaire [ par brunaux ]
Bonjour !merci thierry et mike pour votre aide si précieuse,je vais pouvoir me débrouiller maintenant et arriver à faire quelque chose qui marche ! me
formulaire ajustable [ par brunaux ]
Bonjour !merci thierry pour la reponse pour ajuster automatiquement un formulaire suivant la taille de l'ecran de l'utilisateur !encore merci
problème du serveur ole [ par h_adil ]
j'ai inseré un objet excel dabs une formulaire mais lorsque je passe du mode création au moode formulaire j'ai un message qui apparait "&nbs
Gestion d'objet [ par spoutnic_37 ]
Salutation, Mon probleme est le suivant : comment faire un ensemble de formulaire grace à visual foxpro 6, et gérer les
Formulaire premier niveau et enfant . [ par spoutnic_37 ]
aloha !!! Je voudrais faire apparaitre des formulaires enfants dans un formulaire parent. Je parametre donc avec showWindow et mdifor
formulaire-->Excel [ par Domatreal ]
Salut J'ai creer un formulaire et j'aimerais savoir si on pouvait exporter le resultat (tel qu'il apparait) dans un fichier excel. Merci bie
a faire et ne pas faire en VFP [ par brunaux ]
Je suis utilisateur occasionnel et en lisant une contribution dans ATOUTFOX il y a un article qui s'intitule ' a faire et ne pas faire en VFP' j'aimer
pb d'exe ! [ par spoutnic_37 ]
aloha , j'ai un probleme avec mon executable. En fait j'ai un formulaire qui possede les bonnes tables dans l
Formulaire [ par Domatreal ]
Salut J'aimerais savoir comment on peut creer (a l'aide d'un programme) un formulaire en fonction de la structure d'une table quelconque.En d'aut
|
Derniers Blogs
TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|