|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - abelsql3000
51
« en: Sábado 3 de Febrero de 2007, 19:16 »
Ya estoy algo oxidado en vb. He programado antes, pero como lo he dejado ud comprenderan. Estoy haciendo esta linea de codigo donde intendto restringir el cuadro de texto a solo numeros. Como veran uso el evento keypress y la funcion INSTR Este es el codigo Private Sub Text1_KeyPress(KeyAscii As Integer) numeros = Chr(KeyAscii) Print n If InStr(n, "1234567890") <> 0 Then KeyAscii = 0 End If End Sub En que me estoy equivocando amigos programadores De ante mano les agradesco su aporte. atte Abel.
52
« en: Martes 30 de Enero de 2007, 06:54 »
He colocado un combobox y le he agregado elementos con la propiedad LIST, le he colocado ademas la propiedad STYLE a 2 (Dropdown List) Ahora lo que deseo es que al cargar el formulario este activo el primer elemento del cuadro combinado sin que yo tenga que codificar en algun procedimiento evento ya sea Load,Initialize,Activate. Habra alguna propiedad que logre esto, o sera que necesariamente use uno de estos eventos y manipule el metodo ListIndex para lograr mi objetivo. Expertos en la materia como logran esto? El porque de esta consulta es debido a que se ve realmente torpe usar un procedimiento evento para colocar una sola linea de codigo, al menos yo lo veo como una verdadera perdida de espacio. Bueno... espero sus comentarios y respuesta. Atte Abelsql3000
53
« en: Domingo 28 de Enero de 2007, 06:09 »
Hola amigos, este es el codigo en VB usando la sentencia multicondicional, lo que deseo es usar es el DO CASE de VFP, evaluando una variable con intervalos como lo usa VB
x=val(txtnumero) Select Case x Case is <5 proceso1 Case 5 to 10 proceso2 Case 11 to 20 proceso3 Case Else proceso4 End Select
¿Como se logra el intervalo de valores en VFP? Plz mandenme un ejemplo. Me han dicho que se usa una funcion, pero no se si es la unica propuesta, espero la mejor propuesta, de ante mano muchas gracias, ABEL
54
« en: Viernes 12 de Enero de 2007, 22:10 »
Necesito codigo que me permita ocultar, pero no eliminar algunos iconos que se encuentran alojados en el systray o tambien llamado bandeja de sistema.  Deseo crear un programita sencillo Actualmente uso un programa llamado Systrayx 3.70 El que desee lo puede probar, pero deseo algo mas a mi medida Espero su plena colaboracion en la construccion de este programita
55
« en: Domingo 7 de Enero de 2007, 22:58 »
Hola amigo angel-k-ido dime donde encuentro esto de
desmarca las casillas:
-Recordar mi cuenta -Recordar mi contraseña -Iniciar sesión automáticamente
Te pido que me indique en forma mas detallada, te lo agradecere Atte Abel
56
« en: Sábado 6 de Enero de 2007, 23:56 »
Hola amigos tengo la version 4.7 de Windows messenger y lo que deseo es que no aparesca mi cuenta de usuario en las sesiones, como se muestran en las siguientes graficas. Observe bien los recuadros rojos, que he colocado, plz no deseo que aparesca ahi ya que sino mi mama me pega, jeje, no en verdad es para evitar que se metan los demas usuarios donde no deben, es decir, a mi cuenta de usuario.
57
« en: Domingo 31 de Diciembre de 2006, 21:44 »
un nada, esta dificil la pregunta?, bueno... espero pronta respuesta, atte abel
58
« en: Viernes 29 de Diciembre de 2006, 23:11 »
He visto que algunos expertos saben manipular muy bien el REGEDIT, por consiguiente quisiera saber que como puedo ocultar los iconos que se ubican en la bandeja de sistema, No deseo dejarlo de ejecutar, solo ocultar, necesito su ayuda amigos expertos, indiquenme por favor en forma detallada la forma de logralo, tengo win98 y winxp atte Abel
59
« en: Viernes 29 de Diciembre de 2006, 23:05 »
hola amigos Se puede tener una misma linea de codigo para el uso del IF en VFP como ocurre en VB Ejemplo:
Private Sub Check5_Click(Index As Integer) Static suma Static cuenta suma = 0 cuenta=0 If Check5(0).Value Then suma = suma + 10:cuenta=cuenta+1 If Check5(1).Value Then suma = suma + 20:cuenta=cuenta+1 If Check5(2).Value Then suma = suma + 30:cuenta=cuenta+1 If Check5(3).Value Then suma = suma + 40:cuenta=cuenta+1 Print Str(suma) Print str(cuenta) End Sub
60
« en: Viernes 29 de Diciembre de 2006, 19:37 »
disculpa si no me he hecho entender pero ahora mando una grafica que muestra las notas de los alumnos que tengo, como podras apreciar la mayor nota es 20 en cambio la 5ta nota mayor es 16 ¿como hago para extraer este valor ? ¿Uso una funcion? ¿cual es?  Gracias por la ayuda amigos F_Tanori Atte Abel
61
« en: Viernes 29 de Diciembre de 2006, 07:20 »
En fin, no sucede con el switch de Borland C, es por eso la unica solucion mas practica es esta.
Private Sub Check1_Click(Index As Integer) Static suma suma = 0 If Check1(0).Value Then suma = suma + 10 If Check1(1).Value Then suma = suma + 20 If Check1(2).Value Then suma = suma + 30 If Check1(3).Value Then suma = suma + 40 Print Str(suma) End Sub
Es lo que deseaba, a menos codigo mas facil la existencia.
62
« en: Viernes 29 de Diciembre de 2006, 06:41 »
JAJAJA si que me hicieron reir, se pasaron, ehhh. Ohe en verdad me apene saber que eso sucederia, pero en fin. Sin duda el fin de las cosas no las determina el hombre sino Dios todopoderoso JEHOVA, a traves de su hijo Jesucristo, que por medio de él fue hecho todas las cosas visibles en invisibles, y por medio de él subsistente las cosas. Por ello no depende de que yo o tú deseas que se haga algo mañana o pasado mañana, o hacer planes futuros, sino que mi palabra sea "SI DIOS ME LO PERMITE". O "DIOS MEDIANTE". Sabiendo que no depende de nosotros que sucedan las cosas encomien mi espiritu, alma y cuerpo al que tiene cuidado de todas las cosas, en quien no hay sombra de variacion, a quien hace todas las cosas posibles por el poder de su palabra, al que permanece por siempre, al Padre de JESUCRISTO. amén.
63
« en: Viernes 29 de Diciembre de 2006, 05:51 »
Gracias por la critica ArKaNtOs. Intentare expresarme mejor la proxima vez Aqui esta lo que estab buscando no se si es lo que me sugeriael compañero Zirrosisn (api ShellExecute), en fin. Otra cosa amigo Angel_K_ido te suguiero dar las respuesta a las consultas en el mismo foro y no derivarlos a otros foros sin responderles aqui, de manera que la gente prefiera este interesante foro llamado "SOLOCODIGO". Debemos hacer respetar la casa
Este es es el codigo segun la instalacion hecha en mi PC, ahora ud lo cambian segun la ubicacion del archivo ejecutable y el archivo documento deseado
Private Sub Command1_Click() Shell "C:\Archivos de programa\Microsoft Office\Office\Powerpnt.exe d]", 1 End Sub
Gracias a Todos, atte Abel
64
« en: Jueves 28 de Diciembre de 2006, 01:35 »
TIENES RAZON AMIGO, DISCULPA EL MAL ENTENDIDO, ES QUE ESTABA APURADO.
La consulta es los sgte: Tengo 5 checkbox y deseo que se incremente el acumulador que he definido en funcion al caso que haya sucedido al activar cierto checkbox, por ejemplo check1, check3,check5. El acumulador debe ser 900, segun el ejemplo.
Private Sub Command1_Click() Static Sum Sum = 0 Select Case True Case Check1.Value Sum = Sum + 100 Case Check2.Value Sum = Sum + 200 Case Check3.Value Sum = Sum + 300 Case Check4.Value Sum = Sum + 400 Case Else Sum = Sum + 500 End Select Print Str(Sum) End Sub
No me funciona aqui el select case para evaluar varios casos
65
« en: Miércoles 27 de Diciembre de 2006, 23:41 »
Miren amigos he leido materiales que me an confundido en ves de ayudar, dicen que la sentencia select case puede hacer varios caso de verdad, otros dicen que solo hace uno y sale del select case, que de cierto es esto ya que necesito usar el select case si es que este puede hacer varios caso a la ves, ejemplo tengo varios checkbox y si se activan dos o tres de ellos que hagan los procesos definidos en el cada Case del select case, pasen ejemplo de esta ocurrencia de SELECT case y Chekbox
66
« en: Miércoles 27 de Diciembre de 2006, 23:32 »
Tengo en EXcel unas celdas que almacenna el registro de las notas de mis alumnos los cuales son unos 50 y son 3 que tiene 20, 7 que tiene 19, 5 que tiene 18, y en fin. Lo que deseo es una funcion que me identifique o extraiga la tercera nota mayor que es 18, no el tercer repetido,mayor que es el 19, sino el tercer mayor que es 18, espero me entienda y mandarme ayuda de la funcion que hace esto, gracias
67
« en: Miércoles 27 de Diciembre de 2006, 23:22 »
Tengo un boton comando en un formulario y deseo que al hacerle click me abra una diapositiva (*.ppt) o (*.pps) en particular. Por favor mandeme el codigo que es urgente
68
« en: Jueves 21 de Diciembre de 2006, 05:55 »
Gracias por todos sus comentarios me agrada su interes en las inquietudes que tengo, les cuento que habia colgado los guantes de la programacion en vb, ya que me habia dedicado a dictar clases de matematicas, es ahora que se me apresentado mi nuevo empleo como profesor de informatica, lo cual me agrado ya que he inertidos 3 años de mi vida en el mundo de la informatica, por lo tanto que era razonable que me este ejerciendo una labor correspondiente a mi capacitacion. No pensabe ver mas la programacion, pero ahora que lo estoy enseñando me entretiene mucho, ya que es todo una experiencia, realmente es algo complicado enseñar programacion si un previo conocimiento de lenguaje estructura , concimientos en seudocodigo y algoritmos. Esta pequeño grupo de informatica ha colocado a vb y vfp dentro de su curricula para una carrera de solo 6 meses, de los cuales 2 son para estos cursos. Me ha costado verdad lograr resultados satisfactorios, hay interesados en saber la programacion, pero con el corto tiempo no se logra el objetivo de ser un programador eso es indiscutible. Gracias amigos por q es con su ayuda que puedo yo capacitar personas de diferentes edades. Entenderan que estoy algo oxidado en programacion, estoy desempolvado, pero a pesar de ello me doy en todo para que mis estudiantes aprendan como les digo a los alumnos. Si es posible escribiria en la pared si no hubiera pizarra.
Este es el codigo que deseaba Private Sub Command1_clic() Select Case True Case Option1.Value Print "1" Case Option2.Value Print "2" Case Option3.Value Print "3" Case Else Print "4" End Select End Sub Ya que seaba evaluar el boton desde un boton de comando y no interactuando directamente con ellos, mucho menso usando arreglos de control, no quiero complicarle la existencia a mis alumnos, ya que no tienen la experiencia que nosotros tenemos. Gracias por todos mi nombre es ABEL de lima, PERU FELIZ NAVIDAD El de Jesucristo es el mejor, a el sea la gloria el imperio, la majestad. El de Jesucristo es el mejor
69
« en: Domingo 17 de Diciembre de 2006, 06:17 »
Deseo inhabilitar un textbox, he usado el enabled a FALSE pero la el color de fuente se pone opaca. He usado tambien el LOCKED, es interesante pero no me gusta porque aun se puede llevar el cursor sobre el cursor y eso da entender al usuario que se puede escribir, por lo tanto deseo que este bien inhabiliatdo pero que el color de la fuente no se opaque, ESPERO SUS SUGERENCIAS EXPERTO.
70
« en: Domingo 17 de Diciembre de 2006, 06:05 »
Quisiera compartir un interezante codigo que me andaron y es lo que andaba buscando:
SELECT CASE True CASE opt(0).Value call mirutina(params...) CASE opt(1).Value call mirutina(params...) CASE opt(2).Value call mirutina(params...) CASE opt(3).Value call mirutina(params...) CASE opt(4).Value call mirutina(params...) CASE Else call mirutina(params...) END CASE
Este de aqui es muy eficiente, (Y)
71
« en: Sábado 16 de Diciembre de 2006, 06:16 »
Muchas gracia por la respuesta, disculpa si no he sido cortes con mi solicitud. Te quiero complicar un poco las cosas. Tu sugerencia en le codigo es buena solo que la evaluacion se dara cada vez que haces click en los botones, pero yo deseo evaluar a los botones desde un COMMAND, mas no a la hora de hacer click sobre los botones, espero me comprendas. El objetivo es evaluar el boton que se activo desde un boton de comando, esto lo he realizado en VFP sin problemas mas en VB ya las cosas se complicaron Aqui esta el codigo en VFP Cmdevaluar Click Do case case thisform.optgrupo.value=1 proceso1 case thisform.optgrupo.value=2 proceso2 . . . . otherwise proceso n endcase Ahora como lo logro con VB, Gracias, Abel
72
« en: Viernes 15 de Diciembre de 2006, 07:17 »
he deseado poner una imagen como fondo en el formulario, pero no cubre todo el formulario, cual es el problema, mi imagen es muy pequeña o hay una propiedad para estirar la imagen, por favor indiqueme que debo hacer con exactitud con ejemplo. atte Abel
73
« en: Viernes 15 de Diciembre de 2006, 07:14 »
Como puedo usar el select case para evaluar que boton se encuentra activado de una serie de botones, por favor mandeme un codigo ejemplo que lo necesito. Deseo tambien usar un Select case que me evalue que elemento de la lista he seleccionado. Plz deseo ejemplos , atte, Abel
74
« en: Viernes 15 de Diciembre de 2006, 07:05 »
Hola quiero usar el evento keypress para validar la entrada de solo numeros en vfp, pero no me funciona El parametro keycode es lo que se muestra, no se como evaluar deseo que solo se digite numeros caso comtrario que no se imprima el caracter en el texbox. Plz paseme el codigo
75
« en: Viernes 1 de Diciembre de 2006, 19:08 »
Deseo el codigo que me permita crear una mascara a un textbox, el objetivo es que se paresca a los que encontramos o vemos en el ingreso de contraseñas o password, donde al digitar nuestra clave, solo vemos asteriscos, o puntos negros. No se si es en TIEMPO DE DISEÑO O TIEMPO DE CODIGO, por favor indiquenme como se realiza tal hazaña.
|
|
|