Loading presentation...

Present Remotely

Send the link below via email or IM

Copy

Present to your audience

Start remote presentation

  • Invited audience members will follow you as you navigate and present
  • People invited to a presentation do not need a Prezi account
  • This link expires 10 minutes after you close the presentation
  • A maximum of 30 users can follow your presentation
  • Learn more about this feature in our knowledge base article

Do you really want to delete this prezi?

Neither you, nor the coeditors you shared it with will be able to recover it again.

DeleteCancel

Mille VBA .Pz

Gerd Prinzhorn Planung des VBA-Programms "Schnapp dir die Million!"
by

Gerd Prinzhorn

on 17 April 2016

Comments (0)

Please log in to add your comment.

Report abuse

Transcript of Mille VBA .Pz

Schnapp dir
die Million!

Vorrunde
Hauptrunde
ein Formular
richtige Reihenfolge der angeklickten Antworten überprüfen
Möglichkeit zum Ändern der Auswahl vor Bestätigung
1 Fragefeld
Freigabe der Hauptrunde
Abfrage des Spielernamens
4 Antwortfelder
Überprüfung der gegebenen Antwort
wenn falsch:
Meldung und Option "Neues Spiel"
wenn richtig:
Erhöhung des Preisgeldes
Freigabe der SF "Nächste Frage"
SF "Bestätigen"
SF Joker "Hilfe" (2x zu verwenden)
SF "Nächste Frage"
Ausgabefeld "Preisgeld"
SF Joker "50:50"
SF Joker "Publikum"
Programmcode
Tabellenblätter
Startseite
Datenbank Vorrunde
Datenbank Stufe 1 bis 5
Hilfsseite für Zuordnung
Seite für Sieg/Niederlage
Datenbank nach Stufe auswählen
Zufallszahl zwischen 1 und Anzahl Fragen erzeugen
Eintragung in Formular
Für Vorrunde: Buchstaben in Variablen sammeln
Für Hauptrunde ausgewählte Antwort hervorheben
Gegebene Antwort mit richtiger Antwort vergleichen
Auswertung
Datensatz (Zellinhalte der ausgewählten Zeile) in Variablen
Zusatzfunktionen
Fehlerbehandlung
Highscoreliste
feste Gewinnstufen
AnzFrag = ActiveSheet.Range("A1").Value
Zuff = Int(AnzFrag * Rnd + 1)
AntwRichtig = ActiveCell.EntireRow.Cells(2).Value
Frage = ActiveCell.EntireRow.Cells(3).Value
AntwA = ActiveCell.EntireRow.Cells(4).Value
....
oder
For i = 2 to 11
Eintrag(i) = ActiveCell.EntireRow.Cells(i).Value
Next i
cbFrage.Caption = Frage
cbAntwortA.Caption = AntwA
....
oder
For i = 1 to 5
Userform1.Controls.Item("cbEintrag" & CStr(i)).Caption = Eintrag(i+2)
Next i
SammelVar = SammelVar & "A"
AktDaBa = "FraDaBa" & CStr(Stufe)
Sheets(AktDaBa).Select
Joker
Full transcript