|
|
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 - ferhn
1
« en: Sábado 20 de Septiembre de 2008, 17:07 »
Aca les dejo algo interesante para hacer casi de todo con texto Esto lo hice dentro de un clase Dim cTexto As String Dim dLetras As Integer Dim i, SB, J As Integer Dim P() As String Dim POriginal As String 'para las palabras Dim dPalabra As Integer Dim wordCount As Integer ' Número de palabras en el documento 'Dim sourceText As String ' Contiene el texto del documento para examinarlo Dim startFound, endFound As Integer ' Banderas para seguir la pista de las palabras encontradas Dim thisChar As String 'mayuscula Dim Mayu As String Dim Minus As String Dim DNormal As String Dim LetraSin As String Dim TextoReves As String Dim Fechas As Date Dim Hora As Date Public Property Get CuentaLetras() As String CuentaLetras = dLetras End Property Public Property Let CuentaLetras(ByVal vNewTexto As String) cTexto = vNewTexto dLetras = Len(cTexto) End Property Public Property Get CuentaPalabra() As String CuentaPalabra = wordCount End Property Public Property Let CuentaPalabra(ByVal vNewValue As String) ' Inicializar wordCount, offSet, y las banderas "Found" wordCount = 0: offSet = 1: startFound = False: endFound = False ' Copiar documento en variable (para examinarlo más rápidamente) ' Examina cada carácter hasta llegar al final del documento. Do Until offSet > Len(cTexto) thisChar = Mid$(cTexto, offSet, 1) If Not startFound Then ' Buscar principio de palabra startFound = isAlphaNumeric(thisChar) If startFound Then wordCount = wordCount + 1 Else ' Buscar final de palabra. endFound = Not isAlphaNumeric(Mid$(cTexto, offSet, 1)) If endFound Then startFound = False: endFound = False End If offSet = offSet + 1 Loop 'Visualizar el número de palabras 'MsgBox "Este documento contiene " & wordCount & " palabras." End Property Private Function isAlphaNumeric(anyChar) As Integer Select Case Asc(anyChar) Case 65 To 90 'A a Z isAlphaNumeric = True Case 97 To 122 'a a z isAlphaNumeric = True Case 48 To 57 '0 a 9 isAlphaNumeric = True Case 193, 225, 201, 233, 205, 237, 211, 243, 218, 250 'Á, É, Í, Ó, Ú, á, é, í, ó, ú isAlphaNumeric = True Case 220, 252 'Ü, ü isAlphaNumeric = True Case 209, 241 'Ñ, ñ isAlphaNumeric = True Case Else isAlphaNumeric = False End Select End Function Public Property Get TodoMayus() As String Mayu = StrConv(cTexto, vbUpperCase) TodoMayus = Mayu End Property Public Property Get TodoMinus() As String Minus = StrConv(cTexto, vbLowerCase) TodoMinus = Minus End Property Public Property Get Normal() As String Normal = DNormal End Property Public Property Let Normal(ByVal vNewValue As String) DNormal = vNewValue End Property Public Property Get PalabraExtraida(Text1 As TextBox, Numero As Integer) Dim SB, J As Integer SB = 1 For i = 1 To Len(Text1) If Mid(Text1, i, 1) <> " " Then ReDim Preserve P(SB) P(SB) = P(SB) & Mid(Text1, i, 1) J = i Else Do While Mid(Text1, i, 1) = " " i = i + 1 Loop i = i - 1 SB = SB + 1 End If Next i If Numero <= SB Then PalabraExtraida = P(Numero) For i = 0 To SB - 1 P(i) = "" Next i Else MsgBox "No existe la palabra " & Numero, vbCritical, "Mensaje" Text1.Text = "" End If End Property Property Get CantLetras(txtTexto As TextBox) Dim J As Integer Dim SB As Integer Dim S As String If Len(txtTexto.Text) <= 255 Then For i = 1 To Len(txtTexto) S = Mid(txtTexto, i, 1) If S <> Chr(32) Then J = J + 1 End If Next i CantLetras = J End If CantLetras = CantLetras End Property 'PARA TEXTO REVERSO Public Property Get TextReverso() As Variant TextoReves = StrReverse(cTexto) TextReverso = TextoReves End Property Public Property Get Fecha() As Date Fechas = Time(Label7.Caption) Fecha = Fechas End Property Public Property Get Horas() As Date Hora = Time(LblHora.Caption) Horas = Hora End Property
2
« en: Lunes 1 de Septiembre de 2008, 22:52 »
Exelente Gracias Amigo 
3
« en: Lunes 1 de Septiembre de 2008, 05:30 »
Bueno lo tomare en cuenta mañana lo revisare muchas gracias...
4
« en: Martes 12 de Agosto de 2008, 03:57 »
Muchas gracias se q es viejo pero lo ocupo para hacer un juego,,,
5
« en: Sábado 9 de Agosto de 2008, 23:07 »
Muy bueno, pero no aclara mis dudas de como mostrar esos mensajes con un formulario y OCXs no modulo, en los modulos y clases se como hacerlo... 
6
« en: Sábado 9 de Agosto de 2008, 00:04 »
Si es de base de datos el SQL Server Developer 2005 es muy bueno para ello....
7
« en: Viernes 8 de Agosto de 2008, 23:53 »
ManagetPC
Network Event Viewer
Pstools
Reboot Service
netSupervisor
los derivados de de MSD
Deep Frezee ---> Pagado
8
« en: Viernes 8 de Agosto de 2008, 23:46 »
Buen Aporte
9
« en: Viernes 8 de Agosto de 2008, 23:43 »
Muchas Gracias... http://www.winehq.org/site/download-debAqui dejo una direccion con toda la informacion necesaria del mismo, x si alguien fmas ve este foro
10
« en: Viernes 8 de Agosto de 2008, 19:54 »
Donde puedo descargar el sdk para DirectX7 o superior
11
« en: Viernes 8 de Agosto de 2008, 19:48 »
Solo queria saber si hay alguna manera de correr visual basic 6.0 en ubuntu... e oido q se puede pero no se como...
12
« en: Viernes 8 de Agosto de 2008, 19:32 »
No se a que te referis exactamente como es para principiantes creo q a de ser esto, bueno primero seleccionas el control y luego solo pegas en el formulario  Los Check list no forman grupo aunque estén dentro de un frame, y reciben el focus individualmente. Se puede también utilizar el carácter (&) en el Caption para activarlos con el teclado. El usuario debe decidir qué tipo de botones se ajustan mejor a sus necesidades: en el caso de la edad, está claro que no se puede ser de dos edades diferentes; sí es posible sin embargo conocer varios lenguajes de programacion. Si das mas datos talves te pueda ayudar de mejor manera.....
13
« en: Viernes 8 de Agosto de 2008, 18:43 »
Hace un par de dias un amigo queria hacer algo similar y navegando encontre esto talves te sirva:
PRIMERO EN TU PROYECTO EN VISUAL BASIC NECESITAS AGREGAR UNA REFERENCIA HACIA LA LIBRERIA DE OBJETOS DE WORD QUE TENGAS INSTALADO, POR EJEMPLO EN MI CASO ES EL 9.0, PARA ESO VAS A PROYECTO-->REFERENCIAS Y TILDAS LA "MICROSOFT WORD XX.XX OBJECT LIBRARY". LUEGO NECESITAS CRAR UNA INSTANCIA DE WORD Y ASIGNARLE EL DOCUMENTO A ABRIR QUE PUEDE SER EL SIGUIENTE CODIGO:
DIM vWORD AS WORD.APPLICATION 'EN LAS DECLARACIONES DEL PROYECTO, CON ESTO GUARDAS MEMORIA PARA EL OBJETO WORD PERO TODAVIA NO LO CREAS
LUEGO EN EL LOAD DEL FORM O DE LA RUTINA POR EJEMPLO SITUAS EL SIGUIENTE CODIGO:
SET vWORD= NEW WORD.APPLICATION 'CON ESTO CREAS UN NUEVO OBJETO WORD.
Y LUEGO PARA ABRIRLO EL SIGUIENTE CODIGO:
vWORD.DOCUMENTS.OPEN(FILENAME) 'DONDE FILENAME ES EL NOMBRE DEL DOCUMENTO A ABRIR QUE SEGURAMENTE LO TENDRAS GUARDADO O ALMACENADO EN ALGUNA VARIABLE. LO MISMO OCURRE CON EXCEL, POWERPOINT, ACCES Y TODO EL PAQUETE OFFICE.
SIMPLEMENTE AGREGAS LA REFERENCIA A LA LIBRERIA DE OBJETOS DE LA APLICACION OFFICE A USAR Y LISTO ES EL MISMO CODIGO PARA CADA UNO
OBVIAMENTE TAMBIEN PUEDES SETEAR LA PROPIEDAD ,VISIBLE DEL OBJETO WORD A FALSE SI QUIERES CORRER UNA INSTANCIA DE WORD INVISIBLE, ESTO A VECES SIRVE SI SE QUIERE USAR EL CORRECTOR ORTOGRAFICO Y GRAMATICAL DE WORD EN NUESTRAS APLICACIONES, SIMPLEMENTE CREAMOS UNA INSTANCIA DE WORD "INVISIBLE" LE PASAMOS EL TEXTO AL NUEVO DOCUMENTO Y CHEQUEAMOS LA GRAMATICA" Y LUEGO VOLVEMOS A COPIAR ESE TEXTO CORREGIDO A NUESTRA APLICACION Y ELIMINAMOS LA INSTANCIA WORD CON:
SET vWORD=NOTIHING 'ELIMINA EL OBJETO vWORD DE MEMORIA
14
« en: Viernes 8 de Agosto de 2008, 18:32 »
Un Ejemplo en un formulario tengo dos label una llamada lblmsj y otra llamada lblError ademas en el formulario tengo una OCX que contine un texto llamado txtNum, como haga para que cada vez que mofique txtNum me muestre ese valor en lblmsj y que cuando en txtNum ingrese cualquier dato que no sea numerrico lblError.Caption me muestre "El valor debe ser numerico"......???? 
15
« en: Viernes 8 de Agosto de 2008, 18:23 »
En un formulario tengo un txt llamado txtAA y quiero q al ingresar cualquier numero me lo muestre tambien en otro txt llamando txtA que esta dentro de una OCX q hice dentro del mismo formulario tengo lo siguiente: 'En el Formulario Private Sub txtAA_Change() ucFormula1.A = Me.txtAF.Text 'Para llamar a la ocx llamada ucFormula1 End Sub 'En la OCX Dim iA as String Public Property Get A() As String A = Val(iA) End Property Public Property Let A(ByVal vA As String) If IsNumeric(vA) Then If Val(vA) >= 0 And Val(vA) < 1000 Then iA = vA Else iA = 1 End If Else iA = 1 End If End Property
Cuando modifico txtAA no me lo muestra en txtA, pero si modifico txtA si lo muestra en txtAA y debe ser en ambos lados igual otro problema que tengo es q dentro de txtAA debe ser un numero entre 0 y 1000 ahi estoy bien pero en txtA q esta en la Ocx debe ser entre 1 y 799 en la ocx tengo lo siguiente: Private Sub txtA_Change() If txtA.Text >= 0 And txtA.Text <= 799 Then iA = txtA.Text Else txtA.Text = Val(txtA.Text) End If End Sub
No se cual es el problema, les agradeceria si ayudan a saber en que me estoy equivocando..... 
16
« en: Viernes 8 de Agosto de 2008, 18:07 »
 No habia pensado en ello, soy nuevo en vb pero estare programando en el los proximos 3 meses x la universidad, sera de mucha ayuda contar con uds... y de verdad les agradezco x su dedicacion...
17
« en: Miércoles 23 de Julio de 2008, 15:21 »
Mira este Link foros.solocodigo.com/viewtopic.php?f=143&t=36268 
18
« en: Miércoles 23 de Julio de 2008, 15:18 »
Proba con este codigo aqui esta explicado todo... Private Sub LeerExcel() Dim xlApp As Excel.Application Dim xlLibro As Excel.Workbook Dim xlHoja As Excel.Worksheet Dim varMatriz As Variant Dim lngUltimaFila As Long 'abrir programa Excel Set xlApp = New Excel.Application 'xl.Visible = True 'abrir el archivo Excel (archivo en otra carpeta) Set xlLibro = xlApp.Workbooks.Open _ ("c:Fax2.xls", True, True, , "") 'abrir el archivo Excel (archivo en la misma carpeta) Set xlLibro = xlApp.Workbooks.Open(App.Path & _ "Fax2.xls", True, True, , "") Set xlHoja = xlApp.Worksheets("Hoja1") '1. Si conoces el rango a leer 'varMatriz = xlHoja.Range("A1:C10").Value '2. Si no conoces el rango lngUltimaFila = _ Columns("A:A").Range("A65536").End(xlUp).Row varMatriz = xlHoja.Range(Cells(1, 1), _ Cells(lngUltimaFila, 1)) 'utilizamos los datos... Text1.Text = varMatriz(27, 1) 'cerramos el archivo Excel xlLibro.Close SaveChanges:=False xlApp.Quit 'reset variables de los objetos Set xlHoja = Nothing Set xlLibro = Nothing Set xlApp = Nothing End Sub
Para que esto funcione, Visual Basic necesitará cargar los objetos de Excel. Por eso, no olvides marcar Microsoft Excel x.xx Object Library en tu Visual Basic - Proyecto/Referencias, Espero te ayude en algo....
19
« en: Miércoles 23 de Julio de 2008, 15:11 »
Ya revise y si corre como tu me lo diste lo q pasa q en tiempo de ejecucion del juego no funciona, x dos razones 1.-La Ayuda para este programa se creó en el formato de Ayuda de Windows que se usaba en versiones anteriores de Windows (Por vista)  cosa q no es problema y tambien 2.- xq una dll no me dejaba, pero ya lo solucione de verdad te agradezco me sirvio mucho tu codigo, Gracias!!
20
« en: Miércoles 23 de Julio de 2008, 02:45 »
Gracias muy util tu ayuda, pero sigo teniendo problemas ya q q lo q estoy haciendo es un juego y ocupo llamar la ayuda con solo presionar f1... tipo la ayuda de windows, x lo demas esta exelente
21
« en: Martes 22 de Julio de 2008, 07:48 »
Hola que tal estoy creando un programa el cual tiene ayuda este ayuda la hice en el "Shalon Help" pero no se como hacer para llamarla desde visual basic al presionar f1, si pueden dar alguna idea se los agradeceria mucho.... 
23
« en: Domingo 22 de Junio de 2008, 21:45 »
Hola Prueba escribiendo esto en los arreglos
(Chr(KeyAscii))
24
« en: Martes 17 de Junio de 2008, 18:33 »
Hola despues de estar provando encontre la solucion es sencilla, en la subrutina del DblClick escribimos lo siguiente.... Dim i As Integer Dim index As Integer Index = Me.lisNumeros.ListIndex Call Enlace.Restar(Me.lisNumeros.List(Index))
Muchas Gracias de todas maneras....
25
« en: Martes 17 de Junio de 2008, 08:27 »
Hola no se como hacer para que.... Al presionar doble click en un numero de la lista, debera llamar a un procedimiento determinado "Restar" de un clase llamada "Enlace", enviando como parametro el numero al q se le dio click... Hasta el momento tengo lo siguiente Private Sub lisNumeros_DblClick() Call Enlace.Restar(Me.lisNumeros.List(listNumeros.ListIndex)) '--> Aqui creo q tengo el error 'Aqui debe quitar de la lista el numero seleccionado ' .List es un arreglo que contiene todos los numeros agregados a lisNumeros ' .LisIndex indica la posicion (o indice) que esta seleccionada End Sub
Esto es una pequeña parte de un programa no se q esta mal aca xq no me sale, si tienen alguna sugerencia les agradeceri mucho... Gracias
|
|
|
Mostrar Mensajes
