-1

我的 GUI 和程序可以正常工作，但不如预期，所以请听我说。

我编写了这个程序，以 3 个类别的 1-10 个示例词的形式获取用户输入。

它的目的是输出一个包含每个三元组排列的文本文件。

不幸的是，它输出的排列不是三元组。

它不是很多代码，为什么会发生这种情况？

前任。

图形用户界面：

颜色数字希腊字母

红一阿尔法蓝二贝塔

输出：

红色一阿尔法 红色一贝塔 红色二阿尔法 红色二贝塔 蓝色一阿尔法 蓝色一贝塔 蓝色二阿尔法 蓝色二贝塔

///////////////////////////////////////// //////////////////////////////

#include <GUIConstantsEx.au3>

$windowWidth = 600
$windowHeight = 430

$textFieldVertSpacing = 30

GUICreate("Semantic Intuition/Idea Naming Tool", $windowWidth, $windowHeight) 

GUISetBkColor (0xB0E2FF)

GUICtrlCreateLabel("Category A", 80, 10)
GUICtrlCreateLabel("Category B", 260, 10)
GUICtrlCreateLabel("Category C", 450, 10)

$categoryA = GUICtrlCreateInput("", (150*0)+(150/4)*1, 40, 150)
$categoryB = GUICtrlCreateInput("", (150*1)+(150/4)*2, 40)
$categoryC = GUICtrlCreateInput("", (150*2)+(150/4)*3, 40)

$example0 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80)
$example1 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*1)
$example2 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*2)
$example3 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*3)
$example4 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*4)
$example5 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*5)
$example6 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*6)
$example7 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*7)
$example8 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*8)
$example9 = GUICtrlCreateInput("", (150*0)+(150/4)*1, 80+$textFieldVertSpacing*9)

$example10 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80)
$example11 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*1)
$example12 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*2)
$example13 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*3)
$example14 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*4)
$example15 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*5)
$example16 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*6)
$example17 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*7)
$example18 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*8)
$example19 = GUICtrlCreateInput("", (150*1)+(150/4)*2, 80+$textFieldVertSpacing*9)

$example20 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80)
$example21 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*1)
$example22 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*2)
$example23 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*3)
$example24 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*4)
$example25 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*5)
$example26 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*6)
$example27 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*7)
$example28 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*8)
$example29 = GUICtrlCreateInput("", (150*2)+(150/4)*3, 80+$textFieldVertSpacing*9)

$generateTriadButton = GUICtrlCreateButton("Generate", ($windowWidth-100)/2, $windowHeight-40, 100)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global $examplesA[10] = [$example0, $example1, $example2, $example3, $example4, $example5, $example6, $example7, $example8, $example9]
Global $examplesB[10] = [$example10, $example11, $example12, $example13, $example14, $example15, $example16, $example17, $example18, $example19]
Global $examplesC[10] = [$example20, $example21, $example22, $example22, $example24, $example25, $example26, $example27, $example28, $example29]

GUISetState(@SW_SHOW)                     


While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
         Case $generateTriadButton
            permutate()

            Exit
    EndSwitch

WEnd

Func permutate()

    $a = 0
    $b = 0
    $c = 0
    $x = 1

    $empty = ""

    $output = FileOpen(@ScriptDir & "\TriadOutput.txt", 2)

    While $a < 10
       while $b < 10
          while $c < 10


               ;MsgBox(0, "String length is:", StringLen($examplesA[$a]))
               If (StringStripWS(GUICtrlRead($examplesA[$a]), 8) <> "") AND (StringStripWS(GUICtrlRead($examplesB[$b]), 8) <> "") AND (StringStripWS(GUICtrlRead($examplesA[$a]), 8) <> "") Then

               FileWrite($output, $x)
               FileWrite($output, ")")
               FileWrite($output, " ")
               FileWrite($output, GUICtrlRead($examplesA[$a]))
               FileWrite($output, " ")
               FileWrite($output, GUICtrlRead($examplesB[$b]))
               FileWrite($output, " ")
               FileWrite($output, GUICtrlRead($examplesC[$c]))
               FileWrite($output, " ")
               FileWrite($output, @CRLF)

               $x = $x + 1

               EndIf

             $c = $c + 1
          WEnd
          $c = 0
          $b = $b + 1
       WEnd
       $b = 0
       $a = $a + 1
    WEnd

    FileClose($output)
EndFunc
4

1 回答 1

1

典型的复制粘贴错误。

只需将最后一个 If 语句（第 94 行）中的第二个 $a 替换为 $c ，它就会按预期工作......

您可以通过验证输出来发现这一点。问题是，每三个文本字段都被考虑在内，但其他两个词工作得很好。所以错误必须在负责第三个字段的表达式（条件）中。这只是在第 94 行...

于 2012-12-05T08:25:03.707 回答