Mensajes

hola.. queria saber si m pueden ayudar para interpretar un codigo de java...
"hipergAcum" he buscado en todas las paginas y no he encontrado nada q me pueda ayudar...


public static double hipergeometrica(int x ,int N ,int M ,int n)
{
double p = combinatoria(M,x) / combinatoria(N,n);
return p * combinatoria(N - M,n - x);
}

mas o menos tengo que crear algo asi como el codigo de arriba.. pero no c como hacerlo xq m sale error en lo de combinatoria.. y no c como hacer para que realize la combinatoria.

el ejercicio que debo hacer consiste en :

Realizar un programa en Java para leer las variables por teclado, aplicando el
método hipergeometrica e implementar el método hipergAcum.

Bueno espero respuesta 

Gracias 
Saludos 

Pues siii quiza funciona... pero el problema es que debo usar SI o SI Do Loop 

Gracias de todos modos 

Buenas a todos, soy aprendiz en VB6 y quisiera que me ayuden con este problema, NO se como usar Do Loop y quiero Determinar si un numero es primo usando Do Loop.

Si alguien tiene conocimiento sobre esto, ayudarme por favor. 

Saludos

Pues sii creo que si 

Bueno Gracias  todos aqui se cierra este tema   

Saludos!   

PD: Quiza al rato abra otro Tema para mas dudas    :laugh:

Ups !! errores de ESCRITURA  pues va asi

Código [Seleccionar] Expandir



Dim i As Integer
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
If Text1.Text = "mar1" And Text2.Text = "mar1" Then
    MsgBox "Bienvenido a mi sistema"
   
Else

i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"
End Select
End If
End Sub



Pues le doy el comand1 pero con el text1.text= "mar1" y igual con el text2 y me sale el mensaje de bienvenido al sistema y si en el text1 y text2 coloco otro palabras, no sale nada  . Pues creo que ya esta. Pero mi duda es para que esto?

Código [Seleccionar] Expandir


i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"


pues SI tienes mucha razon Spider - Net.  Aun sigo intentado pero no sale.
GRACIAS POR SU AYUDA Spider-Net y s E t H 

Bueno es mi tarea y la estoy tratando de hacer son 6 ejercicios y me falta este ultimo 

Pero el text1.text= "mar1" y el text2.text= "mar1" son el ID y la Contraseña para ingresar al sistema ya estoy arreglando eso. Pero el  problema es la variable " vez "
esa cosa tengo que remplazarlo... Pero por que

[Ejercicio 6]

Siii  Gracias  Spider-Net 

Pero a ver si tienes tiempo con un ultimo ejercicio, y dice asi:

Ejercicio 6

Contraseña

Código [Seleccionar] Expandir



Dim i As Integer

Private Sub Command1_Click()
End
End Sub

Private Sub COmmand2_Click()
'trabajando con if y select case
If Text1.Text = "mar1" And Text".Text="mar1"Then
        MsgBox "Bienvenido a mi sistema"
Else

i=i-1
Select Case i
Case 0
vez="ninguna"
Case 1
vez="una primera"
Case 1
vez = "una segunda"
End Select



Pues eso es todo!  y  no tengo idea que me pide    a ver si me ayuda
como ultima vez Spider-Net u otro 

Saludos.

siii tienes razon pero Spider - Net mira lo que hice yo    MUY RARO ! pero salio 

MIRA 

-------------------------------------------------------------------------------------------------

Dim valor As Double
Dim descuento As Double
Private Sub cmdLimpiar_Click()
txtCantidad.Text = ""
txtSinDes.Text = ""
txtTotal.Text = ""
lblDescuento.Caption = ""

End Sub

Private Sub cmdResultado_Click()
Select Case Pelotas
Case Val(txtCantidad.Text) < 101
    lblDescuento.Caption = "Descuento de 30%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    descuento = valor * 30 / 100
    txtTotal.Text = valor - descuento
   
Case 100 > Val(txtCantidad.Text), 25 > Val(txtCantidad.Text)
    lblDescuento.Caption = "Descuento de 20%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    descuento = valor * 20 / 100
    txtTotal.Text = valor - descuento
   
Case 25 > Val(txtCantidad.Text), 10 > Val(txtCantidad.Text)
    lblDescuento.Caption = "Descuento de 10%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    descuento = valor * 10 / 100
    txtTotal.Text = valor - descuento
   
Case Val(txtCantidad.Text) > 10
    lblDescuento.Caption = "No hay Descuento"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    txtTotal.Text = valor
   
       
End Select
End Sub

Private Sub cmdSalir_Click()
Beep
End
End Sub

-------------------------------------------------------------------------------------------------

Me confunde los ">" "<" ">=" "<=" es raro :S

Bueno es el primer tema que abra aca en esta pagina muy interesante. y decirles que ya llevo como 3 semanas leyendo este foro 

Yo estudio Ingenieria de Sistemas y estoy en II ciclo y estan enseñando a usar VB6,
el cual me gusta  pero tengo problemas con el aprendizaje. Quiero aprender y se que aqui en este foro lo lograre, CLARO! con la ayuda de ustedes 

Mi problema es SELECT CASE nose muy bien como aplicarlo. En la Univ. me han dado un ejercicio que dice asi

"Supongamos que al efectuar la compra en un almacen, si adquirimos mas de 100 unidades de un mismo articulo, nos hacen un descuento del 30%, entre el 25 y 100 un 20% ; y entre 10 y 24 un 10% Y no hay descuento para una adquisicion de menos de 10 unidades. Diseñar un formulario donde se incluya los datos importantes y calcular el importe a pagar. Use Select Case."

Y ya avanze algo pero me sale error  a ver si alguien me ayuda

------------------------------------------------------------------------------------
Dim valor As Double
Dim descuento As Double
Private Sub cmdLimpiar_Click()
txtCantidad.Text = ""
txtSinDes.Text = ""
txtTotal.Text = ""

End Sub

Private Sub cmdResultado_Click()
Select Case Pelotas
Case Val(txtCantidad.Text) > 100
    lblDescuento.Caption = "Descuento de 30%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    descuento = valor * 30 / 100
    txtTotal.Text = valor - descuento
   
Case 100 > Val(txtCantidad.Text) >= 25
    lblDescuento.Caption = "Descuento de 20%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    txtTotal.Text = valor * 20 / 100
    txtTotal.Text = valor - descuento
   
Case 25 > Val(txtCantidad.Text) >= 10
    lblDescuento.Caption = "Descuento de 10%"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    txtTotal.Text = valor * 10 / 100
    txtTotal.Text = valor - descuento
   
Case Val(txtCantidad.Text) < 10
    lblDescuento.Caption = "No hay Descuento"
    valor = Val(txtCantidad.Text) * 8
    txtSinDes.Text = valor
    txtTotal.Text = valor
    txtTotal.Text = valor - descuento
       
End Select
End Sub

Private Sub cmdSalir_Click()
Beep
End
End Sub

----------------------------------------------------------------------------------------------
Pues la mayor duda que tengo es que cuanto coloco 9 unidades de Pelotas me sigue saliendo con descuento de 30% pero esta mal. No deberia a ver descuento.

Para mi la falla esta aca:

"Case 25 > Val(txtCantidad.Text) >= 10"
"100 > Val(txtCantidad.Text) >= 25"
"Case Val(txtCantidad.Text) < 10"

Para mi esa son las fallas, pero como solucionarlo 

GRACIAS por leer este tema 
Y espero su ayuda.

Saludos!