Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: bartok on June 23, 2021, 07:44:20 am

Title: Problem with CLEAR
Post by: bartok on June 23, 2021, 07:44:20 am
PROBLEM WITH CLEAR

The goal is to implement the possibility, at the end of the program, to restart it from the beginning if the user want to do that, without going SYSTEM end run the program one more time.

Below, there is an extract of the program.

At line 1, a DO LOOP cycle starts and it ends at the end of the main code, at line 227. In lines 222 to 225, an other DO LOOP cycle waits a key press from user that has to be "s" or "n" in order exit this DO LOOP cycle. If it is "n", IF command in line 226 EXIT DO started in line 1, and program goes SYSTEM. IF it is "s", the program loops and goes to line 1.

It works.

But, when the program restarts, I have to clear all variables and arrays. Activating CLEAR command in line 2, the program not even starts! Everywhere I put the command CLEAR, no way the program works. In the help, I sawn that CLEAR has some problems with REDIM. But don't have found solution even moving away DATA.

Code: QB64: [Select]
  2.     '    CLEAR
  3.     CLS
  4.     OPTION BASE 1
  5.     _TITLE "Calcolo dell'idrogramma di piena di progetto tramite il metodo SCS-CN"
  6.  
  7.     TempiRitorno:
  8.     DATA "Definito dall'utente",2,5,10,20,50,100,200,500,1000
  9.     DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  10.     CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  11.     DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  12.     DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  13.     CoefficientiDiscretizzazioneTemporale:
  14.     DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18,20,22,24,26,28,30,32: 'N volte tc!.
  15.     DATA 0.1,0.2,0.3,0.2,0.3,0.3,0.3,0.3,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1,1,1,1,1,1,1,1: 'discretizzazione dei coeff. di Mockus.
  16.  
  17.     TYPE mockus
  18.         tSUta AS SINGLE
  19.         qSUqp AS SINGLE
  20.     END TYPE
  21.     TYPE CoefficientiDiscretizzazioneTemporale
  22.         N AS INTEGER
  23.         d AS SINGLE
  24.         tSUta AS SINGLE
  25.     END TYPE
  26.     TYPE TempiRitorno
  27.         T AS STRING
  28.         k AS SINGLE
  29.     END TYPE
  30.     TYPE matrice1
  31.         mdt AS SINGLE '[ore] conta la progessione delle ore fino al raggiungimento di "d".
  32.         h1 AS SINGLE '[mm] DisegnaValore h della curva di possibilità climatica.
  33.         i1 AS SINGLE '[mm/ora] intensità di pioggia.
  34.         i2 AS SINGLE '[mm/ora] intensità di pioggia secondo lo ietogramma Chicago o costante.
  35.         DH AS SINGLE '[mm] pioggia in ogni istante temporale dt.
  36.         H2 AS SINGLE '[mm] pioggia cumulata ad ogni istante temporale.
  37.         he AS SINGLE '[mm] piggia efficace cumulata ad ogni istante temporale.
  38.         Dhe AS SINGLE '[mm] pioggia efficace ad ogni istante temporale.
  39.         tSUta AS SINGLE
  40.         qSUqp AS SINGLE
  41.         tmSUta AS SINGLE '[-].
  42.         qmSUqp AS SINGLE '[-] il DisegnaValore di qm/qp corrispondente a tm/ta e' = al DisegnaValore di q/qp che corrisponde a t/ta=tm/ta.
  43.         qm AS SINGLE '[mc/s].
  44.     END TYPE
  45.     TYPE idrogramma
  46.         i AS INTEGER
  47.         ore AS SINGLE
  48.         portata AS SINGLE
  49.     END TYPE
  50.     TYPE composizione
  51.         grafico AS LONG
  52.         composizione AS LONG
  53.     END TYPE
  54.  
  55.     CONST R& = _RGB32(255, 0, 0)
  56.     CONST G& = _RGB32(0, 255, 0)
  57.     CONST B& = _RGB32(0, 0, 255)
  58.     CONST bianco& = _RGB32(255, 255, 255)
  59.     CONST giallo& = _RGB32(255, 255, 0)
  60.     CONST grigio& = _RGB32(127, 127, 127)
  61.     CONST azzurro& = _RGB32(0, 255, 255)
  62.     CONST pastello& = _RGB32(183, 150, 139)
  63.     CONST viola& = _RGB32(255, 0, 255)
  64.     CONST trasparente& = _RGB32(0, 0)
  65.     CONST LarghezzaColonna% = 8
  66.  
  67.     DIM SHARED idrogrammi1a24(2, 24, 50, 1) AS idrogramma
  68.     DIM SHARED MassimiIdrogrammi1a24(2, 24, 1) AS idrogramma
  69.     DIM SHARED FinePioggiaIdrogrammi1a24(2, 24, 1) AS idrogramma ' per ogniidrogrammi1a24( trova il momento di Durata della pioggia.
  70.     DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  71.     DIM SHARED ore!(3), portata!(3) 'ore e portate di picco dell'idrogramma di progetto e scelto (entrambi interpolati).
  72.     DIM SHARED tipo% '1:idrogrammi1a24( di progetto. 2: a ascelta. Entrambi interpolati.
  73.     DIM SHARED MassimiAssolutiIeto(2) AS idrogramma
  74.     DIM SHARED IdroMaxIeto%(2) 'memorizza l'idrogramma con la portata di picco massima (che per lo ietogramma chicago è sempre l'ultimo), in modo da definire l'idrogramma di progetto quando la soglia di progetto e' troppo bassa.
  75.     DIM SHARED FinePioggiaIdrogrammi1e2(2) AS idrogramma 'serve a memorizzare l'ora e la portata in cui termina la pioggia.
  76.     DIM SHARED PassiFinePioggia1a24%(2, 24)
  77.     DIM SHARED L%, H%
  78.     DIM SHARED CoefficientiDiscretizzazioneTemporale(24) AS CoefficientiDiscretizzazioneTemporale
  79.     DIM SHARED TempiRitorno(10) AS TempiRitorno
  80.     DIM SHARED T$
  81.     DIM SHARED KeyPress$
  82.  
  83.     REDIM SHARED IdroPixel1(1) AS idrogramma
  84.     REDIM SHARED IdroPixel2(1) AS idrogramma
  85.     REDIM SHARED idrogramma1(1) AS idrogramma 'idrogramma di progetto.
  86.     REDIM SHARED idrogramma2(1) AS idrogramma 'idrogramma a scelta.
  87.  
  88.     DIM FineColonna%(8)
  89.     DIM esci$
  90.     DIM esci%(2)
  91.     DIM schermo&
  92.     DIM ComplessivoIeto1e2(2) AS composizione
  93.     DIM idrogramma1e2(2) AS composizione
  94.     DIM graficoCOPIA&
  95.     DIM quadro&
  96.     DIM unitari&
  97.     DIM MatriciIeto1e2(2, 24)
  98.     DIM mockus(50) AS mockus
  99.     DIM dt!(2, 24)
  100.     DIM matrice1(2, 24, 50, 1) AS matrice1
  101.     DIM matrice2!(2, 24, 50, 50)
  102.     DIM MinimiMatriciQuadrante1(2, 24, 1) AS idrogramma 'riferito all'idrogramma
  103.     DIM MinimiMatriciQuadrante2(2, 24, 1) AS idrogramma 'riferito all'idrogramma unitario
  104.     DIM MassimiQuadrante2(2, 24, 1) AS idrogramma 'riferito all'idrogramma unitario
  105.     DIM test%
  106.     DIM CoeffPerditeIniziali!
  107.     DIM S2! '[mm] contenuto idrico massimodel terreno.
  108.     DIM Ia! '[mm] perdite iniziali.
  109.     DIM tc! '[ore] tempo di corrivazione
  110.     DIM ta! '[ore] tempo di picco.
  111.     DIM qp! '[mc/s] portata al colmo dell'idrogramma unitario.
  112.     DIM k! '[-] coeff. della curva di possibilità climatica tado dal sito della Regione.
  113.     DIM a1! '[mm/d^n] coeff. della curva di possibilità climatica.
  114.     DIM n1! '[-] coeff. della curva di possibilità climatica.
  115.     DIM A2! '[mq] superficie bacino idrografico.
  116.     DIM L! '[m] lunghezza asta principale.
  117.     DIM HmaxL! '[m] punto più alto dell'astra principale.
  118.     DIM HminL! '[m] punto più basso dell'asta principale.
  119.     DIM s1! '[-] pendenza media del bacino non espressa in percentuale ma come 0,x.
  120.     DIM CNII! '[-] Intestazioneto.
  121.     DIM CNIII '[-] discende da CNII.
  122.     DIM tl! '[ore] tempo di ritardo.
  123.  
  124.     RESTORE TempiRitorno
  125.     FOR i% = 1 TO 20
  126.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  127.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  128.     NEXT i%
  129.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  130.     FOR i% = 1 TO 100
  131.         IF i% <= 50 THEN READ mockus(i%).tSUta
  132.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  133.     NEXT i%
  134.     L% = _DESKTOPWIDTH - 20: H% = L% \ 1.62 'imposta la larghezza dello SCREEN in modo che L%xH% sia un rettangolo aureo.
  135.     FOR ieto% = 1 TO 2
  136.         ComplessivoIeto1e2(ieto%).grafico = _NEWIMAGE(L% - (L% \ 5), H%, 32)
  137.         ComplessivoIeto1e2(ieto%).composizione = _NEWIMAGE(L%, H%, 32)
  138.         idrogramma1e2(ieto%).grafico = _NEWIMAGE(L% - (L% \ 4), H%, 32)
  139.         idrogramma1e2(ieto%).composizione = _NEWIMAGE(L%, H%, 32)
  140.         FOR z% = 1 TO 24
  141.             MatriciIeto1e2(ieto%, z%) = _NEWIMAGE(L%, H%, 32)
  142.         NEXT z%
  143.     NEXT ieto%
  144.     quadro& = _NEWIMAGE(L% \ 2, H% \ 2, 32)
  145.     unitari& = _NEWIMAGE(L%, H%, 32)
  146.     schermo& = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
  147.     esci$ = "I dati forniti non determinano pioggia efficace o questa Š tale da comportare portate trascurabili."
  148.     SCREEN schermo&
  149.     _SCREENMOVE 0, 0
  150.     PRINT "Questo programma serve a calcolare l'idrogramma di progetto (e relativa portata di picco) per"
  151.     PRINT "un  dato  tempo  di  ritorno,  utilizzando  l'idrogramma  unitario  adimensionale di Mockus e"
  152.     PRINT "ietrogrammi tipo "; CHR$(34); "Chicago"; CHR$(34); " o "; CHR$(34); "costanti"; CHR$(34); "."
  153.     PRINT
  154.     PRINT "Di seguito si dovranno inserire i valori della curva di possibilit… climatica "; CHR$(34); "h = Ktúaúd^n"; CHR$(34); "."
  155.     PRINT "Se  si dispone  dei valori  del Centro  Funzionale, digitare il valore "; CHR$(34); "Kt"; CHR$(34); " relativo al tempo"
  156.     PRINT "di ritorno "; CHR$(34); "T"; CHR$(34); " d'interesse, con i relativi valori "; CHR$(34); "a"; CHR$(34); " e "; CHR$(34); "n"; CHR$(34); "."
  157.     PRINT "Se invece si ha una  propria curva di possibilit… climatica, quando verr… chiesto di inserire"
  158.     PRINT CHR$(34); "Kt"; CHR$(34); ", digitare "; CHR$(34); "INVIO"; CHR$(34); ", o "; CHR$(34); "1"; CHR$(34); "."
  159.     PRINT "In tal caso "; CHR$(34); "Kt"; CHR$(34); " sar… considerato pari a "; CHR$(34); "1"; CHR$(34); " e "; CHR$(34); "T"; CHR$(34); " come "; CHR$(34); "definito dall'utente"; CHR$(34); "."
  160.     PRINT
  161.     PRINT "- Kt [-] (INVIO per 1)                                           = "
  162.     PRINT "- a [mm/d^n]                                                     = "
  163.     PRINT "- n [-] (0ö1)                                                    = "
  164.     PRINT "- Area del bacino idrografico [mý]                               = "
  165.     PRINT "- Lunghezza dell'asta principale del bacino idrografico [m]      = "
  166.     PRINT "- Altitudine s.l.m. del punto pi— alto dell'asta principale [m]  = "
  167.     PRINT "- Altitudine s.l.m. del punto pi— basso dell'asta principale [m] = "
  168.     PRINT "- Pendenza media del bacino idrografico [%] (1ö100)              = "
  169.     PRINT "- CN(II) [-] (1ö100)                                             = "
  170.     PRINT "- Coefficiente delle perdite inziali [-] (0ö0.2 - INVIO per 0.1) = "
  171.     CALL InserimentoDati(k!, a1!, n1, A2!, L!, HmaxL!, HminL!, s1!, CNII!, CoeffPerditeIniziali!)
  173.     LOCATE PosizioneCursore% + 10, 1
  174.     PRINT "- Visualizzare i risultati utilizzando lo ietogramma Chicago [1] o costante [2]?"
  175.     PRINT
  176.     DO
  177.         _LIMIT 50
  178.         KeyPress$ = INKEY$
  179.     LOOP UNTIL KeyPress$ = "1" OR KeyPress$ = "2"
  180.     VisualizzaIeto% = VAL(KeyPress$)
  181.     CNIII! = (23 * CNII!) / (10 + 0.13 * CNII!)
  182.     tl! = 0.342 * ((L! / 1000) ^ 0.8 / s1! ^ 0.5) * (1000 / CNIII! - 9) ^ 0.7 'formula di Mockus.
  183.     S2! = 25.4 * (1000 / CNIII! - 10)
  184.     Ia! = CoeffPerditeIniziali! * S2! 'coeff.=0.03-0.2. 'perdite iniziali
  185.     tc! = tl! / 0.6
  186.     ta! = tl! / 0.9
  187.     qp! = 0.208 * ((A2! / 1000000) / ta!)
  188.     RESTORE CoefficientiDiscretizzazioneTemporale
  189.     FOR i% = 1 TO 48
  190.         IF i% <= 24 THEN READ CoefficientiDiscretizzazioneTemporale(i%).N: CoefficientiDiscretizzazioneTemporale(i%).d = CoefficientiDiscretizzazioneTemporale(i%).N * tc!
  191.         IF i% > 24 THEN READ CoefficientiDiscretizzazioneTemporale(i% - 24).tSUta
  192.     NEXT i%
  193.  
  194.     'FOR ieto% = 1 TO 2
  195.     '    FOR z% = 1 TO 24
  196.     '        GOSUB CalcolaMatriciIeto1e2
  197.     '        IF esci%(ieto%) = 0 THEN GOSUB DisegnaMatriciIeto1e2
  198.     '    NEXT z%
  199.     '    IF esci%(ieto%) = 0 THEN GOSUB DisegnaComplessivoIeto1e2
  200.     'NEXT ieto%
  201.     '_DEST schermo&
  202.     'SELECT CASE esci%(VisualizzaIeto%)
  203.     '    CASE IS = 0
  204.     '        CLS
  205.     '        GOSUB DisegnaUnitari
  206.     '        GOSUB VisualizzaComplessivo
  207.     '        SLEEP
  208.     '        CALL CalcolaIdrogramma(MassimiIdrogrammi1a24(VisualizzaIeto%, 24, 1).ore, idrogrammi1a24(VisualizzaIeto%, 24, 50, 1).ore, MassimiAssolutiIeto(VisualizzaIeto%).ore, MassimiAssolutiIeto(VisualizzaIeto%).portata, ComplessivoIeto1e2(VisualizzaIeto%).grafico, ComplessivoIeto1e2(VisualizzaIeto%).composizione, graficoCOPIA&)
  209.     '        SLEEP
  210.     '        GOSUB DisegnaIdrogramma
  211.     '        GOSUB VisualizzaIdrogramma
  212.     '        SLEEP
  213.     '        GOSUB VisualizzaUnitari
  214.     '        GOSUB VisualizzaMatrici
  215.     '    GOSUB Risultati
  216.     '    CASE IS = 1
  217.     '        PRINT esci$
  218.     'END SELECT
  219.     GOSUB freeimage
  220.     PRINT
  221.     PRINT "- Riavviare il programma? [S/N]"
  222.     DO
  223.         _LIMIT 50
  224.         KeyPress$ = LCASE$(INKEY$)
  225.     LOOP UNTIL KeyPress$ = "s" OR KeyPress$ = "n"
  226.     IF KeyPress$ = "n" THEN EXIT DO
  229. '---------------------------------------------------------------------------------------------------------------------------------------------------
  230. freeimage:
  231. FOR ieto% = 1 TO 2
  232.     _FREEIMAGE ComplessivoIeto1e2(ieto%).grafico
  233.     _FREEIMAGE ComplessivoIeto1e2(ieto%).composizione
  234.     _FREEIMAGE idrogramma1e2(ieto%).grafico
  235.     _FREEIMAGE idrogramma1e2(ieto%).composizione
  236.     FOR z% = 1 TO 24
  237.         _FREEIMAGE MatriciIeto1e2(ieto%, z%)
  238.     NEXT z%
  239.     '    IF esci%(ieto%) = 0 THEN _FREEIMAGE graficoCOPIA&
  240. NEXT ieto%
  241. _FREEIMAGE unitari&
  242. _FREEIMAGE quadro&
  244.  
  245.  
  246. '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  247. SUB InserimentoDati (k!, a1!, n1, A2!, L!, HmaxL!, HminL!, s1!, CNII!, CoeffPerditeIniziali!)
  248.  
  249.     SHARED PosizioneCursore%
  250.  
  251.     DIM inputs$(10)
  252.     DIM richiesta%
  253.     DIM test%(10)
  254.     DIM debug%
  255.     DIM carattere$
  256.     DIM punti%
  257.     DIM T!
  258.     DIM cursore%
  259.     DIM esci%
  260.  
  261.     PosizioneCursore% = CSRLIN - 10
  262.     richiesta% = 1
  263.     T! = TIMER
  264.     DO
  265.         _LIMIT 30
  266.         KeyPress$ = INKEY$
  267.         IF TIMER > T! + 0.5 THEN
  268.             cursore% = NOT cursore%
  269.             T! = TIMER
  270.         END IF
  271.         FOR i% = 1 TO 10
  272.             LOCATE PosizioneCursore% - 1 + i%, 68: PRINT inputs$(i%) + SPACE$(30)
  273.         NEXT i%
  274.         LOCATE PosizioneCursore% - 1 + richiesta%, 68 + LEN(inputs$(richiesta%))
  275.         IF debug% = 1 THEN EXIT SUB
  276.         IF esci% = 1 THEN EXIT DO
  277.         IF cursore% THEN PRINT "_"
  278.         SELECT CASE KeyPress$
  279.             CASE CHR$(44), CHR$(46) ',e.
  280.                 punti% = 0
  281.                 IF KeyPress$ = CHR$(44) THEN KeyPress$ = CHR$(46)
  282.                 FOR n% = 1 TO LEN(inputs$(richiesta%))
  283.                     carattere$ = MID$(inputs$(richiesta%), n%, 1)
  284.                     IF carattere$ = CHR$(46) THEN punti% = 1
  285.                 NEXT n%
  286.                 IF punti% = 0 THEN inputs$(richiesta%) = inputs$(richiesta%) + KeyPress$
  287.             CASE CHR$(48) TO CHR$(57) '0-9
  288.                 inputs$(richiesta%) = inputs$(richiesta%) + KeyPress$
  289.             CASE CHR$(8) 'del
  290.                 IF LEN(inputs$(richiesta%)) > 0 THEN inputs$(richiesta%) = LEFT$(inputs$(richiesta%), LEN(inputs$(richiesta%)) - 1)
  291.             CASE CHR$(0) + "H" 'su
  292.                 GOSUB Valutavalore
  293.                 SELECT CASE test%(richiesta%)
  294.                     CASE IS = 0
  295.                         inputs$(richiesta%) = ""
  296.                     CASE IS = 1
  297.                         IF richiesta% = 1 THEN
  298.                             EXIT SELECT
  299.                         ELSEIF richiesta <= 10 THEN
  300.                             richiesta% = richiesta% - 1
  301.                         END IF
  302.                 END SELECT
  303.             CASE CHR$(13), CHR$(0) + "P" 'invio
  304.                 IF debug% = 1 THEN EXIT SELECT
  305.                 GOSUB Valutavalore
  306.                 IF richiesta% <> 10 THEN
  307.                     IF KeyPress$ = CHR$(0) + "P" THEN KeyPress$ = CHR$(13)
  308.                 END IF
  309.                 IF richiesta% <> 1 THEN
  310.                     IF LEN(inputs$(richiesta%)) = 0 THEN test%(richiesta%) = 0
  311.                 END IF
  312.                 SELECT CASE test%(richiesta%)
  313.                     CASE IS = 0
  314.                         inputs$(richiesta%) = ""
  315.                     CASE IS = 1
  316.                         IF richiesta% = 10 THEN
  317.                             IF KeyPress$ = CHR$(0) + "P" THEN
  318.                                 EXIT SELECT
  319.                             ELSE
  320.                                 esci% = 1
  321.                             END IF
  322.                         ELSE
  323.                             richiesta% = richiesta% + 1
  324.                         END IF
  325.                 END SELECT
  326.         END SELECT
  327.     LOOP
  328.     k! = VAL(inputs$(1)): a1! = VAL(inputs$(2)): n1! = VAL(inputs$(3)): A2! = VAL(inputs$(4)): L! = VAL(inputs$(5)): HmaxL! = VAL(inputs$(6)): HminL! = VAL(inputs$(7)): s1! = VAL(inputs$(8)): CNII! = VAL(inputs$(9)): CoeffPerditeIniziali! = VAL(inputs$(10))
  329.     EXIT SUB
  330.     '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  331.     Valutavalore:
  332.     test%(richiesta%) = 0 ' se 0 rimane nella richiesta in corso, se 1, cambia.
  333.  
  334.     SELECT CASE richiesta%
  335.         CASE 1
  336.             IF inputs$(richiesta%) = "123" THEN 'avvia debug
  337.                 debug% = 1
  338.                 'test:
  339.                 'k! = 2.34: a1! = 1: n1! = 0.45596: A2! = 0: L! = 3300: HmaxL! = 1981: HminL! = 1062: s1! = 41.5: CNII! = 70: CoeffPerditeIniziali! = 0.1
  340.                 'Cillian:
  341.                 k! = 2.34: a1! = 14.6653: n1! = 0.45596: A2! = 2641902: L! = 3300: HmaxL! = 1981: HminL! = 1062: s1! = 41.5: CNII! = 70: CoeffPerditeIniziali! = 0.1
  342.                 'pialong:
  343.                 'k! = 2.34:'a1! = 17.097811:'n1! = 0.497753:'A2! = 2509318:'L! = 2919:'HmaxL! = 1654:'HminL! = 388:'s1! = 0.663:'CNII! = 66:CoeffPerditeIniziali!=0.1
  344.                 GOSUB TrovaT
  345.                 RETURN
  346.             END IF
  347.             IF LEN(inputs$(richiesta%)) = 0 THEN
  348.                 IF KeyPress$ = CHR$(13) THEN inputs$(richiesta%) = "1"
  349.             END IF
  350.             GOSUB TrovaT
  351.             IF KeyPress$ = CHR$(0) + "P" THEN
  352.                 IF LEN(inputs$(richiesta%)) = 0 THEN test%(richiesta%) = 0
  353.             END IF
  354.         CASE 2, 4, 5, 6, 7
  355.             test%(richiesta%) = 1
  356.         CASE 3
  357.             IF VAL(inputs$(richiesta%)) <= 1 THEN
  358.                 test%(richiesta%) = 1
  359.             ELSE
  360.                 test%(richiesta%) = 0
  361.             END IF
  362.         CASE 8, 9
  363.             IF VAL(inputs$(richiesta%)) >= 1 THEN
  364.                 IF VAL(inputs$(richiesta%)) <= 100 THEN test%(richiesta%) = 1
  365.             ELSEIF inputs$(richiesta%) = "" THEN test%(richiesta%) = 1
  366.             ELSE
  367.                 test%(richiesta%) = 0
  368.             END IF
  369.         CASE IS = 10
  370.             IF LEN(inputs$(richiesta%)) = 0 THEN
  371.                 IF KeyPress$ = CHR$(13) THEN inputs$(richiesta%) = "0.1"
  372.                 test%(richiesta%) = 1
  373.                 EXIT SELECT
  374.             END IF
  375.             IF VAL(inputs$(richiesta%)) >= 0 THEN
  376.                 IF VAL(inputs$(richiesta%)) <= 0.2 THEN
  377.                     IF KeyPress$ = CHR$(0) + "P" THEN
  378.                         test%(richiesta%) = 1
  379.                     ELSE
  380.                         test%(richiesta%) = 1
  381.                     END IF
  382.                 ELSE
  383.                     test%(richiesta%) = 0
  384.                 END IF
  385.             END IF
  386.     END SELECT
  387.     RETURN
  388.     '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  389.     TrovaT:
  390.     i% = 1
  391.     '    IF debug% <> 1 THEN k! = VAL(inputs$(1))
  392.     FOR i% = 1 TO 10
  393.         IF VAL(inputs$(1)) = TempiRitorno(i%).k THEN
  394.             IF i% = 1 THEN
  395.                 T$ = TempiRitorno(i%).T
  396.                 test%(richiesta%) = 1
  397.             ELSE
  398.                 T$ = TempiRitorno(i%).T + " anni"
  399.                 test%(richiesta%) = 1
  400.             END IF
  401.             EXIT FOR
  402.         ELSE
  403.             test%(richiesta%) = 0
  404.         END IF
  405.     NEXT i%
  406.     RETURN
  408.  
Title: Re: Problem with CLEAR
Post by: SpriggsySpriggs on June 23, 2021, 09:14:32 am
I seem to recall there being an issue with CLEAR causing it to free screen handles? Do you recall, @FellippeHeitor ?
Title: Re: Problem with CLEAR
Post by: FellippeHeitor on June 23, 2021, 09:50:02 am
That got fixed in the dev builds. This seems like something else. I'll have a closer look later.
Title: Re: Problem with CLEAR
Post by: SpriggsySpriggs on June 23, 2021, 10:12:59 am
@bartok

Can you provide some test data? I don't understand the language and don't know what it expects as input. Also, I don't think you need your freeimage subroutine since CLEAR already frees all valid images.
Title: Re: Problem with CLEAR
Post by: bartok on June 23, 2021, 11:38:07 am
Quote from: SpriggsySpriggs on June 23, 2021, 10:12:59 am
@bartok

[...] Also, I don't think you need your freeimage subroutine since CLEAR already frees all valid images.

I posted a question about that some time ago, just asking why Terry Ritchie's tutorials insisted in _FREEIMAGE importance at the end of the main code, if a simple CLEAR command, should clear all.

It was responded to me something like this: imagines access the video memory and CLEAR doesn't free these memory handles.

Quote from: SpriggsySpriggs on June 23, 2021, 10:12:59 am
@bartok

Can you provide some test data? I don't understand the language and don't know what it expects as input. [...]

Below, the code you have asked for. Reduncing it at the minimum in order to make it clearer, I have found the problem, but it is a mystery!

Enabling command CLEAR in line 2, the program doesn't work and crashes. I works ONLY disabling "RESTORE group 1"...

Changing the text in DATA "Definito dall'utente" with a random number, it still not works.

But besides changing:

    TYPE TempiRitorno
        T AS STRING
        k AS SINGLE
    END TYPE
   
with

    TYPE TempiRitorno
        T AS SINGLE
        k AS SINGLE
    END TYPE

It works.

So, it seems that CLEAR has some problem with TYPE defining STRING or mixed kind of variables.

Code: QB64: [Select]
  2.     CLEAR
  3.     CLS
  4.     OPTION BASE 1
  5.  
  6.  
  7.     TempiRitorno:
  8.     DATA "Definito dall'utente",2,5,10,20,50,100,200,500,1000
  9.     DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  10.     CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  11.     DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  12.     DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  13.  
  14.     TYPE mockus
  15.         tSUta AS SINGLE
  16.         qSUqp AS SINGLE
  17.     END TYPE
  18.     TYPE TempiRitorno
  19.         T AS STRING
  20.         k AS SINGLE
  21.     END TYPE
  22.     DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  23.     DIM SHARED TempiRitorno(10) AS TempiRitorno
  24.     DIM mockus(50) AS mockus
  25.  
  26.     ' 'RESTORE group 1:
  27.     RESTORE TempiRitorno
  28.     FOR i% = 1 TO 20
  29.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  30.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  31.     NEXT i%
  32.  
  33.     ' 'RESTORE group 2:
  34.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  35.     FOR i% = 1 TO 100
  36.         IF i% <= 50 THEN READ mockus(i%).tSUta
  37.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  38.     NEXT i%
  39.  
  40.  
  41.     '[...]
  42.     PRINT
  43.     PRINT "- Restart program? [Y/N]"
  44.     DO
  45.         _LIMIT 50
  46.         KeyPress$ = LCASE$(INKEY$)
  47.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
  48.     IF KeyPress$ = "n" THEN EXIT DO
Title: Re: Problem with CLEAR
Post by: bplus on June 23, 2021, 02:53:29 pm
Seems to me that Type, Const, Shared statements should all be outside of loop.

To restart with everything cleared do that at start of a rerun loop (instead of a Run statement) set everything to 0.

Erase, arrays started with Dim and ReDim dynamic arrays started with Redim.
Title: Re: Problem with CLEAR
Post by: George McGinn on June 24, 2021, 12:15:24 am
Can you nest RUN statements?

What I mean is can you in program A, execute a RUN for program A?

A RUN clears memory of the calling program. The only question is can you do a recursive RUN to the calling program.
Title: Re: Problem with CLEAR
Post by: bartok on June 24, 2021, 02:25:18 am
Quote from: bplus on June 23, 2021, 02:53:29 pm
Seems to me that Type, Const, Shared statements should all be outside of loop.

It not works:
Code: QB64: [Select]
  3.  
  4.  
  5. TempiRitorno:
  6. DATA "Definito dall'utente",2,5,10,20,50,100,200,500,1000
  7. DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  8. CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  9. DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  10. DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  11.  
  12. TYPE mockus
  13.     tSUta AS SINGLE
  14.     qSUqp AS SINGLE
  16. TYPE TempiRitorno
  17.     T AS STRING
  18.     k AS SINGLE
  20. DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  21. DIM SHARED TempiRitorno(10) AS TempiRitorno
  22. DIM mockus(50) AS mockus
  23.  
  25.     CLEAR
  26.  
  27.     ' 'RESTORE group 1:
  28.     RESTORE TempiRitorno
  29.     FOR i% = 1 TO 20
  30.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  31.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  32.     NEXT i%
  33.  
  34.     ' 'RESTORE group 2:
  35.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  36.     FOR i% = 1 TO 100
  37.         IF i% <= 50 THEN READ mockus(i%).tSUta
  38.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  39.     NEXT i%
  40.  
  41.  
  42.     '[...]
  43.     PRINT
  44.     PRINT "- Restart program? [Y/N]"
  45.     DO
  46.         _LIMIT 50
  47.         KeyPress$ = LCASE$(INKEY$)
  48.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
  49.     IF KeyPress$ = "n" THEN EXIT DO
  52.  

However, in this way I have solved:

Code: QB64: [Select]
  2.     CLEAR
  3.  
  4.     CLS
  5.     OPTION BASE 1
  6.  
  7.  
  8.     TempiRitorno:
  9.     DATA 0,2,5,10,20,50,100,200,500,1000: '------------------------------------------------------>removed text end changed with "0".
  10.     DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  11.     CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  12.     DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  13.     DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  14.  
  15.     TYPE mockus
  16.         tSUta AS SINGLE
  17.         qSUqp AS SINGLE
  18.     END TYPE
  19.     TYPE TempiRitorno
  20.         T AS SINGLE '-------------------------------------------------------------------------->changed STRING to SINGLE
  21.         k AS SINGLE
  22.     END TYPE
  23.     DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  24.     DIM SHARED TempiRitorno(10) AS TempiRitorno
  25.     DIM mockus(50) AS mockus
  26.  
  27.  
  28.     ' 'RESTORE group 1:
  29.     RESTORE TempiRitorno
  30.     FOR i% = 1 TO 20
  31.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  32.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  33.     NEXT i%
  34.  
  35.     ' 'RESTORE group 2:
  36.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  37.     FOR i% = 1 TO 100
  38.         IF i% <= 50 THEN READ mockus(i%).tSUta
  39.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  40.     NEXT i%
  41.  
  42.  
  43.     '[...]
  44.     PRINT
  45.     PRINT "- Restart program? [Y/N]"
  46.     DO
  47.         _LIMIT 50
  48.         KeyPress$ = LCASE$(INKEY$)
  49.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
  50.     IF KeyPress$ = "n" THEN EXIT DO
  53.  

I suppose there is a bug in CLEAR command:
with

    TYPE TempiRitorno
        T AS STRING
        k AS SINGLE
    END TYPE

program crashes. Same thing with:

    TYPE TempiRitorno
        T AS STRING
        k AS STRING
    END TYPE

It works only with:

    TYPE TempiRitorno
        T AS SINGLE
        k AS SINGLE
    END TYPE

Title: Re: Problem with CLEAR
Post by: bplus on June 24, 2021, 07:04:39 am
Quote
It not works:

I was suggesting a work around CLEAR, clear the things manually without CLEAR.
Code: QB64: [Select]
  3.  
  4.  
  5. TempiRitorno:
  6. DATA "Definito dall'utente",2,5,10,20,50,100,200,500,1000
  7. DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  8. CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  9. DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  10. DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  11.  
  12. TYPE mockus
  13.     tSUta AS SINGLE
  14.     qSUqp AS SINGLE
  16. TYPE TempiRitorno
  17.     T AS STRING
  18.     k AS SINGLE
  20. DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  21. DIM SHARED TempiRitorno(10) AS TempiRitorno
  22. DIM mockus(50) AS mockus
  23.  
  25.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''CLEAR
  26.  
  27.     ' 'RESTORE group 1:
  28.     RESTORE TempiRitorno
  29.     FOR i% = 1 TO 20
  30.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  31.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  32.     NEXT i%
  33.  
  34.     ' 'RESTORE group 2:
  35.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  36.     FOR i% = 1 TO 100
  37.         IF i% <= 50 THEN READ mockus(i%).tSUta
  38.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  39.     NEXT i%
  40.  
  41.  
  42.     '[...]
  43.     PRINT
  44.     PRINT "- Restart program? [Y/N]"
  45.     DO
  46.         _LIMIT 50
  47.         KeyPress$ = LCASE$(INKEY$)
  48.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
  49.     IF KeyPress$ = "n" THEN EXIT DO
  52.  
  53.  
Seems to work fine for me since main code isn't doing anything but load arrays.
Title: Re: Problem with CLEAR
Post by: SMcNeill on June 24, 2021, 08:55:51 am
Here, I've simplified the issue so everyone can see what's going on here a little better:

Code: QB64: [Select]
  1. Data "Hello World",1
  2. Type test_type
  3.     x As String
  4.     y As Single
  6. Dim test As test_type
  8. Read x$, y
  9. Print x$, y
  11. Read test.x '<<< The issue is in this line here.  CLEAR and UDT don't seem to play nicely together.
  12. Print "Hello Crash"
  14.  

CLEAR and User Defined Types  simply aren't playing nice together with other.

An even simpler demo:

Code: QB64: [Select]
  1. Type test_type: x As String: End Type: Dim test As test_type
  3. x$ = "Hello World": Print x$: Sleep
  4. test.x = x$
  5. Print "Hello Crash", x$: Sleep
  6.  

Apparently, the way it seems to exist to me, at the moment, if you're going to use CLEAR, you don't want to make use of UDTs in your program.

Personally, I tend to *always* to avoid the CLEAR and RUN statements, as I've always found them to be buggy and unreliable at best.  Simply having a GOSUB to initialize all variables when they're first defined seems to be the best way to me.
Title: Re: Problem with CLEAR
Post by: bplus on June 24, 2021, 03:42:26 pm
Quote
Personally, I tend to *always* to avoid the CLEAR and RUN statements, as I've always found them to be buggy and unreliable at best.  Simply having a GOSUB to initialize all variables when they're first defined seems to be the best way to me.

+1 yes!
Title: Re: Problem with CLEAR
Post by: George McGinn on June 24, 2021, 03:48:50 pm
I do too (I never use CLEAR, and I will use pipecom or SHELL instead of RUN).

I thought because RUN wipes out memory and that the fact that the calling program never existed, it was an idea.


Quote from: bplus on June 24, 2021, 03:42:26 pm
+1 yes!
Title: Re: Problem with CLEAR
Post by: bartok on June 25, 2021, 04:49:19 am
The problem I have found about CLEAR, at the end was very simple to be fixed. I needed to define T AS STRING, but I solved defining T AS SINGLE  (and even INTEGER is working) and then converting it in string with _LTRIM and STR$. But, when the code starts to be long and complicated, like the mine with 12 subroutines and almost 2000 lines, it becomes difficult to distinguish if the problem is about something wrong somewhere in the code, or a bug. Generally, 999 every 1000 times the problem is something wrong in the code, so one doesn't think about a bug and finishes to spend much time in searching an error. Finally, one can suppose a bug, but even in this case, it is impossible to know that the problem is in something apparently separate: how one can suppose that there is a conflict between CLEAR and defining a string in TYPE?

Even when I wrote the first post, I was not thinking about a bug in CLEAR, and I was convinced that there was someting wrong in the code, or maybe a wrong use of CLEAR. I found the bug only cutting the first example in order to make it more understandable for you. And, as you say that CLEAR is buggy, maybe there are other bug in it.

I think that it will be nice if CLEAR will be fixed, because I think that it is not a marginal command, as RUN, but a very important one: it is common that a program has to restart itself without exiting and rerun it, so it is important to have a simple and well working command that clear all variables without the necessity to create specific routines to do it.
Title: Re: Problem with CLEAR
Post by: FellippeHeitor on June 25, 2021, 08:01:54 am
We've had a few corner cases like this one since the introduction of variable-width strings in types. Do you get the same problem with CLEAR if you declare your element as a fixed string element? For example:

Code: QB64: [Select]
  1.     T AS STRING * 256
Title: Re: Problem with CLEAR
Post by: Cobalt on June 25, 2021, 12:12:55 pm
Quote from: SMcNeill on June 24, 2021, 08:55:51 am
Here, I've simplified the issue so everyone can see what's going on here a little better:

Code: QB64: [Select]
  1. Data "Hello World",1
  2. Type test_type
  3.     x As String
  4.     y As Single
  6. Dim test As test_type
  8. Read x$, y
  9. Print x$, y
  11. Read test.x '<<< The issue is in this line here.  CLEAR and UDT don't seem to play nicely together.
  12. Print "Hello Crash"
  14.  

CLEAR and User Defined Types  simply aren't playing nice together with other.

An even simpler demo:

Code: QB64: [Select]
  1. Type test_type: x As String: End Type: Dim test As test_type
  3. x$ = "Hello World": Print x$: Sleep
  4. test.x = x$
  5. Print "Hello Crash", x$: Sleep
  6.  

Apparently, the way it seems to exist to me, at the moment, if you're going to use CLEAR, you don't want to make use of UDTs in your program.

Personally, I tend to *always* to avoid the CLEAR and RUN statements, as I've always found them to be buggy and unreliable at best.  Simply having a GOSUB to initialize all variables when they're first defined seems to be the best way to me.

must be a variable length thing, cause using defined length does not crash.

though CLEAR seems to wipe the UDT out, as test.x becomes a single value variable no longer a string. why there is no error when trying to apply a string to numerical variable is odd. cause that is where the crash is, trying to apply a string to numerical.

@FellippeHeitor doesn't crash at least with a fix length string value.
Title: Re: Problem with CLEAR
Post by: bartok on June 28, 2021, 03:06:38 am
Quote from: FellippeHeitor on June 25, 2021, 08:01:54 am
We've had a few corner cases like this one since the introduction of variable-width strings in types. Do you get the same problem with CLEAR if you declare your element as a fixed string element? For example:

Code: QB64: [Select]
  1.     T AS STRING * 256

No, in this way it doesn't crash:
Code: QB64: [Select]
  2.     CLEAR
  3.  
  4.     CLS
  5.     OPTION BASE 1
  6.  
  7.  
  8.     TempiRitorno:
  9.     DATA 0,2,5,10,20,50,100,200,500,1000: '------------------------------------------------------>removed text end changed with "0".
  10.     DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
  11.     CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
  12.     DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
  13.     DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
  14.  
  15.     TYPE mockus
  16.         tSUta AS SINGLE
  17.         qSUqp AS SINGLE
  18.     END TYPE
  19.     TYPE TempiRitorno
  20.         T AS STRING * 10 '-------------------------------------------------------------------------->changed STRING to SINGLE
  21.         k AS SINGLE
  22.     END TYPE
  23.     DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
  24.     DIM SHARED TempiRitorno(10) AS TempiRitorno
  25.     DIM mockus(50) AS mockus
  26.  
  27.  
  28.     ' 'RESTORE group 1:
  29.     RESTORE TempiRitorno
  30.     FOR i% = 1 TO 20
  31.         IF i% <= 10 THEN READ TempiRitorno(i%).T
  32.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
  33.     NEXT i%
  34.  
  35.     ' 'RESTORE group 2:
  36.     RESTORE CoefficientiIdrogrammaUnitarioMockus
  37.     FOR i% = 1 TO 100
  38.         IF i% <= 50 THEN READ mockus(i%).tSUta
  39.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
  40.     NEXT i%
  41.  
  42.  
  43.     '[...]
  44.     PRINT
  45.     PRINT "- Restart program? [Y/N]"
  46.     DO
  47.         _LIMIT 50
  48.         KeyPress$ = LCASE$(INKEY$)
  49.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
  50.     IF KeyPress$ = "n" THEN EXIT DO
  53.  
  54.  
Text Only | Text with Attachments