Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - themindmaster

#21
esta un poco largo pero lo vere XD gracias :)
#23
hola a todos, necesito una manito con este programa XD este es el diseño:



mi codigo hasta ahora es este :( :
Código (vb) [Seleccionar]
Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)

End Sub

Private Sub cmdordenar_Click()
If optascendente Then


End If

End Sub


la función que quiero que haga este programa es que cuando le des click al botom añadir, añada el numero que pongas en el primer text y cuando le des a ascendente o descendente los ordene de forma ascendente o descendente XD espero me entiende y gracias de antemano.

saludos cordiales!
#24
gracias por todo buscare para que sirve todo lo que no entienda :) gracias por toda tu ayuda :)

Saludos Cordiales!
#25
Gracias My Dear Mizuho mi error era que en el codigo pusiste txtdinero y yo tenia txtinsertar asi que puse txtdinero :) y listo gracias :D

Saludos cordiales!
#26
me dice error '424' en tiempo de ejecucion:
se requiere un objeto

saludos!
#27
es que todavia no llego hasta ese punto, la profesora dijo que tendria que usar mod :(
y no era en msgbox era que cuando insertaras el dinero un ejemplo 3500 entonces
billetes de 500= 1
billetes de 2000=1
billetes de 1000=1
:) pero gracias
saludos!
#28
Parece que no me sale bueno miren el diseño:



ese es el diseño y los codigos son:
Código (vb) [Seleccionar]

Private Sub cmdAceptar_Click()
If txtinsertar = 100 Then
txt100 = 1
End If
If txtinsertar = 200 Then
txt200 = 1
End If
If txtinsertar = 300 Then
txt100 = 1
txt200 = 1
End If
If txtinsertar = 400 Then
txt200 = 2
End If
If txtinsertar = 500 Then
txt500 = 1
End If
If txtinsertar = 600 Then
txt100 = 1
txt500 = 1
End If
If txtinsertar = 700 Then
txt200 = 1
txt500 = 1
End If
If txtinsertar = 800 Then
txt100 = 1
txt200 = 1
txt500 = 1
End If
If txtinsertar = 900 Then
txt200 = 2
txt500 = 1
End If
If txtinsertar = 1000 Then
txt1000 = 1
End If
End Sub



pero no creo que esos son los codigos porque tendria que hacerlos infinitamente XD :) bueno gracias de antemano.

saludos!
#29
XD no entendi el codigo buscare para que sirve lo que no entienda y vere si me funciona gracias!!
#30
bueno gracias krazykenny vere si hago algo pero XD buscare como hacer matrices en visual basic a ver si funciona :)