Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
 1 2 
Closed TopicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Visual Basic 6 ( ayuda en programacion ), ayudaaa xD

FranGK
post Jun 23 2008, 11:51 PM
Publicado: #1


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



wenas soy nuevo ph34r.gif en la pagina y hace relativamente poco que empeze a aprender algo (jaja solo ms-dos ) y ahora estoy intentando aprender vb6 pero se me hace un poco dificil, he visitado mil y 1 pags mirando tutoriales y tal pero no e encontrado ninguno que sea "razonable" ( tutos de mas de 35 pags..) y son dificiles.
queria pedirles aver si he exan una mano con esto aver si me pueden explicar con algun ejemplo cosas sencillas o utiles xD! bueno gracias d antemano susel.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 24 2008, 06:05 PM
Publicado: #2


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Puest e recomendaria que empazaras con un lenguaje como C++ que es un poco mas sencillo de entender, unos buenos tutoriales vienen en Cconclase y hay muchos mas.

Suerte


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
franciscoytoto
post Jun 24 2008, 08:43 PM
Publicado: #3


Miembro Avanzado
***

Grupo: Members
Mensajes: 51
Registrado: 29-February 08
Miembro nº: 225.463



FranGK mira yop tambien estoy empezando a programar en visual basic 6.0 y te recomiendo que empiezes con este cursillo que es muy simple y completo.

http://www.elguille.info/vb/cursos_vb/basico/indice.htm


Espero que te sirve!!!!!!!!

clap.gif clap.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 25 2008, 03:12 AM
Publicado: #4


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



gracias por contestar, ya estoy mirando este tutorial
que me has dicho tu franciscoytoto y aver si pronto posteo con alguna duda xD.
saludos

* Pc Mac dodne puedo bajarme una version (entera & free ) de vb6 ?¿ ( si alguien lo sabe conteste..!! xDDD )
graxx
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 25 2008, 05:25 PM
Publicado: #5


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Pues no se si el descargar Vb 6 este tomado como "ilegal" (si es asi se supone que no te podemos decir, politicas del foro no pongas esa cara ja), pero vamos que una busqueda en -------------> GOOGLE <------------o en una BD de torrents no estaria mal.

Saludos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 25 2008, 08:02 PM
Publicado: #6


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



Ok Pc-Mac gracias ( ya voy por la entrega nº 5 del tutorial xDD )
saludoss clap.gif

*En el vb6 que tengo no puedo acceder al menu de ayuda, de da el siguiente error:
"La coleccion MSDN no existe. Vuelva a instalar MSDN"
Lo de "coleccion MSDN" supongo que sera la "ayuda" y siendo asi, ¿puedo arreglarlo yo haciendo algo o reinstalo? grax notengoidea.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 26 2008, 01:47 AM
Publicado: #7


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Pues si es por falta de la MSDN, podrias probar reinstalando, no lo se, en google debe de haber informacion, si no la MSDN tambien esta disponible en linea.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 26 2008, 05:14 PM
Publicado: #8


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



debuty ya lo tengo el vb6 todo bien jajaj me ha costao... coolio0ju.gif
grax pc mac

He estado mirando por internet y he encontrado este codigo para vb6 pero no funciona xD! alguien me podria decir que le falta ( no lo he averiguado no llego a tanto xDD)


Private Sub Command1_Click()

'Propiedades para el control inet ( AccessType y URL )
With Inet1
.AccessType = icUseDefault
'Indicamos el url del archivo
.URL = Trim(Text1.Text)
'Indicamos que vamos a descargar o recuperar un archivo desde una url
.Execute , "GET"
End With
End Sub

Private Sub Form_Load()

Command1.Caption = " Descargar "
Me.Caption = " Ejemplo del control Inet para " & _
"descargar un fichero con progreso"

End Sub


Private Sub Inet1_StateChanged(ByVal State As Integer)

On Error GoTo Err_Sub

Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
Dim bDone As Boolean
'Para el tamaño del archivo en bytes que se usa para el array
Dim filesize As Long
' Acá almacenamos los datos
Dim vtData As Variant

Select Case State

Case icResponseCompleted
bDone = False
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Creamos y abrimos un nuevo archivo en modo binario
Open Text2.Text For Binary As #1

' Leemos de a 1 Kbytes. El segundo parámetro indica _
el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
vtData = Inet1.GetChunk(1024, icByteArray)

DoEvents

'Si el tamaño del fichero es 0 ponemos bDone en _
True para que no entre en el bucle
If Len(vtData) = 0 Then
bDone = True
End If

With ProgressBar1
.Value = 0
.Max = filesize
End With

Do While Not bDone
'Almacenamos en un array el contenido del archivo que se va leyendo
tempArray = vtData
'Escribimos los datos en el archivo
Put #1, , tempArray
'Leemos datos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)

DoEvents
'Aumentamos la barra de progreso
ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)

If Len(vtData) = 0 Then
bDone = True
End If
Loop

Close #1

MsgBox "Archivo descargado correctamente", vbInformation
ProgressBar1.Value = 0
End Select

Exit Sub

Err_Sub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Inet1.Cancel
ProgressBar1.Value = 0
End Sub

saludos!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 26 2008, 06:07 PM
Publicado: #9


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Seria bueno que pusieras que error saca, o como se traba.

Saludos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 26 2008, 06:14 PM
Publicado: #10


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



No pasa na el code esta bien era un fallo "humano" xD..
Tengo una preguntilla, 1) he ocultado un boton en el form, y quiero que se haga visible, por ejemplo cuando ponga mi pass correcta, y que aparezca de repente jeje
2)Como puedo enviar "datos" que tengo que el form a por ejemplo un txt ( ¡! )
3)Y por ultimo como llamo a una aplicacion "ajena", por ejemplo a otro .exe
he visto que es con call, pero pongo esto :
Call oa.exe y me dice que se requiere objeto ( vamos que nose que hay que poner despues de call xD )
Ya toi haciendo cosillas en vb tongue.gif

gracias de antemano rolleyes.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 28 2008, 12:25 AM
Publicado: #11


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



wenas, ya he descubierto como hacer visible un objeto y viceversa ( X.Visible = True ) jeje.
weno tengo un par de dudas wacko.gif , una es lo de " Como puedo enviar "datos" que tengo que el form a por ejemplo un txt ( ¡! )"
¿Como llamo a un procedimiento fuera del form, a un exe ...ect ( Excel nuuu! ¿o solo se puede con excel?)?
¿como puedo hacer que al abrir la "carpeta x", este se bloque y seguidamente salir mi form de inicio de sesion para pedir identificacion? y si todo va ok, que pueda acceder... coolio0ju.gif
Y si tienen tiempo pues...¿¿ como puedo crear en vb un generador de pass aleatorias( letras & numeros )??


--Preguntas tontas--
-No me sale el boton de editar mis comentarios xD alguien sabe porq confused.gif ??
-Puedo colgar una foto de mi disco duro como avatar??

...GRAX clap.gif clap.gif clap.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 28 2008, 03:51 AM
Publicado: #12


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Mandar a llamar un exe

CODE
Dim pro As Process = New Process

       pro = Process.Start("C:\ruta\ej065.exe")


Escribir en un txt

CODE
String str ="hola"
       Dim pluma As New StreamWriter("C:\ruta\coeficientes.txt")
       pluma.WriteLine(str)
       pluma.Close()


Para lo de la carpeta x no te entiendo pero supongo que podria ser un if donde la condicion es lo que devuelva un control que maneja la api de la exploracion de carpteas ( en este momento no recuerdo como se llama). y cuando quieras llamar al form solo es Form1.Show()

Para lo de generar pass aleatorias pues solo es pensar y usar Randoms (No se, podria ser un random entre 65 al 90 que es la representacion ascii del alfabeto y depues la conviertes a su respectivo char, no lo se hay muchas formas).

Lo del boton editar no lo se, y lo de la foto de tu disco supongo que si.

Saludos.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 28 2008, 04:11 AM
Publicado: #13


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



coolio0ju.gif ok debuty muxas gracias x los codes wink.gif
(lo de editar sera x el tiempo q lleva el comentario creo )
Como cierro un form?? ( cuando ya esta heco en .exe), es decir que tengo dos form en el exe, con el 1 abro el 2 y quiero que se cierre el 1 al abrrir el segundo..xDDD...enfin si lo han entendido jejej..
¿para llamar a cualquier tipo de archivo puedo hacer esto?


Dim pro As Process = New Process

pro = Process.Start("C:\ruta\ej065.*")


Los dos codes anteriores los he puesto tal cual y me sale casi todo en rojo ( las lineas y da error) Nose, si alguien sabe porq avisen notengoidea.gif

saludos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Jun 29 2008, 05:52 AM
Publicado: #14


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 11-November 07
Miembro nº: 217.125



Para ocultar un form Form1.Hide();

Lo de abrir archivos de cualquier tipo creo q si, nunca lo he probado. Y q dice cuando compilas, porque ese codigo lo copie tal cual de un programa que tengo q corre bien.

Saludos

P.D. (debuty, ja nunca lo habia oido)
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
FranGK
post Jun 29 2008, 06:07 AM
Publicado: #15


Miembro Elite
****

Grupo: Members
Mensajes: 119
Registrado: 23-June 08
Desde: España
Miembro nº: 233.830



Wenas, pues haber el error que me da es este :

error de sintaxis ( y sale marcado en rojo lo de Dim pro As Process = New Process ) --> dentro de cmd_click() xD

Luego cree otro form y le añadi esto:

Dim pro As Process = new process

pro = Process.Start("C:\af200\id.exe")
End Sub

Y el error que me da al hacer esto es " se esperaba final de instruccion" ( y sale señalado el signo " = " ).

Me ha surgido una duda hace poco y es esta :

-If text2.text = "wee" then
...

De esa forma le digo que siga si la "respuesta" es "wee", pero como hago para que (en el mismo txt ), sea capaz de interpretar mas variables? ej:

Set /p t =
if %t% ==wee goto A
if %t% ==buu goto B
if %t% ==zas goto C

Mayormente quiero hacer eso , como lo podria hacer?


Grax! ( debuty xD biggrin20jy.gif )
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

 
 1 2
Closed TopicTopic OptionsStart new topic

Collapse

> Topicos similares

AYUDA CON MI PC lords 20 2 Hoy, 10:47 AM
By: Kbite
Ayuda Urgente tany23 54 6 Hoy, 10:33 AM
By: Caito
Me tumbaron mi server :(:(: ayuda danielpz 35 0 Hoy, 03:26 AM
By: danielpz
ayuda mi pc esta muy lento maryory15 212 6 Hoy, 01:43 AM
By: Caito