for the wheel part, i decided to use a label and then generate random picture with number values on it from a image list. the code for this part is as follow:
Dim j As Integer = 0 'randomly generate a pic with the money value on it Randomize() j = Int(Rnd() * 12)
after i generated teh random number, i find the image that's assigned to that number and also the value that i am assigned to a array in the module of my program. codes are as follow:
'find the value assign to the array that's link to the image list... i think picWheel.Image = imlMoney.Images(j) Money = MoneyValue(j) lblDisplay.Text = MoneyValue(j)
as for the assign value part in the module:
Public MoneyValue(11) As Double Public Sub SetValues() MoneyValue(0) = 1 MoneyValue(1) = 50 MoneyValue(2) = 123 MoneyValue(3) = 160 MoneyValue(4) = 200 MoneyValue(5) = 240 MoneyValue(6) = 350 MoneyValue(7) = 393 MoneyValue(8) = 450 MoneyValue(9) = 600 MoneyValue(10) = 1000 MoneyValue(11) = PMoney End Sub
for some unknown reason, every single time i generated a picture out, it return 0 as the value.
can someone please help me with this?