Thema Datum  Von Nutzer Rating
Antwort
Rot Auswahl und "Übernahme" von best. Checkboxen
 18.12.2006 09:57:37 Luca
NotSolved
19.12.2006 12:31:09 Rasta
NotSolved
19.12.2006 13:17:41 Luca
NotSolved
20.12.2006 05:48:06 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Luca		 Datum:
18.12.2006 09:57:37		 Views:
3063		 Rating:
     
Antwort:
  Ja
Thema:
Auswahl und "Übernahme" von best. Checkboxen
Hallo zusammen,

ich versuche mit vba in Excel ein Programm für Kniffel zu schreiben.
Nun habe ich folgendes Problem bei der Programmierung der künstlichen Intelligenz. Nachdem der Computer weiß welche Würfel er behalten will sollte er diese auch markieren. (Checkboxen)
Bsp.: Nach dem 3.Mal Würfeln (Augen = 1; 4; 2; 4; 4) entscheidet sich der CPU diese Runde beim 3er Pasch einzutragen. Hierzu muss er aber erst mal die richtigen Checkboxen auswählen. Gibt es einen Befehl der sagt, dass der CPU die Zahl wählt, die sich in diesem Fall 3mal wiederholt und dann kopiert??????
Ich bin für jede Hilfe dankbar. Es ist ein Projekt für mein Studium und ich komm hier einfach nicht weiter....

So sieht das Programm aus:

hier aber noch eine kurze Erläuterung damit es schneller geht.

-Sub Dreierpasch_Wuerfeln() sagt, dass der PC sich für den 3erPasch entscheiden soll wenn 3 gleiche Zahlen auftauchen.
-Sub Dreierpasch_Computer()ist eine Plausibilitätsprüfung, ob bestimmte Bedingungen für den 3er Pasch gegeben sind.
-Sub Dreierpasch() lässt dann die Werte eintragen.
-Function Zaehle(Wert) As Integer wird genutzt um zu sehen wieviele gleiche Augenzahlen in den 5 Würflen vorkommen.

Wo könnte man den Befehl einfügen????

--------------------------------------------
Sub Dreierpasch_Wuerfeln()

'Dreierpasch

checkDrei = False
For i = 1 To 6
If Zaehle(i) = 3 Then checkDrei = True

Next
If checkDrei = True Then
Call Dreierpasch_Computer

ElseIf Zaehle(1) = 17 Then
Range("D13").Select
Call Dreierpasch

ElseIf Sheets(1).Cells(19, 4) = "" And ZaehleAlle >= 17 Then
Range("D19").Select
Call Chance


ElseIf Sheets(1).Cells(4, 4) = "" And Zaehle(1) = 3 Then
Range("D4").Select
Call Einer

ElseIf Sheets(1).Cells(5, 4) = "" And Zaehle(2) = 3 Then
Range("D5").Select
Call Zweier

ElseIf Sheets(1).Cells(6, 4) = "" And Zaehle(3) = 3 Then
Range("D6").Select
Call Dreier

ElseIf Sheets(1).Cells(7, 4) = "" And Zaehle(4) = 3 Then
Range("D7").Select
Call Vierer

ElseIf Sheets(1).Cells(8, 4) = "" And Zaehle(5) = 3 Then
Range("D8").Select
Call Fuenfer

ElseIf Sheets(1).Cells(9, 4) = "" And Zaehle(6) = 3 Then
Range("D9").Select
Call Sechser

End If
End Sub
-------------------------------------------------
Sub Dreierpasch()
Selection.Value = 0
For i = 1 To 6
If Zaehle(i) >= 3 Then
Selection.Value = Zaehle(1) + Zaehle(2) * 2 + Zaehle(3) * 3 + Zaehle(4) * 4 + Zaehle(5) * 5 + Zaehle(6) * 6
Exit For
End If
Next
End Sub
--------------------------------------------
Function Zaehle(Wert) As Integer
Anzahl = 0
For i = 1 To 5
If WuerfelWert(i) = Wert Then
Anzahl = Anzahl + 1
End If
Next
Zaehle = Anzahl
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswahl und "Übernahme" von best. Checkboxen
 18.12.2006 09:57:37 Luca
NotSolved
19.12.2006 12:31:09 Rasta
NotSolved
19.12.2006 13:17:41 Luca
NotSolved
20.12.2006 05:48:06 Rasta
NotSolved