Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Show Abacus Japanese
#1
'THIS PROGRAM SHOWS ANY VALUE IN A JAPANESE ABACUS
'MAX 25 DIG

'ESTE PROGRAMA MUESTRA CUALQUIER VALOR EN UN ABACO JAPONES
'MAX 25 DIG

'NOTE: I LIKE TO USE THE "GOTO",
'... I AM OF THE OLD SCHOOL! ...

'NOTA: ME GUSTA USAR EL GOTO,
'... SOY DE LA VIEJA ESCUELA!...

'LRCVS 010708

DECLARE SUB A9 ()
DECLARE SUB A8 ()
DECLARE SUB A7 ()
DECLARE SUB A6 ()
DECLARE SUB A5 ()
DECLARE SUB A4 ()
DECLARE SUB A3 ()
DECLARE SUB A2 ()
DECLARE SUB INICIAR ()
DECLARE SUB A0 ()
DECLARE SUB A1 ()
'T = COLOR
'P = STEP X

DIM SHARED T
DIM SHARED P
SCREEN 12
CLS
15 :
T = 15

N$ = STRING$(25, "0")
LOCATE 22, 1: INPUT "* VALUE TO SEE = "; X$
IF X$ = "" THEN END
LOCATE 22, 1: PRINT STRING$(25, " ")
IF X$ = "*" THEN END
CLS

X$ = LEFT$(X$, 25)
L = LEN(X$)
MID$(N$, 26 - L) = X$
CALL INICIAR
LOCATE 15, 1: PRINT "VALUE = "; X$; ""
FOR P = 1 TO LEN(N$)
V = VAL(MID$(N$, P, 1))

'ESTOS SON LOS DIGITOS
'THIS IS THE DIGITS

IF V = 0 THEN CALL A0
IF V = 1 THEN CALL A1
IF V = 2 THEN CALL A2
IF V = 3 THEN CALL A3
IF V = 4 THEN CALL A4
IF V = 5 THEN CALL A5
IF V = 6 THEN CALL A6
IF V = 7 THEN CALL A7
IF V = 8 THEN CALL A8
IF V = 9 THEN CALL A9
NEXT P
GOTO 15

SUB A0

PAINT (P * 25, 2 * 25), 0, 8
PAINT (P * 25, 3 * 25), 0, 8
PAINT (P * 25, 4 * 25), 0, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A1

PAINT (P * 25, 2 * 25), 0, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), 0, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A2

PAINT (P * 25, 2 * 25), 0, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A3

PAINT (P * 25, 2 * 25), 0, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), T, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A4

PAINT (P * 25, 2 * 25), 0, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), T, 8
PAINT (P * 25, 6 * 25), T, 8

END SUB

SUB A5

PAINT (P * 25, 2 * 25), T, 8
PAINT (P * 25, 3 * 25), 0, 8
PAINT (P * 25, 4 * 25), 0, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A6

PAINT (P * 25, 2 * 25), T, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), 0, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A7

PAINT (P * 25, 2 * 25), T, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), 0, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A8

PAINT (P * 25, 2 * 25), T, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), T, 8
PAINT (P * 25, 6 * 25), 0, 8

END SUB

SUB A9

PAINT (P * 25, 2 * 25), T, 8
PAINT (P * 25, 3 * 25), T, 8
PAINT (P * 25, 4 * 25), T, 8
PAINT (P * 25, 5 * 25), T, 8
PAINT (P * 25, 6 * 25), T, 8

END SUB

SUB INICIAR
CLS
D = 5 'DIAM

P = 25
FOR V = 2 TO 6
FOR H = 1 TO P
CIRCLE (H * 25, V * 25), D, 8
NEXT H
NEXT V

'FOR H = 1 TO P
'PAINT (H * 25, 1 * 25), T, 8
'NEXT H

'FOR V = 4 TO 6
'FOR H = 1 TO P
'PAINT (H * 25, V * 25), T, 8
'NEXT H
'NEXT V
LINE (0, 63)-(640, 63), 12
END SUB

Reply
#2
That's pretty interesting. How old is that Japanese abacus? That's a bit like binary, if you know what I mean.  Big Grin
Reply
#3
Hi:

The abacus was used for about 2000 years ago.

All cultures have used, there are various types and shapes ...

For example: The Romans, Egyptians, Mayan, Japanese, Chinese, Indians, Arabic ....

The operation of this Japanese abacus, is not a binary system, a system of calculation is based on 6, using only: 0,1,2,3,4,5.

It is a system of calculation based on the numerical position, as at present.

You can do addition, subtraction, multiplication, division, square roots ...

It is a calculator 2000 years ago!

The people of antiquity, were not as ignorant as it may seem!

I have made this program simply out of curiosity graphic / math / history.

Greetings
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)