I den klassiske gjettelek av Hangman , er en skjult ord avslørt én bokstav om gangen som spiller gjetter brevet. Hvis spilleren gjetter et brev ikke i ordet , får en tegning av en mann i en galge stadig nærmere å fullføre. Gjenskape dette spillet i Microsoft Visual Basic er enkel. Det er ingen kompliserte regler og ingen reell strategi som må programmeres . Et enkelt brukergrensesnitt og noen enkle koden er alt du trenger . Du trenger
Microsoft Visual Basic
Vis flere instruksjoner
en
starte et nytt prosjekt i Microsoft Visual Basic og opprette en ny Windows-skjema . Dette vil være den viktigste brukergrensesnittet og den eneste formen som må opprettes. På dette skjemaet sted 26 etiketter eller knapper , en for hver bokstav , i en kontroll matrise arrangert i en fin grid på høyre side av skjemaet . Legg ett enkelt bilde boks kontroll på venstre side av skjemaet . Langs bunnen , sted label kontroller, ett for hvert mellomrom , med nok for bokstavene i det lengste ordet . Teksten til hver kontroll vil være en understrek karakter. Også på bunnen , plassere en " Avslutt" -knapp og en " New Game "-knappen . Lag en imagelist kontroll i skjemaet og laste den med bilder av de forskjellige stadier av hengt mann, fra tomt galgen i starten til et fullt trukket mann og "Game over" på slutten. Til slutt oppretter en global streng variabel som lagrer ord å bruke for det aktuelle spillet .
2
Lag en liste over ord som skal brukes , og lagre dem i en tekstfil i samme mappe som prosjektet. I " Form_Load " hendelse av den viktigste formen , legge til kode som vil laste den tekstfilen til en rekke strenger . Hvis du bruker Visual Basic 6.0 , ville koden for å lese tekstfilen være noe sånt som dette : en
Åpen for Input som # 1While ikke EOF ( 1 ) sverd = linjeinngang # 1WendClose ( 1 )
3 Sett opp brukergrensesnittet for det første spillet . I en loop, angi alle brev for å være aktivert. Sett alle de blanke bokstavetiketter å være skjult og angi bildet kontroll for å være den tomme galge bildet fra imagelist .
4
Legg en hendelse behandleren for " New Game "-knappen . I den, plukke et tilfeldig tall mellom 1 og antall elementer i ordet array, så får ordet på denne matrisen posisjon. Finn lengden av ordet og gjør at mange av de tomme bokstavetiketter synlig . Sett alle de blanke bokstavetiketter å være skjult og angi bildet kontroll for å være den tomme galge bildet fra imagelist . Dette ble gjort ved belastning av skjemaet i tillegg. For å spare koding , kan " Form_Load " event gjøres å bare kalle det nye spillet "Klikk Event" slik at lasting skjemaet automatisk starter et nytt spill .
5
Legg en klikkhendelsen til kontroll array for brevet knappene. I tilfelle behandleren for knapp , sjekk om det aktuelle spillet ordet inneholder bokstaven. Hvis den gjør det, endre etiketten for brevet posisjon fra en understrek til den valgte bokstaven. Deretter stiller aktivert eiendom klikket knappen til " False ", så det kan ikke bli klikket igjen . Dette vil også være en visuell indikasjon av brevene som har blitt prøvd. Hvis den valgte bokstaven er ikke i spillet ord , øke bildet i bildeblokken til neste bilde i bildet listen. Hvis det neste bildet er det "Game over" bildet, og at spillet er slutt og alle brev knapper bør settes til funksjonshemmede.
6
Legg en klikkhendelsen til " Avslutt "-knappen som bare avslutter programmet (ved hjelp av Visual Basic er " End " statement ) .
