How do I use a random number generator?

I would like to create a random number. I have tried using the RND command but it returns a value of zero.

Has anyone tried to create a random number and assign it to a variable in PCDMIS?

Thanks

Parents

devin_cmm over 9 years ago

Hi,Anders,Can I enter the command 'NextRandom' in PC-DMIS command modle?And how to use this script.

Put the following in a text file, call it Random.BAS. Each time you call the function NextRandom the PC-DMIS variable RND will have a new value (between 0 and 1).

Sub NextRandom

 Dim App As Object
  Set App = CreateObject ("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim Var As Object
  Set Var = Part.GetVariableValue ("RND")
  Dim I As Object
  If Not Var Is Nothing Then
    Var.DoubleValue = RND(1)
    Part.SetVariableValue "RND", Var
    MsgBox "RND is now: " & Var.DoubleValue
  Else
    MsgBox "Could Not find variable"
  End If

End Sub

Sub InitRandom
 RANDOMIZE
 Call NextRandom
End Sub

Sub Main
  Call NextRandom	
End Sub

Reply

devin_cmm over 9 years ago

Hi,Anders,Can I enter the command 'NextRandom' in PC-DMIS command modle?And how to use this script.

Put the following in a text file, call it Random.BAS. Each time you call the function NextRandom the PC-DMIS variable RND will have a new value (between 0 and 1).

Sub NextRandom

 Dim App As Object
  Set App = CreateObject ("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim Var As Object
  Set Var = Part.GetVariableValue ("RND")
  Dim I As Object
  If Not Var Is Nothing Then
    Var.DoubleValue = RND(1)
    Part.SetVariableValue "RND", Var
    MsgBox "RND is now: " & Var.DoubleValue
  Else
    MsgBox "Could Not find variable"
  End If

End Sub

Sub InitRandom
 RANDOMIZE
 Call NextRandom
End Sub

Sub Main
  Call NextRandom	
End Sub

Children

No Data