# Temp Conversion Program For Fx-5800P

fx-5800P Input Box

No replies to this topic

### #1 Krtyski

Krtyski

• Members
• 88 posts
• Gender:Male
• Location:Tokyo, Japan
• Interests:programming, smooth Jazz and 4-wheel driving.

• Calculators:
FX-502P, FX-602P, fx-603P,
fx-4500P, fx-5800P,
fx-9860GII-2(SH4A),
fx-9860GII SD,
fx-CG20,
fx-CG50

Posted 12 July 2015 - 05:28 PM

Here is a sample program how to use Input Box for fx-5800P,

I have posted about Input Box here. This Temp Conv program is introduced input operation in the article with some photo of fx-5800P display.

I believe Input Box makes your Casio Basic program more user friendly and gives good usability (better visibility and perspicuity) to a sort of conversion program.

File Name: TempConv

```0→A
While 1

Cls
"1:          ˚C"
"2:          ˚F"
"3:           K"
If A:Then
Locate 4,1,C
Locate 4,2,F
Locate 4,3,K
IfEnd
Locate 13,1,"˚C"
Locate 13,2,"˚F"
Locate 13,3," K"
Locate 1,4,"<EXIT>"
Locate 11,4,"<FMLA>"

-1→M
Do
Getkey→L
LpWhile L=0
L=35⇒1→M
L=36⇒2→M
L=37⇒3→M
L=74⇒4→M
L=73⇒Break

Locate 1,4,"               "
If M=1:Then
4→X:1→Y:9→D:2→E
Prog "IN":Z→C
(9÷5)C+32→F
C+273.15→K
1→A
Else If M=2
Then
4→X:2→Y:9→D:2→E
Prog "IN":Z→F
5(F-32)÷9→C
C+273.15→K
1→A
Else If M=3
4→X:3→Y:9→D:2→E
Prog "IN":Z→K
K-273.15→C
(9÷5)+32→F
1→A
Else If M=4
Then
Cls
Locate 2,1,"C = 5(F-32)÷9"
Locate 2,2,"F = (9÷5)C+32"
Locate 2,3,"K = C+273.15"
Locate 11,4,"<EXIT>"
While Getkey≠73
WhileEnd
While Getkey
WhileEnd
IfEnd:IfEnd
IfEnd:IfEnd

WhileEnd
Cls
Locate 7,2,"BYE!"
```

Just for comparison, below is a program using only Casio Basic input command;

File Name: TC

```0→A
while 1

Cls
"1:　　　　　 ˚C"
"2:　　　　　 ˚F"
"3:　　　　　　K"
If A:Then
Locate 4,1,C
Locate 4,2,F
Locate 4,3,K
IfEnd
Locate 13,1,"˚C"
Locate 13,2,"˚F"
Locate 13,3," K"

Cls
If M=1:Then
"˚C"？C
C(9÷5)+32→F
C+273.15→K
1→A
Else If M=2
Then
"˚F"？F
5(F-32)÷9→C
C+273.15→K
1→A
Else If M=3
Then
"K"？K
K-273.15→C
C(9÷5)+32→F
1→A
IfEnd:IfEnd
IfEnd

WhileEnd
```

Please compare usability of TempConv with TC.

Edited by Krtyski, 13 July 2015 - 10:33 AM.

#### 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users