Últimos Temas de: asdexiva

Mostrar Temas
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12

41	Programación / Programación General / sonidos armas android source	en: 30 Abril 2014, 23:30 pm
pues decidí compartir esta aplicación que hice en android ,por que lamentablemente soy pobre para subirla al market jaja,no ya enserio espero y la disfruten http://www.firedrive.com/file/A3EABB4E5049890D la verdad no se si sea la sección correcta pido a un moderador que la cambie si me e equivocado mas que nada es para que se basen y creen cosas mejores

42	Programación / Programación Visual Basic / problema leyes de los signos	en: 26 Febrero 2014, 22:06 pm
el problema es que quiero que salga un solo signo no los 2 como podria hacerle para que solo aparezca un solo signo es que + +=+ + - =- -- = + -+ =- me avian dicho que con valor absoluto pero no se como implementarlo alguien me podria hechar la mano de como acomodarlo

Programación / Programación Visual Basic / ciclo for matrices

en: 21 Febrero 2014, 00:10 am

alguien que me explique como uso el ciclo for en este ejemplo
es que en netbeans el for es facil pero necesito saber como es la sinstaxis aqui en vb6

Código:

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

44	Programación / Programación Visual Basic / convertir decimales a fracciones	en: 7 Febrero 2014, 02:02 am
ay algun metodo o funcion que convierta todos los decimales de todos los textbox del programa en sus respectivas fracciones ? si me pudieran dar un ejemplo o decir como gracias

45	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

46	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

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

48	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

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

50	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

Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12