10 replies to this topic

[betoe]

Hi guys i need some guys with a classpad (or classpad manager) who can test a little program i have made, i must be sure that this program dont have any bug for upload it on classpad.org. Please PM me or send me an e-mail for send you the mcs file. I have do about the 95% of that program but i have an error and i dont have any idea of what is that. The code is this:

Input dat,"Input the binary number","Binary"
If dat>1111111111111112 Or dat<0
Then
Message "The input number is out of range.","Logic Error"
Return
IfEnd
Int(dat)
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}=>bin
For 1=>cont To 16
If dat=0
Then
Break
IfEnd
dat/10=>dat
Frac(dat)*10=>div
Int(div)=>div
If div>1
Then
Message "Only type 1 or 0.","Logic Error"
Return
IfEnd
div=>bin[cont]
Next

I want to store a 16 bits binary data (the user type it) on an array, but this code have some problems when cont>14, by example if i type 1111111111111111 (=FFFF hex), in the array the last 3 "1" that i type dont be writed on the array, i have on that array a FFF8 hex. Its like when i make divisions etc... that data be erased.

Hope that somebody can help me.

[CrimsonCasio]

the classpad can only hold so many numbers, try using InputStr and the number will be stored as "1111111111111111", then use StrMid str,#,bin[#],1 to store it in the list. it will still be stored as a string, but if you do strToExp(bin[#])=>bin[#] it will be a number again.

if you have any quests just ask.

[Lovecasio]

Could you please send me one?

[betoe]

Well i want to write a string(dat) and store every element of that string in one cell of the list each string character, then compare each element for be sure that is a binary number, but i had some problems with it.

InputStr dat,"Input the binary number","Binary"
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}=>bin
StrLen "dat",size
StrMid "dat",size,bin[16]

[CrimsonCasio]

try this:

fill("0",16)=>dat
InputStr dat,"Input the binary number","Binary"
StrLen dat,size
For 1=>t To size
//this will fill the list backwards, that way if the string is not long enough the blanks in front will default to "0", thus not changing the number
StrMid dat,17-t,bin[17-t],1
Next
For 1=>t To 16
strToExp(bin[t])=>bin[t]
If bin[t]<>0 and bin[t]<>1
Then
Message "Improper number!","ERROR!"
Stop
IfEnd
Next

[betoe]

I will do it right now crimson, it seems that you are winning a place on the credits of my program

Edited:
Well your code works good crimson, but have a little problem, if i want to type "1111" i must do: "0000000000001111". I will try (tomorrow ) the way of concatenate a string of 16-t "0" for make the input string with the 16 elements size.

[CrimsonCasio]

there were some sentactical errors, use this code, it should work perfectly:

fill("0",16)=>bin
InputStr dat,"Input the binary number","Binary"
StrLen dat,size
For 1=>t To size
StrMid dat,size+1-t,bin[17-t],1
Next
For 1=>t To 16
strToExp(bin[t])=>bin[t]
If bin[t]<>0 and bin[t]<>1
Then
Message "Improper number!","ERROR!"
Stop
IfEnd
Next

[betoe]

Thanks it work so good Crimson. My program its finished now, i will test it a bit (come on beta testers). In about 16 hours more i will be online about 2 hours to send the mcs file to the guy who want it.

[CrimsonCasio]

send me one.

[betoe]

Well i send you the file Crimson. This is my first program for the Classpad, with some bad ways of programmation but i think that its good. If you think that this program is all ok and bugless, no more changes etc... upload it on your site and tell me, for make a post in a french forum, the UCF of course and upload it on classpad.org.

The main menu have 5 options, there are only 4 ways of introduce a numeric data, but for introduce a HEX number i do it of two ways, one pushing the "1" key and the other pushing the "5" key, of course both ones of the physical keyboard. The bad thing of this program is that the 2 ways of type an hex number are too slowly.

[betoe]

I upload the program to classpad.org, the link is:
16b converter

Damn i forgot put a readme file on the zip file. Well for input the hex number you can press the 1 or 5 key. If you push 1, then you can input the number using the pad of the classpad, ▲ and ▼ for change the number, [RIGHT] and [LEFT] for change the cursor of position.

If you choose 5, then you can input any number from 0 to 9, and for the letters (A~F) you can use = (for A),x(for ,y(for C),z(D),^(E) and /(F), and if you want to erase a number you have wrote, then press backward ( [->] ). For the other options (2,3,4) there is no problem.