am 21.12.2005 9:21 Uhr schrieb Kurt Keller unter kkeller at popnet dot ch:
> eine simple Frage für euch Cracks da draussen: ich möchte den Computer dazu
> bringen, mir eine ganzzahlige Zufallszahl zu generieren, deren Maximalwert
> ich mit einem Eintrag in ein EditField angeben kann.
>
> Beispiel: Ich gebe die Zahl "1250" in das EditField ein und dann soll das
> Programm mir eine Zufallszahl zwischen 1 und 1250 in ein staticTextField
> schreiben.
>
> Ich bin sicher, das geht ganz einfach, habe aber im Moment nicht die Zeit
> zum Tüfteln. Version: REALbasic 5.1 Mac OS X 10.3.9.
>
> Bitte keine Verweise auf MonkeyBreadPlugin und solche Zusätze - es soll mit
> den Scriptmöglichkeiten des Programms selber erledigt werden können.
> Vielen Dank!
> K.Keller
>
Hallo Kurt,
unter RB 4.5.3
via Rnd Funktion
Beispiel aus der Sprachreferenz:
Function RandInt(minVal As Integer, maxVal As Integer) As Integer
Return minVal + Rnd * (maxVal - MinVal + 1)
End Function
Unter RB 5.5.3
via Random Klasse
Beispiel aus der Sprachreferenz:
Dim r as Random
r=New Random
Statictext1.Text=Str(r.InRange(0,1000))
Ob RB 5.1 schon die Random Klasse hat weiß ich nicht.
Gruß
Rudi
From Wed 21 Dec 2005 11:25:29 +0100
Return-Path: <realbasic-nug dot de-bounces at lists dot realsoftware dot com>
Received: from lists.realsoftware.com (209.198.132.125) by realsoftware.com
with ESMTP (Eudora Internet Mail Server 3.1.3);
Wed, 21 Dec 2005 04:25:37 -0600
Received: from lists.realsoftware.com (localhost [127.0.0.1])
by lists.realsoftware.com (Postfix) with ESMTP
id CBA17F7160C; Wed, 21 Dec 2005 04:25:34 -0600 (CST)
X-Original-To: realbasic-nug dot de at lists dot realsoftware dot com
Delivered-To: realbasic-nug dot de at lists dot realsoftware dot com
Received: from smtprelay04.ispgateway.de (smtprelay04.ispgateway.de
[80.67.18.16])
by lists.realsoftware.com (Postfix) with ESMTP id 2EF69F71600
for <realbasic-nug dot de at lists dot realsoftware dot com>;
Wed, 21 Dec 2005 04:25:31 -0600 (CST)
Received: (qmail 7006 invoked from network); 21 Dec 2005 10:25:29 -0000
Received: from unknown (HELO [192.168.1.80]) (363246 at [84 dot 175 dot 113 dot
21])
(envelope-sender <support at monkeybreadsoftware dot info>)
by smtprelay04.ispgateway.de (qmail-ldap-1.03) with SMTP
for <realbasic-nug dot de at lists dot realsoftware dot com>;
21 Dec 2005 10:25:29 -0000
To: realbasic-nug dot de at lists dot realsoftware dot com (REALbasic NUG
German)
In-Reply-To: <BFCECEFF dot 6746%kkeller at popnet dot ch>
From: support at monkeybreadsoftware dot info (Christian Schmitz)
Date: Wed, 21 Dec 2005 11:25:29 +0100
Message-ID: <1h7x3pe dot jjblus1ndsjx8M%support at monkeybreadsoftware dot info>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Organization: Monkeybread Software Germany
X-Face: nrf3>{WQ6c&r+7 at e)"]0G60`-6ND^)I2mI%>)QGYa=9"=7jhd-g2|b3!>Al0+
Ccb%xGQshhi|g at QU2$
User-Agent: MacSOUP/D-2.7 (Mac OS X version 10.4.3)
Subject: Re: random
X-BeenThere: realbasic-nug dot de at lists dot realsoftware dot com
X-Mailman-Version: 2.1.2
Precedence: list
Reply-To: REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware
dot com>
Sender: realbasic-nug dot de-bounces at lists dot realsoftware dot com
Errors-To: realbasic-nug dot de-bounces at lists dot realsoftware dot com
Kurt Keller <kkeller at popnet dot ch> wrote:
> Bitte keine Verweise auf MonkeyBreadPlugin und solche Zusätze
Geht auch nicht weil da nichts zu Random drin ist :-)
n=rnd*cdbl(editfield.text)
sollte reichen.
Gruß
Christian
--
Around eleven thousand functions in one REALbasic plug-in.
The Monkeybread Software Realbasic Plugin.
<http://www.monkeybreadsoftware.info/realbasic/plugins.shtml>
|