void __fastcall TCanvasSmoothStretch::FormCreate(TObject *Sender) { // Draw a chart onto Image1 for this example: Chart1->Legend->Visible = false; Chart1->Width = Image1->Width; Chart1->Height = Image1->Height; Image1->Picture->Assign(Chart1); RadioGroup1Click(this); }
void __fastcall TfrmRaporSecimi::FormShow(TObject *Sender) { frmAnaMenu->Database->Connected = true; // Cinsi ComboBox'ýna kayýt ekleniyor... comboStokCinsiBaslangic->Items->Clear(); comboStokCinsiBitis->Items->Clear(); frmUrunCinsi->tblURUNCINSI->Open(); frmUrunCinsi->tblURUNCINSI->First(); comboStokCinsiBaslangic->Items->Add(""); comboStokCinsiBitis->Items->Add(""); comboStokCinsiBaslangic->Items->Add("MALZEME"); comboStokCinsiBitis->Items->Add("MALZEME"); while (!frmUrunCinsi->tblURUNCINSI->Eof) { comboStokCinsiBaslangic->Items->Add(frmUrunCinsi->tblURUNCINSIURUNCINSI->Value); comboStokCinsiBitis->Items->Add(frmUrunCinsi->tblURUNCINSIURUNCINSI->Value); frmUrunCinsi->tblURUNCINSI->Next(); } frmUrunCinsi->tblURUNCINSI->Close(); // Departman ComboBox'ýna kayýt ekleme toplu kodu comboDepartmanBaslangic->Items->Clear(); comboDepartmanBitis->Items->Clear(); frmDepartman->tblDEPARTMAN->Open(); frmDepartman->tblDEPARTMAN->First(); comboDepartmanBaslangic->Items->Add(""); comboDepartmanBitis->Items->Add(""); while (!frmDepartman->tblDEPARTMAN->Eof) { comboDepartmanBaslangic->Items->Add(frmDepartman->tblDEPARTMANDEPARTMAN->Value); comboDepartmanBitis->Items->Add(frmDepartman->tblDEPARTMANDEPARTMAN->Value); frmDepartman->tblDEPARTMAN->Next(); } frmDepartman->tblDEPARTMAN->Close(); // ---------------------------------- kod sonu... PersonelBilgisiDoldur(); RutbeYukle(); queryPERSONEL->Open(); RadioGroup1Click(Sender); }
//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { char buf[100]; AnsiString t1,t2; unsigned char t; int p=0,i,j,k; buf[p_max+d_len]='*'; // AnsiString t1,t2; Memo1->Text=""; Memo2->Text=""; for(i=1;i<=p_max+d_len;i++) {if(i==(1<<p)) {buf[p_max+d_len-i]='*';p++; s_cod[p_max+d_len-i]=0; } else {buf[p_max+d_len-i]=s_in[d_len-i+p]+'0'; s_cod[p_max+d_len-i]=s_in[d_len-i+p]; } } buf[p_max+d_len+1]=0; for(p=0;p<p_max;p++) {t=0; t1="";t2=""; for(int j=0;j<p_max+d_len;j++) {t^=matrix[p_max-p][j]&s_cod[j]; for(k=0;k<=p_max;k++) if((1<<k)==(p_max+d_len-j)) break; if((k>p_max)&&matrix[p_max-p][j]) {if(t1!="") {t1="+"+t1;t2="+"+t2; } t1=(AnsiString)"A"+(p_max+d_len-j)+t1; t2=(AnsiString)(s_cod[j])+t2; } } s_cod[p_max+d_len-(1<<p)]=t; Memo2->Text=Memo2->Text+"E"+(p+1)+"="+t+"="+t1+"="+t2+"\r\n"; } deb->Text=buf; s_cod[p_max+d_len]=0; for(int j=0;j<d_len+p_max;j++) s_cod[p_max+d_len]^=s_cod[j]; for(i=0;i<=p_max+d_len;i++) buf[i]=s_cod[i]+'0'; buf[p_max+d_len+1]=0; Edit3->Text=buf; t1="";t2=""; for(t=0,j=0;j<p_max+d_len;j++) { t^=s_cod[j]; if(t1!="") {t1=t1+"+"; t2=t2+"+"; } for(i=0;i<p_max;i++) {if(p_max+d_len-j==1<<i) break; } if(i<p_max||j==p_max+d_len) t1=t1+"E"; else t1=t1+"A"; t1=t1+(AnsiString)+(p_max+d_len-j); t2=t2+(AnsiString)s_cod[j]; } Memo2->Text=(AnsiString)"E0="+(t)+"="+t1+"="+t2+"\r\n"+Memo2->Text; RadioGroup1Click(Sender); }