Visual Basic :Ayuda a encontrar los errores

  • Autor Autor Mejia
  • Fecha de inicio Fecha de inicio
Mejia

Mejia

Eta
Verificación en dos pasos activada
Verificado por Whatsapp
Hola, publique este tema aqui por que no se donde publicarlo.
Bueno pues el problema es que me dejaron una tarea de encontrar los errores de el programa que les enseñare mas abajo, el programa consiste en hacer solicitud de pizzas.
Agradeceria mucho a quien me ayude a encontrar los problemas.

PD: yo por mas que busco no encuentro los problemas "ojo soy un novato en visual"

También lo dejo para que lo descarguen y le puedan dar un vistaso.
Link de descarga: Click a qui

Gracias de antemano.

Codigo:
Insertar CODE, HTML o PHP: 
Public completa, carnes, vege As String

Private Sub Check1_Click()
     carnes = carnes & "," & Check1.Caption
End Sub

Private Sub Check2_Click()
     carnes = carnes & "," & Check2.Caption
End Sub

Private Sub Check3_Click()
     carnes = carnes & "," & Check3.Caption
End Sub

Private Sub Check4_Click()
     vejetales = vege & "," & Check4.Caption
End Sub

Private Sub Check5_Click()
     vejetales = vege & "," & Check5.Caption
End Sub

Private Sub Check6_Click()
     vejetales = vege & "," & Check6.Caption
End Sub

Private Sub Combo1_Change()
Text1.Text = Combo1.Text.List
End Sub

Private Sub Command1_Click()
Select Case Command1.Caption
Case "realizar pedido"
  Text1.SetFocus
  Frame1.Enabled = True
  Command1.Enabled = True
Case "ingredientes listos"
  Frame2.Enabled = False
  Frame3.Enabled = False
  Frame4.Enabled = True
  completa = completa & " con las siguientes carnes: " & carnes & " y " & vege
  Text2.Text = completa
  Command1.Caption = "Hacer pedido"
Case "Hacer pedido"
  Command1.Caption = "Gracias por su compra"
  msg box("Si en 30 minutos no llega su pizza es gratis...!")
Case "Gracias oir su compra"
  End
End Select
End Sub

Private Sub Form_Load()
Frame1.Enabled = True
Frame2.Enabled = False
Frame3.Enabled = False
Frame4.Enabled = False

Text1.Locked = True
Text2.Locked = True
Combo1.Enabled = False

Combo1.AddItem "Grande"
Combo1.AddItem "Mediana"
Combo1.AddItem "Pequeña"
End Sub


Private Sub Option1_Click()
If Option1.Value = True Then
  completa = "Una pizza tipo de pasta Alta"
  Text2.Text = completa
End If
  Frame1.Enabled = False
  Combo1.Enabled = True
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
  completa = "Una pizza tipo de pasta Delgada"
  Text2.Text = completa
End If
  Frame1.Enabled = False
  Combo1.Enabled = True
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
  completa = completa & "El cliente cancelara de contado."
  Text2.Text = completa
  Frame4.Enabled = False
End If
End Sub

Private Sub Option4_Click()
If Option4.Value = True Then
  completa = completa & "El cliente cancelara con tarjeta de credito."
  Text2.Text = completa
  Frame4.Enabled = False
End Sub

Private Sub Text1_Change()
If Text1.Text <> "" Then
  completa = completa & Text1.Text
  Text2.Text = completa
End If
  
  Command1.Caption = "Ingredientes listos"
  Combo1.Enabled = False
  Frame2.Enabled = True
  Frame3.Enabled = True
  
  Command1.Enabled = True
  
  
End Sub
 
Text2.Text = completa ----> completa parece variable, metelo entre comillas
msg box("Si en 30 minutos no llega su pizza es gratis...!") ----> no va separado, va junto: MSGBOX("string")

Esos dos errores te ayudaran a vislumbrar los demas, se trata de que revises que la sintaxis esté correcta, la verdad visual basic ya se me olvido.
 
has probado compilarlo y ver que errores te da?

yo se de VB pero al menos en la sintaxis, lo veo OK

capaz esta dando algun tipo de dato erroneo, pero solo compilandolo se vera de que se trata.

crystaldream dijo:
Text2.Text = completa ----> completa parece variable, metelo entre comillas
Hacer clic para expandir...

las variables no van entre comillas, las estarias colocando en un string, y lo de msgbox si es correcto.

Insertar CODE, HTML o PHP: 
Public completa, carnes, vege As String

me parece que cada una deberia ir en su propia linea:

Insertar CODE, HTML o PHP: 
public completa as string
public carnes as string
public vege as string
 
Mmm creo que se me paso ver si completa era una variable, yo pense que era un texto de cadena, bueno... mi error 😉, me pregunto si has prestado atencion al depurador o los mensajes de error que te tira el programa cuando lo pruebas?
 
crystaldream dijo:
Text2.Text = completa ----> completa parece variable, metelo entre comillas
msg box("Si en 30 minutos no llega su pizza es gratis...!") ----> no va separado, va junto: MSGBOX("string")

Esos dos errores te ayudaran a vislumbrar los demas, se trata de que revises que la sintaxis esté correcta, la verdad visual basic ya se me olvido.
Hacer clic para expandir...

En la primera observacion esta incorrecto, si es variable y no va entre comillas.

La segunda es el unico error que tambien he visto.

Tambien tiene razon julcar se declaran por separado y la variable vejetales (deberia ser vegetales XD) no esta declarada, declara como las otras.
 
Insertar CODE, HTML o PHP: 
Case "Gracias [B]oir[/B] su compra"

se cuenta como error?
 
Gracias por ayudarme,
creo que tambien el problema esta en el combo box
antes estaba asi:
Insertar CODE, HTML o PHP: 
Combo1.AddItem = "Grande"
Combo1.AddItem = "Mediana"
Combo1.AddItem = "Pequeña"
y les quite el = por que me aparecia un erro que decia:
El argumento no es opsional.

cual sera el error?

Julcar dijo:
Insertar CODE, HTML o PHP: 
Case "Gracias [B]oir[/B] su compra"

se cuenta como error?
Hacer clic para expandir...

si hablas de la "oir" era "por" pero no cuenta como error, fue error mio xD
 
mejia dijo:
Gracias por ayudarme,
creo que tambien el problema esta en el combo box
antes estaba asi:
Insertar CODE, HTML o PHP: 
Combo1.AddItem = "Grande"
Combo1.AddItem = "Mediana"
Combo1.AddItem = "Pequeña"
y les quite el = por que me aparecia un erro que decia:
El argumento no es opsional.
xD
Hacer clic para expandir...
cual sera el error?
Combo1.AddItem("Grande") intenta eso. a ver si ya no te sale el error.


si hablas de la "oir" era "por" pero no cuenta como error, fue error mio
 
thealkaline dijo:
cual sera el error?
Combo1.AddItem("Grande") intenta eso. a ver si ya no te sale el error.


si hablas de la "oir" era "por" pero no cuenta como error, fue error mio
Hacer clic para expandir...

probe asi y me salio el mismo error:
Ell argumento no es opsional
 
huy, ya hasta hace 2 años sabia algo de visual basic, me olvidé toda a sintaxis 🙁 (hasta tuve que aprender antes a usar liverty basic xD)
 
Entonces creo que es quitandole el igual sol con un espacio.
 
La sintaxis es cosa.AddItem "string"/var creo si no mal recuerdo, vaya que esto se olvida si no se usa (con excepción del sepso ?)
 
También pueden descargar el programa que se los deje para que lo chequen
 
aun hay quienes programamos en ASP y conocemos el lenguaje VB en casi su totalidad...
 
Hay que estar conectado o registrado para responder aquí.

Temas similares

David Batista
Necesito ayuda para encontrar este theme
Respuestas
1
Visitas
133
TrisEnder
TrisEnder
I
Ayuda con Visual Basic y excel
Respuestas
4
Visitas
236
Israel Garcia
Israel Garcia
50euros
Necesito ayuda para encontrar el class de mi botón
Respuestas
15
Visitas
762
50euros
50euros
hastati
Necesito ayuda para encontrar páginas con errores HTML
Respuestas
1
Visitas
395
KalvinOne
K
Ricky Pinto
Necesito ayuda para encontrar el enlace del post con 19 perfiles fakes
Respuestas
2
Visitas
361
Ricky Pinto
Ricky Pinto
Atrás
Arriba