Databas

10 posts in thread

• Martin Sandberg <6882> · Text 7530 · w8 · inlagg

  1987-09-29 12:58

  Ärende: Databas

  Om jag försöker att gjöra en enkel databas och vill ha en get eller input från den på andra sidan linjen, hur gjör jag då? Mvh Martin
  • Lars Michael Jogbäck <5862> · Text 7531 · w8 · kommentar

    1987-09-29 14:10

    Ärende: Databas

    Använd en särskild funktion som FNInput i ABC800/KOMMUNIK/NYMON.BAS m.v.h LMJ
    • Martin Sandberg <6882> · Text 7532 · w8 · kommentar

      1987-09-29 16:12

      Ärende: Databas

      Kan du förklara lite närmare vore jag tacksam. Mvh Martin
      • Lars Michael Jogbäck <5862> · Text 7533 · w8 · kommentar

        1987-09-29 16:18

        Ärende: Databas

        Om dy hämtar programmet NYMON i biblioteket ABC800/KOMMUNIK och listar detta så finns det i början en funktion som heter FNInput som du nog kan använda. Programmet NYMON är ett litet databas program i sig själv och det har ett så kallat msg-system dock ett litet bara. till programmet hör filen nyhelpm.inf som jag tror den heter. m.v.h LMJ
        • Lars Michael Jogbäck <5862> · Text 7534 · w8 · kommentar

          1987-09-29 16:24

          Ärende: Databas

          Förlåt, Förlåt den heter FNInkey¤ *inte* FNInput m.v.h LMJ
          • Martin Sandberg <6882> · Text 7535 · w8 · kommentar

            1987-09-29 16:48

            Ärende: Databas

            Kan man använda get på samma sätt? Mvh Martin
            • Lars Michael Jogbäck <5862> · Text 7536 · w8 · kommentar

              1987-09-29 18:12

              Ärende: Databas

              Ja, du får kolla först om det finns något att ta emot med PEEK2(PEEK2(65500)+6). Finns det det så kan du göra get #fnr,sträng¤ count antal bytes se följande programexempel 10 OPEN 'V24:VSA70C72.44E' AS FILE 1 20 Z=PEEK2(PEEK2(65500)+6) 30 IF Z>0 THEN GET #1,Z¤ COUNT Z 40 ! Behandla Z¤ 50 GOTO 20 Detta är skrivet i "realtid" och med reservation för fel. mvh /LMJ
              • Bernt Johansson <3384> · Text 7539 · w8 · kommentar

                1987-09-30 14:18

                Ärende: Databas

                Det går snabbare om man i initieringen definierar Rxcnt=PEEK2(65500)+6 och sen i loopen kan man köra GET #Fid,Z¤ COUNT PEEK2(Rxcnt) Det borde kanske också gå att göra finliret POKE VAROOT(Rxcnt),PEEK(65500)+6,PEEK(65501) och sen i loopen GET #Fid,Z¤ COUNT Rxcnt Detta är också skrivet i realtid och inte provat. / Bernt
                • Lars Gjörling <6825> · Text 7540 · w8 · kommentar

                  1987-10-01 00:39

                  Ärende: Databas

                  Det där sista med POKE VAROOT(Rxcnt), ........... går nog inte alls. Variabellistan för heltalsvariabler innehåller inga pekare till vari- abelvärdena. Varje värde lagras direkt efter variabelnamnet. VAROOT(X) och VARPTR(X) har samma värde och vad du gör är att till- dela variabeln Rxcnt värdet PEEK(65500) + 6 + 256*PEEK(65501). Din mening var förmodligen att flytta variabelns dataarea, vilket inte går med heltalsvariabler. Mvh Lars
                  • Bernt Johansson <3384> · Text 7541 · w8 · kommentar

                    1987-10-02 14:25

                    Ärende: Databas

                    Du har rätt. Det var en ide jag fick just när jag satt och skrev inlägget, men det var fel tänkt. Vad jag ville göra var att minska antalet BASIC-operationer inne i loopen. I varje fall bör man nog undvika att göra PEEK2(PEEK2(.... för då hinner man inte med i 1200 baud i full fart. / Bernt