ayuda soy nuevaso

[Fhaker]

hola se muy poko de VB y estoy tratando de crear mi primer programa, que no tiene utilidad alguna...para lo uniko que sirve es para aprneder y familiarizarme con este tema

me gustaria saber como hacer para q un label (o lo q fuere) cambie su texto cada ves que aprete el command botton...con mis conocimientos solo logre esto...pero es obvio q esto fallara pq el bucle solo adkiere el ultimo valor es decir el final del bucle, es decir...en este caso la variable bucle siempre va a valer 5 :S...

Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim r As Integer
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 10)
b = Int(Rnd * 5)
c = Int(Rnd * 10)
Dim bucle As Integer
For bucle = 1 To 5
If bucle = 1 Then
Label1 = "Al nº que pensaste sumale " & a
End If
If bucle = 2 Then
Label1 = "Al nº que pensaste restale " & b
End If
If bucle = 3 Then
Label1 = "Al nº que pensaste sumale " & c
End If
If bucle = 4 Then
Label1 = "Restale el numero que pensaste"
End If
r = a - b + c
If bucle = 5 Then
Label1 = "El resultado es " & r & " viste como adivine"
End If
Next
DoEvents
End Sub

[zXxOsirisxXz]

Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim r As Integer
Dim bucle As Integer
Randomize
a = Int(Rnd * 10)
b = Int(Rnd * 5)
c = Int(Rnd * 10)
For bucle = 1 To 5
If bucle = 1 Then
Label1 = "Al nº que pensaste sumale " & a
End If
If bucle = 2 Then
Label1 = "Al nº que pensaste restale " & b
End If
If bucle = 3 Then
Label1 = "Al nº que pensaste sumale " & c
End If
If bucle = 4 Then
Label1 = "Restale el numero que pensaste"
End If
r = a - b + c
If bucle = 5 Then
Label1 = "El resultado es " & r & " viste como adivine"
End If
Next
DoEvents
End Sub

ahi lo tienes, de forma que el bucle no sea = 5, y cuando le des al buton, el label cambie, pero!!!, leyendo el codigo, y las preguntas, no creo k sea lo que buscas, en caso de que quieras que el programa diga "Sumale 'Random' al numero que pensaste", no lo estas haciendo de la forma en que deveria.

Salu2

[Fhaker]

eso me imagine...

=mente intete hacerlo de nuevo...pero esta ves use solo bulces for

Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim r As Integer
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 10)
b = Int(Rnd * 5)
c = Int(Rnd * 10)
Dim bucle As Integer
r = a + c - b

For bucle = 0 To 1
Label1 = "Al Numero que pensaste sumale " & a
DoEvents
Next

For bucle = 1 To 2
Label1 = "A el resultado que te haya dado restale " & b
DoEvents
Next

For bucle = 2 To 3
Label1 = "Ahora sumale " & c
DoEvents
Next

For bucle = 3 To 4
Label1 = "Restale el numero que pensaste"
DoEvents
Next

For bucle = 4 To 5
Label1 = "el resultado que obtuviste es " & r & " ...viste como adivino "
Next

End Sub

tamp salio...la gracia seria q el bucle estubiese frenado y cada ves q apreto el command botom se active, suba 1...se frene, el user lea , calcule aprete de nuevo y vuelva a funcionar el bulce, suma uno de nuevo, se frena y asi..

[Fhaker]

ya lo logre!!!!
jeje use un poco la cabeza (cosa q deberia hacer mas) y lei bastante, en el foro y manuales (cosa q tamb deberia hacer mas) y me salio...solo con un boton y un label:

Option Explicit
Dim a(5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Dim d As Integer
Dim f As Integer
Private Sub Command1_Click()
f = f + 1
Randomize
a(f) = Int(Rnd * 10)
b(f) = Int(Rnd * 5)
c(f) = Int(Rnd * 10)
d = a(1) + c(1) - b(1)
If f = 1 Then
Label1 = "Al numero que pensaste sumale " & a(1)
End If
If f = 2 Then
Label1 = "Al resultado que te haya dado restale " & b(1)
End If
If f = 3 Then
Label1 = "Ahora sumale " & c(1)
End If
If f = 4 Then
Label1 = "Ahora restale el numero que pensaste"
End If
If f = 5 Then
Label1 = "EL resultado final te dio " & d & " ...viste como adivino"
End If
End Sub