Code voor RPG (geld)

[ninjaplayer]

Codes voor RPG

Beste VB - Programmeurs,

ik ben bezig met het maken van een RPG op een windows applicatie. In de meest en ook in mijn RPG komt geld, goudstukken etc voor. Ik heb 2 vragen:

1. Als je te weinig geld hebt, hoe kan je er dan voor zorgen dat je niet meer iets kan kopen?
Op de applicatie zit een label (om het aantal geld te weergeven) en een button om iets te kopen.

2. Als er bijvoorbeeld op button1 word geklikt verandert de image van picturebox1. Hoe moet dat?

Op de applicatie zit een label (om het aantal geld te weergeven) en een button om iets te kopen.

Ik gebruik Microsoft Visual Basic 2005 Express Edition.

 

[wimpie999]

Je stelt nou wel een heel moeilijke vraag

if lblGeld < lblPrijs then goto {hier naam van een label}

misschien moet je de code nog even verandern want ik heb vb6.

na die label kun je bijv. een msgbox doen, dan zie je dan je te weinig geld hebt

 

[ninjaplayer]

Je stelt nou wel een heel moeilijke vraag

if lblGeld < lblPrijs then goto {hier naam van een label}

misschien moet je de code nog even verandern want ik heb vb6.

na die label kun je bijv. een msgbox doen, dan zie je dan je te weinig geld hebt

Vraagje,

waar zet je dat tussen? Gewoon in bijvoorbeeld form1.vb of moet het in een sub?

 

[That Guy]

in de sub van Button_click, dus de sub die word uitgevoerd als je op de knop drukt...

V:thumb:

 

[WILLIAMXXX]

Beste VB - Programmeurs,

ik ben bezig met het maken van een RPG op een windows applicatie. In de meest en ook in mijn RPG komt geld, goudstukken etc voor. Ik heb 2 vragen:

1. Als je te weinig geld hebt, hoe kan je er dan voor zorgen dat je niet meer iets kan kopen?
Op de applicatie zit een label (om het aantal geld te weergeven) en een button om iets te kopen.

2. Als er bijvoorbeeld op button1 word geklikt verandert de image van picturebox1. Hoe moet dat?

Op de applicatie zit een label (om het aantal geld te weergeven) en een button om iets te kopen.

Ik gebruik Microsoft Visual Basic 2005 Express Edition.

Zoals ik al zei de if functie:

Dus zo:

If goud* <= 60 then
button*.enabled = false
end if

* = hier dan de namen van je controls...
de 60 is het goud dat ze moeten hebben.

Die 2e vraag is zo:

picturebox*.image = my.resources.naamplaatje*

* = naam van je picturebox en plaatje:thumb:

 

[ninjaplayer]

Zoals ik al zei de if functie:

Dus zo:

If goud* <= 60 then
button*.enabled = false
end if

* = hier dan de namen van je controls...
de 60 is het goud dat ze moeten hebben.

Die 2e vraag is zo:

picturebox*.image = my.resources.naamplaatje*

* = naam van je picturebox en plaatje:thumb:

Zet je die ook in een Private Sub Button1_Click...?

 

[That Guy]

Private Sub Command1_Click()
    If label_met_goud_dat_de_speler_heeft <= 60 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
End Sub

V.:thumb:

 

[ninjaplayer]

Er is jammer genoeg een probleempje

"Operator '<=' is not defined for types 'System.Windows.Forms.Label' and Integer."

 

[WILLIAMXXX]

=< is ook fout bij doet die het wel gewoon hoor.

 

[That Guy]

dan doe je ipv <= 60 < 61

dus

Private Sub Command1_Click()
    If label_met_goud_dat_de_speler_heeft < 61 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
End Sub

 

[WILLIAMXXX]

Toch vreemd dat bij hem <= niet herkend wordt...

 

[That Guy]

Haha, ja, Microsoft Visual Basic 2005 Express Edition he?

Nee, ik zie het al: Het moet niet zijn:

 If label_met_goud_dat_de_speler_heeft < 61 Then

maar:

 If label_met_goud_dat_de_speler_heeft.Caption < 61 Then

Wat 'beter' is: je het label-waarde in een variabele zet, en die vergelijken:

Private Sub Command1_Click()
dim gelddatikheb as integer
gelddatikheb = label_met_goud_dat_de_speler_heeft.caption

    If gelddatikheb < 61 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
End Sub

V.:thumb:

 

[WILLIAMXXX]

Haha, ja, Microsoft Visual Basic 2005 Express Edition he?

Nee, ik zie het al: Het moet niet zijn:

 If label_met_goud_dat_de_speler_heeft < 61 Then

maar:

 If label_met_goud_dat_de_speler_heeft.Caption < 61 Then

V.:thumb:

Nee, het moet zijn niet Caption maar text, wij hebben vb.net dus

 

[That Guy]

T_T
valsspelers! hahahaha
okay, dan moet het dus zijn:

Private Sub Command1_Click()
dim gelddatikheb as integer
gelddatikheb = label_met_goud_dat_de_speler_heeft.text

    If gelddatikheb < 61 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
End Sub

V. :thumb:

 

[WILLIAMXXX]

T_T
valsspelers! hahahaha
okay, dan moet het dus zijn:

Private Sub Command1_Click()
dim gelddatikheb as integer
gelddatikheb = label_met_goud_dat_de_speler_heeft.text

    If gelddatikheb < 61 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
End Sub

V. :thumb:

Haha bijna goed

Private Sub Command_Click()

is fout!!!

dis krijg je de volgende code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dim gelddatikheb as integer
gelddatikheb = label_met_goud_dat_de_speler_heeft.text

    If gelddatikheb < 61 Then
        Command1.Enabled = False
    End If

picturebox1.image = my.resources.naam_plaatje
    End Sub

 

[ninjaplayer]

Nog een vraagje

Die vorige vraag van Button1_click...
Picturebox1.image = ...

Heb ik opgelost door een onzichtbare picture box en als erop geklikt wordt, veranderd picturebox1 in plaatje van picturebox2

Nou is de vraag: Hoe kan ik een image maar 1 seconde lang als image voor de picturebox houden?

En...

Ik weet niet hoe het komt maar

if label1.text = 61 then
button1.enabled = false
end if

werkt nu opeens wel!

 

[That Guy]

dat label.text = 61 komt omdat er nu ".Text" achterstaat, eerst hadden we als code alleen label = 61

als je het plaatje maar 1 seconde wilt weergeven moet je of de Sleep(ms) als 'functie' oproepen, of een Timer gebruiken (raad ik op het moment aan)
William kan je daar beter mee helpen want ik ben niet echt expert op vb.net

V.:thumb:

 

[ninjaplayer]

Weet iemand hoe je een afbeelding maar een seconde lang als afbeelding voor de picturebox kan houden?

 

[That Guy]

als je het plaatje maar 1 seconde wilt weergeven moet je of de Sleep(ms) als 'functie' oproepen, of een Timer gebruiken (raad ik op het moment aan)
William kan je daar beter mee helpen want ik ben niet echt expert op vb.net
V.:thumb:

 

[ninjaplayer]

hoe moet dat dan?