captinflent

بسم الله الرحمن الرحيم أخى العزيز سأعطيك فكره عما فهمته منك يمكنك قراءة الملف النصي سطرا سطرا ثم تحلل كل السطور ثم تقوم بالعمليات اللازمة للترتيب أما عملية الترتيب فسيكون أمرها سهل جدا أرجو أن أكون قد وفقت في توضيح فكرتى و السلام ختام ....

بسم الله الرحمن الرحيم إخوانى الأعزاء حاليا أنا أريد البرنامج أن ينفذ أمر ما عدد كبير من المرات (32766) و جربت إستخدام دالة FOR ثم دالة DO ثم جربت أداة التايمر و لكن في كل الأحوال يتم إيقاف إستجابة المشروع بالكامل إلي أن يتم الإنتهاء من الكود الموجود في الدالة…

بسم الله الرحمن الرحيم نعم يمكنك أخى العزيز و أعتقد أن الفيجوال بيسيك له حدود و السلام ختام .....

بسم الله الرحمن الرحيم أخى العزيز نتشرف بك بإنضمامك بالنسبة لك لإختيار لغة البرمجة فأنصحك أن تبدأ في تعلم الدوت نت و لا أنصحك بالفيجوال بيسيك 6 لأنها تعتبر لغة تتجه إلى الفناء و تم إيقاف دعمها من ميكروسوفت كما قال أحد الأعضاء في موضوع أخر و أعتقد أنه مشرف منتد…

بسم الله الرحمن الرحيم أخى العزيز بالنسبه لعمل stretch بدون تشويه لا أعرف أما بالنسبه لعمل Zoom للصورة يمكنك إستخدام الدالة PaintPicture فستفيدك كثيرا و السلام ختام .....

بسم الله الرحمن الرحيم إخوانى الأعزاء : هذه الدالة من إنشائي و يمكنك من خلالها تغيير أرقام المحمول في الملفات من نوع (VCF) و هى VCard Files لتكون 11 رقم وفق التعديلات الأخيرة في شركات المحمول في مصر و هذه هى الدالة Change Mob Number By CaptinFlent Public Funct…

بسم الله الرحمن الرحيم أخى العزيز كما وعدتك في المرفقات المشروع و قد أضفت كيفية تغيير رقم المحمول مباشرة و فيه إمكانية تعديل الملف و إنشاءه بالرقم الجديد و هكذا يعتبر هذا المشروع كامل لما تريد عمله و لكن يتبقي لديك إضافة اللمسات الأخيرة للمشروع لكي يناسبك أنت …

with the name of Allah we start dear brother : on my knowledge the dark basic is for creating games that is what i know you are me staked to type your topic here else if you mean creating chat program with vb6=true then search the site and you will find what y…

بسم الله الرحمن الرحيم أخى العزيز : طريقة إستخراج باقي البيانات سهله جدا يعنى مثلا لو عاوزين نستخرج رقم الثابت : Private Sub Command2_Click() Dim SSS As String, L As Long, i As Long, L2 As Long, i2 As Long On Error Resume Next L = InStr(1, Text1.Text, "home", …

بسم الله الرحمن الرحيم أخى العزيز : أنشأت هذا البرنامج البسيط (في المرفقات) والذي يمكنك عن طريقه إستخراج رقم المحمول من ذلك النوع من الملفات و يمكنك أيضا إستخراج البيانات التى تريدها منه مثل أرقام الثابت و البيانات الأخرى و التى تريدها بنفس الطريقه و لكن وضعت …

بسم الله الرحم الرحيم أخى العزيز :/ على حد فهمى لكلامك قد أرفقت مثال و أنا حاضر لأى إستفسار . مرفق مثال لحل مشكلتك و السلام ختام .... ARAB Proj.rar

بسم الله الرحمن الرحيم أخى العزيز :/ الموضوع بمنتهى السهولة يمكن حلة بالدالة FOR و سأحاول التعديل على الكود الذي كتبته ولكن أولا يجب أن نعرف متغير لنستخدمه في الدالة for Dim i As Long For i = 0 To List1.ListCount - 1 List1.ListIndex = i If List1.Text = "" Then…

بسم الله الرحمن الرحيم أخى العزيز :/ أرجو توضح أكثر و لكن إذا كنت تقصد أن يستقبل أكثر من إتصال من أجهزة مختلفه فهذه الفكرة بسيطه جدا فهذا ممكن Dim ConnIND As Long Private Sub Form_Load() ConnIND = 0 Winsock1(ConnIND).Close Winsock1(ConnIND).LocalPort = 50 Wins…

شكرا أخى العزيز : فعلا أسرنى جدا .. و بإذن الله عندما أنتهى من تطوير المشروع الذي أقوم به الأن سأرفعه هنا في الموقع لتعم الفائدة على الجميع ... و شكرا مرة أخرى. و السلام ختام ........

شكرا للتجاوب يا إخوانى ... و لكن ..... حصلنا على الأي بي الخارجى و لكن مستحيل الإتصال عليه بدون ip forwarding أنا أريد طريقة للإتصال بدون Ip forwarding ----> حاليا أنا توصلت لطريقة غير ذلك و لكن أرجو التوصل لحل لهذه المشكلة أو نبتكر حل لها لتعم الفائدة . أرجو …

للرفع....

للرفع .....

للرفع ......

بسم الله الرحمن الرحيم أخى سأرد عليك و لكن بمثال بعد حوالى ساعتين من الأن لأنى لست في المنزل و السلام ختام .

بسم الله الرحمن الرحيم إخوانى الأعزاء : مر وقت طويل لأخر مشاركة لى في هذا المنتدى .... و مر وقتا أطول لبعدي عن البرمجه بفيجوال بيسيك و أى لغة برمجة أخرى .... و حاليا انا اتعلم لغة الدوت نت رغبة منى بالتطور و لكن .... حاليا انا مطالب بتكوين إتصال بين جهازين و ا…