Show Abacus Japanese - Printable Version +- Qbasicnews.com (http://qbasicnews.com/newforum) +-- Forum: QBasic (http://qbasicnews.com/newforum/forum-4.html) +--- Forum: QB Projects (http://qbasicnews.com/newforum/forum-12.html) +--- Thread: Show Abacus Japanese (/thread-10141.html) |
Show Abacus Japanese - lrcvs - 07-01-2008 '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 Re: Show Abacus Japanese - Dr_Davenstein - 07-01-2008 That's pretty interesting. How old is that Japanese abacus? That's a bit like binary, if you know what I mean. Re: Show Abacus Japanese - lrcvs - 07-01-2008 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 |