über meinen Nummernblock z.B. die Taste 1 drücken für das Ereignis welches mit der Button 1_click sub verbunden ist

Coi · 7. Juli 2022, 21:35

Ausgelagert aus Tastenkürzel abfangen funktioniert nur bei leerer form – Bitte keine uralten Threads mit neuen Fragen ausgraben!

Hallo,

ich habe hier zusätzlich noch ne Frage:

Ich habe in meiner Form 3 Buttons zur Auswahl.
Je nach dem welcher Button gedrückt wird wird im Anschluss bei allen Buttons die .Enabled Funktion auf FALSE gesetzt - was auch so passt da meine quasi keine "zweite" Auswahl haben soll.

Ich möchte jedoch die Clicks umgehen und statt der Button 1 / 2 / 3 - Click Funktion lieber über meinen Nummernblock z.B. die Taste 1 drücken für das Ereignis welches mit der Button 1_click sub verbunden ist.

Kann mir hier jemand helfen?

Keypress? Sendkey?

ErfinderDesRades · 7. Juli 2022, 23:39

ja, KeyPress - gibts ein Problem damit?

RodFromGermany · 8. Juli 2022, 05:47

@Coi Willkommen im Forum. :thumbup:

Werden Deine Tastan auch wieder ge-Enabled?
Gib der Form im Designer .KeyPreview = True und nimm Dir das KeyDown- oder das KeyUp-Ereignis.
Bei KeyPress schlägt AutoRepeat zu, was Du ja wohl nicht haben willst.
Werte den Tastancode aus und tue, was zu tun ist.

VaporiZed · 8. Juli 2022, 09:06

Was ja auch alles schon im Ursprungsthread steht

Coi · 13. Juli 2022, 21:24

@RodFromGermany:
Danke, hat mir sehr geholfen. Werde es nun mit dem KeyUp Ereignis probieren.

Hätte da noch grundsätzlich ne Frage - kenne die Basics, bin aber KEIN Programmierfreak!:

Will in meiner Form 42x (!) nacheinander eine Abfrage (eben hier .Keyup) nach Numblock Taste 0/1/2/3 haben - vermutlich in Form einer neuen Form...
ODER die Abfrage in ein und derselben Form -bezogen jeweils auf eine Textbox, Button oder Ähnliches das nach einer Tasteneingabe abfrägt.
NACH der Eingabe soll jeweils (vermutlich mit nem Focus) auf die nächste Abfrage gesprungen werden.

Das Auslesen (hier 0,1,2,3) soll in einen Wert umgewandelt werden bzw. eine Variable (zum Zählen) gespeichert werden.

Gibt es die Möglichkeit
* der Abfrage in derselben Form
* dem Focus setzen auf die jeweils nächste Abfrage?

Ihr könnt mir auch gerne eine PM schicken. Bin über jede Hilfe dankbar.

Als ich damals "programmiert" habe hatte ich nur Pascal, Assembler und nen kleinen Teil QBasic

Panter · 14. Juli 2022, 05:22

Hallo Coi

Der grundsätzliche Ablauf wäre wohl, dass Du das Array/Datatabel durchläufst.

Ich denke du solltest dir folgendes überlegen:

Wie möchtest Du die Fragen speichern?
z.B. in einem Array, in einer Datatable

Bleibt es bei 42 Fragen?

Was muss mit dem Total Punkte passieren - sollen diese Ergebnisse gespeichert werden?

Hier Link für Array - vorallem der Punkt Durchlaufen eines Arrays
docs.microsoft.com/de-de/dotne…language-features/arrays/

Hier Link für Datenbank
vb-paradise.de/index.php/Threa…iten-einfachste-Variante/

LG Panter

RodFromGermany · 14. Juli 2022, 05:41

@Coi Lass das alles in einer Form.
KeyPreview = True
Nimm Form_KeyDown oder -Up, pack die Controls, die den Fokus kriegen sollen, in der richtigen Reihenfolge in ein Array:

VB.NET-Quellcode

Dim ctrls = { Button1, CheckBox2, Button42 }

merke Dir den Index in einer Klassenvariable MyIndex und zähle ihn hoch, wenn die Aktion erfolgreich war: MyIndex += 1.
Fokussiere ctrls(MyIndex).Focus()

Coi · 14. Juli 2022, 18:14

Hallo,

Danke für die Hilfe.
Also grob kenne ich mich nun aus.

Ich möchte quasi nen "Start"-Button.
Danach soll ich jedes Mal gefragt werden, welche Taste ich drücke (0,1,2,3).
Und das ganze x-mal (hier42).
Jeweils der Wert für die Eingabe soll gespeichert werden als Zahl:

Konkret:
1.Abfrage-Eingabe "A" - z.B. 3 -> Wert "6" in Variable A1(1,1)
1.Abfrage-Eingabe "B" - z.B. 2 -> Wert "4" in Variable B1(1,1)
2.Abfrage-Eingabe "A" - z.B. 3 -> Wert "12" in Variable A2(1,2)
2.Abfrage-Eingabe "B" - z.B. 2 -> Wert "8" in Variable B1(1,2)

Die jeweiligen A-Werte bzw. B-Werte sollen nach jeder Abfrage addiert werden und gesondert (z.B. Label / Textfeld) upgedatet angezeigt werden.

Etz. muss ich mich mal mit der Syntax auseinandersetzen und mal "billige" Beispiele erüben

RodFromGermany · 14. Juli 2022, 18:27

@Coi Statt zu fragen, welche Taste Du drücken willst, mach Dir einen Dialog mit allen Tasten drauf, da kannst Du dann drauf klicken und das ergebnis per Property an das Hauptprogramm übergeben:
Dialoge: Instanziierung von Forms und Aufruf von Dialogen

Coi · 14. Juli 2022, 21:23

Na,

im Dialog soll eben NUR 0,1,2,3 als Eingabe dienen.
Als Wert soll etwas anderes übergeben werden.

Im ERSTEN Versuch 0 Treffer, 1 Treffer, 2 Treffer oder 3 3 Treffer
Bei 0 wird zu einem Startwert (integer) ein -Wert addiert
Bei 1 ein "a"x2 Wert
Bei 2 ein "a"x4 Wert
Bei 3 ein "a"x6 Wert

und das ganze für ZWEI Teilnehmer.
Daher grundsätzlich zwei Variablen.

Jeder Teilnehmer hat 21 Durchgänge, also 42 Abfragen.
Pro Durchgang zuerst
Teilnehmer A Abfrage
dann
Teilnehmer B Abfrage

Und anstatt alles anzuklicken (per Maus) - außer dem START Button soll eben nur per Nummernblock 0,1,2,3,4 je Durchgang (2 Teilnehmer) per Abfrage / MessageBox abgerufen, übermittelt und zum nächsten Teilnehmer jeweils übergeben werden.

Danach jeweils aufaddiert und separat das "Zwischenergebnis" angezeigt werden.

Und nach allen Durchgängen sieht man dann wer mehr hat

RodFromGermany · 15. Juli 2022, 05:46

@Coi Ich bin etwas verwirrt.
Das ganze sieht mir sehr nach einem Dictionary(Of TKey, TValue) aus. Schau mal hier vorbei:
docs.microsoft.com/de-de/dotne…dictionary-2?view=net-6.0
dotnetperls.com/dictionary-vbnet

Panter · 16. Juli 2022, 06:18

Hallo Coi

Ich habe mal ein paar Zeilen geschrieben - vielleicht kannst du ja etwas übernehmen. Das ganze ist noch sehr rudimentär gehalten - Ich würde das ganze in einer Datenbank speichern, Link habe ich Dir ja schon angegeben. Zudem könne man ja die Fragen in einer Textbox auf der Form anzeigen.

Vielleicht könnste Du uns ja mal deinen Code zeigen.

VB.NET-Quellcode

Public Class Form1
Dim db(3) As Fragespiel
Private Structure Fragespiel
Public Frage As String
Public Antwort1 As Long
Public Antwort2 As Long
Public Antwort3 As Long
End Structure
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Long = 0
'Zuerst Daten einpflegen - besser wäre es alles in einer Datenbank zu speichen oder xml Datei
db(i).Frage = "Ist die Welt rund?" & vbCr & "1 = heute schon" & vbCr & "2 gestern nicht" & vbCr & "3 heute keine Lust"
db(i).Antwort1 = 10
db(i).Antwort2 = 12
db(i).Antwort3 = 15
i += 1
db(i).Frage = "Ist die Welt blau?" & vbCr & "1 = heute schon" & vbCr & "2 gestern nicht" & vbCr & "3 heute keine Lust"
db(i).Antwort1 = 10
db(i).Antwort2 = 12
db(i).Antwort3 = 15
i += 1
db(i).Frage = "Ist die Welt grün?" & vbCr & "1 = heute schon" & vbCr & "2 gestern nicht" & vbCr & "3 heute keine Lust"
db(i).Antwort1 = 10
db(i).Antwort2 = 12
db(i).Antwort3 = 15
i += 1
db(i).Frage = "Ist die Welt pink?" & vbCr & "1 = heute schon" & vbCr & "2 gestern nicht" & vbCr & "3 heute keine Lust"
db(i).Antwort1 = 10
db(i).Antwort2 = 12
db(i).Antwort3 = 15
Call spielen() ' Kann auch über ein Button in der Form aufgerufen werden
End Sub
Sub spielen()
Dim i As Long = 0
Dim Spieler1 As Long = 0
Dim Spieler2 As Long = 0
Dim Ergebnis As Long = 0
'Durchgang 1 Spieler 1
For i = 0 To 3
Ergebnis = InputBox(db(i).Frage.ToString, "Spieler 1")
Select Case Ergebnis
Case 1
Spieler1 += db(i).Antwort1
Case 2
Spieler1 += db(i).Antwort2
Case 3
Spieler1 += db(i).Antwort3
End Select
Next
'Durchgang 1 Spieler 2
MsgBox("Jetzt darf Spieler 2!")
For i = 0 To 3
Ergebnis = InputBox(db(i).Frage.ToString, "Spieler 2")
Select Case Ergebnis
Case 1
Spieler2 += db(i).Antwort1
Case 2
Spieler2 += db(i).Antwort2
Case 3
Spieler2 += db(i).Antwort3
End Select
Next
MsgBox("Spieler 1 hat " & Spieler1.ToString & " Punkte" & vbCr & " Spieler 2 hat " & Spieler2.ToString & " Punkte")
End Sub
End Class

Coi · 16. Juli 2022, 20:20

Ja mit dem Frage.ToString komme ich nicht ganz klar.

Bei der 0,1,2,3 als Auswahl soll nicht die 0,1,2,3 gespeichert werden sondern jeweils für 0 ein Wert (immer eine NEGATIVE ganze Zahl)
Für 1 dieselbe Zahl ABER eben POSITIV
Für 2 der doppelte Wert der Zahl wie bei Auswahl 1
Für 3 der dreifache Wert der Zahl wie bei Auswahl 1

Panter · 16. Juli 2022, 20:30

Hallo Coi

Habe meinen Script noch angepasst: - ich gehe davon aus, dass die Spieler nicht dieselbe Frage beantworten.
Du Kannst bei Punkte immer angeben, wieviel Punkte man bei welcher Frage erhält.
Wenn Du mehr Fragen möchtest, einfach den Wert Dim db(4) As Fragespielerhöhen und entspechen mehr Fragen einfügen.

.ToString wandelt die Ausgabe in einen Text um.

Wichtig: Die Form muss folgende Textboxen haben:

TB_Spieler, TB_Frage, TB_Antwort1, TB_Antwort2, TB_Antwort3, TB_Antwort und ein Button BT_Start

Wichtig ist auch das das Ereignis funktioniert - evtl. musst Du doppelklicken auf die TB_Antwort.

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Dim db(4) As Fragespiel
Dim Aktuelle_Frage As Long
Dim Spieler As Long
Dim P_S1 As Long
Dim P_S2 As Long
Private Structure Fragespiel
Public Frage As String
Public Antwort1 As String
Public Antwort2 As String
Public Antwort3 As String
Public Punkte1 As Long
Public Punkte2 As Long
Public Punkte3 As Long
End Structure
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Long = 0
'Zuerst Daten einpflegen - besser wäre es alles in einer Datenbank zu speichen oder xml Datei
db(i).Frage = "Ist die Welt rund?"
db(i).Antwort1 = "heute schon"
db(i).Antwort2 = "gestern nicht"
db(i).Antwort3 = "heute keine Lust"
db(i).Punkte1 = 10
db(i).Punkte2 = 12
db(i).Punkte3 = 7
i += 1
db(i).Frage = "Ist die Welt eckig?"
db(i).Antwort1 = "heute schon"
db(i).Antwort2 = "gestern nicht"
db(i).Antwort3 = "heute keine Lust"
db(i).Punkte1 = 10
db(i).Punkte2 = 12
db(i).Punkte3 = 7
i += 1
db(i).Frage = "Ist die Welt blau?"
db(i).Antwort1 = "heute schon"
db(i).Antwort2 = "gestern nicht"
db(i).Antwort3 = "heute keine Lust"
db(i).Punkte1 = 10
db(i).Punkte2 = 12
db(i).Punkte3 = 7
i += 1
db(i).Frage = "Ist die Welt gelb?"
db(i).Antwort1 = "heute schon"
db(i).Antwort2 = "gestern nicht"
db(i).Antwort3 = "heute keine Lust"
db(i).Punkte1 = 10
db(i).Punkte2 = 12
db(i).Punkte3 = 7
i += 1
db(i).Frage = "Wie fängt man einen blauen Elephanten?"
db(i).Antwort1 = "Mit den Fingern"
db(i).Antwort2 = "Mit der Hand"
db(i).Antwort3 = "Mit dem blauen Elephanten Gewehr?"
db(i).Punkte1 = 1
db(i).Punkte2 = 12
db(i).Punkte3 = 100
Aktuelle_Frage = 0
End Sub
Private Sub BT_Start_Click(sender As Object, e As EventArgs) Handles BT_Start.Click
TB_Spieler.Text = "Spieler 1"
TB_Spieler.BackColor = Color.Red
TB_Frage.Text = db(0).Frage.ToString
TB_Antwort1.Text = db(0).Antwort1.ToString
TB_Antwort2.Text = db(0).Antwort2.ToString
TB_Antwort3.Text = db(0).Antwort3.ToString
TB_Antwort.Select()
Aktuelle_Frage = 1
Spieler = 1
P_S1 = 0
P_S2 = 0
End Sub
Private Sub TB_Antwort_TextChanged(sender As Object, e As EventArgs) Handles TB_Antwort.TextChanged
Dim Punkte_aktuelle_Frage As Long
''Frage auswerten
Select Case TB_Antwort.Text
Case "1"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte1
Case "2"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte2
Case "3"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte3
Case ""
Return
Case Else
MsgBox("bitte 1,2 oder 3 eingeben")
TB_Antwort.Text = ""
Return
End Select
If Spieler = 1 Then
P_S1 += Punkte_aktuelle_Frage
Else
P_S2 += Punkte_aktuelle_Frage
End If
'neue Frage stellen - wenn es noch hat..
If UBound(db) > Aktuelle_Frage Then
Aktuelle_Frage += 1
If Spieler = 1 Then
TB_Spieler.Text = "Spieler 2"
TB_Spieler.BackColor = Color.Yellow
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 2
Else
TB_Spieler.Text = "Spieler 1"
TB_Spieler.BackColor = Color.Red
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 1
End If
TB_Antwort1.Text = db(Aktuelle_Frage - 1).Antwort1.ToString
TB_Antwort2.Text = db(Aktuelle_Frage - 1).Antwort2.ToString
TB_Antwort3.Text = db(Aktuelle_Frage - 1).Antwort3.ToString
TB_Antwort.Text = ""
TB_Antwort.Select()
Else
MsgBox("Spieler 1 hat " & P_S1.ToString & " Punkte" & vbCr & " Spieler 2 hat " & P_S2.ToString & " Punkte")
End If
End Sub
End Class

aufgrund des Codeumfangs Spoiler hinzugefügt ~VaporiZed

Coi · 16. Juli 2022, 21:05

im Grunde stimmt das, nur das tatsächlich BEIDE Spieler jeweils pro "Runde" dieselben Fragen bekommen.

Bei mir sind es keine Fragen sondern "Treffer"...

also
"Wie viele Treffer in Runde 1?" Spieler 1 und 2 - jeweils Antowortmöglichkeiten: 0,1,2,3
"Wie viele Treffer in Runde 2?" Spieler 1 und 2 - jeweils Antowortmöglichkeiten: 0,1,2,3

Und nach JEDER Runde z.B. in nem Label den aktuellen Zwischenstand für jeden Spieler angeben und nicht per Messagebox einmalig zum Schluss . Ergo nach Runde X wissen dann beide immer woran sie sind...

Coi · 16. Juli 2022, 21:47

So, geändert:

In Runde EINS werden beiden Spielern die gleiche Frage gestellt.

Aber ab Runde zwei wird schon nach der Antwort von Spieler 1 zu Runde 3 gewechselt...

hmmm....

VB.NET-Quellcode

If UBound(db) > Aktuelle_Frage Then
If Spieler = 1 Then
TB_Spieler.Text = "Spieler 2"
TB_Spieler.BackColor = Color.Yellow
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 2
Else
TB_Spieler.Text = "Spieler 1"
TB_Spieler.BackColor = Color.Red
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 1
End If
Aktuelle_Frage += 1
TB_Antwort1.Text = db(Aktuelle_Frage - 1).Antwort1.ToString
TB_Antwort2.Text = db(Aktuelle_Frage - 1).Antwort2.ToString
TB_Antwort3.Text = db(Aktuelle_Frage - 1).Antwort3.ToString
TB_Antwort4.Text = db(Aktuelle_Frage - 1).Antwort4.ToString
TB_Antwort.Text = ""
TB_Antwort.Select()
Else
MsgBox("Spieler 1 hat " & P_S1.ToString & " Punkte" & vbCr & " Spieler 2 hat " & P_S2.ToString & " Punkte")
End If

-----------
hier noch die Werte für die Runden für Antwort und zu übermittelnder Wert

VB.NET-Quellcode

db(i).Frage = "Treffer Doppel 1:"
db(i).Antwort1 = "0"
db(i).Antwort2 = "1"
db(i).Antwort3 = "2"
db(i).Antwort4 = "3"
db(i).Punkte1 = -2
db(i).Punkte2 = 2
db(i).Punkte3 = 4
db(i).Punkte4 = 6
i += 1
db(i).Frage = "Treffer Doppel 2:"
db(i).Antwort1 = "0"
db(i).Antwort2 = "1"
db(i).Antwort3 = "2"
db(i).Antwort4 = "3"
db(i).Punkte1 = -4
db(i).Punkte2 = 4
db(i).Punkte3 = 8
db(i).Punkte4 = 12
i += 1
db(i).Frage = "Treffer Doppel 3:"
db(i).Antwort1 = "0"
db(i).Antwort2 = "1"
db(i).Antwort3 = "2"
db(i).Antwort4 = "3"
db(i).Punkte1 = -6
db(i).Punkte2 = 6
db(i).Punkte3 = 12
db(i).Punkte4 = 18
i += 1

CodeTags gesetzt ~VaporiZed

Panter · 17. Juli 2022, 07:05

Hallo Coi

Wenn beide Spieler dieselbe Fragen haben, musst du die Aktuelle_Frage += 1 in den Block von Spieler 2 eintragen, also 1 Zeilen nach oben verschieben.
Wenn Du die Punkte immer anzeigen willst, kannst Du ja eine Texbox einfügen, und diesen Wert zuweisen. Z.B. Tb_PunkteSP1.text = P_S1.ToString nachdem der Wert neu berechnet wurde.

Nachtrag: Wenn die Fragestruktur immer so weiter geht also am Schluss bei Frage Treffer Doppel 21 steht, kann natürlich auch auf die Variable DB verzichtet werden. TB_Frage.Text = "Treffer Doppel: " & Aktuelle_Frage.ToString , Bei den Antworten steht ja sowieso immer dasselbe und Punkte kannst du ja im Case Befehl entsprechnd mit der Aktuelle_Frage berechnen. Ach ja und If UBound(db) > Aktuelle_Frage Then könnte man mit If 22 > Aktuelle_Frage Then ersetzen.

LG Panter

Coi · 17. Juli 2022, 10:59

Ok, das mit dem Fragenwechsel funktioniert. Die Punkteausgabe haut auch hin - egal ob über ne Textbox oder ein Label.
Irgendwo laust mich der Affe warum Spieler 2 die falschen Punkte angezeigt bekommt - und das beginnt schon bei Frage 1.

Also:
Spieler 1 hat EINEN Treffer -> somit plus zwei Punkte.
Spieler 2 hat auch EINEN Treffer -> hier werden VIER addiert?

je höher die Fragen gehen, desto mehr bekommt fälschlicherweise Spieler 2 Punkte.

Bei Spieler 1 funzt die Rechnung.

Noch was:
Gibt es einen bestimmten Grund warum Du LONG anstatt INTEGER (oder sogar SHORT) verwendest?
Als Bereich wird -500 - +500 ausreichend sein.

Bei dem Array db(i) muss ich noch schauen ob ich es rausnehmen werde.
Ab Frage 5 bricht bei mir das Programm ab. i setzt doch lediglich die Anzahl der Fragen? (42), oderß Denn bei den Punkten und Antworten gibt es ja auch nen Bezug hierzu....

VB.NET-Quellcode

Select Case TB_Antwort.Text
Case "0"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte1
Case "1"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte2
Case "2"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte3
Case "3"
Punkte_aktuelle_Frage += db(Aktuelle_Frage - 1).Punkte4
Case ""
Return
Case Else
MsgBox("Bitte 0,1,2 oder 3 eingeben!")
TB_Antwort.Text = ""
Return
End Select
If Spieler = 1 Then
P_S1 += Punkte_aktuelle_Frage
Else
P_S2 += Punkte_aktuelle_Frage
End If
TB_PunkteSP1.Text = P_S1.ToString
TB_PunkteSP2.Text = P_S2.ToString
'neue Frage stellen - wenn es noch hat..
If UBound(db) > Aktuelle_Frage Then
If Spieler = 1 Then
TB_Spieler.Text = "Spieler 2"
TB_Spieler.BackColor = Color.Yellow
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 2
Aktuelle_Frage += 1
Else
TB_Spieler.Text = "Spieler 1"
TB_Spieler.BackColor = Color.Red
TB_Frage.Text = db(Aktuelle_Frage - 1).Frage.ToString
Spieler = 1
End If

CodeTags gesetzt ~VaporiZed

RodFromGermany · 17. Juli 2022, 11:27

@Coi Lerne zu debuggen:
Debuggen, Fehler finden und beseitigen

VaporiZed · 17. Juli 2022, 11:40

@Coi: Es wäre schön, wenn Du zukünftig selbständig das VB.NET-CodeTag um Deinen Code herum setzt. Die Moderation hat keine Lust, Dir dauernd hinterherzuräumen.

über meinen Nummernblock z.B. die Taste 1 drücken für das Ereignis welches mit der Button 1_click sub verbunden ist

über meinen Nummernblock z.B. die Taste 1 drücken für das Ereignis welches mit der Button 1_click sub verbunden ist

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben