Randomize String

[Madboy]

Private Sub cmdGenerate_Click()
'STORE VARIABLES'
Dim sPossible(5) As String, iTemp As Integer
Static iLast As Integer
'STRINGS TO BE RANDOMIZED'
sPossible(0) = "Hello"
sPossible(1) = "Hello vbForums"
sPossible(2) = "Good day"
sPossible(3) = "Lets go to the pub"
sPossible(4) = "Youre getting married?!"
sPossible(5) = "Im getting a new car today!"
'RANDOMIZE IT'
Randomize Timer
Do
iTemp = Rnd() * 5
Loop Until iLast <> iTemp
iLast = iTemp
txtMain.Text = sPossible(iTemp)
'FINISH THE JOB'
txtMain.SetFocus
txtMain.Refresh
End Sub

[Madboy]

{$R *.dfm}

var
iLast: integer;

procedure TfrmTipOfTheDay.FormCreate(Sender: TObject);
Var
  sPossible: array[0..5] of string;
  iTemp: integer;
begin
  frmMain.tmrMain.Enabled:= False;
  //Possible tips
  sPossible[0]:= 'Hello';
  sPossible[1]:= 'Hello vbForums!';
  sPossible[2]:= 'Good day';
  sPossible[3]:= 'Lets go to the pub';
  sPossible[4]:= 'Youre getting married?!';
  sPossible[5]:= 'Im getting a new car today!';
  //Generate random tip
  Randomize;
  repeat
   iTemp:= Random(6);
  Until iLast <> iTemp;
  iLast:= iTemp;
  txtMain.Text:= sPossible[iTemp]
end;

[Madboy]

You could also put it in a private procedure and call it as needed, useful for say if you have a Next tip button. Although this is in Delphi, you can see how to convert back to VB from above:

var
  iLast: integer;

procedure TfrmTipOfTheDay.RandomizeTips;
var
  sPossible: array[0..5] of string;
  iTemp: integer;
begin
  //Possible tips
  sPossible[0]:= 'String 0';
  sPossible[1]:= 'String 1';
  sPossible[2]:= 'String 2';
  sPossible[3]:= 'String 3';
  sPossible[4]:= 'String 4';
  sPossible[5]:= 'String 5';
  //Randomize tips
  Randomize;
  repeat
   iTemp:= Random(6);
  Until iLast <> iTemp;
  iLast:= iTemp;
  txtMain.Text:= sPossible[iTemp]
end;

procedure TfrmTipOfTheDay.FormCreate(Sender: TObject);
begin
  RandomizeTips;
end;

procedure TfrmTipOfTheDay.cmdNextClick(Sender: TObject);
begin
  RandomizeTips;
end;

Only problem is the next tip will never be unique, meaning you could randomize the next tip and get the same tip as the previous one. There are many ways to prevent this however.

[jhermiz]

Is there any specific reason you are posting delphi code in a VB6 codebank? Can you read ????

[Madboy]

I said it can be illistrutated for conversion back to VB6

[Madboy]

Actually it is VB ready, just shows Delphi code too

Sorry for the mix up