|
34
|
Programación / Programación Visual Basic / Re: Como sumar numeros obtenidos al leer un archivo de texto? ayuda please.
|
en: 3 Octubre 2006, 06:41 am
|
Simplemente basta con crear una matriz con todos los números. Para ello usamos Split, pasándole como argumento los datos y el separador utilizado (En éste caso, ||) Luego, usamos un bucle para recorrer todos los números y sumarlos. Sería algo así, espero que no tenga ningún error. Private Sub Picture1_Click() On Error Resume Next Dim ValorASumar As Integer Dim Datos As String Dim Suma As Integer 'Llenamos la variable datos Datos = "501||5||||11||20||0||0||0" 'Hacemos la matriz MatrizDatos = Split(Datos, "||") 'Bucle que recorre todos los numeros y los suma For n = 0 To UBound(MatrizDatos) Valor = MatrizDatos(n) Suma = Suma + Valor Next n 'Presentamos el resultado MsgBox "La suma es: " & Suma End Sub
Para terminar, y si por alguna razón los separadores son otros caraceres (por ejemplo intro, como has dicho) puedes sustituirlos utilizando Replace, ya que los retornos de carro, espacios, etc son caracteres normales y corrientes. Texto = Replace(Text1.Text, Chr(13), "||") En vez de Chr(13) también puedes usar la constante vbCrLf como es lógico. Un saludo
|
|
|
35
|
Programación / Programación Visual Basic / Re: producir un evento mientras piensa
|
en: 2 Octubre 2006, 13:44 pm
|
Sólo tienes que usar la propiedad MousePointer. Por ejemplo Private Sub Command1_Click() 'Proceso empieza Screen.MousePointer = vbHourglass open cd.filename for binary as #1 file = len(cd.filename) get #1, , file close #1 'Proceso termina Screen.MousePointer = vbDefault. End Sub En el caso de que quisieras utilizar un icono personalizado, sería algo así Screen.MouseIcon = LoadPicture("C:\Test\Cursor.cur") Screen.MousePointer = vbCustom También puedes cursores desde archivos externos. Como sabes VB 6 no incluye el cursor de la mano; lo podrías usar de éste modo: 'En un módulo Public Const HandCursor = 32649& Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'En el evento MouseMove del form, botón etc Dim lHandle As Long lHandle = LoadCursor(0, HandCursor) If (lHandle > 0) Then SetCursor lHandle End Sub
Bien, lo mismo que te dije se aplica a las barras de progreso. Simplemente, cada vez que se complete un proceso, súmale un número a la propiedad Value de la ProgressBar Por ejemplo 'Empieza el proceso Process1.Value = 0 Kill "C:\TEMP\*.tmp" Process1.Value = 25 Dim Datos as String Dim Hora as Variant Process1.Value = 75 Msgbox "Datos " & Datos & " " & "Hora: " & Hora 'Proceso terminado Process1.Value = 100 Msgbox "Terminado" Y para terminar, aclararte que no se produce ningún evento mientras VB6 realiza una acción. Un saludo
|
|
|
37
|
Media / Multimedia / Re: imagen invertida
|
en: 2 Octubre 2006, 01:40 am
|
Necesitas un programa más potente, el Windows Movie Maker no tiene esa posibilidad, al menos, yo no la he encontrado.
Un saludo
|
|
|
39
|
Programación / Programación Visual Basic / Re: Leer Texto de un archivo TXT y pasarlo a un Formulario
|
en: 1 Octubre 2006, 13:25 pm
|
Al decirte que buscaras sólo trataba de ayudarte. Como dice WarGhost, se ha hablado docenas de veces de esto, y como te dije yo... es cuestión de buscar. Ayuda a guardar datos en un textboxhttp://foro.elhacker.net/index.php/topic,83025.0.htmlTextboxhttp://foro.elhacker.net/index.php/topic,105479.0.htmlWritehttp://foro.elhacker.net/index.php/topic,78908.0.htmlDe un textbox, al bloc de notashttp://foro.elhacker.net/index.php/topic,97036.0.html Guardar a un .txthttp://foro.elhacker.net/index.php/topic,119982.0.html DUDAS: Tecla ALT, Función CASE, como GARDAR una cosa.http://foro.elhacker.net/index.php/topic,79400.0.htmlAyuda para GUARDAR y ABRIR textos *.txt en una TextBox.http://foro.elhacker.net/index.php/topic,78225.0.htmlTutorial: Abrir y Guardar Texto, Control Textboxhttp://foro.elhacker.net/index.php/topic,78689.0.htmlProblema con OpenFilehttp://foro.elhacker.net/index.php/topic,121812.0.htmlCadenashttp://foro.elhacker.net/index.php/topic,100489.0.htmlleer un archivo txthttp://foro.elhacker.net/index.php/topic,117691.0.htmltimer,variable, y caja de textohttp://foro.elhacker.net/index.php/topic,83950.0.htmlComo crear un archivo .txt para luego editarlo?http://foro.elhacker.net/index.php/topic,75003.0.htmlProblema con la lectura y escritura de un arxivohttp://foro.elhacker.net/index.php/topic,138160.0.htmlABRIR UN *.txt EN MUCHOS TextBoxhttp://foro.elhacker.net/index.php/topic,84832.0.htmlproblemas al guardar el contenido de un listbox en vb6http://foro.elhacker.net/index.php/topic,73758.0.htmlAbrir texto en un textboxhttp://foro.elhacker.net/index.php/topic,120611.0.htmlEscritura concurrente en un archivohttp://foro.elhacker.net/index.php/topic,122936.0.htmlCargar un fichero a un textboxhttp://foro.elhacker.net/index.php/topic,141411.0.htmlEscribir un .txt con vbhttp://foro.elhacker.net/index.php/topic,73936.0.htmlEditar un txt cambiando variableshttp://foro.elhacker.net/index.php/topic,122889.0.htmlUn saludo
|
|
|
40
|
Programación / Programación Visual Basic / Re: Tengo esta duda
|
en: 1 Octubre 2006, 01:38 am
|
Eso es QuickBasic, necesitas un editor de QuickBasic. Pudes usar por ejemplo Microsoft QuickBasic. La versión 1.1 viene en el CD de Windows 95 y Windows 98 dentro del directorio .../OLD/DOS/. Sólo tienes que abrir QuickBasic, pegar el código entero y pulsar F5. Si quieres más, bájate algún buen tutorial de QB o bien mira la documentación adjunta (QB.HLP) que encontrarás en la carpeta que te dije. Por ejemplo, COLOR sirve para cambiar el color del texto, SCREEN para cambiar los modos de pantalla (1-13) y LOCATE mueve el cursor de texto (hay dos cursores, el de textos y el de gráficos) a una posición de la pantalla. Un saludo PD: Si no tienes los CDs de Windows, puedes usar Firstbasic, pero éste programa es shareware y es difícil encontrarlo crackeado ya que es para DOS. Busca los archivos que necesitas en google, la mula etc. PD2: QuickBasic 1.1 no permite compilar (generar EXE), necesitas QuickBasic 4.5
|
|
|
|
|
|
|