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

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

char *buffer = NULL;
HWND        hButton1;

float Matheparser(char *Text)
{
           int q;
           int Anzges=0;
           int klammerlast=0;
           int klammerendelast=0;
           int gefunden=0;
           int ri=0;
           int endegelaende=0;
           int anfang=0;
           int ende=0;
           int AnzgesErgebnis=0;
           int Anzgesklammer=0;
           int k=0;
           int ii=0;
           int u=0;
           int erstgefunden=0;
           int Klacount=0;
           int Kla1count=0;
           int plu=0;
           
           
           float zahl1float=0;
           float zahl2float=0;
           float Ergebnis=0;
           
           
           char Rechnung[900];
           char teil1[900];
           char teil2[900];
           char Klammerteil1[900];
           char Klammerteil2[900];
           char Zahl1string[900];
           char Zahl2string[900];
           char ergebnisstring[900];
           char Klammerrechnung[900];
           char neuu[900];
           char zwi[900];
           
           char Fehler[]={"°!\"§$%&?`´~#'_;\\@|µ€qwertzuiopüäölkjhgfdsay<cvbnmQWERTZUIOPÜÄÖLKJHGFDSA<YXCVBNM="};
           char errortext[900];
           int minuswo=0;
                
           
           
           
           
           strcpy(Rechnung,"");
           
           strcpy(Rechnung,Text);//Einlesen des Termes
          
          
          while(1)
          {
          gefunden=0;
          Anzges=strlen(Rechnung);
          
          strcpy(teil1,"");
          strcpy(teil2,"");
          
          if(Rechnung[Anzges-1]=='=') Rechnung[Anzges-1]='\0';
          
          //nach falschen Zeichen Filtern
          for(q=0;q<Anzges;q++)            
          {                                
                          if('x'==Rechnung[q]) Rechnung[q]='*';
                          if(':'==Rechnung[q]) Rechnung[q]='/';
                          if(','==Rechnung[q]) Rechnung[q]='.';
                          if('['==Rechnung[q] || '{'==Rechnung[q]) Rechnung[q]='(';
                          if(']'==Rechnung[q] || '}'==Rechnung[q]) Rechnung[q]=')';
                          if('²'==Rechnung[q]) 
                          {
                                      Rechnung[q]='^';
                                      for(u=Anzges+1;u>q;u--) Rechnung[u]=Rechnung[u-1];
                                      Anzges++;
                                      Rechnung[q+1]='2';
                          }
                          if('³'==Rechnung[q]) 
                          {
                                      Rechnung[q]='^';
                                      for(u=Anzges+1;u>q;u--) Rechnung[u]=Rechnung[u-1];
                                      Anzges++;
                                      Rechnung[q+1]='3';
                          }                    
                          
                          for(u=0;u<strlen(Fehler);u++) 
                          {
                                                        if(Fehler[u]==Rechnung[q])
                                                        {
                                                                       strcpy(errortext,"");
                                                                       sprintf(errortext,"Bitte entfernen Sie dieses Zeichen: '%c'",Fehler[u]);
                                                                       MessageBox(0, errortext, "Fehler", 0);
                                                                       return -111111111;           
                                                        }
                          }
          }                 
         
          //+- -- -+ ++ filtern
          
          for(q=0;q<Anzges;q++)            
          {
                             if(Rechnung[q]=='+' && Rechnung[q+1]=='-' || Rechnung[q]=='-' && Rechnung[q+1]=='+')
                             {
                                                 Rechnung[q]='-';
                                                 for(u=q+1;u<Anzges;u++) Rechnung[u]=Rechnung[u+1];
                                                 Anzges--;
                             }
                             if(Rechnung[q]=='+' && Rechnung[q+1]=='+' || Rechnung[q]=='-' && Rechnung[q+1]=='-')
                             {
                                                 Rechnung[q]='+';
                                                 for(u=q+1;u<Anzges;u++) Rechnung[u]=Rechnung[u+1];
                                                 Anzges--;
                             }                                          
          }
          
          if(Rechnung[0]=='+') for(u=0;u<Anzges;u++)Rechnung[u]=Rechnung[u+1];
          
          //Klammern durchzählen:
          Klacount=0;
          Kla1count=0;
          for(q=0;q<Anzges;q++)            
          {
                        if(Rechnung[q]=='(') 
                        {
                                            Klacount++;
                        }
                       if(Rechnung[q]==')')//erstes ')' nach dem letzten '(' suchen
                       {
                                            Kla1count++;
                       }
          }    
          if(Kla1count!=Klacount)
          {
                               MessageBox(0, "Es fehlt eine Klammer!", "Fehler", 0);
                               return -111111111;     
          }               
          
          int ui=0;
          while(1)
          {
          gefunden=0;
          erstgefunden=0;
          klammerlast=0;
          klammerendelast=Anzges;
          for(q=ui;q<Anzges;q++)//richtige Klammer suchen!            
          {
                                           if(Rechnung[q]=='(') 
                                           {
                                                                klammerlast=q;//letzes '(' finden
                                                                erstgefunden=1;
                                           }
                                           if(Rechnung[q]==')' && erstgefunden==1)//erstes ')' nach dem letzten '(' suchen
                                           {
                                                                klammerendelast=q;
                                                                gefunden=1;
                                                                break;
                                           }
          }
          strcpy(teil1,"");
          strcpy(teil2,"");
          if(gefunden==1)//es gibt mindestens eine Klammer in der Rechnung
          {
              gefunden=0;
              
              if(klammerlast==0)                strcpy(teil1,"");
              else
              {
                      for(q=0;q<klammerlast;q++) teil1[q]=Rechnung[q];
                      teil1[q]='\0';
              }
                  
              if(klammerendelast==Anzges)       strcpy(teil2,"");
              else
              {
                      for(q=klammerendelast+1,ri=0;q<Anzges;q++,ri++) teil2[ri]=Rechnung[q];
                      teil2[ri]='\0';
              }
                             
              gefunden=0;
              for(q=klammerlast+1,ri=0;q<klammerendelast;q++,ri++) Klammerrechnung[ri]=Rechnung[q];//die Rechnung, in der letzten Klammer in den String Klammerrechnung schreiben
              Klammerrechnung[ri]='\0';
                  
              Anzgesklammer=strlen(Klammerrechnung);
              
              sscanf(Klammerrechnung,"%f",&Ergebnis);
              if(Ergebnis<0)                                       
              {
                        if(Anzges-2==Anzgesklammer)                             endegelaende=2;
                        ui=klammerendelast+1;
                        Ergebnis=0;
                        continue;
              }
              Ergebnis=0;
              break; 
          }
          else// es gibt keine Klammer
          {
               Anzgesklammer=Anzges;
               strcpy(Klammerrechnung,Rechnung);
               endegelaende=1;
               break;
          }
          }
          
          if(Klammerrechnung[0]=='+') for(u=0;u<Anzges;u++) Klammerrechnung[u]=Klammerrechnung[u+1];
          
         /*sprintf(neuu,"%d",Anzgesklammer);
          MessageBox(0, neuu, "Anzgesklammer", 0);
          
          
          MessageBox(0, Klammerrechnung, "Klammerrechnung", 0);
          MessageBox(0, teil1, "teil1", 0);
          MessageBox(0, teil2, "teil2", 0);*/
           
          do{//solange Potenzen in der Rechnung sind
                  gefunden=0;
                  anfang=0;
                  ende=0;
                  klammerlast=0;
                  minuswo=0;
                  zahl1float=0;
                  zahl2float=0;
                  
                       
                  for(q=0;q<Anzgesklammer;q++)
                  {            
                               if(Klammerrechnung[q]=='^') 
                               {
                                              klammerlast=q;//erste '^' finden
                                              gefunden=1;
                                              break;
                               }
                  }
                  
                  if(gefunden!=1)break;//wenn keine Potenz in der Rechnung vorhanden ist, die Schleife beenden
                  
                  Ergebnis=0;
                  
                  if(Klammerrechnung[klammerlast-1]==')') 
                  {
                        for(q=0;q<klammerlast-1;q++)      if(Klammerrechnung[q]=='(') anfang=q;
                  }
                  else
                  {
                      for(q=0;q<klammerlast;q++)//sucht nach dem Rechenzeichen, das vor der Potenzrechnung steht
                      {
                                                if(Klammerrechnung[q]=='^' || Klammerrechnung[q]=='+' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/' || Klammerrechnung[q]=='-')
                                                {
                                                                           anfang=q+1;
                                                                           gefunden=1;
                                                }
                      }
                      if(gefunden==0)           anfang=0;
                      else gefunden=0;
                  }
                  gefunden=0;
                  if(Klammerrechnung[klammerlast+1]=='(') 
                  {
                        for(q=klammerlast+1;q<Anzgesklammer;q++)      if(Klammerrechnung[q]==')') ende=q+1;
                  }
                  else
                  {
                      for(q=klammerlast+2;q<Anzgesklammer;q++)//sucht nach dem Rechenzeichen, das nach der Potenzrechnung steht
                      {
                                                if(Klammerrechnung[q]=='^' || Klammerrechnung[q]=='+' || Klammerrechnung[q]=='-' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/')
                                                {
                                                                           ende=q;
                                                                           gefunden=1;
                                                                           break;
                                                }
                      }
                      if(gefunden==0)           ende=Anzgesklammer;
                      else gefunden=0;
                  }
                  
                  strcpy(Klammerteil1,"");
                  strcpy(Klammerteil2,"");
                  
                  if(anfang==0)                                                 strcpy(Klammerteil1,"");
                  else
                  {
                                          for(q=0;q<anfang;q++)                 Klammerteil1[q]=Klammerrechnung[q];
                                          Klammerteil1[q]='\0';
                  }
                  if(ende==Anzgesklammer)                                       strcpy(Klammerteil2,"");
                  else
                  {
                                          for(q=ende,ri=0;q<Anzgesklammer;q++,ri++)       Klammerteil2[ri]=Klammerrechnung[q];
                                          Klammerteil2[ri]='\0';
                  }
                  
                  strcpy(Zahl1string,"");
                  strcpy(Zahl2string,"");
                  
                  //jetzt stehen die Bereich fest, in denen die Zahlen stehen müssen
                  if(Klammerrechnung[klammerlast-1]==')')
                  {
                      for(q=anfang+1,ri=0;q<klammerlast-1;q++,ri++) Zahl1string[ri]=Klammerrechnung[q];                                   
                  }
                  else
                  {
                      for(q=anfang,ri=0;q<klammerlast;q++,ri++) Zahl1string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                  }
                  Zahl1string[ri]='\0';
                  
                  if(Klammerrechnung[klammerlast+1]=='(') 
                  {
                          for(q=klammerlast+2,ri=0;q<ende-1;q++,ri++) Zahl2string[ri]=Klammerrechnung[q];                                
                  }
                  else
                  {
                          if(Klammerrechnung[klammerlast+1]=='-') q=klammerlast+2;
                          else                                    q=klammerlast+1;
                          for(ri=0;q<ende;q++,ri++) Zahl2string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                  }
                  Zahl2string[ri]='\0';
                  
                  sscanf(Zahl1string,"%f",&zahl1float);
                  sscanf(Zahl2string,"%f",&zahl2float);
                  
                  if(Klammerrechnung[klammerlast-1]!=')') if(Klammerrechnung[anfang+1]=='-' || Klammerrechnung[anfang]=='-') zahl1float=zahl1float*(-1);
                  if(Klammerrechnung[klammerlast+1]!='(')if(Klammerrechnung[klammerlast+1]=='-')                       zahl2float=zahl2float*(-1);
                  
                  if(zahl1float==0 && zahl2float<0)
                  {
                                   MessageBox(0, "Das Teilen durch 0 ist nicht erlaubt!", "Fehler", 0);
                                   return -111111111; 
                  }
                  
                  Ergebnis=pow(zahl1float,zahl2float);//Potenz
                  strcpy(ergebnisstring,"");
                  sprintf(ergebnisstring,"%g",Ergebnis);
                                    
                  /*sprintf(neuu,"%d",Anzgesklammer);
                  MessageBox(0, neuu, "Anzgesklammer", 0);
                  
                  sprintf(neuu,"%d",anfang);
                  MessageBox(0, neuu, "anfang", 0);
                  
                  sprintf(neuu,"%d",ende);
                  MessageBox(0, neuu, "ende", 0);                  
                  
                  MessageBox(0, Klammerteil1, "Klammerteil1", 0);
                  MessageBox(0, Klammerteil2, "Klammerteil2", 0);
                  MessageBox(0, Zahl1string, "Zahl1string", 0);
                  MessageBox(0, Zahl2string, "Zahl2string", 0);
                  sprintf(neuu,"%g",Ergebnis);
                  MessageBox(0, neuu, "Ergebnis", 0);*/
                  
                  //Ergebnis in den String Klammerrechnung hineinschreiben
                  
                  strcpy(Klammerrechnung,"");
                  strcpy(Klammerrechnung,Klammerteil1);
                  strcat(Klammerrechnung,ergebnisstring);
                  strcat(Klammerrechnung,Klammerteil2);
                  
                  Anzgesklammer=strlen(Klammerrechnung);
                  
          }while(1);
          
          do{//solange Divisionen in der Rechnung sind
                  gefunden=0;
                  anfang=0;
                  ende=0;
                  klammerlast=0;
                  minuswo=0;
                  zahl1float=0;
                  zahl2float=0;
                  plu=0;
                      
                  for(q=0;q<Anzgesklammer;q++)
                  {            
                               if(Klammerrechnung[q]=='/') 
                               {
                                              klammerlast=q;//letzes '/' finden
                                              gefunden=1;
                                              plu=1;
                                              break;
                               }
                               if(Klammerrechnung[q]=='*') 
                               {
                                              klammerlast=q;//letzes '/' finden
                                              gefunden=1;
                                              plu=2;
                                              break;
                               }
                  }
                  if(gefunden==0)break;//wenn keine Division in der Rechnung vorhanden ist, die Schleife beenden
                  for(q=1;q<klammerlast;q++)//sucht nach dem Rechenzeichen, das vor der Potenzrechnung steht
                  {
                                            if(Klammerrechnung[q]=='+' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/')
                                            {
                                                                       anfang=q+1;
                                                                       gefunden=1;
                                            }
                  }
                  if(gefunden==0)           anfang=0;
                  else gefunden=0;
                  
                  for(q=anfang;q<klammerlast;q++)//sucht nach dem Rechenzeichen, das nach der Potenzrechnung steht
                  {
                                            if(Klammerrechnung[q]=='-')
                                            {
                                                                       minuswo=q;
                                                                       gefunden=1;
                                            }
                  }
                  if(gefunden==1)
                  {
                                 gefunden=0;
                                 if(anfang!=minuswo)anfang=minuswo+1;
                  }
                  
                  for(q=klammerlast+2;q<Anzgesklammer;q++)//sucht nach dem Rechenzeichen, das nach der Potenzrechnung steht
                  {
                                            if(Klammerrechnung[q]=='+' || Klammerrechnung[q]=='-' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/')
                                            {
                                                                       ende=q;
                                                                       gefunden=1;
                                                                       break;
                                            }
                  }
                  if(gefunden==0)           ende=Anzgesklammer;
                  else gefunden=0;
                  
                  strcpy(Klammerteil1,"");
                  strcpy(Klammerteil2,"");
                  
                  if(anfang==0)                                                 strcpy(Klammerteil1,"");
                  else
                  {
                                          for(q=0;q<anfang;q++)                 Klammerteil1[q]=Klammerrechnung[q];
                                          Klammerteil1[q]='\0';
                  }
                  
                  if(ende==Anzgesklammer)                                       strcpy(Klammerteil2,"");
                  else
                  {
                                          for(q=ende,ri=0;q<Anzgesklammer;q++,ri++)       Klammerteil2[ri]=Klammerrechnung[q];
                                          Klammerteil2[ri]='\0';
                  }
                  
                  strcpy(Zahl1string,"");
                  strcpy(Zahl2string,"");
                  
                  //jetzt stehen die Bereich fest, in denen die Zahlen stehen müssen
                  
                  if(Klammerrechnung[anfang+1]=='-' || Klammerrechnung[anfang]=='-') q=anfang+1;
                  else                               q=anfang;
                  for(ri=0;q<klammerlast;q++,ri++) Zahl1string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                  Zahl1string[ri]='\0';
                  
                  if(Klammerrechnung[klammerlast+1]=='-') q=klammerlast+2;
                  else                                    q=klammerlast+1;
                  for(ri=0;q<ende;q++,ri++) Zahl2string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                  Zahl2string[ri]='\0';
                  
                  sscanf(Zahl1string,"%f",&zahl1float);
                  sscanf(Zahl2string,"%f",&zahl2float);
                  
                  if(Klammerrechnung[anfang+1]=='-' || Klammerrechnung[anfang]=='-') zahl1float=zahl1float*(-1);
                  if(Klammerrechnung[klammerlast+1]=='-')                       zahl2float=zahl2float*(-1);
                  
                  if(plu==1)
                  {
                      if(zahl2float==0)
                      {
                                   MessageBox(0, "Das Teilen durch 0 ist nicht erlaubt!", "Fehler", 0);
                                   return -111111111; 
                      }
                      
                      Ergebnis=(float)zahl1float/zahl2float;//Quotient
                  }
                  else
                  {
                      Ergebnis=(float)zahl1float*zahl2float;
                  }
                  sprintf(ergebnisstring,"%g",Ergebnis);
                  
                  AnzgesErgebnis=strlen(ergebnisstring);
                  
                  //Ergebnis in den String Klammerrechnung hineinschreiben
                  
                  strcpy(Klammerteil1,"");
                  strcpy(Klammerteil2,"");
                  
                  if(anfang==0)                                                 strcpy(Klammerteil1,"");
                  else
                  {
                                          for(q=0;q<anfang;q++)                 Klammerteil1[q]=Klammerrechnung[q];
                                          Klammerteil1[q]='\0';
                  }
                  
                  if(ende==Anzgesklammer)                                       strcpy(Klammerteil2,"");
                  else
                  {
                                          for(q=ende,ri=0;q<Anzgesklammer;q++,ri++)       Klammerteil2[ri]=Klammerrechnung[q];
                                          Klammerteil2[ri]='\0';
                  }
                  
                  
                  
                  strcpy(Klammerrechnung,"");
                  strcpy(Klammerrechnung,Klammerteil1);
                  strcat(Klammerrechnung,ergebnisstring);
                  strcat(Klammerrechnung,Klammerteil2);
                  
                  Anzgesklammer=strlen(Klammerrechnung);
                                            
          }while(1);
          
          do{//solange Minusrechnungen in der Rechnung sind
                  gefunden=0;
                  anfang=0;
                  ende=0;
                  klammerlast=0;
                  minuswo=0;
                  zahl1float=0;
                  zahl2float=0;
                  plu=0;
                     
                  for(q=1;q<Anzgesklammer;q++)
                  {            
                               if(Klammerrechnung[q]=='-') 
                               {
                                              klammerlast=q;//erstes '-' finden
                                              gefunden=1;
                                              plu=1;
                                              break;
                               }
                               if(Klammerrechnung[q]=='+') 
                               {
                                              klammerlast=q;//erstes '-' finden
                                              gefunden=1;
                                              plu=2;
                                              break;
                               }
                  }
                  if(gefunden==0)break;//wenn keine Minusrechnung in der Rechnung vorhanden ist, die Schleife beenden
                  
                  Ergebnis=0;
                  
                  for(q=1;q<klammerlast;q++)//sucht nach dem Rechenzeichen, das vor der Minusrechnung steht
                  {
                                            if(Klammerrechnung[q]=='+' || Klammerrechnung[q]=='-' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/')
                                            {
                                                                       anfang=q+1;
                                                                       gefunden=1;
                                            }
                  }
                  if(gefunden==0) anfang=0;
                  else gefunden=0;
                  
                  for(q=anfang;q<klammerlast;q++)//sucht nach dem Rechenzeichen, das nach der Potenzrechnung steht
                  {
                                            if(Klammerrechnung[q]=='-')
                                            {
                                                                       minuswo=q;
                                                                       gefunden=1;
                                            }
                  }
                  if(gefunden==1)
                  {
                                 gefunden=0;
                                 if(anfang!=minuswo)anfang=minuswo+1;
                  }
                  
                  
                  for(q=klammerlast+2;q<Anzgesklammer;q++)//sucht nach dem Rechenzeichen, das nach der Minusrechnung steht
                  {
                                            if(Klammerrechnung[q]=='+' || Klammerrechnung[q]=='-' || Klammerrechnung[q]=='*' || Klammerrechnung[q]=='/')
                                            {
                                                                       ende=q;
                                                                       gefunden=1;
                                                                       break;
                                            }
                  }
                  if(gefunden==0) ende=Anzgesklammer;
                  else gefunden=0;
                  //jetzt stehen die Bereich fest, in denen die Zahlen stehen müssen
                  
                  
                  strcpy(Zahl1string,"");
                  strcpy(Zahl2string,"");
                  
                  if(plu==1)
                  {                  
                          for(q=anfang,ri=0;q<klammerlast;q++,ri++) Zahl1string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                          Zahl1string[ri]='\0';
                          
                          for(q=klammerlast+1,ri=0;q<ende;q++,ri++) Zahl2string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                          Zahl2string[ri]='\0';
                          
                          sscanf(Zahl1string,"%f",&zahl1float);
                          sscanf(Zahl2string,"%f",&zahl2float);
                                                    
                          if(Klammerrechnung[anfang-1]=='-' && anfang==1) zahl1float=zahl1float*(-1);
                          Ergebnis=(float)zahl1float-zahl2float;//Minus
                  }
                  else
                  {
                          if(Klammerrechnung[anfang+1]=='-' || Klammerrechnung[anfang]=='-') q=anfang+1;
                          else                               q=anfang;
                          for(ri=0;q<klammerlast;q++,ri++) Zahl1string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                          Zahl1string[ri]='\0';
                          
                          if(Klammerrechnung[klammerlast+1]=='-') q=klammerlast+2;
                          else                                    q=klammerlast+1;
                          for(ri=0;q<ende;q++,ri++) Zahl2string[ri]=Klammerrechnung[q];//zahl1 wird ausgelesen
                          Zahl2string[ri]='\0';
                          
                          sscanf(Zahl1string,"%f",&zahl1float);
                          sscanf(Zahl2string,"%f",&zahl2float);
                          
                          if(Klammerrechnung[anfang+1]=='-' || Klammerrechnung[anfang]=='-') zahl1float=zahl1float*(-1);
                          if(Klammerrechnung[klammerlast+1]=='-')                       zahl2float=zahl2float*(-1);
                          
                          Ergebnis=(float)zahl1float+zahl2float;//Addition
                  }
                  sprintf(ergebnisstring,"%g",Ergebnis);
                  
                  AnzgesErgebnis=strlen(ergebnisstring);
                  
                  //Ergebnis in den String Klammerrechnung hineinschreiben
                  
                  strcpy(Klammerteil1,"");
                  strcpy(Klammerteil2,"");
                  
                  if(anfang==0)                                                 strcpy(Klammerteil1,"");
                  else
                  {
                                          for(q=anfang;q<anfang;q++)            Klammerteil1[q]=Klammerrechnung[q];
                                          Klammerteil1[q]='\0';
                  }
                  
                  if(ende==Anzgesklammer)                                       strcpy(Klammerteil2,"");
                  else
                  {
                                          for(q=ende,ri=0;q<Anzgesklammer;q++,ri++)       Klammerteil2[ri]=Klammerrechnung[q];
                                          Klammerteil2[ri]='\0';
                  }
                  
                  /*sprintf(neuu,"%d",Anzgesklammer);
                  MessageBox(0, neuu, "Anzgesklammer", 0);
                  
                  sprintf(neuu,"%d",anfang);
                  MessageBox(0, neuu, "anfang", 0);
                  
                  sprintf(neuu,"%d",ende);
                  MessageBox(0, neuu, "ende", 0);                  
                  
                  MessageBox(0, Klammerteil1, "Klammerteil1", 0);
                  MessageBox(0, Klammerteil2, "Klammerteil2", 0);
                  MessageBox(0, Zahl1string, "Zahl1string", 0);
                  MessageBox(0, Zahl2string, "Zahl2string", 0);
                  sprintf(neuu,"%g",Ergebnis);
                  MessageBox(0, neuu, "Ergebnis", 0);*/
                  
                  strcpy(Klammerrechnung,"");
                  strcpy(Klammerrechnung,Klammerteil1);
                  strcat(Klammerrechnung,ergebnisstring);
                  strcat(Klammerrechnung,Klammerteil2);
                  
                  Anzgesklammer=strlen(Klammerrechnung);
                                            
          }while(1);
          
          sscanf(Klammerrechnung,"%f",&Ergebnis);
          if(Ergebnis<0) 
          {
                strcpy(zwi,"(");
                strcat(zwi,Klammerrechnung);
                strcat(zwi,")");
                strcpy(Klammerrechnung,zwi);
                
                if(endegelaende==1) endegelaende=2;
          }
          Ergebnis=0;         
          
          //jetzt steht in Klammerrechnung das Ergebnis
          
          strcpy(Rechnung,"");
          strcpy(Rechnung,teil1);
          strcat(Rechnung,Klammerrechnung);
          strcat(Rechnung,teil2);
          
          if(endegelaende==1 || endegelaende==2) break;
          
          }
          if(endegelaende==1)    sscanf(Rechnung,"%f",&Ergebnis);
          else                   sscanf(Rechnung,"(%f)",&Ergebnis); 
          
        return Ergebnis;
}



int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine, int iCmdShow)
{
    HWND     hWnd;
    MSG      msg;
    WNDCLASS wc;
    HWND        hText;
    HWND        hText1;
    
    WNDCLASSEX  WindowClass;            
        

    const char szAppName[] = "Matheparser";

   wc.style          = CS_HREDRAW | CS_VREDRAW;
    
    wc.cbClsExtra     = 0;
    wc.cbWndExtra     = 0;
    wc.hInstance      = hInstance;
    wc.hIcon          = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor        = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground  = GetSysColorBrush(COLOR_3DFACE);
    wc.lpszMenuName   = NULL;
    wc.lpfnWndProc    = WndProc;
    wc.lpszClassName  = szAppName;

    RegisterClass(&wc);

    hWnd = CreateWindow( szAppName,
                         "Matheparser",
                         WS_OVERLAPPEDWINDOW| WS_VISIBLE,
                         CW_USEDEFAULT,
                         CW_USEDEFAULT,
                         455,
                         200,
                         NULL,
                         NULL,
                         hInstance,
                         NULL );

    ShowWindow(hWnd, iCmdShow);
    UpdateWindow(hWnd);
    
   
    
    hText = CreateWindow("STATIC", "Geben Sie hier bitte die Rechnung ein: ",
                    WS_VISIBLE | WS_CHILD, 20,10, 300, 20, hWnd, NULL, hInstance, NULL);
    if(!hText) return FALSE;
    
    hText1 = CreateWindow("STATIC", "Ergebnis: ",
                    WS_VISIBLE | WS_CHILD, 20,100, 100, 20, hWnd, NULL, hInstance, NULL);
    if(!hText1) return FALSE;
        
    hButton1 = CreateWindow("BUTTON", "Berechnen",
                       WS_VISIBLE | WS_CHILD, 20, 60, 200, 20,
                       hWnd, NULL, hInstance, NULL);
    if(!hButton1) return FALSE;
        
        
    SendMessage(hText, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), TRUE);
    SendMessage(hText1, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), TRUE);
    SendMessage(hButton1, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), TRUE);
    
    while(GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }

    return msg.wParam;
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
        static HWND hEdit;
        static HWND hEdit1;

    switch(message)
    {
    case WM_CREATE:
        {
            hEdit = CreateWindowEx(WS_EX_CLIENTEDGE,
                                   "edit",
                                   buffer,    
                                   WS_CHILD | WS_VISIBLE,
                                   20, 30, 400, 20,
                                   hWnd,
                                   NULL,
                                   ((LPCREATESTRUCT) lParam) -> hInstance,
                                   NULL);

            free(buffer);
            
            SendMessage(hEdit, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), TRUE);
            
            hEdit1 = CreateWindowEx(WS_EX_CLIENTEDGE,
                                   "edit",
                                   "",    
                                   WS_CHILD | WS_VISIBLE,
                                   20, 130, 400, 20,
                                   hWnd,
                                   NULL,
                                   ((LPCREATESTRUCT) lParam) -> hInstance,
                                   NULL);
            
            SendMessage(hEdit1, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), TRUE);
        
            return 0;            
        }
        
    case WM_COMMAND:
                {        
                        if(lParam == (LPARAM)hButton1)//Berechnen Button wurde gedrückt        
                        {
                                  int iLength;
                                  float Endergebnis;
                                  char Ende[1024];
                        
                                  
                                  iLength = GetWindowTextLength(hEdit);
                                  buffer = malloc(iLength);
                                  GetWindowText(hEdit, buffer, iLength+1);
                                  
                                  Endergebnis=0;
                                  Endergebnis=Matheparser(buffer);//Funktion *g*
                                  if(Endergebnis!=-111111111)//Es kam zu einem Fehler
                                  {
                                                    sprintf(Ende,"%s=%g",buffer,Endergebnis);
                                                    SendMessage(hEdit1, WM_SETTEXT, 0,(LPARAM)Ende);
                                                    UpdateWindow(hEdit1);
                                  }
                                  strcpy(Ende,"");
                                  Endergebnis=0;
                                  buffer=NULL;
                                  
                         } 
              }    
              break;    
        
    
    case WM_CLOSE:
        {
            DestroyWindow(hWnd);
            return 0;
        }
    case WM_DESTROY:
        {
            PostQuitMessage(0);
            return 0;
        }
    }
    return DefWindowProc(hWnd, message, wParam, lParam);
}