Loading ...
Sorry, an error occurred while loading the content.
 

RE: [Clip] Help with Note Tab

Expand Messages
  • Larry Thomas
    Hi Kevin, ... I could only get your clip to work by setting up a second variable (%8%) and a second If test and a second keyboard command to accompany it. It
    Message 1 of 59 , Mar 4, 2004
      Hi Kevin,

      At 09:57 AM 3/4/04 -0500, you wrote:
      >Sorry people had the StrRandom incorrectly set. The following is now
      >correct.
      >
      >
      >^!Set %Counter%=^?[Repeat count]
      >:Start
      >^!If ^%Counter% < 1 End
      >^!Dec Counter
      >^!Set %num2%="^$StrRandom(1;1..3)$"
      >^!If "^%num2%" = "1" Next ELSE Skip
      >^!Set %6%="Mein"
      >^!If "^%num2%" = "2" Next ELSE Skip
      >^!Set %6%="Elf"
      >^!If "^%num2%" = "3" Next ELSE Skip
      >^!Set %6%="Jung"
      >^!If "^%6%" = "Mein" Next ELSE Skip
      >^!Set %7%="My"
      >^!If "^%6%" = "Elf" Next ELSE Skip
      >^!Set %7%="Eleven"
      >^!If "^%6%" = "Jung" Next ELSE Skip
      >^!Set %7%="Young"
      >^!Set %num1%="^?{^%6%}"
      >^!IfSame "^%num1%" "^%7%" Next ELSE Skip
      >^!Keyboard #Correct ^%7% ^%6%# Enter
      >^!IfDiff "^%num1%" "^%7%" Next ELSE Skip
      >^!Keyboard #Sorry ^%7% ^%6%# Enter
      >^!GoTo Start

      I could only get your clip to work by setting up a second variable (%8%)
      and a second If test and a second keyboard command to accompany it. It is
      messy but it does work. You get a correct response whether you enter
      eleven or 11 for elf so there you have it.

      ^!Set %Counter%=^?[Repeat count]
      :Start
      ^!If ^%Counter% < 1 End
      ^!Dec Counter
      ^!Set %num2%="^$StrRandom(1;1..3)$"
      ^!If "^%num2%" = "1" Next ELSE Skip
      ^!Set %6%="Mein"
      ^!If "^%num2%" = "2" Next ELSE Skip
      ^!Set %6%="Elf"
      ^!If "^%num2%" = "3" Next ELSE Skip
      ^!Set %6%="Jung"
      ^!If "^%6%" = "Mein" Next ELSE Skip
      ^!Set %7%="My"
      ^!If "^%6%" = "Elf" Next ELSE Skip_2
      ^!Set %7%="Eleven"
      ^!Set %8%="11"
      ^!If "^%6%" = "Jung" Next ELSE Skip
      ^!Set %7%="Young"
      ^!Set %num1%="^?{^%6%}"
      ^!IfSame "^%num1%" "^%7%" Next ELSE Skip
      ^!Keyboard #Correct ^%7% ^%6%# Enter
      ^!IfSame "^%num1%" "^%8%" Next ELSE Skip_2
      ^!Keyboard #Correct ^%8% ^%6%# Enter
      ^!Goto Start
      ^!IfDiff "^%num1%" "^%7%" Next ELSE Skip
      ^!Keyboard #Sorry ^%7% ^%6%# Enter
      ^!GoTo Start

      Regards,

      Larry
      lrt@... e¿ê
    • Larry Thomas
      Hi Kevin, I was just playing around and I reduced the number of lines in the original clip from 30 to 22. And it still works fine. ^!Set %Counter%=^?[Repeat
      Message 59 of 59 , Mar 4, 2004
        Hi Kevin,

        I was just playing around and I reduced the number of lines in the original
        clip from 30 to 22. And it still works fine.

        ^!Set %Counter%=^?[Repeat count]
        :Start
        ^!If ^%Counter% < 1 End
        ^!Dec Counter
        ^!Set %num2%="^$StrRandom(1;1..3)$"
        ^!If "^%num2%" = "1" Next ELSE Skip
        ^!Set %6%="Mein"; %7%="My"
        ^!If "^%num2%" = "2" Next ELSE Skip
        ^!Set %6%="Elf"; %7%="Eleven"; %8%="11"
        ^!If "^%num2%" = "3" Next ELSE Skip
        ^!Set %6%="Jung"; %7%="Young"
        ^!Set %num1%="^?{^%6%}"
        ^!IfSame "^%num1%" "^%7%" Correct
        ^!IfSame "^%num1%" "^%8%" Correct2

        ^!Keyboard #Sorry ^%7% ^%6%# Enter
        ^!Goto Start
        :Correct
        ^!Keyboard #Correct ^%7% ^%6%# Enter
        ^!Goto Start
        :Correct2
        ^!Keyboard #Correct ^%8% ^%6%# Enter
        ^!Goto Start

        Regards,

        Larry
        lrt@... e¿ê
      Your message has been successfully submitted and would be delivered to recipients shortly.