ich hab da nen kleines prob.....und zwar hab ich ne zahl die sich immer aendern soll-----das ist ja nicht so schwer....:)
$random = Random (56, 1441, 1) das ist die random zahl die fast immer kommen soll! nur ungefaehr alle 25-40 zahlen soll ne zahl 1241-9999 kommen, und alle 90-110 mal ne zahl 9999 - 50000
wie bekomm ich das am besten hin? weiss das wer?
thx ahead!
mfg
#cs
$random = Random (56, 1441, 1) das ist die random zahl die fast immer kommen soll!
nur ungefaehr alle 25-40 zahlen soll ne zahl 1241-9999 kommen
und alle 90-110 mal ne zahl 9999 - 50000
#ce
Dim $lLimit1 = 25 ; 25-40
Dim $lLimit1_N = 0
Dim $lLimit2 = 90 ; 90-110
Dim $lLimit2_N = 0
Dim $lBuffer = ''
Dim $lRandom = ''
While 1
$lBuffer = Random( 1, 3, 1 )
Switch $lBuffer
Case 1 ; normal
$lRandom = Random( 56, 1441, 1 )
Case 2 ; $lLimit1
$lLimit1_N += 1
If ( $lLimit1_N == $lLimit1 ) Then
$lLimit1_N = 0
$lRandom = Random( 1241, 9999, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
Case 3 ; $lLimit2
$lLimit2_N += 1
If ( $lLimit2_N == $lLimit2 ) Then
$lLimit2_N = 0
$lRandom = Random( 9999, 50000, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
EndSwitch
MsgBox( 0, "", $lRandom )
WEnd
Nicht getestet!
hi
also die formel funzt! soweit ich das sehen konnte! nur....ich bekomm die zahlen nicht dahin wo sie hin sollen 
ich versuch das mit :Send (, "", $lRandom ) habe das auch schon mit & usw üprobiert, aber er spuckt mir immer nen error aus:( in der msgbox kommen die zahlen....da wo sie hin sollen nich!
Bei Send brauchst du nur den String (und flag, ist aber optional)
also reicht:
Send($lRandom)
hat super geklappt! BIG thx!
aber sind die 25 und 90 jetzt nich fix?? geht das auch random?? das es zwischen 25-40 und zwischen 90-110 kommt?? das waere klasse!
