I den klassiska gissningslek av Hangman är en dold ord avslöjade en bokstav i taget som spelaren gissar brevet. Om spelaren gissar en bokstav inte i ord , får en ritning av en man på en galge allt närmare att slutföra . Återskapa det här spelet i Microsoft Visual Basic är enkel . Det finns inga komplicerade regler och ingen verklig strategi som måste programmeras . Ett enkelt användargränssnitt och en del enkel kod är allt som du behöver . Saker du behöver
Microsoft Visual Basic
Visa fler instruktioner
1
starta ett nytt projekt i Microsoft Visual Basic och skapa ett nytt Windows-formulär . Detta kommer att vara den huvudsakliga användargränssnittet och den enda form som måste skapas . På denna blankett plats 26 etiketter eller knappar , en för varje bokstav , i en kontroll array arrangerade i en fin rutnät på höger sida av blanketten . Placera en enda kontroll bildblock på vänster sida av blanketten . Längs botten , placera etiketten kontroller , en för varje tomt utrymme , med tillräckligt för bokstäverna i det längsta ordet . Texten för varje kontroll ska ett understreck . Även i botten , placera en " Avsluta " -knappen och "Nytt spel " -knappen . Skapa ett imagelist kontroll i formuläret och ladda den med bilder av de olika etapperna i hängd mans , från tomma galgen vid starten till en helt dragen man och " Game over " på slutet . Slutligen , skapa en global variabel som kommer att lagra ord att använda för det aktuella spelet .
2
Skapa en lista med ord som kommer att användas och spara dem i en textfil i samma mapp som projektet . I " Form_Load " vid den viktigaste formen , lägga till kod som kommer att ladda textfil till en array av strängar . Om du använder Visual Basic 6.0 , skulle koden för att läsa textfilen vara ungefär så här :
Open för Input som # 1Ta inte EOF ( 1 ) svärd = linjeingång # 1WendClose ( 1 ) Addera 3 Ställ in användargränssnittet för det första spelet . I en slinga , som alla brev för att aktiveras . Ställ alla tomma brev etiketter som ska döljas och ställa in bilden kontrollen att vara den tomma galgen bilden från imagelist .
4
Lägg en händelsehanterare för " Nytt spel " -knappen . I det , plocka ett slumpmässigt nummer mellan 1 och antalet element i ordet array , sedan få ordet i denna array positionen . Hitta längden av ordet och gör att många av de tomma brev märker synliga . Ställ alla tomma brev etiketter som ska döljas och ställa in bilden kontrollen att vara den tomma galgen bilden från imagelist . Detta skedde vid en belastning av blanketten samt. För att spara kodning , kan den " Form_Load " händelse göras helt enkelt ringa det nya spelet " click-händelse " , så att lastning formuläret automatiskt startar ett nytt spel .
5
Lägg en klick händelse till kontroll array för bokstaven knapparna . I händelsehanterare för knapp , kontrollera om det aktuella spelet ordet innehåller den bokstaven . Om den gör det , ändra etiketten för bokstaven position från ett understreck till den valda bokstaven . Ställ sedan in egenskapen enabled den klickade knappen " False " så det går inte att klicka igen . Detta kommer också att vara en visuell indikering av breven som har prövats . Om vald bokstav är inte i spelet ordet , öka bilden i bilden rutan till nästa bild i bildlistan . Om nästa bild är det " Game over " bilden , då spelet är slut och alla brev knappar bör sättas till funktionshindrade . Lägg en klick händelse till " Avsluta " knapp som
6
bara avslutar programmet ( med hjälp av Visual Basic s " End " uttalande ) .
