Necesito ayuda para crear algoritmo

arely83hg · 15 Dic 2009

Necesito ayuda sobre algoritmo y pseudocódigo en vb

Antes que nada buenos dias.

:oops:

Me apena mucho abrir este tema, pero es que ya me pasé toda la noche en vela y no logro terminar mi desarrollo de un proyecto en visual basic, me falta hacer el algoritmo y pseudocódigo y lo tengo que entregar al rato en la escuela.
Ya tengo el programa diseñado en visual basic y tengo el diagrama de flujo, pero no logro entender cómo escribir el algoritmo y pseudocódigo, ya que estoy usando combobox. :confused:

Espero me puedan ayudar, al menos darme una idea, porque estoy perdida, se que el algoritmo debe ser breve y asi como por pasos pero no sé como hacerlo.
Les dejo el código de mi proyecto:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim A, B, C, D, Total As Decimal

If ComboBox1.SelectedItem = "ADMINA" Then

TextBox1.Text = 15000

A = Val(TextBox1.Text)

TextBox2.Text = "Días 15 y 30"

TextBox3.Text = 3950

B = Val(TextBox3.Text)

TextBox4.Text = 135.83

C = Val(TextBox4.Text)

TextBox5.Text = 0

TextBox6.Text = "Nulo"

Total = A - B - C

TextBox7.Text = Total

ElseIf ComboBox1.SelectedItem = "ADMINB" Then

TextBox1.Text = 10000

A = Val(TextBox1.Text)

TextBox2.Text = "Días 15 y 30"

TextBox3.Text = 2000

B = Val(TextBox3.Text)

TextBox4.Text = 135.83

C = Val(TextBox4.Text)

TextBox5.Text = 0

TextBox6.Text = "Nulo"

Total = A - B - C

TextBox7.Text = Total

ElseIf ComboBox1.SelectedItem = "ADMINC" Then

TextBox1.Text = 8000

A = Val(TextBox1.Text)

TextBox2.Text = "Días 15 y 30"

TextBox3.Text = 1200

B = Val(TextBox3.Text)

TextBox4.Text = 135.83

C = Val(TextBox4.Text)

TextBox5.Text = 0

TextBox6.Text = "Nulo"

Total = A - B - C

TextBox7.Text = Total

ElseIf ComboBox1.SelectedItem = "SUPERVISOR" Then

TextBox1.Text = 7000

A = Val(TextBox1.Text)

TextBox2.Text = "Días 15 y 30"

TextBox3.Text = 700

B = Val(TextBox3.Text)

TextBox4.Text = 135.83

C = Val(TextBox4.Text)

TextBox5.Text = 0

TextBox6.Text = "Nulo"

Total = A - B - C

TextBox7.Text = Total

ElseIf ComboBox1.SelectedItem = "PROMOTOR" Then

TextBox1.Text = 6000

A = Val(TextBox1.Text)

TextBox2.Text = "Días 15 y 30"

TextBox3.Text = 600

B = Val(TextBox3.Text)

TextBox4.Text = 135.83

C = Val(TextBox4.Text)

TextBox5.Text = 0

TextBox6.Text = "Nulo"

Total = A - B - C

TextBox7.Text = Total

ElseIf ComboBox1.SelectedItem = "DEMOSTRADOR" Then

TextBox1.Text = 800

A = Val(TextBox1.Text)

TextBox2.Text = "Semanal"

TextBox3.Text = 0

B = Val(TextBox3.Text)

TextBox4.Text = "Nulo"

C = Val(TextBox4.Text)

TextBox5.Text = 0

D = Val(TextBox6.Text)

Total = A + D

TextBox7.Text = Total

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim coneccion As OleDb.OleDbConnection

Dim orden As OleDb.OleDbDataAdapter

Dim Tabla As DataSet

coneccion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Escritorio\bd2.mdb")

Dim q As String

q = "select * from Tabla1 where Numero = @CLAVE"

orden = New OleDb.OleDbDataAdapter(q, coneccion)

orden.SelectCommand.Parameters.Add(New OleDb.OleDbParameter("@CLAVE", OleDb.OleDbType.VarWChar, 20))

orden.SelectCommand.Parameters("@CLAVE").Value = CLAVE.Text

Tabla = New DataSet()

orden.Fill(Tabla, "Tabla1")

GRID1.DataSource = Tabla.Tables("Tabla1").DefaultView

End Sub

End Class

Es un programa para calcular sueldos de diferentes puestos en una empresa, y el segundo boton es de una base de datos en donde se va a ver el supuesto estatus de pago. :¬¬:

Espero alguien me ayude!!! gulp!

Salu2:angel:

taur0842 · 15 Dic 2009

Arely, te adjunto paginas aqui del foro donde vas a enontrar mucho de lo que necesitas, espero te sirva, saludos.

http://ba-k.com/showthread.php?t=53414

http://ba-k.com/showthread.php?t=745961

http://ba-k.com/showthread.php?t=52501

arely83hg · 15 Dic 2009

taur0842 dijo:

Gracias por responder, ya revisé los links, el programa pseint es bueno, pero todavía no logro entender al 100% como plantear el codigo que tengo en forma de algoritmo... y todavia no termino, pero ya voy entendiendo un poco más...
Gracias

Salu2

chaqueun2 · 15 Dic 2009

Hola amig@ el algoritmo quedaría mas o menos de la siguiente forma:

Programa que muestra listas desplegables donde:
Si usuario selecciona opcion ADMINB
Mostrar los valores siguientes:
1.10,000
2.2,000
3.135.83
4.0
Si usuario selecciona opcion ADMINC
Mostrar los valores siguientes:
1.8,000
2.1,200
3.135.83
4.0
Si usuario selecciona opcion SUPERVISOR
Mostrar los valores siguientes:
1.7,000
2.700
3.135.83
4.0
Si usuario selecciona opcion Promotor
Mostrar los valores siguientes:
1.6,000
2.600
3.135.83
4.0

Para los anteriores aplicar la siguiente descripcion: "Dias 15 y 30" y
restar las cantidades 1-2-3 pata obtener un total.El total se debe
mostrar al usuario.
Si usuario selecciona opcion Demostrador
Mostrar los valores siguientes:
1.800
4.0
Con la siguiente descripcion: "semanal" y con el cualculo 1+4
mostrando el total al usuario.

Consulta en la BD para visualizar el estatus del pago mostrando
todas las tuplas de la tabla X donde el numero=clave

Espero te de un idea, estoy seguro que conociendo tu mas el código podrás darte cuenta que le hace falta, porque estoy seguro que probablemente se me hayan pasado algunas cosas.

Y en cuanto a pseudocodigo es muy similar pero aquí ya mencionas la creación de variables y la realización de operaciones como a continuación te muestro:

Declarar variables flotantes A,B,C,D y TOTAL
Generar las siguientes opciones en una lista desplegable:
a)ADMINA
b)ADMINB
c)ADMINC
d)SUPERVISOR
e)PROMOTOR

Si usuario selecciona la opcion a) asignar los valores siguientes
a las variables:
A=15,000
B=3,950
C=135.83
D=0
Mostrar etiqueta con el siguiente texto:"Dias 15 y 30"
Varibale D con etiqueta "Nulo"
Realizar el siguiente calculo para obtener el total:
TOTAL=A-B-C
Mostrar total en etiqueta
.
.
.
.
.
Y así sucesivamente...

Te recomiendo que uses las variables de tipo float porque de lo contrario cuando realices la resta el resultado que obtengas no te dará con punto decimal.

Espero te haya servido,saludos y cualquier cosa mándame msj privado y te echo la mano!
Ahhh y suerte con la tarea!!

arely83hg · 16 Dic 2009

chaqueun2 dijo:

Hola amig@ el algoritmo quedaría mas o menos de la siguiente forma:

Programa que muestra listas desplegables donde:
Si usuario selecciona opcion ADMINB
Mostrar los valores siguientes:
1.10,000
2.2,000
3.135.83
4.0
Si usuario selecciona opcion ADMINC
Mostrar los valores siguientes:
1.8,000
2.1,200
3.135.83
4.0
Si usuario selecciona opcion SUPERVISOR
Mostrar los valores siguientes:
1.7,000
2.700
3.135.83
4.0
Si usuario selecciona opcion Promotor
Mostrar los valores siguientes:
1.6,000
2.600
3.135.83
4.0

Para los anteriores aplicar la siguiente descripcion: "Dias 15 y 30" y
restar las cantidades 1-2-3 pata obtener un total.El total se debe
mostrar al usuario.
Si usuario selecciona opcion Demostrador
Mostrar los valores siguientes:
1.800
4.0
Con la siguiente descripcion: "semanal" y con el cualculo 1+4
mostrando el total al usuario.

Consulta en la BD para visualizar el estatus del pago mostrando
todas las tuplas de la tabla X donde el numero=clave

Espero te de un idea, estoy seguro que conociendo tu mas el código podrás darte cuenta que le hace falta, porque estoy seguro que probablemente se me hayan pasado algunas cosas.

Y en cuanto a pseudocodigo es muy similar pero aquí ya mencionas la creación de variables y la realización de operaciones como a continuación te muestro:

Declarar variables flotantes A,B,C,D y TOTAL
Generar las siguientes opciones en una lista desplegable:
a)ADMINA
b)ADMINB
c)ADMINC
d)SUPERVISOR
e)PROMOTOR

Si usuario selecciona la opcion a) asignar los valores siguientes
a las variables:
A=15,000
B=3,950
C=135.83
D=0
Mostrar etiqueta con el siguiente texto:"Dias 15 y 30"
Varibale D con etiqueta "Nulo"
Realizar el siguiente calculo para obtener el total:
TOTAL=A-B-C
Mostrar total en etiqueta
.
.
.
.
.
Y así sucesivamente...

Te recomiendo que uses las variables de tipo float porque de lo contrario cuando realices la resta el resultado que obtengas no te dará con punto decimal.

Espero te haya servido,saludos y cualquier cosa mándame msj privado y te echo la mano!
Ahhh y suerte con la tarea!!

Muuchas gracias DarkGreen, ya me quedó muchisimo más claro.... Gracias por tu ayuda y por contestar :vientos:

chaqueun2 · 18 Dic 2009

De nada amig@ pero soy Chaqueun2 jejeje saludos!

arely83hg · 18 Dic 2009

chaqueun2 dijo:

jajajaj si es cierto, perdon!! es que con tanta tarea estoy mas dormida que despierta...
Salu2 y una vez más: gracias x la ayuda

:vientos:

Necesito ayuda para crear algoritmo

arely83hg

Bovino maduro

taur0842

Bovino adicto

arely83hg

Bovino maduro

chaqueun2

Becerro

arely83hg

Bovino maduro

chaqueun2

Becerro

arely83hg

Bovino maduro