Muchas gracias 
¡saludos!
¡saludos!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#102
Diseño UX/UI / Re:Pide tu firma Underc0de V3.
Octubre 29, 2014, 05:00:55 PM
Hola, ¿podrías hacerme una con mi nick?
gracias de antemano y saludos
gracias de antemano y saludos
#103
Talleres Underc0de / Re:Taller de Python #1
Octubre 27, 2014, 03:35:02 PM
Muy buen tuto gracias por al aporte todos los ejercicios realizados 
dejo capturas de la actividad:
1.-
2.-
a)
b)
c)
¡saludos!
todos los ejercicios realizados dejo capturas de la actividad:
1.-
2.-
a)
b)
c)
¡saludos!
#104
Java / Re:[Libro JAVA] POO
Septiembre 11, 2014, 11:53:31 AM
¡Muchas gracias! Me hacía falta porque justo estoy viendo P.O.O. ¡saludos!
#105
C / C++ / Juego de triqui/gato
Junio 20, 2014, 10:41:58 PM
Bueno pues acá les dejo un pequeño código de este juego en C se puede mejorar pero básicamente es la "base", espero que les sirva de algo, ¡saludos!
Código: c
Código: c
Código: c
Código: c
Código: c
Código: c
se puede mejorar pero básicamente es la "base", espero que les sirva de algo, ¡saludos!
#include<stdio.h>
#include<stdlib.h>
#include<ctype.h>
#include <conio.h>
#include <windows.h>
int main(int argc, char *argv[])
{
int a1=0, a2=0, a3=0, b1=0, b2=0, b3=0, d1=0, d2=0, d3=0, dec, bandera=0,columna=0,fila=0, ganador = 0, juego=1, turno=0, ocupado = 0;
char nombre1[15], nombre2[15], gato[200];
HANDLE hConsoleOutput;
COORD coord;
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 10;
coord.Y=10;
SetConsoleCursorPosition(hConsoleOutput,coord);
while (juego ==1)
{
a1=0;
a2=0;
a3=0;
b1=0;
b2=0;
b3=0;
d1=0;
d2=0;
d3=0;
bandera=0;
columna=0;
fila=0;
ganador = 0;
dec = 0;
turno = 0;
ocupado = 0;
system ("CLS");
printf ("JUEGO DEL GATO\n\n");
printf ("Creado por: Lah-Vahn.\n\n");
printf ("Seleccione que desea hacer:\n");
printf ("1.-Jugar.\n");
printf ("2.-Instrucciones.\n");
printf ("3.-Salir.\n");
scanf ("%i",& dec);
switch (dec){
case 1:
system ("CLS");
printf ("Ingrese nombre del jugador 1:\n");
scanf ("%s",&nombre1);
printf ("Ingrese nombre del jugador 2:\n");
scanf ("%s",&nombre2);
system ("CLS");
printf (" | | \n------------- \n | | \n-------------\n | | \n\n");
while (ganador == 0){
if (bandera == 0 && ganador == 0)
{
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=6;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Turno de %s.\n\n",nombre1);
printf ("Ingresa fila:\n");
scanf ("%i",&fila);
printf ("Ingresa columna:\n");
scanf ("%i",&columna);
//Revisión de espacios ocupados
if (fila == 0 && columna == 0 && (a1==1 || a1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 0 && columna == 1 && (a2==1 || a2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 0 && columna == 2 && (a3==1 || a3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 0 && (b1==1 || b1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 1 && (b2==1 || b2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 2 && (b3==1 || b3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 0 && (d1==1 || d1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 1 && (d2==1 || d2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 2 && (d3==1 || d3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
//Aquí comienza la asignación
if (fila == 0 && columna == 0 && a1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
a1 = 1;
ocupado = 0;
}
if (fila == 0 && columna == 1 && a2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
a2 = 1;
ocupado = 0;
}
if (fila == 0 && columna == 2 && a3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
a3 = 1;
ocupado = 0;
}
if (fila == 1 && columna == 0 && b1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
b1 = 1;
ocupado = 0;
}
if (fila == 1 && columna == 1 && b2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
b2 = 1;
ocupado = 0;
}
if (fila == 1 && columna == 2 && b3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
b3 = 1;
ocupado = 0;
}
if (fila == 2 && columna == 0 && d1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
d1 = 1;
ocupado = 0;
}
if (fila == 2 && columna == 1 && d2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
d2 = 1;
ocupado = 0;
}
if (fila == 2 && columna == 2 && d3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("x");
d3 = 1;
ocupado = 0;
}
if (fila>2 || fila<0 || columna>2 || columna<0){
printf ("Has ingresado valores erroneos.\n");
}
//comienza comprobaciòn de ganador
if (a1+a2+a3==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (b1+b2+b3==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (d1+d2+d3==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (a1+b1+d1==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (a2+b2+d2==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (a3+b3+d3==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (a1+b2+d3==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (a3+b2+d1==3 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre1);
ganador = 1;
}
if (ocupado == 0){
bandera = 1;
turno = turno + 1;
}
if (turno == 9 && ganador == 0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Ha sido un empate.\n");
ganador = 1;
}
}
//turno del jugador 2
if (bandera == 1 && ganador==0)
{
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=6;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Turno de %s.\n\n",nombre2);
printf ("Ingresa fila:\n");
scanf ("%i",&fila);
printf ("Ingresa columna:\n");
scanf ("%i",&columna);
//Revisión de espacios ocupados
if (fila == 0 && columna == 0 && (a1==1 || a1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 0 && columna == 1 && (a2==1 || a2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 0 && columna == 2 && (a3==1 || a3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 0 && (b1==1 || b1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 1 && (b2==1 || b2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 1 && columna == 2 && (b3==1 || b3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 0 && (d1==1 || d1==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 1 && (d2==1 || d2==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
if (fila == 2 && columna == 2 && (d3==1 || d3==5)){
printf ("Ya esta ocupado.");
ocupado = 1;
}
//Aquí comienza la asignación
if (fila == 0 && columna == 0 && a1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
a1 = 5;
ocupado = 0;
}
if (fila == 0 && columna == 1 && a2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
a2 = 5;
ocupado = 0;
}
if (fila == 0 && columna == 2 && a3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=0;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
a3 = 5;
ocupado = 0;
}
if (fila == 1 && columna == 0 && b1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
b1 = 5;
ocupado = 0;
}
if (fila == 1 && columna == 1 && b2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
b2 = 5;
ocupado = 0;
}
if (fila == 1 && columna == 2 && b3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=2;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
b3 = 5;
ocupado = 0;
}
if (fila == 2 && columna == 0 && d1==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 1;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
d1 = 5;
ocupado = 0;
}
if (fila == 2 && columna == 1 && d2==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 6;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
d2 = 5;
ocupado = 0;
}
if (fila == 2 && columna == 2 && d3==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 11;
coord.Y=4;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf("o");
d3 = 5;
ocupado = 0;
}
if (fila>2 || fila<0 || columna>2 || columna<0){
printf ("Has ingresado valores erroneos.\n");
}
//comienza comprobaciòn de ganador
if (a1+a2+a3==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (b1+b2+b3==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (d1+d2+d3==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (a1+b1+d1==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (a2+b2+d2==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (a3+b3+d3==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (a1+b2+d3==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (a3+b2+d1==15 && ganador==0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Gana %s!\n",nombre2);
ganador = 1;
}
if (ocupado == 0){
bandera = 0;
turno = turno + 1;
}
if (turno == 9 && ganador == 0){
hConsoleOutput=GetStdHandle(STD_OUTPUT_HANDLE);
coord.X= 0;
coord.Y=13;
SetConsoleCursorPosition(hConsoleOutput,coord);
printf ("Ha sido un empate.\n");
ganador = 1;
}
}
}
break;
case 2:
system ("CLS");
printf ("INSTRUCCIONES\n\n");
printf ("1.-Ingrese el numero 1 para jugar, el 2 para las instrucciones y el 3 para salir.\n");
printf ("2.-Al jugar ingrese el nombre de los dos jugadores.\n");
printf ("3.-Ingrese la fila y columna donde desea colocar su tiro.\n");
printf ("4.-Ganara el jugador que logre 3 tiros consecutivos en linea recta.\n\n");
break;
case 3:
exit(1);
break;
default:
printf ("Error en el valor Ingresado.\n");
break;
}
system("PAUSE");
}
}
#106
Android / Re:Conociendo la señal de tu dispositivo Android
Junio 12, 2014, 01:47:43 PM
Hola. ¡muy bueno! la verdad que ya conocía algo pero no del todo, y no tengo Android pero no está de más saber gracias por la información, y bueno lamentablemente mi celular apenas llega a E XD ¡saludos!
gracias por la información, y bueno lamentablemente mi celular apenas llega a E XD ¡saludos!
#107
C# - VB.NET / Ecuaciones de Newton-Raphson simples
Junio 11, 2014, 10:34:22 AM
Bueno pues por si alguien quiere practicar o algo, les dejo este código que hice hace poco que es para obtener ecuaciones de newton-raphson simples con un máximo de 4 variables a través de los cortes de cadena, espero les sirva mínimo como ejemplo respecto a ciertas funciones que les llamen la atención, aunque el programa es bastante simple, consta de 3 formularios, la presentación, el segundo en el que ingresas la función y el tercero que te muestra los resultados.
Código: text
Código: text
Código: text
Código: text
Código: text
Nota: aún falta código pero no me deja ponerlo porque es demasiado XD si les interesa se los voy compartiendo, lo restante, ¡saludos!
Public Class Form3
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'salir
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
End
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
'comenzar
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
Me.Hide()
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("1.- Presione 'comenzar' para continuar o 'salir' para cerrar el programa." & vbCrLf & "2.- Escriba la función con los botones de la pantalla y el valor inicial de Xi con el teclado, no olvide poner siempre '+' o '-' dependiendo del signo sin importar que sea el primer elemento de la función." & vbCrLf & "3.- Si no coloca ningún valor en Xi se tomará como un valor inicial de 0." & vbCrLf & "4.- Presione 'guardar valores' para continuar y luego coloque el número de variables, sólo se permiten entre 1 y 4 variables." & vbCrLf & "5.- Si desea colocar sólo una 'x' escriba 'x^1' pues esto no afecta la función, o si desea colocar sólo un número por ejemplo '6' escriba '6x^0' pues esto tampoco afecta la función." & vbCrLf & "7.- Se mostrarán los resultados, presione 'volver' para regresar o 'salir' para finalizar el programa.", MsgBoxStyle.Information, "Instrucciones")
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Arranque del formulario
My.Computer.Audio.Play(My.Resources.inicio, AudioPlayMode.BackgroundLoop)
End Sub
End ClassPublic Class Form1
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
'botón 1
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "1"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'botón 2
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "2"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'botón 3
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "3"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'botón 4
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "4"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'botón 5
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "5"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'botón 6
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "6"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
'botón 7
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "7"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'botón 8
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "8"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'botón 9
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "9"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
'botón +
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "+"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
'botón -
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "-"
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'botón *
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "*"
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'botón /
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "/"
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
'botón ^
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "^"
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
'botón x
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "x"
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
'botón retroceso
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
If TextBox1.Text.Length > 0 Then
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
Else
MsgBox("No hay carácteres que borrar.", MsgBoxStyle.Information, "Error")
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
'botón 0
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "0"
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
'botón guardar
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
funcion = TextBox1.Text
If funcion <> "" Then
xi = Val(TextBox2.Text)
n = InputBox("Ingrese los términos:")
Me.Close()
Form2.Show()
Else
MsgBox("Por favor escriba la función.", MsgBoxStyle.Exclamation, "Alto")
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
'botón salir
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
End
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
'punto
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Text = TextBox1.Text & "."
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
'botón limpiar
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
TextBox1.Clear()
TextBox2.Clear()
xi = 0
funcion = ""
n = 0
End Sub
End ClassPublic Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'botón salir
End
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
'botón volver
My.Computer.Audio.Play(My.Resources.click, AudioPlayMode.Background)
Form1.TextBox1.Text = funcion
Form1.TextBox2.Text = xi
Me.Close()
Form1.Show()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'arranque del formulario
My.Computer.Audio.Play(My.Resources.tambor, AudioPlayMode.WaitToComplete)
Dim tamaño As Integer = 0
Dim corte As String
Dim uno As Integer
Dim dos As Integer
Dim tres As Integer
Dim cuatro As Integer
Dim bandera As Integer
Dim signo1 As Integer
Dim signo2 As Integer
Dim signo3 As Integer
Dim signo4 As Integer
Dim bloque1 As Double = 1
Dim bloque2 As Double = 1
Dim bloque3 As Double = 1
Dim bloque4 As Double = 1
Dim exponente As Integer
Dim numero1 As Double = 0
Dim numero2 As Double = 0
Dim numero3 As Double = 0
Dim numero4 As Double = 0
Dim corte2 As String = 0
Dim marca As Integer = 0
bandera = 0
For ciclo = 0 To 15
bloque1 = 1
bloque2 = 1
bloque3 = 1
bloque4 = 1
iteracion(ciclo) = ciclo
TextBox1.Text = TextBox1.Text & iteracion(ciclo) & vbCrLf
TextBox2.Text = TextBox2.Text & xi & vbCrLf
If n = 4 Then
tamaño = Len(funcion)
For x = 1 To tamaño
corte = Mid(funcion, x, 1)
If corte = "+" Or corte = "-" Then
If bandera = 3 Then
cuatro = x
bandera = 4
If corte = "+" Then
signo4 = 1
Else
signo4 = -1
End If
End If
If bandera = 2 Then
tres = x
bandera = 3
If corte = "+" Then
signo3 = 1
Else
signo3 = -1
End If
End If
If bandera = 1 Then
dos = x
bandera = 2
If corte = "+" Then
signo2 = 1
Else
signo2 = -1
End If
End If
If bandera = 0 Then
uno = x
bandera = 1
If corte = "+" Then
signo1 = 1
Else
signo1 = -1
End If
End If
End If
Next
uno = Len(funcion)
'bloque 1
For x = 1 To dos
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque1 = bloque1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
bloque1 = bloque1 * numero1 * signo1
End If
End If
Next
'bloque2
For x = dos To tres
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque2 = bloque2 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque2 = bloque2 * signo2
Else
numero2 = Val(Mid(funcion, dos + 1, x - 1))
bloque2 = bloque2 * numero2 * signo2
End If
End If
Next
'bloque 3
For x = tres To cuatro
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque3 = bloque3 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque3 = bloque3 * signo3
Else
numero3 = Val(Mid(funcion, tres + 1, x - 1))
bloque3 = bloque3 * numero3 * signo3
End If
End If
Next
'bloque4
For x = cuatro To uno
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque4 = bloque4 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque4 = bloque4 * signo4
Else
numero4 = Val(Mid(funcion, cuatro + 1, x - 1))
bloque4 = bloque4 * numero4 * signo4
End If
End If
Next
'f (xi)
n = 4
fxi(ciclo) = bloque1 + bloque2 + bloque3 + bloque4
TextBox3.Text = TextBox3.Text & fxi(ciclo) & vbCrLf
End If
'3 valores
If n = 3 Then
tamaño = Len(funcion)
For x = 1 To tamaño
corte = Mid(funcion, x, 1)
If corte = "+" Or corte = "-" Then
If bandera = 2 Then
tres = x
bandera = 3
If corte = "+" Then
signo3 = 1
Else
signo3 = -1
End If
End If
If bandera = 1 Then
dos = x
bandera = 2
If corte = "+" Then
signo2 = 1
Else
signo2 = -1
End If
End If
If bandera = 0 Then
uno = x
bandera = 1
If corte = "+" Then
signo1 = 1
Else
signo1 = -1
End If
End If
End If
Next
uno = Len(funcion)
'bloque 1
For x = 1 To dos
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque1 = bloque1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
bloque1 = bloque1 * numero1 * signo1
End If
End If
Next
'bloque2
For x = dos To tres
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque2 = bloque2 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque2 = bloque2 * signo2
Else
numero2 = Val(Mid(funcion, dos + 1, x - 1))
bloque2 = bloque2 * numero2 * signo2
End If
End If
Next
'bloque 3
For x = tres To uno
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque3 = bloque3 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque3 = bloque3 * signo3
Else
numero3 = Val(Mid(funcion, tres + 1, x - 1))
bloque3 = bloque3 * numero3 * signo3
End If
End If
Next
'f (xi)
n = 3
fxi(ciclo) = bloque1 + bloque2 + bloque3
TextBox3.Text = TextBox3.Text & fxi(ciclo) & vbCrLf
End If
'2 valores
If n = 2 Then
tamaño = Len(funcion)
For x = 1 To tamaño
corte = Mid(funcion, x, 1)
If corte = "+" Or corte = "-" Then
If bandera = 1 Then
dos = x
bandera = 2
If corte = "+" Then
signo2 = 1
Else
signo2 = -1
End If
End If
If bandera = 0 Then
uno = x
bandera = 1
If corte = "+" Then
signo1 = 1
Else
signo1 = -1
End If
End If
End If
Next
uno = Len(funcion)
'bloque 1
For x = 1 To dos
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque1 = bloque1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
bloque1 = bloque1 * numero1 * signo1
End If
End If
Next
'bloque2
For x = dos To uno
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque2 = bloque2 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque2 = bloque2 * signo2
Else
numero2 = Val(Mid(funcion, dos + 1, x - 1))
bloque2 = bloque2 * numero2 * signo2
End If
End If
Next
'f (xi)
n = 2
fxi(ciclo) = bloque1 + bloque2
TextBox3.Text = TextBox3.Text & fxi(ciclo) & vbCrLf
End If
'1 valor
If n = 1 Then
tamaño = Len(funcion)
For x = 1 To tamaño
corte = Mid(funcion, x, 1)
If corte = "+" Or corte = "-" Then
If bandera = 0 Then
uno = x
bandera = 1
If corte = "+" Then
signo1 = 1
Else
signo1 = -1
End If
End If
End If
Next
uno = Len(funcion)
'bloque 1
For x = 1 To uno
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque1 = bloque1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
bloque1 = bloque1 * numero1 * signo1
End If
End If
Next
n = 1
fxi(ciclo) = bloque1
TextBox3.Text = TextBox3.Text & fxi(ciclo) & vbCrLf
End If
'derivación **********************************************************************************************************
bloque1 = 1
bloque2 = 1
bloque3 = 1
bloque4 = 1
If n = 4 Then
tamaño = Len(funcion)
For x = 1 To tamaño
corte = Mid(funcion, x, 1)
If corte = "+" Or corte = "-" Then
If bandera = 3 Then
cuatro = x
bandera = 4
If corte = "+" Then
signo4 = 1
Else
signo4 = -1
End If
End If
If bandera = 2 Then
tres = x
bandera = 3
If corte = "+" Then
signo3 = 1
Else
signo3 = -1
End If
End If
If bandera = 1 Then
dos = x
bandera = 2
If corte = "+" Then
signo2 = 1
Else
signo2 = -1
End If
End If
If bandera = 0 Then
uno = x
bandera = 1
If corte = "+" Then
signo1 = 1
Else
signo1 = -1
End If
End If
End If
Next
uno = Len(funcion)
'bloque 1
For x = 1 To dos
corte = Mid(funcion, x, 1)
If corte = "x" Then
exponente = Val(Mid(funcion, x + 2, 1))
If exponente <> 1 And exponente <> 0 Then
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
numero1 = exponente
exponente = exponente - 1
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
bloque1 = bloque1 * numero1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
numero1 = numero1 * exponente
exponente = exponente - 1
For x2 = 1 To exponente
bloque1 = bloque1 * xi
Next
bloque1 = bloque1 * numero1 * signo1
End If
Else
If exponente = 1 Then
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
bloque1 = 1 * signo1
Else
numero1 = Val(Mid(funcion, 2, x - 1))
numero1 = numero1 * 1
bloque1 = numero1 * signo1
End If
End If
If exponente = 0 Then
corte2 = Mid(funcion, x - 1, 1)
If corte2 = "+" Or corte2 = "-" Then
numero1 = 1
bloque1 = numero1 * signo1
Else
bloque1 = 0
End If
End If
End If
End If
Next
Nota: aún falta código pero no me deja ponerlo porque es demasiado XD si les interesa se los voy compartiendo, lo restante, ¡saludos!
#108
Ideas y Sugerencias / Sugerencia
Agosto 22, 2013, 03:14:59 PM
Hola amigos que tal, solo quería proponer algún taller de Java, o de HTML además según estoy viendo los talleres actuales al menos en mi caso requieren de conocimientos previos o de otros talleres (como por ejemplo el de PHP que requiere conocimientos básicos de HTML y el de pentesting que usa en el primer tuto C y Phyton), yo creo en mi opinión que deberían establecerse los talleres desde su base o al menos verse lo básico como una introducción para poder pasar al taller en sí, yo sé que muchos estarán en contra de esto porque desean aprender cosas complejas pronto pero no podemos hacerlo si no tenemos las bases de un conocimiento, llegará un momento en el que no podamos seguir avanzando o algo salga mal, así que yo creo que antes de seguir se debería establecer bien la conexión de un taller con otro y realizar primero uno y luego en base a ese taller ya hecho, realizar el otro que sería como "el siguiente nivel", si se lleva todo de esta manera creo que para los que no saben mucho sería mucho más sencillo además de que la comprensión sería mayor y todo estaría conectado haciéndolo mucho más interesante, espero me hayan comprendido, y bueno que tomen en cuenta mi opinión, ¡saludos!.
#109
Talleres Underc0de / Re:Taller de Hardware #1
Agosto 22, 2013, 01:21:22 PM
¡Gran aporte!, muy bien explicado, sólo recomiendo mejorar un poco la redacción, ¡saludos y gracias!
#110
Talleres Underc0de / Re:Taller Programacion C #1
Agosto 22, 2013, 12:56:22 PM
¡Buen tuto!, quisiera decir que faltan algunas correcciones en la redacción, y que faltó la explicación del último ejercicio, yo he leído aparte cosas de C pero quiero participar de estos tutoriales porque tal vez me perdí de algo importante 
en fin gracias por el tuto, ¡saludos!
P.D.: Para Mario29:
Puedes desactivar tu antivirus, si tienes avast cada que ejecutas el programa (DEV C++) te lo macará como malicioso, puedes desactivarlo por un momento o descargar otro compilador, intenta con el turbo c emulado para windows 8 haber si está o el IDE emulado, también puedes instalar una maquina virtual con windows 7. ¡saludos!
en fin gracias por el tuto, ¡saludos!P.D.: Para Mario29:
Citarque hay buen dia, mi duda es la siguiente respecto al IDE que mencionan del taller el You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login, no viene para windows 8que es el que yo tengo en mi equipo, algun otro IDE que me recomienden por favor para empezar a practicar?
Cuando intentaba descargar el DEV- C++ de sofonic me lo esta bloqueando el antivirus como software malintencionado.
les agradeceria mucho si me pueden responder antes de las 5 de la tarde por favor.
Puedes desactivar tu antivirus, si tienes avast cada que ejecutas el programa (DEV C++) te lo macará como malicioso, puedes desactivarlo por un momento o descargar otro compilador, intenta con el turbo c emulado para windows 8 haber si está o el IDE emulado, también puedes instalar una maquina virtual con windows 7. ¡saludos!
#111
Talleres Underc0de / Re:Taller de Programacion en Android #1
Agosto 22, 2013, 12:38:07 PM
¡Buen aporte!, gracias por compartir sus conocimientos, está muy bien explicada esta primera parte, espero la segunda, ¡saludos!
#112
Dudas y pedidos generales / Re:Dudas taller #1
Mayo 25, 2011, 09:14:53 PM
Hola
cuando exista una duda favor de poner el link en el paper no había respondido porque no había visto el tema
si procesa información y se comunica con el procesador disculpen ese fue un error pues al apagar la pc se pierde todo si solo existiera la ram claro porque aquel que retiene las cosas al apagarse la pc es la memoria caché del disco que es un fragmento de la ram insertado en un disco aunque no siempre logra guardar la información sin embargo también tenemos el ataque en frio asi que ambos tienen razon aunque dicho "ataque en frio" no nos sirve demasiado porque como vemos se pierden algunos datos pero bueno ambos tienen razon XD
saludos!
cuando exista una duda favor de poner el link en el paper no había respondido porque no había visto el tema
Citar
...es bastante importante debido a que ella guarda pequeños datos como por ejemplo cuando se apaga nuestra pc y olvidamos guardar un documento sucede que a veces logra retenerlo...
si procesa información y se comunica con el procesador disculpen ese fue un error pues al apagar la pc se pierde todo si solo existiera la ram claro porque aquel que retiene las cosas al apagarse la pc es la memoria caché del disco que es un fragmento de la ram insertado en un disco aunque no siempre logra guardar la información sin embargo también tenemos el ataque en frio asi que ambos tienen razon aunque dicho "ataque en frio" no nos sirve demasiado porque como vemos se pierden algunos datos pero bueno ambos tienen razon XD
saludos!
#113
Pentesting / Re:Dudas Taller 1
Mayo 24, 2011, 07:35:05 PM
Los tres codigos funcionaron pero el de nasm ¿es el mismo que el ndisasm? porque en el tuto pides nasm y ndisasm si es el mismo solo me falta hexdump
saludos y gracias!
Edito:
El hexdump ya lo instale con un paquete a travez de synaptic saludos!
saludos y gracias!
Edito:
El hexdump ya lo instale con un paquete a travez de synaptic
saludos!
#114
Dudas y pedidos generales / Re:[Solucionado] Duda taller 1 PHP
Mayo 22, 2011, 07:38:17 PM
aaaah ok gracias! XD perdon estoy medio lento en esto XD
saludos y gracias!
saludos y gracias!
#115
Dudas y pedidos generales / Re:[Solucionado] Duda taller 1 PHP
Mayo 22, 2011, 06:52:44 PM
otra duda jeje disculpa la molestia pero no me salen los comentarios comenzando por el de linea con el # esto es lo que puse
¿que esta mal?
lo guarde como php y todo pero no me sale, lo unico que me salio fue lo de hola mundo bueno espero me ayudes y disculpa la molestia
saludos!
<?php
#Esto es un comentario en PHP
?>
#Esto es un comentario en PHP
?>
¿que esta mal?
lo guarde como php y todo pero no me sale, lo unico que me salio fue lo de hola mundo bueno espero me ayudes y disculpa la molestia
saludos!
#116
Pentesting / Re:Dudas Taller 1
Mayo 22, 2011, 06:16:53 PM
hola con algunos ya se pudo pero la mayoria no aqui pongo las imagenes:
Como ves el GDP si se pudo pero el hexdump no igual me salio lo mismo del hexdump con estos:
ndisasm,objdump,id
saludos!
Como ves el GDP si se pudo pero el hexdump no igual me salio lo mismo del hexdump con estos:
ndisasm,objdump,id
saludos!
#117
Dudas y pedidos generales / Re:[Solucionado] Duda taller 1 PHP
Mayo 20, 2011, 04:29:29 PM
ah si ya vi jeje disculpa si tengo otra duda aqui la pongo
saludos y gracias!
saludos y gracias!
#118
Dudas y pedidos generales / [SOLUCIONADO] Duda taller 1 PHP
Mayo 19, 2011, 09:26:13 PM
Hola! aaaammm una disculpa porque creo que estoy ciego pero no encontre los servidores que dices que facilitas jaja gracias de antemano
saludos!
saludos!
#119
Pentesting / Re:Dudas Taller 1
Mayo 19, 2011, 07:17:23 PM
Si te entendi gracias!
pero se me hace mas sencillo enviar el codigo a la terminal que estar buscando en google jeje
oye snakingmax no se pudo o bueno creo que no se pudo miren lo que salio
pero se me hace mas sencillo enviar el codigo a la terminal que estar buscando en google jeje
oye snakingmax no se pudo o bueno creo que no se pudo miren lo que salio
#120
Pentesting / Re:Dudas Taller 1
Mayo 19, 2011, 02:09:10 PM
ah okok ya entendi gracias por la ayuda!!!!
¿asi se instala cualquier programa? solo pongo
sudo apt-get install
¿y luego el nombre?
¿asi se instala cualquier programa? solo pongo
sudo apt-get install
¿y luego el nombre?
