CAD Spiel

[BlaoBlaoBlao]

Hallo Ich möchte gleich sagen das ich ganz neu bin und nicht wirklich gut in VB programmierung deswegen wende ich mich an euch

Also in der Schule sollen wir ein kleinen Spiel programmieren das wie folgt aus sieht.

Man hat ein Raumbild das gezeigt wird. 3 Seiten ansichten werden auch gezeit aber nur 1 ist Richtig und 2 sind Falsch (passen also nicht zum Raumbild)
nun soll man auf einen Button hinter den Seiten ansichten klicken können und bei dem Butten wo das Richtige ist soll man dann einen Punkte bekommen.

ich habe die Spiel oberfläche schon gestaltet und ich weiß auch wie ich die bilder in die einzellenen ImageBoxen stelle das ist mein Code dafür:

Private Sub Image1_Click()
Image1.Picture = LoadResPicture(1001)
End Sub

bitte könnte ihr mir helfen und mir sagen was ich schreiben muss damit wenn das richtige bild geklickt wird in einem extra Text Box die punkte gezäht werden. Da komme ich nicht drauf wie das geht.
Auch wie ich es machen soll das wenn es geklickt wurde das dann die nächste aufgabe kommt weiß ich nicht.


Danke und Gruß
BlaoBlaoBlao

 

[Mister master]

ganz einfach! man sagt, wenn jetzt sagen wir Picture1 das richtige ist:

Private Sub Picture1_click()
Msgbox"Richtig! Sie bekommen einen Punkt!"
Text1.Text = text1.text + 1

 

[BlaoBlaoBlao]

Meinst du dann so?

If Picture1_Click Then MsgBox"Richtig, Sie bekommen einen Punkt!"
And If Picture1_Click Then Text1.Text = text1.text + 1

ist das dann so?

und wie mach ich es dann das wenn ein bild geklickt wurde das dann ein neues Raumbild Geladen wird und neue Seiten ansichten

Könntest du mal einen kleinen code schreiben für 1 bild damit ich weiß wie es geht

 

[Mister master]

okay. Private Sub ist ein Befehl, schreib den Code einfach so hinein, wie ich ihn dir gegeben habe.

Um eine neue Aufgabe zu laden, würd ich dir empfehlen, wenn es nicht zu viele sind, pro Aufgabe eine Neue Form zu machen. Auf dieser Form sollte sich aber auch eine Textbox befinden. Schreibe den Code:

Private Sub Form_Load()
text1.text = form1.text1.text
End Sub

Das heißt, dass die Punkteanzahl von vorher auch wieder hier Reingeschrieben wird.

PS: es wäre sinnvoll, wenn du deinen Textboxen die Eigenschaft "enabled" auf "False" setzt, damit man die Punkte nicht selber verändern kann.