|
Visual Basic n'est pas très connu en tant que plateforme de développement pour les jeux. Mais la simplicité de son langage de base , BASIC, le rend approprié pour de nombreux types de jeux , y compris les jeux de devinettes traditionnelles. Ce que vous apprenez de codage d'un tel jeu va vous aider à programmer des jeux plus complexes. Multiplication jeu
Connaissant la nature et le déroulement du jeu crue est indispensable avant tout codage. Si vous êtes en manque d' eux, envisager un jeu mathématique simple . Le programme pose une question comme « Qu'est-ce que 15 fois quatre? " Le joueur soumet sa réponse , que les contrôles de programme pour l'exactitude mathématique .
Le entrée /sortie formulaire
concevoir le formulaire pour la saisie de l'utilisateur , en utilisant la spécification du jeu vient de donner . Le formulaire devra envoyé des messages texte de ces types : la question de mathématiques , telles que « Qu'est-ce que trois fois cinq? " La réponse montre la réponse du joueur comme " correct " ou " incorrect "; de préférence , un répertoire courant du score du joueur , c'est à dire , " Victoire : 3; Défaites: 1; Pct Victoires: . . 75,00 pour cent "
contrôles d'étiquettes distinctes peuvent être utilisées pour ces messages. Le programme doit contrôles d'entrée , aussi. Utilisez une zone de texte dans lequel le joueur entre dans sa réponse et un bouton pour envoyer la réponse.
Code pour commencer le jeu.
Le code pour lancer le jeu peut être appelé à partir de la sous-routine de chargement de la forme , qui est exécuté lorsque le formulaire d'importation est mise en mémoire au démarrage du programme .
Exemple de code
code de choisir deux numéros au hasard est nécessaire. De la routine Form1_Load , vous pouvez appeler une fonction qui prend ces chiffres et multiplie eux d'obtenir la bonne réponse à comparer la réponse du joueur . Votre code pourrait ressembler à ceci :
Private Sub Form1_Load (... *) Aléatoire ()
ShowMathQuestion ( ) End Sub
ShowMathQuestion Public Sub ()
quête As StringDim x, y As Integer
x = Int (Rnd () * 20) + 1a = Int (Rnd ( ) * 20 ) + 1
quête = x & " fois " et ycorrectAnswer = x * y
Label1.Text = quest ' afficher la question
End Sub
----------- ------------------------------------------------- * les arguments de la fonction sont omis pour plus de clarté . Visual Basic remplit ces en , vous n'avez pas à les taper
Vous aurez besoin du code pour vérifier la réponse du joueur quand elle pénètre dans la boîte de texte TextBox1 et appuie sur le bouton Button1
. . Private Sub Button1_Click (... ) « vérifier réponse
CheckUsersAnswer de l'utilisateur ()
End Sub
publique CheckUsersAnswer Sub ( ) Dim a Comme IntegerDim s Comme StringDim pctWin Comme simples
|
