| .MID$ Function Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| MID$ Function Programming Example |
| |
| This example converts a binary number to a decimal number. The |
| program uses the MID$ function to extract digits from the binary |
| number (input as a string). |
| |
| CLS ' Clear screen |
| INPUT "Binary number = ", Binary$ 'Input binary number as |
| 'string. |
| Length = LEN(Binary$) 'Get length of string. |
| Decimal = 0 |
| FOR K = 1 TO Length |
| 'Get individual digits from string, from left to right. |
| Digit$ = MID$(Binary$, K, 1) |
| 'Test for valid binary digit. |
| IF Digit$ = "0" OR Digit$ = "1" THEN |
| 'Convert digit characters to numbers. |
| Decimal = 2 * Decimal + VAL(Digit$) |
| ELSE |
| PRINT "Error--invalid binary digit: "; Digit$ |
| EXIT FOR |
| END IF |
| NEXT |
| PRINT "Decimal number =" Decimal |
| |
| Output |
| |
| Binary number = 10110 |
| Decimal number = 22 |
