Randombefehl in Basic

[PicNick]

ah so. du kannst die Zahl in eine String umwandeln

dim zahl as string * 5
dim ziffer as string * 1
i = rdn(xx) ' die Zahl z.B. 324
zahl = str (i) ' als string = "324"
ziffer = left(zahl, 1) ' das erste zeichen von string = "3"
if ziffer = "1" then .... tralala

[sulu]

Ach ja.Darauf wollt ich hinaus . Hatte mich vielleicht etwas kompliziert ausgedrückt.

Danke PicNick

[Gast1]

Hi,
wie heißt der Befehl, der die 2., 3.,4. oder 5. Stelle abfragt?

[PicNick]

Für Mittendrin:
midstring = MID(string ,start , länge )
und dann gibt's noch die Zeichen von rechts weg gerechet
rightstring = RIGHT(string ,anzahl )
Bei diesen beiden mußt du ein bißchen aufpassen, ob der Input-String überhaupt genug Stellen hat.
dafür wiederum gibt's:
länge = LEN( string )

[sulu]

So,
hab jetzt mal ein Zählprogrammgeschrieben:
Es zählt einfach hoch und gibt bevor es die Zahl ausgibt an, wie Stellen der folgenden Zahl aussehen

Declare Sub Ende()
$regfile = "m16def.dat"
Dim I As Integer
Dim E As Integer
Dim B As Integer
Dim A As Integer

A = 0
Do

B = A + 1
E = B
A = B
I = B
If I > 99999 Then Call Ende
Dim Zahl As String * 5
Dim Ziffer As String * 1

Zahl = Str(i)

Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "1" Then Print "1.=1"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "2" Then Print "1.=2"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "3" Then Print "1.=3"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "4" Then Print "1.=4"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "5" Then Print "1.=5"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "6" Then Print "1.=6"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "7" Then Print "1.=7"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "8" Then Print "1.=8"
Ziffer = Mid(zahl , 1 , 1)
If Ziffer = "9" Then Print "1.=9"

Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "0" Then Print "2.=0"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "1" Then Print "2.=1"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "2" Then Print "2.=2"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "3" Then Print "2.=3"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "4" Then Print "2.=4"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "5" Then Print "2.=5"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "6" Then Print "2.=6"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "7" Then Print "2.=7"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "8" Then Print "2.=8"
Ziffer = Mid(zahl , 2 , 1)
If Ziffer = "9" Then Print "2.=9"

Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "0" Then Print "3.=0"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "1" Then Print "3.=1"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "2" Then Print "3.=2"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "3" Then Print "3.=3"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "4" Then Print "3.=4"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "5" Then Print "3.=5"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "6" Then Print "3.=6"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "7" Then Print "3.=7"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "8" Then Print "3.=8"
Ziffer = Mid(zahl , 3 , 1)
If Ziffer = "9" Then Print "3.=9"

Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "0" Then Print "4.=0"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "1" Then Print "4.=1"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "2" Then Print "4.=2"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "3" Then Print "4.=3"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "4" Then Print "4.=4"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "5" Then Print "4.=5"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "6" Then Print "4.=6"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "7" Then Print "4.=7"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "8" Then Print "4.=8"
Ziffer = Mid(zahl , 4 , 1)
If Ziffer = "9" Then Print "4.=9"

Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "0" Then Print "5.=0"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "1" Then Print "5.=1"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "2" Then Print "5.=2"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "3" Then Print "5.=3"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "4" Then Print "5.=4"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "5" Then Print "5.=5"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "6" Then Print "5.=6"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "7" Then Print "5.=7"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "8" Then Print "5.=8"
Ziffer = Mid(zahl , 5 , 1)
If Ziffer = "9" Then Print "5.=9"

If Ziffer = "0" Then Print "6.=0"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "1" Then Print "6.=1"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "2" Then Print "6.=2"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "3" Then Print "6.=3"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "4" Then Print "6.=4"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "5" Then Print "6.=5"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "6" Then Print "6.=6"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "7" Then Print "6.=7"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "8" Then Print "6.=8"
Ziffer = Mid(zahl , 6 , 1)
If Ziffer = "9" Then Print "6.=9"
Ziffer = Mid(zahl , 6 , 1)


Print B



Loop

Sub Ende
Print "99999"
End
End Sub

Aber irgendwie kann ich für A oben nicht mehr als 32767 einsetzen.

Irgendwann fängt er an rückwärts wieder runter zu zählen.

Versteht ihr das?

[PicNick]

Na ja, ein Integer hat 16 Bit, geht also von 0 - 32767.
Das nächste wäre LONG mit 32 Bit, das geht dann bis 4294967295

[sulu]

Na, manchmal ist man auch blöd
Die 4294967295 reichen erstmal

Nur so zur Bildung : Gibt's auch was mit 64bit?

[PicNick]

Hiesse "Double" , das reicht auch fürs Bundesdefizit.
Beim Bascom muß man dann aber irgendwie mit den Libraries fummeln, da bin ich im moment überfragt

[gast1]

Ich hab auch mal so ein Zählprogramm geschrieben.
Weiß jemand wie man ihm sagt, dass er nicht bei 1anfangen soll zu zählen, sondern bei 000001 z.b.?

[gast1]

Hab mal versucht mit 0,000001 anfagen zu zählen.
Klappt aber auch nicht. Weiß wer nooch was anderes?