Avatar billede lillholm Nybegynder
08. januar 2004 - 21:57 Der er 3 kommentarer og
1 løsning

Skriv data til fil

Hej :)

Jeg er igang med et projekt hvor jeg gaar ind og styre en masse dioder igennem min lpt port og det virker ogsaa fint nok...

Men jeg er nu igang med at lave et program hvor man saa kan "programmere" dioderne til at lave en masse ting saa som at nogen af dem er taendt blinker og what ever man ellers kan finde paa

Til det har jeg brugt en slider for at kunne skifte imellem de forskellige frames....
i mit program kan man kontrollere 256 dioder som man saa fx har 30 frames til saa men kan lave alle mulige sjove ting med det
mit problem er nu at naar jeg bruger den slider der saa vil jeg gerne ha den gemmer det fra forige frame saa naar man klikker tilbage til den med slideren saa kommer den frem....
jeg har fundet ud af at opstille en framenummer & "," & og saa kommer der ellers diode et... hvis den er taent er der 1 og hvis den er slukket saa 0

vil sige det kommer til at se saadan her ud

42,1010110101010101010 og saa bare derud af :)

men mit spoergsmaal til det er saa hvordan fuck jeg faar den til at fatte den linie igen? og hvordan skriver man det til en fil ? som en save funktion saa man kan lege vidre med det en anden dag?

pyha... der var sgu meget der :D

men haaber det var til at forstaa ellers maa i bare spoerge ind hvis der er noget i er i tvivl om  :)

kunne man eventuelt bruge noget array til det ?
Avatar billede joern Nybegynder
08. januar 2004 - 23:07 #1
Hej.

Et array slettes i hukommelsen, når du lukker dit program.  Men det er let nok at skrive til og læse fra en tekstfil.  Det gør ikke noget at det er tal, du vil gemme.

Din talstreng befinder sig vel i en variabel, der har et navn?  Jeg kalder den talstreng.

Dim talstreng, linie as String

command1_click()
Open app.path & "\data.txt" for append as #1
  print #1, talstreng
Close #1

For at åbne skriver du:

command2_click()
  Open App.Path & "\data.txt" for Input as #1
    Do While EOF(1) = False
      Line Input #1, linie
      List1.AddItem linie
    Loop
  Close #1

Nu har du dine strenge i en listeboks.

List1_Click()
  talstreng = list1.text
End sub

Sådan cirka efter hukommelsen

M.v.h.  Jørn
Avatar billede martin_moth Mester
10. januar 2004 - 16:47 #2
Ellers er der ca. 100000000 spørgsmål om at skrive/læse fra textfiler her på eksperten :o)
Avatar billede joern Nybegynder
10. januar 2004 - 17:12 #3
Martin>>

Ja, du har ret.  Og Lillholm har glemt at han har spurgt.  Men jeg syntes at det lange spørgsmål fortjente endnu et svar.  Måske ved han ikke at det bare er en ascii-fil, han skal skrive til.  Hver uge sine nybegyndere.

M.v.h.  Jørn
Avatar billede lillholm Nybegynder
14. januar 2004 - 19:33 #4
hmmm ok fik da svar paa lidt...
men havde fundet ud af at skrive til en fil,,.,

mit andet spoergsmaal fik jeg vist ikke udybet godt nok kan jeg se.... saa opretter et nyt spoergsmaal nu :)

men her lidt point til joern!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester