een serie vragen

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

een serie vragen

Berichtdoor ridick1 » za feb 11, 2012 2:50 pm

Ik heb een serie vragen,

1. kan je een opdracht (bijv notice "test") in een array/variable doen?
2. kan iemand een voorbeeld geven van een combobox? (beter dan die in de voorbeeld programma's van LB)
3. ik denk dat ik het al weet, maar ik ben niet zeker: is deze code mogelijk:

Code: Selecteer alles
dim arraykat(1)
arraykat(0) = 2
arraykat(1) = 2
antwoordkatten = arraykat(0) * arraykat(1)
print antwoordkatten


de bedoeling is, kan je van een array ook een integer (alleen getallen als 1, 2 en 3) maken en die vermenigvuldigen/aftrekken/delen/optellen?

4. kan je een loadingbar/laadbalkje maken? (voor de show :P) het is mogelijk in batch code dus... kan het?
5. de laatste, hoe doe je een sprite als achtergrond? ik probeerde het, maar het lukte niet.


Alvast heel erg bedankt! ik hoop dat het niet te veel vragen zijn...

Groetjes, ridick1
Laatst bijgewerkt door ridick1 op za feb 11, 2012 8:11 pm, in totaal 1 keer bewerkt.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: een serie vragen

Berichtdoor Gordon » za feb 11, 2012 4:13 pm

1. Hoe bedoel je dit?
A$(4) = chr$(34) + "test" + chr$(34)
notice A$(4)

dan zou ik gewoon gebruiken
AS(7) = "test"
notice A$(7)

2.

3. dim arraykat(20)

4. Een heleboel voorbeelden

5. Elk bmp plaatje kun je als achtergrond inladen.
Daarna kun je een sprite maken en die sprite dan animeren bovenop de achtergrond.

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

Re: een serie vragen

Berichtdoor ridick1 » za feb 11, 2012 4:45 pm

Bedankt :D
alleen de dim arraykat(20) snap ik niet. vanwaar die 20? ik heb maar 2 regels nodig, en die beginnen bij 0. toch?

Groetjes, ridick1.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: een serie vragen

Berichtdoor Gordon » za feb 11, 2012 5:37 pm

ridick1 schreef:snip ......
alleen de dim arraykat(20) snap ik niet. vanwaar die 20? ik heb maar 2 regels nodig, en die beginnen bij 0. toch?


Elke twee dimensionele array moet vooraf gedimensioneerd worden.
Elke array met meer dan 10 elementen moet gedimmed worden.

Dim arraykat(1) is alleen te gebruiken voor arraykat(0) en arraykat(1)

Code: Selecteer alles
dim a(1)

a(1) = 4
a(2) = 6

print a(2)
print a(3)


geeft dus een fout bij a(2)


4. Die staan onder de naam progress-simulators bekent
Ik heb ook één geschreven, maar ik weet niet meer waar het staat.
Het is echt iets voor een beginner om zelf één te schrijven.

Natuurlijk kun je die van Microsoft (Windows) gebruiken, maar dan moet
je de DLL's openen en de juiste functie en de parameters invullen.



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

Re: een serie vragen

Berichtdoor ridick1 » za feb 11, 2012 8:08 pm

Lol, ik ben niet goed in het schrijven van functie's :D
Ik heb er wel 1 gevonden van een één of andere mod op dit forum, ik heb hem iets aangepast en voeg hem nu bij mijn progamma's in.
Hier komt de weliswaar een beetje aangepaste versie:

Code: Selecteer alles
nomainwin
Global PBM.SETSTUP : PBM.SETSTEP = 1028
Global PBM.STEPIT : PBM.STEPIT = 1029
Global PBM.SETPOS : PBM.SETPOS = (_WM_USER)+2

BackgroundColor$ = "Black"

WindowWidth = 250
WindowHeight = 150

open "Test progessbar" for window as #1

#1, "trapclose [quitR]"
hWnd = hWnd(#1)
hProg = CreateProgressBar(hWnd, 20, 60, 200, 25)

[Repeat]
timer 0
For i = 0 to 100
    timer 100, [Next]
    wait
    [Next]
    timer 0
    call SetPos hProg, i 'Deze lijn zorgt ervoor dat de progress balk vooruitloopt

next i
notice "laden voltooid! Het progamma wordt afgesloten..."
close #1
end

[quitR]
close #1
end

'Progressbar function
Function CreateProgressBar(hWnd, x, y, w, h)
extStyle = _WS_EX_CLIENTEDGE
progStyle = _WS_CHILD or _WS_VISIBLE

CallDLL #user32, "CreateWindowExA", _
extStyle as long,_
"msctls_progress32" as ptr,_
"" as ptr,_
progStyle as long,_
x as long,_
y as long,_
w as long,_
h as long,_
hWnd as long,_
0 as long,_
hInst as long,_
CreateProgressBar as long
End Function

Sub SetPos hProg, num
CallDLL #user32, "SendMessageA",_
hProg as long,_
PBM.SETPOS as long,_
num as long,_
0 as long,_
ret as long
End Sub





het ziet er leuk en aardig uit, ik heb er zelf geen geschreven omdat er overal stond dat die code wel 400 regels kon worden :)

Groetjes,
Ridick1
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm


Keer terug naar Beginner

Wie is er online

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

cron