//--------------------------------------------------------------------------------------- void_fastcall TForm1::FormActivate(TObjet *sender) { ServerSocket1-> Active = true; } //--------------------------------------------------------------------------------------- void_fastcall TForm1::ServerSocket1ClientConnect(TObjet *sender,TCustomWinSocket *Socket) { Application-> MessageBoxA("un client se connecte",NULL,MB_OK); StatusBar1-> SimpleText= "connexion d'un client"; } //--------------------------------------------------------------------------------------- void_fastcall TForm1::ServerSocket1ClientDisconnect(TObjet*sender,TCustomWinSocket *Socket) { Application-> MessageBoxA("un client se déconnecte",NULL,MB_OK); StatusBar1-> SimpleText= "déconnexion d'un client"; } //--------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- void_fastcall TForm1::ServerSocket1ClientRead(TObjet *sender,TCustomWinSocket *Socket) { StatusBar1-> SimpleText= "Dialogue en cours"; if(if==0) { Socket->ReceiveBuf(&data,sizeof(uInt32)); //---------------------------------------------------------------------------------- switch(data) { case 0x00000001: Socket->SendBuf(&d2,sizeof(uInt32)); break; case 0xffffff01: Edit3->Text=data; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); break; case 0xffffff02: Edit3->Text=0xffffff02; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); break; case 0xffffff04: Edit3->Text=data; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); break; case 0xffffff08: Edit3->Text=data; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); break; case 0x00000002: Edit->Text=data; i=1; break; } } else { d3[0 * =d4; DAQmxWriteAnalogF64(tache3,1,1,10.0,DAQmx_Val_GroupByChannel,&d3,NULL,NULL); i=0; } } //---------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------- void_Fastcall TForm1::FormActivate(TObjet*Sender) { ClientSocket1->Active = true; }//connexion au serveur //--------------------------------------------------------------------------------------- void_Fastcall TForm1::ButtonClick(TObjet*Sender) { ClientSocket1->Socket->SendText(Edit1->Text); }//envoie de requête au serveur //--------------------------------------------------------------------------------------- void_Fastcall TForm1::ClientSocket1Read(TObjet *Sender,TCustomWinSocket *Socket) { unsigned int d2; Socket->ReceiveBuf(&d2,sizeof(unsigned int)); Edit1->Text= " "; }//demande état des interrupteurs //---------------------------------------------------------------------------------------- void_Fastcall TForm1::BitBtnClick(TObjet*sender) { ClientSocket1->Socket->SendText(" Au revoir!"); lientSocket1->Active = false; }//déconnexion au serveur //--------------------------------------------------------------------------------------- void_Fastcall TForm1::ClientSocket1Error(TObjet *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent,int &ErrorCode) { Application->MessageBoxA("une erreur est survenue!",NULL,MB_OK); Application->Terminate(); }//signal une erreur due l'arrêt du serveur //--------------------------------------------------------------------------------------- void_Fastcall TForm1::Button2Click(TObjet*sender) { data=0xffffff01; ClientSocket1->Socket->SendBuf(&data,sizeof,unsigned int); }//déconnexion au serveur //--------------------------------------------------------------------------------------- void_Fastcall TForm1::Button3Click(TObjet*sender) { data=0xffffff02; ClientSocket1->Socket->SendBuf(&data,sizeof,unsigned int); } //--------------------------------------------------------------------------------------- void_Fastcall TForm1::Button4Click(TObjet*sender) { data=0xffffff04; ClientSocket1->Socket->SendBuf(&data,sizeof,unsigned int); } //--------------------------------------------------------------------------------------- void_Fastcall TForm1::Button5Click(TObjet*sender) { data=0xffffff08; ClientSocket1->Socket->SendBuf(&data,sizeof,unsigned int); } //---------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------- void_Fastcall TForm1::Timer1Timer(TObjet*sender) { DAQmxReadDigitalU32(tache2,1,10.0,DAQmx_Val_GroupByChannel,&d2,1,&Read,NULL); Edit->Text=d2; } //---------------------------------------------------------------------------------
//--------------------------------------------------------------------------------- void_Fastcall TForm1::TrackBar1Change(TObjet*sender) { d3[0 * =TrackBar1->Position; Edit2->Text=d3[0 * ; DAQmxWriteAnalogF64(tache3,1,1,10.0,DAQmx_Val_GroupByChannel,&d3,NULL,NULL); Edit->Text=d2; } //---------------------------------------------------------------------------------
//--------------------------------------------------------------------------------- void_Fastcall TForm1::Button1Click(TObjet*sender) { data=0xffffff01; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); } //------------------------------------------------------------------------------------- void_Fastcall TForm1::Button2Click(TObjet*sender) { data=0xffffff02; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); } //------------------------------------------------------------------------------------- void_Fastcall TForm1::Button3Click(TObjet*sender) { data=0xffffff04; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); } //------------------------------------------------------------------------------------- void_Fastcall TForm1::Button4Click(TObjet*sender) { data=0xffffff08; DAQmxWriteDigitalU32(tache1,1,1,10.0,DAQmx_Val_GroupByChannel,&data,&written,NULL); } //-------------------------------------------------------------------------------------
Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom