I am trying to generate random images from access database using hashset as it is said to be unique and there won't be any repeated images appearing. But, it doesn't seem to work. ow can i get it to work? By the way, i am very new to the concept of hashset.
Private Function GetImageFromByteArray(ByVal picData As Byte()) As Image
If picData Is Nothing Then
Return Nothing
[code].....
I am trying to generate random images from access database using hashset as it is said to be unique and there won't be any repeated images appearing. But, it doesn't seem to work.
How can i get it to work? By the way, i am very new to the concept of hashset.
Private Function GetImageFromByteArray(ByVal picData As Byte()) As Image
If picData Is Nothing Then
Return Nothing
End If
' is this is an embedded object?
Dim bmData As Integer = If((picData(0) = 21 AndAlso picData(1) = 28), 78, 0)
' load the picture
Dim img As Image = Nothing
Try
Dim ms As New MemoryStream(picData, bmData, picData.Length - bmData)
img = Image.FromStream(ms)
Catch
End Try
' return what we got
Return img
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.Visible = False
Panel2.Hide()
Dim conn As New OleDbConnection
Dim DA As OleDbDataAdapter
Dim DS As New DataSet
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;User Id=admin;Password=;"
DA = New OleDbDataAdapter("Select Empty, EmptyName, Target, TargetName from PicturesDisplayed", conn)
DA.Fill(DS)
Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Dim oledbconnection As OleDbConnection
oledbconnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsAdministratorDesktopdb1.mdb;Jet OLEDB:System Database=system.mdw;")
oledbconnection.Open()
Dim command As OleDbCommand
command = New OleDbCommand("select count (*) from PicturesDisplayed", oledbconnection)
Dim count As Integer
count = command.ExecuteScalar()
oledbconnection.Close()
Dim randomImage As New HashSet(Of Integer)
' Create a integer and new Random object
Dim intPic As Integer
Dim rand As New Random
'Pick a random number between 0 and the number of images in database
intPic = rand.Next(0, count)
randomImage.Add(intPic)
PictureBox1.Height = 256
PictureBox1.Width = 256
PictureBox2.Height = 256
PictureBox2.Width = 256
Dim pic1x As Integer = _
(Me.ClientSize.Width - PictureBox1.Width) 2
Dim pic1y As Integer = _
(Me.ClientSize.Height - PictureBox1.Height) 2
PictureBox1.Location = New Point(pic1x, pic1y)
Dim pic2x As Integer = _
(Me.ClientSize.Width - PictureBox2.Width) 2
Dim pic2y As Integer = _
(Me.ClientSize.Height - PictureBox2.Height) 2
PictureBox2.Location = New Point(pic2x, pic2y)
' Now set the picturebox image equal to the image chosen from the array randomly using the random
PictureBox1.Image = GetImageFromByteArray(DS.Tables(0).Rows.Item(intPic).Item(0))
PictureBox1.Visible = True
PictureBox2.Image = GetImageFromByteArray(DS.Tables(0).Rows.Item(intPic).Item(2))
PictureBox2.Visible = False
If (randomImage.Count = count) Then
Me.Close()
End If
End Sub
I'm having trouble using the Random class. I have this [code]...
I have this code in a function and everytime I call it it return a random number. The problem is I only want the number to be return/generate once. There be times I call the function and it returns the same number as in the pass. Is there a way to random the number once? I know in C++ you use like "Seed" or something and it will only generate once.
Im creating a program that randoms 5 questions and when a certain question is shown then it must not be shown again when the button is clicked. Lets say when "What is my name?"array is shown when the button is clicked then it must not be shown again until the last question that is not shown will be shown.
Public Class Form1
Dim random As New Random
Dim Question() As String = New String(5) {}
[code]....
I would like to generate a random number less than 50, but once that number has beengenerated I would like it so that it cannot be generated again.
View 3 RepliesI have done this code but what is a smart way to get rid of repeats?
card1 = random.Next(0, 52)
card2 = random.Next(0, 52)
card3 = random.Next(0, 52)
[Code].....
I am trying to make a texas hold em game and it is of the utmost importance that my code generate a random number. But using a random number function that I always end up with a lot of the same numbers over and over again. Any ideas on how to make it "TRULY" random? [code]
View 3 RepliesI'm trying to make a mastermind game program with visual basic. I started of creating the combination maker for the start of the game. Hoever, in my version i don't want any colors to repeat. I used the random function independently to get numbers from 1 to 6. Each number has a corresponding color. The problem, the values still repeat sometimes.
Here's my code for that part:
Randomize
a = Fix(Rnd * 6) + 1
txtA = a
If a = 1 Then
[CODE]...
So how would I use .next (random numbers) to randomly select something from a list of numbers but it can't repeat the number?I could do:
dim num as integer
dim r as new random
num = r.next(1,5)
if num = 1 then
elseif num = 2 then
etc.
That wouldn't work because it would repeat.If I donwload someone's game can I disect it in VS? :0 I tried going to open project, then I went to the folder and clicked open. It brought me inside of the folder so I tried to open the game but there is no form1 there. It says the games name then .exe in the explorer-like thing in the top right?Also, how would I have a value or something in a label and access it from a button.
Example:This is in a label.
Dim number as Integer
number = 0
Then in the button do
Label.number = 0
How would I do something like that? I want to use that a lot as I did in a different language.
how can generate (and display) images on the fly for simple charting, resizing etc?
View 3 Replies'm attempting a program and need to generate 10 random numbers between 1 and 52. However all the numbers must be different. I'm trying this in a For Loop. I'm not terribly amazing at this so all I have so far is:
Dim B, I, J, max, min, card() As Interger
max = 52
min = 1
Randomise()
[Code].....
What am I doing wrong and what is the ultimately simple solution I know the internet can provide for me?
I've published a different take on a log in system on CodeProject [URL] and I've got some free time, so I thought I'd have a look at password recovery/reset.It was suggested on the article that I look into sending the account owner a single use, random url where they can reset their password if the account gets locked because of too many invalid login attempts/forgotten password.So far, I'm thinking I just have to generate a random string in a "recovery" field in the database table for the user's row and then check if the requested URL on the site is the same as the value for that field, then dynamically draw the page server-side.
View 1 Repliesi need to create a random string (length of 6) out of the following chars:
"0123456789abcdefghijklmnopqrstuwvxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
How could i do this?
My Sharepoint and Enterprise 2.0 Blog [URL]
This code is in VB6.0I have 28 numbers in sequence (eg 1-28), they are randomly generated and displayed in a label. I dont want a duplicate number displayed in the label. Pls how do I do this. Below is how I generate numbers at random. Now I want to make sure there is no duplicate number displayed in the label.[code]
View 12 RepliesHow to generate random letter but it must between a-z only, I mean is no aa,ab just 1 letter like a,b,c, ..... z.except letter e, because letter e cannot be use as a variable.
View 13 RepliesI need to generate a lot of random 2 character strings for my application. it's a VB console application. basically what I have tried for random strings is this:
[Code]...
I need to generate random strings in vb.net, which must consist of (randomly chosen) letters A-Z (must be capitalized) and with random numbers interspersed. It needs to be able to generate them with a set length as well.
View 5 RepliesSo if you have one button and one textbox; whats the code so when you press the button the textbox comes up with a random number?
View 13 RepliesI have this school assignment to generate random numbers.Can someone please check if this is the right.Also i am not able to Generate this many numbers in the specified range and keep track of how many of each are generated in an array of counters.[code]....
View 35 RepliesI need to generate two different random numbers but this:
Dim r1 As New RandomDim
r2 As New Random
l1 = r1.next (0,1000)
l2 = r2.next (0,1000)
give me random numbers, but they are same any suggestions?
i'm beginer in this forum and new in vb6.how to generate random number in vb6?
is it posible to represent variable in binary?
I have an attribute that I just added to my database to hold confirmation numbers. The only problem is they are all null so I am getting errors. Thus I need a method to generate random confirmation numbers (no duplicates). The column entries have a max size of varchar(20)
Solution:
randNum = Replace(Guid.NewGuid().ToString(), "-", "")
randNum = randNum.Substring(0, 19)
[code].....
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles [code]...
Im getting "overload resolution failed because no access "getobject" accepts this number of arguments. "
Im trying to generate 7 different images in a group box out of 26 images when the form loads.
Generating random numbers in an array HELP
View 6 RepliesI have a code that can generate from letter a to z
here it is
Private Sub GenerateRandomNumbers()
Dim randomObjectName As New Random
randomObjectName.Next(97, 122)
[Code]....
The problem is I'm expecting that the output will be the dim of the letter.
for example the random generated letter is 'a' the output in label1 will be "hi?"
I need to generate 'real' random numbers from 0 to 500 (e.g. 247.214, 477.125, 1.247, 54.078, 147.001 ......etc). I am using this method:
Dim Myrand As New Random
Dim Res As Double
For i = 1 To 10
Res = Math.Round(Myrand.NextDouble, 3)
Next
This method gives numbers between 0 and 1. if I use: Res = Myrand.Next(0,500), then this gives Integer numbers.
The questions is: Is this possible with (Dim Myrand As New Random) or I have to try another way (e.g. Rnd() ) for doing this?
i will like to generate four numbers at random, that will total 100 and assign each to a textbox.
View 6 RepliesI know there has to be a simple way to do this but I'm not sure how the syntax would go. I need to generate a random number from 1 to 99. How do I do this? I have my attempt that failed below:
Private Sub LoadBoard()
Dim mynum As Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99)
Storage.Slot1 = mynum(Int(Rnd() * 10 Mod 99))
End Sub
I have an application that is made for a game that you have to draw cards for. So what I have done is created a random number generator that generates a random number and then using case statements that number is associated with a picture of the card, which is displayed in a picture box. This part works fine. Each time I draw a card it is not reshuffled so I need to store the random number generated and then if that number is generated again ignore it an generate a new number.
Now to complicate matters even further when a certain card is drawn the entire deck is reshuffled and everything starts over again. Here is what I tried... I tried using arrays to store the numbers but I cannot seem to get it to search the array for the number or store the number properly within the array. The array has to be dynamic since the game is expandable and I will be adding more cards to the game in the future.
i would like to generate some random number with some alphabert inside.
View 2 Replies
