QB naar LB

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

QB naar LB

Berichtdoor lorangske » ma aug 11, 2008 6:44 pm

Ik heb in een vroeger leven nogal wat gedaan in QuickBASIC en start nu met LibertyBasic -
bestaat er niet ergens een ' manual ' zoals we die destijds samen met de CD geleverd kregen ?
mijn oude .BAS programma's worden wel netjes geladen, maar lopen natuurlijk niet vermits
de commando's niet erkend worden. Dank en groeten uit Antwerpen. lorangske.
lorangske
 
Berichten: 3
Geregistreerd: do aug 07, 2008 5:42 pm

Re: Hoe in Libertybasic

Berichtdoor anthonio » di aug 12, 2008 10:36 am

hallo lorang,

Het verschil tss QB en LB is niet zo groot, aangezien beide programmeer talen gebaseerd zijn op de BASIC programmeertaal.
De manual vind je onder "help" in het LB programma, deze is wel in het engels.

Natuurlijk kan je ook altijd je broncode vermelden in deze topic hier en dan kunnen we je helpen om het om te zetten in LB taal.

Andy

note: Ik heb je bericht naar het beginner forum verplaatst aangezien er anders 2 onderwerpen door elkaar worden gehaald.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Re: QB naar LB

Berichtdoor lorangske » zo sep 14, 2008 3:25 pm

Hello Vrienden
Ik maakte nogal wat programma's voor mijn Lotto,die ik nu naar LB ga overbrengen maar
zoek de manier om DATA (cijfers) in te lezen en bewerken - hierbij vereenvoudigd stukje :
1000' Datalijst aantal kolommen van 4
DATA 1,2,3,4
DATA 1,2,4,3
DATA 1,3,4,2
DATA 2,3,1,4
DATA 4,3,2,1
DIM G(42),A(50,6),K(50) 'Lotto heeft 42 getallen,'k gebruik hier slechts 5 lijnen van 4
OPEN "E:\omzet.bas" FOR OUTPUT AS #1
G(1)=4:G(2)=7:G(3)=15:G(4)=19
RESTORE 1000
FOR K = 1TO 5
PRINT #1, "DATA ";
READ A(K,1),A(K,2),A(K,3),A(K,4)
WRITE #1,G(A(K,1)),G(A(K,2)),G(A(K,3)),G(A(K,4))
NEXT K
CLOSE #1
Noteer : G zijn "gelukscijfers" waarop men speelt,die in de 5 lijnen als combinatie,
door elkaar worden gehaspeld en kolommen geven om in te vullen -origineel was
dus geDIMensioneerd voor 50 kolom(K),van 6 getallen (A,6).
Naar Engelse begrippen ben ik dus een "numbercruncher"
Ik heb al eens een KISS (Keep It Simply Stupid) programma in LB geschreven - moest
een goede ziel mij met het bovenstaande kunnen helpen of zeggen waar ik moet
gaan zoeken dan zou ik zeer dankbaar zijn. - Lorang.
lorangske
 
Berichten: 3
Geregistreerd: do aug 07, 2008 5:42 pm

Re: QB naar LB

Berichtdoor Abcott » zo sep 14, 2008 5:22 pm

Hallo Lorangske,

Ik ben geen goede onderwijzer.
Code: Selecteer alles
1000' Datalijst aantal kolommen van 4
DATA 1,2,3,4
DATA 1,2,4,3
DATA 1,3,4,2
DATA 2,3,1,4
DATA 4,3,2,1
DIM G(42),A(50,6),K(50) 'Lotto heeft 42 getallen,'k gebruik hier slechts 5 lijnen van 4

OPEN "c:\omzet.bas" FOR OUTPUT AS #1
G(1)=4:G(2)=7:G(3)=15:G(4)=19

RESTORE 1000

FOR K = 1 TO 5
READ num1,num2,num3,num4
A(K,1)=num1 :A(K,2)=num2 :A(K,3)=num3 :A(K,4)=num4

PRINT #1, "DATA "; G(A(K,1)); G(A(K,2)); G(A(K,3)); G(A(K,4))
NEXT K

CLOSE #1



Bedoel je zoiets?

Abcott
Avatar gebruiker
Abcott
 
Berichten: 115
Geregistreerd: wo mei 25, 2005 9:58 pm

Re: QB naar LB

Berichtdoor Gordon » zo sep 14, 2008 5:39 pm

Hoi Lorang,

Abcott was even eerder met zijn antwoord.
Ik heb een soort gelijk voorbeeld, maar de volgende regel uit de listing
van Abcott heb ik wat gewijzigd:
PRINT #1, "DATA "; G(A(K,1)); G(A(K,2)); G(A(K,3)); G(A(K,4))
wordt bij mij gewijzigd in:
Code: Selecteer alles
PRINT #1, "DATA "; G(A(K,1));",";G(A(K,2));","; G(A(K,3));",";G(A(K,4))


Daardoor ziet jouw data bestand er als volgt uit:

Code: Selecteer alles
DATA 4,7,15,19
DATA 4,7,19,15
DATA 4,15,19,7
DATA 7,15,4,19
DATA 19,15,7,4

misschien werk je verder in je programma nog speciaal met komma's
in je data bestand?

Liberty BASIC kan geen data direct in een array plaatsen. Dat staat in de helpfile onder
READ DATA
Het commando WRITE #1 is niet bekend in Liberty BASIC. Daarvoor gebruikt LB gewoon PRINT #1
om naar een sequentieele bestand te schrijven en INPUT #1 om uit een sequentieel bestand
te lezen.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: QB naar LB

Berichtdoor lorangske » do sep 18, 2008 10:34 am

Beste Gordon en Abcott,
dank voor uw snelle reaktie - ik ploeter nu verder en kom later
nog wel eens terug aan de lijn om gebruik/misbruik te maken
van jullie KNOWHOW. Groeten uit Antwerpen - Lorang.
lorangske
 
Berichten: 3
Geregistreerd: do aug 07, 2008 5:42 pm


Keer terug naar Beginner

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron