khalmoh1971

شكرا اخى الكريم انا جديد vb.net 2010

ربنا يبارك فيك و يجعلنا من المستفدين به

شكرا اخى الكريم على الفكره

Function TransA2E(W As String) As String Try Dim p As Integer Dim AL(), EL() AL = (New String() {" ال", "َا", "ا", "أ", "آ", "ى", "إ", "ؤ", "ئ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", …

جميل بارك الله فيك

شكرا جدا جدا

//هذا هو رقم التسجيل للبرنامج T := (M - 12345) / 5; end;

procedure ConverteSerNemb; var N, I: integer; B: char; S, R: string; begin s := trim(AnsiUpperCase(Form1.Edit8.Text)); N := length(s); R := ''; for I := 1 to 15 do begin b := S ; case b of 'A': R := r + '1'; 'B': R := r + '2'; 'C': R := r + '3'; 'D': R := r + …

ضع حق مشفر داخل قاعدة البيانات هذا الحقل تشفير خاص للتاريخ

ممكن تغير الرقم عن طريق برنامج اسمة PBDownForce

تفضل اخى العزيز ارفقت ملف لوحدة تعمل على الدولفن و delphitwain.rar

دة الرقم الفيزيائى function GetIdeSerialNumber0 ():string; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg : BYTE; // Used for specifying SMART "commands". bSectorCountReg : BYTE; // IDE sector count register bSectorNumberReg : BYT…

دة بالنسبة لمشغل مثل سى او دى او ..... Function InternalGetHardwareID2: String;var pdw: pDWord; mc, fl: dword; SerialNum:DWord; Begin Result := ''; New( pdw ); GetVolumeInformation( PChar( 'd:\' ), Nil, 0, pdw, mc, fl, Nil, 0 ); SerialNum := pdw^; Result:= Int…

دة كود لزيادة التاريخ الى الغد var myDate : TDateTime; begin myDate:=(DateTimePicker1.Date); Edit1.Text :=DateToStr(myDate); myDate := IncDay(myDate, 1); DateTimePicker2.Date:=myDate; //myDate:= EndOfAMonth((myDate)); // مطلوب تحويل التاريخ Edit3.Text :=DateTo…

تفضل اخى الفاضل procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet); var bm: TBookmark; Total: real; begin bm := IBDataSet1.GetBookmark; IBDataSet1.DisableControls; try Total := 0.0; IBDataSet1.First; while not IBDataSet1.Eof do begin Total := Total + IBDa…

البار كود عبارة عن فنط اى نوع من الخطوط وليس اداء

يوجد ادوات للضعط مثل zip , rar

البار كود عبارة عن نوع خط

شكرا على المجهود

احسنت وبارك الله في عملك