This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - selectcoaxial
16
« on: July 24, 2011, 08:17:02 am »
Darl gave me before a routine to display a text on the screen but that wasn't really what I was looking for so using Axeguess example, I've been trying to get input from user as follow:
1. "Input Number" is displayed on the screen
2. Number is input until user presses Enter
3. Number input is displayed on the screen
This is what I've come up with so far, I use 3→{length(A)+A} to add a byte at the end of an existing number in the memory like using lists in BASIC. 3→LX(1+dim(LX, if it works
.INPUTNO
"Input Number"→Str0
ClrHome
Disp Str0
sub(I)
Disp A,i
If getKey(15)
ClrHome
End
Lbl I
0→A
getKeyüK
Repeat getKey(9)
If K=36:7→{length(A)+A}
If K=35:4→{length(A)+A}
If K=34:1→{length(A)+A}
If K=28:8→{length(A)+A}
If K=27:5→{length(A)+A}
If K=26:2→{length(A)+A}
If K=20:9→{length(A)+A}
If K=19:6→{length(A)+A}
If K=18:3→{length(A)+A}
End
Goto I
I got an ERR: MISSING END during the compiling. Any help?
Edit: AXEGUESS in Axe 1.0.1 is exactly the same as the code in Axe 0.5.3 so I don't think it's outdated.
17
« on: July 24, 2011, 08:07:51 am »
I have no idea, this comes with the axe 0.5.3 package
18
« on: July 24, 2011, 07:58:48 am »
beginner question, how do you get r1 and r2 on the graphics calculator?
19
« on: July 24, 2011, 06:44:43 am »
In Axe example Axeguess, there are a few lines of code that confuses me.
1. While B-9→B>9:End, what is this for?
2. rand→B, this would make a random number all the way from 0 to 65000ish so how is this going to be contained within 0-9?
3. ReturnIf A 'not equal to' 0. why is the return here? isn't A not equal to 0 what the author wants?
4. Is there a way to display the user input number onto the screen at a specified coordinate and not as a text but something like Output( in TI-BASIC?
.GUESS
"GUESS THE NUMBERüStr1
"TOO HIGH!üStr1H
"TOO LOW!üStr1L
"YOU WIN!üStr1W
DiagnosticOff
Lbl MN
ClrHome
Disp Str1
rand→B
While B-9→B>9:End
Lbl M
sub(1)
If K=15
ClrHome
Return
End
If A>B
Disp Str1H,i
Goto M
End
If A<B
Disp Str1L,i
Goto M
End
Disp Str1W,i
Pause 2000
ClrHome
Return
Lbl 1
0→A
getKey→K
If K=36:7→AEnd
If K=35:4→AEnd
If K=34:1→AEnd
If K=28:8→AEnd
If K=27:5→AEnd
If K=26:2→AEnd
If K=20:9→AEnd
If K=19:6→AEnd
If K=18:3→AEnd
ReturnIf K=15
ReturnIf A not equal to 0
Goto 1
20
« on: July 24, 2011, 02:55:48 am »
thank you
21
« on: July 24, 2011, 01:55:52 am »
Is there a way for Axe to input user's numbers? I looked at the command list of axe and there's a 'input' command. Anyone know how to use it?
22
« on: July 24, 2011, 01:38:10 am »
Oh, I think I know what I've been doing wrong all along now. Thanks for your help!
23
« on: July 24, 2011, 01:07:55 am »
The reason I edited to {Str1 + 2I - 2} was because each byte in the string with 16 letters represents a letter. So if I=1, position in the string (p) is 0; I=2, p=2, I=3, p=4 and so on. 2I-2 is the order of the 'th' in the string as 'I' increases.
I tried to put Pause 1900 at the end of the code and ran the program, the program paused for a while but still doesn't display anything.
24
« on: July 24, 2011, 12:41:40 am »
I modified my post above.
25
« on: July 24, 2011, 12:26:02 am »
I've tried what you said and it compiled nicely. I ran the program, it ran but the program return anything, it just says Done.
I want a 16-letter string so that's 32 0's for defining the string
.RANDTXT
[00000000000000000000000000000000]→Str1
"0123456789-+/*^,()"→Str0
For(I,1,16
{rand^18+Str0}→{Str1+2I-2}
End
Disp Str1
Why doesn't it display the string?
26
« on: July 23, 2011, 01:11:33 am »
or would it be better if I try to do this
{Str0+rand^18}→Str1?
Make a string with the byte at rand^18 of the string Str0 is pointing to and reference it with Str1?
27
« on: July 23, 2011, 12:22:40 am »
Hi, I'm trying to create a new string randomly with letters from another string. This is what I have so far and it keeps giving me Bad Symbol error. I'm using Axe 0.5.3.
.RANDTXT
"0123456789-+/*^,()"→Str0
{Str0}+rand^18→Str1
Disp Str1
28
« on: June 01, 2011, 08:09:05 am »
I used [2nd] [9] for the "v" in "appv" but I used lower cases for "app" because I didn't know where they are.
Edit: Sorry, I just re-read the documentation, and I found the token.
29
« on: June 01, 2011, 07:19:45 am »
Hi, I'm really new to this. I'm trying to change the value of an appvar from another program. The appvar already exists and was created by another program, it is currently placed in Archive. So this is what I've been doing:
.CHANGE VALUE OF APPVAR
"appvTest"→Str9
UnArchive Str9
GetCalc(Str9)→P
3000→S
If P
If S>{P}r
S→{P}r
End
End
Then I compiled this for MirageOS. After selected and ran the program, I went into the original program that created appvTest and see whether the appvar has changed, and it still has the same value. Can you help me, please? Thank you.
|
Show Posts