¿Alguien sabe crear códigos en el programa "Visual Basic 6.0"?
Resulta que en las clases que tuve todo lo que hacíamos era crear los gráficos a como nos lo pedían, pero siempre nos dieron el código y lo único que yo debía hacer era corregirlo en pequeños errores de sintaxis, etc, pero ahora nos están pidiendo que hagamos nuestro propio proyecto sobre alguna tienda, estaba pensando hacerlo de un cinema pero el problema es que nunca nos dijeron cómo crear nuestro propio código, si alguien me pudiera explicar como hacerlo se lo agradecería mucho, a continuación muestro un ejemplo de un trabajo que hicimos sobre facturación, algo parecido tengo que hacer sólo que éste código ya me lo habían dado y ahora necesito hacer yo uno para mi proyecto
Private Sub Command1_Click()
Dim dias As Integer, costo As Integer, cable As Integer, telefono As Integer, bar As Integer, hospedaje As Integer, servicio As Integer, total As Integer, igv As Integer, netos As Integer
dias = Val(Text2.Text)
If Option1.Value = True Then costo = 50
If Option2.Value = True Then costo = 70
hospedaje = costo * dias
Text3.Text = Str(hospedaje)
If Check1.Value = vbChecked Then cable = 20
If Check2.Value = vbChecked Then telefono = 20
If Check3.Value = vbhecked Then bar = 20
servicio = cable + telefono + bar
Text4.Text = Str(servicio)
total = hospedaje + servicio
Text5.Text = Str(total)
igv = 0.18 * total
Text6.Text = Str(igv)
neto = total + igv
Text7.Text = Str(neto)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
Private Sub Command4_Click()
Dim res As Integer
res = MsgBox("Desea salir del sistema?", 4 + 32 + 256, "Salir")
If res = 6 Then
End
Else
Cancel = True
End If
End Sub
Private Sub Form_Load()
End Sub