In het klassieke raadspel van Hangman , wordt een verborgen woord openbaarde een letter in een tijd als de speler gissingen de brief . Als de speler raadt een letter niet in het woord , een tekening van een man op een galg komt gestaag dichterbij te voltooien . Herscheppen van dit spel in de Microsoft Visual Basic is eenvoudig . Er zijn geen ingewikkelde regels en geen echte strategie die moet worden geprogrammeerd . Een eenvoudige gebruikersinterface en een aantal eenvoudige code zijn alles wat je nodig hebt . Wat je nodig hebt Microsoft Visual Basic Toon Meer Aanwijzingen 1 Start een nieuw project in Microsoft Visual Basic en maak een nieuwe Windows-formulier . Dit zal de hoofdgebruikersinterface en de enige vorm die moet worden geschapen . Op dit formulier plaats 26 labels of knoppen , een voor elke letter , in een controle -array gerangschikt in een mooie rooster aan de rechterkant van het formulier . Plaats een foto doos controle op de linkerkant van het formulier . Langs de bodem , plaats label controles , een voor elke lege ruimte , met genoeg voor de letters in het langste woord . De tekst van elke controle wordt een onderstrepingsteken . Ook aan de onderkant , plaats een " Quit " knop en een "New Game " knop . Maak een imagelist besturingselement op het formulier en laad het met beelden van de verschillende stadia van de gehangene , van lege galg in het begin tot een volledig getekende man en " Game over " aan het einde . Tot slot , maak een globale stringvariabele dat het woord om te gebruiken voor het huidige spel zal slaan . Kopen van 2 Maak een lijst met woorden die gebruikt zal worden en deze opslaan in een tekstbestand in dezelfde map als het project . In de " Form_Load " event van de belangrijkste vorm , voeg code die de tekst bestand wordt geladen in een array van strings . Bij gebruik van Visual Basic 6.0 , zou de code om het tekstbestand te lezen iets als dit : Open bestand voor invoer als # 1Terwijl niet EOF ( 1 ) zwaard = lijningang # 1WendClose ( 1 ) 3 Stel de gebruikersinterface voor de eerste wedstrijd . In een lus , stel alle van de brief knoppen worden ingeschakeld . Zet alle van de blanco brief etiketten te worden verborgen en zet de beeldinstelling aan het imago van de lege galg worden van de imagelist . 4 Voeg een event handler voor de " New Game " knop . In het, pak een willekeurig getal tussen 1 en het aantal elementen in de array- woord , dan krijgt het woord op die array positie . Vind de lengte van het woord en maken dat veel van de lege brief labelt zichtbaar . Zet alle van de blanco brief etiketten te worden verborgen en zet de beeldinstelling aan het imago van de lege galg van de imagelist zijn. Dit werd gedaan aan de belasting van het formulier ook. Te coderen slaan , kan de " Form_Load " event worden gedaan om gewoon bellen met de nieuwe game "Click Event ' , zodat het laden van het formulier automatisch een nieuw spel . 5 Voeg een gebeurtenis click op de controle array voor de letter toetsen . In de event handler voor de knop , controleer dan of het huidige spel woord bevat die letter . Als dat zo is , verandert het label voor de brief die voortvloeit uit een underscore aan de geselecteerde letter . Vervolgens stelt u de eigenschap van de aangeklikte knop enabled op " False " en kan dus niet meer worden geklikt . Dit zal ook een visuele indicatie van de letters die zijn geprobeerd zijn . Als de gekozen letter niet in het spel woord , verhoog de afbeelding in de picture box naar de volgende afbeelding in de lijst van afbeeldingen . Als de volgende afbeelding is de " Game over " imago , dan is het spel afgelopen en alle van de brief toetsen moet worden ingesteld op gehandicapten . 6 Voeg een gebeurtenis click op de " Quit " knop die gewoon eindigt het programma ( met behulp van Visual Basic 's " End" statement ) .
|