huiswerk LB workshop Amsterdam

Cursussen, tutorials
Plaats hier uw bijdrage.

huiswerk LB workshop Amsterdam

Berichtdoor Gordon » ma nov 14, 2011 12:44 am

Zoals beloofd volgen hier de listings.

De opgave was:
Maak een txt of Excel csv bestand aan met 4 regels met 5 items gescheiden door komma's (txt bestand)
of gescheiden door ; (excel bestand)

Voorbeeld van een regel:
Jansen,Jan,Jammeerdijk 4,Jammerdam,2067 GF
Pietersen,Piet, enz.
enz.
enz.
zoek de bestanden op en laat daarna de gegevens zien in een listbox.
Let op: de volgorde voor het voorbeeld moet zijn:
Jan Jansen Jammeerdijk 2067 GF Jammerdam

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

Re: huiswerk LB workshop Amsterdam

Berichtdoor Gordon » ma nov 14, 2011 12:49 am

Code: Selecteer alles
'oefening oktober 2011
'sequentieel bestand (items door komma gescheiden) met kladblok gemaakt

nomainwin
filedialog "open", DefaultDir$ + "\*.txt",FileName$
if FileName$ ="" then [quit]

open FileName$ for input as #n

while not(eof(#n))
line input #n, a$
r = r + 1
a$(r) = a$
aa$(r) = left$(word$(a$(r),2,",")+ space$(18),18) +_
         left$(word$(a$(r),1,",")+ space$(18),18) +_
         left$(word$(a$(r),3,",")+ space$(20),20) +_
         left$(word$(a$(r),5,",")+ space$(18),18) +_
         left$(word$(a$(r),4,",")+ space$(18),18)
a$(r) = aa$(r)
wend

close #n


WindowWidth = 580
listbox #w.ls ,a$(), [lijst],10,10,540,300
open " " for window as #w
IsopenW = 1
#w.ls "font courier 10"
#w "trapclose [quit]"
wait

[quit]
if IsopenW = 1 then close #w
end

[lijst]
notice "no details"
wait

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

Re: huiswerk LB workshop Amsterdam

Berichtdoor Gordon » ma nov 14, 2011 12:56 am

Code: Selecteer alles
'oefening 19okt 2011 (RV)

NOMAINWIN
WindowWidth = 700 : WindowHeight = 650
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

Menu #main1, "Bestand", "bestand lezen", [openen], "Listbox", [toonlijst], "Exit", [quit1]

Open "opdracht19okt" for text as #main1

Wait

[quit1]
   close #main1
   end

[openen]
'NOTICE "Bestand wordt geopend"

filedialog DefaultDir$, "*.*",fileN$

open fileN$ for input as #1


dim field$(10,4),lst$(10)
while eof(#1)=0
  rec=rec + 1

  for fld = 1 to 4
   field$(rec,fld)= inputto$(#1,",")
  next
  lst$(rec) =field$(rec,2)+space$(30-len(field$(rec,2)))+field$(rec,1)+_
             space$(20-len(field$(rec,1)))+field$(rec,4)+_
             space$(13-len(field$(rec,4)))+field$(rec,3)

wend
'notice lst$(2)
close #1

WAIT

[toonlijst]
'#main3.t1 "!font courier_new 10 bolt"
statictext #main3.t1,"ACHTERNAAM",10,10,100,20
statictext #main3.t2,"VOORNAAM",250,10,100,20
statictext #main3.t3,"POSTCODE",410,10,100,20
statictext #main3.t4,"WOONPLAATS",515,10,100,20


listbox #main3.list1,lst$(),klik,5,33,680,480
'#main3.list, "font courier_new 8"

open "bestand" for window as #main3
      #main3 "trapclose [quit3]"
      #main3.list1 "singleclickselect"
      #main3.list1 "font courier_new 8 bolt"
      #main3.list1 "reload"


wait

[quit3]
close #main3
'close #main1
wait

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


Keer terug naar Leren programmeren met Liberty BASIC

Wie is er online

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

cron