Temas

Wnas:
Hace tiempo vi un codigo para generar numeros aleatorios, pero ahora no me acuerdo como se hacia...

Alguien sabe como hacerlo o lo tiene x ahi?

Thnx

HOla, me gustaria sabar si alguien tiene un codigo para calcular potencias.
Thnx!

Hola pues eso, es mi primer codigo, cuando le doy a F5 y pruebo el exe me sale error 424.

Aqui os dejo el codigo...

Código [Seleccionar] Expandir

Public Function CompError() As Integer
If Val(frmIntereses.txtTipo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el tipo de interés", vbCritical)
frmIntereses.txtTipo.SetFocus
CompError = 1
Exit Function
End If
If Val(frmIntereses.txtPeríodo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el período", bvcritical)
frmIntereses.txtPeíodo.SetFocus
CompError = 1
Exit Function
End If

If Val(frmIntereses.txtInvérsion.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para la inversión", vbCritical)
frmIntereses.txtInversión.SetFocus
CompError = 1
Exit Function
End If
CompError = 0
End Function

Y aki el formulario

Código [Seleccionar] Expandir

Private Sub Label1_Click()

End Sub

Private Sub cmdCalcular_Click()
Dim sngTipoInt As Single, sngInterés As Single
Dim intPeríodo As Integer, intNúm As Integer
Dim curValInicial As Currency

If CompError() = 1 Then
      Exit Sub
End If

sngTipoInt = txtTipo.Text / 100
intPeríodo = txtPeriodo.Text

curValInicial = txtInversión.Text
sngInterés = 1
For intNúm = 1 To intPeríodo
sngInterés = sngInterés * (1 + sngTipoInt)
Next intNúm
txtFinal.Text = Format(curValInicial * sngInterés, "###.##0,00 €")




End Sub

Private Sub cmdSalir_Click()
Unload fmrIntereses
End
End Sub

PLEASE ayudadme...