últimos mensajes de: asdexiva

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22

71	Programación / Programación Visual Basic / ejemplo matriz inversa gauus	en: 6 Febrero 2014, 05:26 am
alguien seria tan amable de darme un ejemplo de matriz inversa gauss jordan en vb6 e visto mucho pero muchos no funcionan :S si me dieras un ejemplo estaria muy agradecido

72	Programación / Programación Visual Basic / cifrar con matrices	en: 29 Enero 2014, 15:50 pm
alguien me podria decir como podria cifrar con matrices en vb6 me podrian dar un ejemplo y yo lo termino es que no tengo idea si me dieran un ejemplo se los agradeceria mucho

73	Programación / Programación Visual Basic / Re: matrices 3*3 entendible	en: 24 Enero 2014, 03:00 am
Cita de: engelx en 24 Enero 2014, 02:58 am no entedi nada de lo quisiste decir, explícate con mas detalle quiero que se vea un poco mas entendible mira yo hago las matricez de 3*3 pero en ningun momento divido y en el programa divide por que divide ? sabes

Programación / Programación Visual Basic / matrices 3*3 entendible

en: 24 Enero 2014, 02:53 am

alguien que si me pudiera decir como hacerlo un poco mas entendible o si me pudiera decir como funciona por favor por que yo al hacer la inversa no necesito dividir y el codigo trai divisiones gracias

Código:

Private Sub Command1_Click()

a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

75	Programación / Programación Visual Basic / frames vb6	en: 21 Diciembre 2013, 21:17 pm
quisiera saber como cambiar el frame de una web para poder escribir en el textarea es que para poder escribir en los textarea tengo que cambiar el frame y no se como si pudieran darme una idea utilizo webbrowser este es el cogido para los input Código: titulo = Text3.Text Set HTML = WebBrowser1.Document For Each HTMLI In HTML.getElementsByTagName("input") If HTMLI.id = "subjecttitle" Then HTMLI.Value = titulo End If Next Timer1.Enabled = False en imacros para cambiar el frame es asi Código: FRAME F=1

76	Programación / Programación Visual Basic / Re: proxy webbrowser	en: 11 Noviembre 2013, 20:35 pm
Cita de: \|\|MadAntrax\|\| en 11 Noviembre 2013, 15:32 pm Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico: Código Open "proxylist.txt" for Input As #1 While Not EOF(1) Line Input #1, Buffer Call CargarProxy(Buffer) Wend Close #1 Function CargarProxy() Server = Split(Buffer,":")(0) Port = Split(Buffer,":")(1) 'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API End Function Acabo de escribir el código de cabeza, creo que me he cargado un poco la sintaxis pero la idea sería esa. Saludos gracias

77	Programación / Programación Visual Basic / Re: proxy webbrowser	en: 11 Noviembre 2013, 14:44 pm
Cita de: \|\|MadAntrax\|\| en 11 Noviembre 2013, 10:19 am Quieres hacer un bot para registrar visitas únicas en una misma web? esa es la idea XD pero no creo que funcione

Programación / Programación Visual Basic / proxy webbrowser

en: 11 Noviembre 2013, 04:55 am

Código:

' =============================================
' Autor : Bruno Capuano
' Fecha : 29-09-2005
' =============================================
 
dim strProxyServer
 
' define el proxy y el puerto si es necesario
strProxyServer = "MyProxyServer:80"
 
' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
 
' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
      
' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer
 
' destroy   
Set oWshShell = Nothing

ay alguna forma de que este codigo cambie laproxy desde un archivo text

Código:

strProxyServer = "MyProxyServer:80"

donde dice myproxyserver:80 van las proxys pero necesito saber como hacer para que reccora cada proxy del archivo text

ejemplo

carga la proxy 192.85.65.4:80
abre pagina
espera tiempo
vuelve al inicio y carga otra proxy desde el archivo text

el archivo text lo tendria asi y quisiera que cargara una por una
156.456.65.54:80
456.465.46.5:65
156.456.65.54:7854

si me pudieran ayudar muchisimas gracias

79	Programación / Programación Visual Basic / borrar string con for	en: 9 Noviembre 2013, 20:10 pm
es posible borrar un string con for por ejemplo tengo Código: href="http: // sitio. any. gs"><img lo que quiero es que desde las letras href asta <img se borre todo y pueda remplazar por otra cosa si me pudieran ayudar gracias

80	Programación / Programación General / pseudocodigo sueldo de 5 empleados estructura repetitiva	en: 6 Noviembre 2013, 21:02 pm
por mas que trato de ayarle una forma de hacerlo me confundo alguien podria ayudarme, lo maximo que pude hacer esta abajo si alguien pudiera ayudarme gracias pudieran ayudarme en este pseudocodigo capturar el sueldo de 5 empleados de acuerdo ala siguiente categoria eventual=20$ asalariado=100$ a cada uno descontar 20% de impuesto al final determinar nomina total quiero saber como podria hacerlo o si me pudieran corregir este Código: inicio entero;i,sueldo,nomina,eventual=0,asal… i=1 mientras(i<=5) hacer leer sueldo si (sueldo<=100) entonces eventual=eventual + sueldo /0.20 imprimir "eventual" nomina <- eventual de lo contrario asalariado=asalariado+sueldo/0.20 imprimir "asalariado" nomina<-asalariado i<- i+1 fin del mientras imprimir nomina fin gracias

Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22