|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Auswahl und "Übernahme" von best. Checkboxen |
18.12.2006 09:57:37 |
Luca |
|
|
|
19.12.2006 12:31:09 |
Rasta |
|
|
|
19.12.2006 13:17:41 |
Luca |
|
|
|
20.12.2006 05:48:06 |
Rasta |
|
|
Von:
Luca |
Datum:
18.12.2006 09:57:37 |
Views:
2859 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Auswahl und "Übernahme" von best. Checkboxen |
18.12.2006 09:57:37 |
Luca |
|
|
|
19.12.2006 12:31:09 |
Rasta |
|
|
|
19.12.2006 13:17:41 |
Luca |
|
|
|
20.12.2006 05:48:06 |
Rasta |
|
|