Hogyan lehet a visual basic 2012 -ben megcsinálni ezt?
Az kellene hogy a label.Text minimum text 0 legyen!
Ne legyen a label.Text kevesebb mint pl. -100, -1000
Hanem 0 -nál megál és nem megy mínusz ba! Koszike...
válasza:Az onChange eseményt lekezelő függvénybe teszel egy ilyet:
ha (egésszéAlakított(label.Text) < x) akkor label.Text = szöveggéAlakított(x)
A nyelvspecifikus dolgok kiguglizhatók :), de biztos lesz aki megírja egy az egyben itt alattam... de addig is egy picit elindulhatnál egyedül, képezhetnéd magad.
válasza:
válasza:De nekem van ojan játékom hogy.... és van benne shopp!
De ha veszek valamit 1000 € -ért és van 100€ akkor -900 € -lessz nekem az kéne hogy ne legyen 0 aladt! Kódot kérnék és egy leírást ha szabadna.
válasza:Előbb inkább tőled kérünk leírást, hogy most WTF?!
Forráskódod van és módosítani akarod a játékot vagy külső programot akarsz írni, amivel hackelnéd a működő játékot?
Gyanítom az utóbbi eset, vagyis trainert akarsz írni. Ez esetben szerintem inkább valami cheat engine-nel próbálkozz.
Egyébként ha a játék internetes, akkor az egyenlegedet a szerveren tárolják és módosítják vásárláskor, tehát attól, hogy módosítod a label értékét, a világon semmi nem változik.
válasza:Okké.
Akkor mondjuk vásárlás gombnál:
ha (aktuálisEgyenleg - vásárolniKívánTermékÁra < 0)
akkor
... hibaüzenet "Nincs elég gempád!"
különben
... termékEltárolása
... aktuálisEgyenleg -= vásárolniKívánTermékÁra
vége
válasza:Ennél szájbarágósabban nem tudom leírni.
Egyedül ez a sor nem lehet világos egy kezdőnek:
aktuálisEgyenleg -= vásárolniKívánTermékÁra
Ez ekvivalens (egyenértékű) ezzel:
aktuálisEgyenleg = aktuálisEgyenleg - vásárolniKívánTermékÁra
Mi az amit nem értesz?
Remélem konkrét kódot nem vársz tőlem/tőlünk. A világon SEMMIT nem tudunk a programodról.
Deh nekem van egy bolt ugyebár! Na most van 100 pénzem és az amit meg akarok venni 200 akkor -100 lessz deh nekem az kell hogy a minimum 0 legyen ez a kód van nekem a vásárlásnál:
Dim a As Integer = CInt(shopp.Label25.Text)
Dim b As Integer = CInt("1")
Dim c As Integer
c = a + b
shopp.Label25.Text = c
Dim f As Integer = CInt(Form1.Money.Text)
Dim g As Integer = CInt("1300")
Dim h As Integer
h = f - g
Form1.Money.Text = h
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!