Hallo,
Nun wollte ich mich an etwas neues wagen. Mein Ziel ist es ein
Schiffe versenken zu programmieren.
Nun habe ich mehrere Probleme.
Statt sie alle gleich rein zu posten, beginn ich mal mit dem ersten:
Also, der User soll in Textboxen angeben wo er seine Schiffe platziert,
dazu gibt er Zahlen von 1-25 ein.
Die Beschreibung einer Position mit einfachen Zahlen ist eher
etwas ungewöhnlich. Üblicherweise gibt man Position in einem
X-Y-Koordinatensystem an, also z.B.
X = Spalte_4
Y = Zeile_B
nun möchte ich die folgendermassen verbinden:
Dim Gewinnzustand As Boolean
Dim Looserzustand As Boolean
Dim erstesSchiff As Integer
Dim zweitesSchiff As Integer
Dim drittesSchiff As Integer
TextBox1.Text = erstesSchiff
TextBox2.Text = zweitesSchiff
TextBox3.Text = drittesSchiff
Do While Gewinnzustand = True
Wo ist das zugehörige Loop?
If CheckBox7.CheckState = CheckState.Indeterminate Then
If CheckBox16.CheckState = CheckState.Indeterminate Then
If CheckBox21.CheckState = CheckState.Indeterminate Then
Gewinnzustand = True
End If
End If
End If
If CheckBox(erstesSchiff).CheckState = CheckState.Indeterminate Then
If CheckBox(zweitesSchiff).CheckState = CheckState.Indeterminate Then
If CheckBox(drittesSchiff).CheckState = CheckState.Indeterminate Then
Looserzustand = True
End If
End If
End If
If Looserzustand = True Then
Exit Do
End If
ihr seht die zweite if-abfrage ist ein wenig seltsam.
Wenn der user die zahlen eingibt sollen diesen angeben
welche checkbox gecheckt werden muss um zu verlieren.
Die Logik, welche hinter Deinen Checkboxen steckt, verstehe ich zwar
nicht, aber ich vermute mal, dass es 25 CheckBoxen (CheckBox1 ...
CheckBox25) auf Deiner Form gibt.
Wenn Du diese nun über einen Index (1 ... 25, bzw. besser 0 ... 24)
ansprechen willst, kannst Du Deine Checkboxen in eine ListOf(CheckBox)
packen.
erstesSchiff, steht für den Standort.
gibt der user also 15 in die erste checkbox ein so sollte es
nachher so sein:
checkbox(15), aber wie kann ich das checkbox element und die
Variable verbinden???
Kopiere das nachfolgende Beispiel in ein leeres Formmodul (Form1.vb)
' / / / Code in Form1.vb
Public Class Form1
Private CBoxList As List(Of CheckBox)
Private WithEvents TextBox1 As TextBox
Private WithEvents btnClear As Button
Private mCBName As String
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
CreateControls()
End Sub
Private Sub CreateControls()
CBoxList = New List(Of CheckBox)
Dim i As Integer
Dim CB As CheckBox = Nothing
Dim Fnt As New Font("Arial", 12)
Dim Top As Integer = 10
Dim Left As Integer = 10
mCBName = "CheckBox"
For i = 1 To 25
CB = New CheckBox
With CB
.Name = mCBName & i.ToString
.Font = Fnt
.ThreeState = True
.CheckState = CheckState.Unchecked
.AutoSize = True
.Text = i.ToString.PadLeft(2, "0"c)
.CheckAlign = ContentAlignment.TopCenter
.Location = New Point(Left, Top)
If i Mod 5 = 0 Then
Top += 50
Left = 10
Else
Left += 50
End If
End With
Me.Controls.Add(CB)
' Checkbox der CBoxList hinzufügen
CBoxList.Add(CB)
Next
TextBox1 = New TextBox
With TextBox1
.Name = "TextBox1"
.Font = Fnt
.TextAlign = HorizontalAlignment.Right
.SetBounds(10, CB.Bottom + 20, 40, .Height)
End With
Me.Controls.Add(TextBox1)
Me.ClientSize = _
New Size _
(CBoxList(4).Right + 10, _
TextBox1.Bottom + 10)
Me.FormBorderStyle = _
Windows.Forms.FormBorderStyle.Fixed3D
btnClear = New Button
With btnClear
.Name = "btnClear"
.Font = New Font("Arial", 8)
.SetBounds _
(Me.ClientSize.Width - 70, _
TextBox1.Top, _
60, _
TextBox1.Height)
.Text = "Clear"
End With
Me.Controls.Add(btnClear)
End Sub
Private Sub TextBox_KeyPress _
(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
e.Handled = True
SetCB(DirectCast(sender, TextBox))
End If
End Sub
Private Sub SetCB(ByVal TB As TextBox)
Dim Idx As Integer
Dim CBox As CheckBox
If Integer.TryParse(TB.Text, Idx) Then
' TB.Text enthält eine Zahlendarstellung (Integer).
Select Case Idx
Case 1 To 25
' gültige Nummern 1 ... 25
Idx -= 1
CBox = CBoxList(Idx)
If CBox.CheckState <> CheckState.Indeterminate Then
' Checkbox hat noch nicht den Zustand .Indeterminate
CBox.CheckState = CheckState.Indeterminate
TB.SelectAll()
Exit Sub
End If
End Select
End If
' TB.Text enthält keine Zahlendarstellung (Integer)
' oder eine Zahl ausserhalb des Bereiches 1 ... 25
' oder hat bereits CheckState = Indeterminate
TB.Text = ""
Beep()
End Sub
Private Sub btnClear_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles btnClear.Click
Dim CB As CheckBox
For Each CB In CBoxList
CB.CheckState = CheckState.Unchecked
CB.Tag = Nothing
Next
TextBox1.Clear()
End Sub
End Class
' \ \ \ E N T E
Nach dem Programmstart siehst Du die Form1 mit 25 CheckBoxen
sowie einer Textbox (links unten) und einem Button "Clear" (rechts unten).
Trage in die TextBox Zahlen im Bereich 1 ... 25 ein und drücke
anschliessend die Eingabetaste. Die entsprechende Textbox
wird damit auf CheckState = Indeterminate gestellt.
Mit einem Klick auf den Button "Clear" werden alle Checkboxen
wieder in den Zustand CheckState = UnChecked versetzt.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
