|
Hi all,
hope you can help me. I'm trying to create a dice roll project. I can't get the images to be randomly generated though. for the second one I tried picturebox instead of label - but I think that was probably wrong too.
any ideas?
thanks,
chris
Private Sub ButtonGooi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGooi.Click
Dim Dice As Integer
Dice = (6 * Rnd())
Select Case Dice
Case 1
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
LabelSteen1.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 2
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
PictureBox1.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 3
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
Labelsteen3.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
Case 4
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 1 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 2 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 3 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 4 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 5 & ".gif")
LabelSteen4.Image = Image.FromFile(CurDir() & "\..\ds" & 6 & ".gif")
End Select
End Sub
Private Sub ButtonResultaatTonen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonResultaatTonen.Click
Dim LetsPlay As New FormToonDobbelStenen
LetsPlay.Show()
End Sub
Private Sub FormDobbel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
randomize ()
End Sub
End Class
|
|
|
|
|
It looks like you're selecting the Dice at random but you are still loading the image controls in the same order (i.e. 1 thru 6) and the last one loaded will be the one displayed (i.e. "6").
You should be using the Dice variable (or another randomly generated one) to determine the face showing on the selected die.
Check that Dice = 6 * Rnd() will actually return an integer from 1 to 6 (hint: it doesn't the way it is coded now).
Additionally, if you only need to show one dice face this code can be simplified by removing the redundant image control load statements. If you need to show all faces of each die then be aware that opposite sides of the die total 7 (that is to say that 1 and 6 are on opposite sides of the die, as are 2 and 5, and 3 and 4).
...Steve
|
|
|
|
|
Is there any function to calculate z position in vb. We can calculate the x and y axis but how can we calculate the z axis. It is urgent.
|
|
|
|
|
Ummm.... This may be sound like a stupid question, but, calculate the z-position of what? Mars?????
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
maybe you can look for a prebuilt class with a zfromxandy function.
|
|
|
|
|
Hi Dev Gang
I have a folder with text files in it.. I would like to loop through each of the text files and look for a string e.g."me@here.com.au" and increment a count as each one is found...
Any Ideas?
I am new to programming and can reed text files but this is a little more than that so any help would be great...
Thanks Heaps...
When people make you see red, be thankful your not colour blind.
|
|
|
|
|
If you know how to read textfiles as you say then it's rather easy. Let's suppose you read the textfile in a filecontent string and you look for something stored in the string texttolook then
if filecontent.indexof(texttolook)<>-1 then yourcounter += 1
that's it. And move onto the next file.
|
|
|
|
|
Okay, here's some pseudocode for you. I hope that it helps.
Construct a Regex for your search string
Initialize your count variable to 0
For each file in the directory
Open the file
Read it to the end and store the string
Find the number of matches to the regex in the string
Increment your count variable by that number and, some example (but not necessarily compilable) code
Dim i As Integer
Dim r As Regex
r = New Regex("me@here.com.au")
Dim fileEntries As String() = Directory.GetFiles(targetDirectory)
Dim fileName As String
For Each fileName In fileEntries
i = i + r.Matches(File.OpenText(fileName).ReadToEnd()).Count
Next
"we must lose precision to make significant statements about complex systems."
-deKorvin on uncertainty
|
|
|
|
|
Hi all,
I'm trying to use the Winsock component but when I receive data from the client conection the data buffer is empty although that the "bytesTotal" has the right value.
<br />
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)<br />
Dim data As String<br />
Winsock1.GetData(data)<br />
<br />
Text1.Text = Text1.Text & data<br />
End Sub<br />
If I try to add the type parameter (vbString) I can't compile: "Waiting for =" 
Any idea??
Thanks in advance.
... she said you are the perfect stranger she said baby let's keep it like this... Dire Straits
|
|
|
|
|
I am not able to get what I can see in preview in CRystal report 9. Also I am not able to set the tab spaces and spaces properly in Text Boxes if a I add a large amount of text in it.
I have designed that CR9 in VB 6.0.....
Pls help me out in this
Whats the solution for this or alternate solution
** A Fighter Never Loses !!!!
|
|
|
|
|
hi all,
i m working on a vb.net project. i have used SQL SERVER 7.0 as backend.To save an information into database i used varchar datatype that has 8000 length, i m in trouble coz a particular data field has more than 50000 char.
how to save this field into data base.
what should i do????
Please suggest me any logic to storing it.
hi this ajay bharti
|
|
|
|
|
Try using a datatype of TEXT. Read up on it in the MSDN online help.
...Steve
|
|
|
|
|
Three options.
1) You chamge the datatype in something else (i.e. a text) or if you can't
2) You split the data into 7 fields each 8000 char or if you can't
3) You store your data in a different position (i.e. a file or another DB) and you put in your fied a reference to that information or....
4) ..I don't know!
|
|
|
|
|
Hi,
Can anyone please give me the code snippet in vb6 to check if MDAC is present on a machine and the MDAC version number if it is present.
Right now i have a code that checks the ADO version.
Here is the code:
Option Explicit
Function GetAdoVersion() As String
'Returns an empty string if ADO is not installed
Dim o As Object
On Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 Then
GetAdoVersion = o.Version
Label1.Caption = "ADO Version = " & o.Version
Else
Label1.Caption = "ADO is not installed"
End If
End Function
Private Sub Form_Load()
Call GetAdoVersion
End Sub
Are ADO version and MDAC version the same always?
Thanks in advance,
Sarah
-- modified at 6:12 Thursday 24th November, 2005
|
|
|
|
|
It's not that simple. No ADO and MDAC versions are NOT always the same. Various applications can install differing versions on their own, without installing the complete MDAC package.
There is no reliable way to determine whcih version your using. Component Checker[^] will scan your machine to determine which version of MDAC your machine has installed, or the closest match. It'll show you what pieces are missing and what's installed, as well as the version information for each .DLL.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok.Thanks for taking the time to reply.
-- modified at 0:34 Saturday 26th November, 2005
|
|
|
|
|
|
I really cannot get into the DB story. Anyway this is what it happens.
I'm running VS2005 and MS SQL Server Express. I created a DB under the SQL server and it works. I filled the data manually (right click on the table and see table data) and it works.
At application start I load data into a dataset with the autocreated tableadabter fill method:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
ta.Fill(dbVeicoli)
and it works beacuse the dataset contains the test rows I inserted manually.
Now I have a form to create a new record .. not directly linked but on the OK command click I:
Dim mVehicle As RF_MapDataSet.VeicoliRow<br />
'<br />
mvehicle = dbVeicoli.NewVeicoliRow<br />
mvehicle.ID = CreateID()<br />
mvehicle.Nome = txtNome.Text<br />
...and all the other fields...<br />
dbVeicoli.AddVeicoliRow(mvehicle)
And it works, in the sense that the dataset contains the new row and it's showed somewhere else in the app..... now on the main form closing I want to save the DB and according to documentation it should be very easy:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
ta.Update(dbVeicoli)
Unfortunately it isn't beacuse the DB has still only the original, manually entered, records. Where do I go wrong?
I tried also another way. Rather than updating the dataset, I tried to create new records directly in the DB with this code:
Dim ta As New RF_MapDataSetTableAdapters.VeicoliTableAdapter<br />
'<br />
ta.Insert(CreateID(), txtNome.Text, txtModello.Text, _<br />
txtTipo.Text, txtAnno.Text, txtColore.Text, _<br />
txtTarga.Text, dtpInizio.Value, dtpFine.Value, _<br />
cmbDispositivo.SelectedIndex.ToString, _<br />
1, txtVoce.Text, txtDati.Text, dtpCreazione.Value, _<br />
txtLineaDati.Text, txtLineaSMS.Text, _<br />
txtLineaVoce.Text, Now, "", "", 0, 0, "", "", "", "", _<br />
"", "", 0, "")
but then again the DB is immaculate as before. It comes without saying that I get no exceptions ... so the code seems to work correctly with the DB.
What am I missing?
|
|
|
|
|
Hi all, how do I group radio buttons on a Windows Form without using a group box. I dont want the border effect that the group box has because its a yes/no radio button which comes after a question.
Thanks,
|
|
|
|
|
Use another container like a panel I guess will do the job....
|
|
|
|
|
i want to make a system which is when i key in the matrix number at client side than, the statistic will increase follow how many number are enter. only the admin can view this statistic. How to make this?? how to connect client and admin??
|
|
|
|
|
We 'heard' you the first time
Don't expect an immediate answer to your question. This board is monitored by volunteers - not paid staff.
For more information about getting an answer see this post:
How to get an answer to your question[^]
...Steve
|
|
|
|
|
i want to make a system which is when i key in the matrix number at client side than, the statistic will increase follow how many number are enter. only the admin can view this statistic. How to make this?? how to connect client and admin??
|
|
|
|
|
|
hello can you help me.. its very urgent..
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
