الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغيير أرقام الهواتف بالكود

بدأه Mady-AGC في 6 أكتوبر 2011 · 4 رد · 1,438 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف يمكن الحصول على رقم الهاتف المسجل في ملف xcf ( بطاقة أعمال )

وذلك بكود فيجوال بيسك 6 وإدراجه بتكست بوكس

وأيضا كيف يمكن تعديل بيانات هذه البطاقة من خلال الكود

http://www.4shared.com/file/C9GopKU3/ATC.html

178764530.jpg

منحة للخريجين وطلاب الجامعات و المعاهد

دبلومة لتخريج مبرمج متخصص في هندسة صناعة البرمجيات وتصميم وبرمجة تطبيقات الأنترنت

سبحان الله وبحمده سبحان الله العظيم

#2

بسم الله الرحمن الرحيم

أخى العزيز :

أنشأت هذا البرنامج البسيط (في المرفقات)

والذي يمكنك عن طريقه إستخراج رقم المحمول من ذلك النوع من الملفات

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

و أى إستفسار أنا حاضر

و السلام ختام ....

arab.rar

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#3

السلام عليكم

جزاك الله خيرا أخي الكريم

هل طريقة الحصول على باقي المعلومات بسيطة أم سأضطر إلى التجربة وزيادة أرقام وكلمات للحصول عليها

هل تعرف طريقة التعديل في البطاقة بالكود مثلا تغيير رقم الموبايل بالكود

وشكرا

منحة للخريجين وطلاب الجامعات و المعاهد

دبلومة لتخريج مبرمج متخصص في هندسة صناعة البرمجيات وتصميم وبرمجة تطبيقات الأنترنت

سبحان الله وبحمده سبحان الله العظيم

#4

Mady-AGC كتب:

السلام عليكم

جزاك الله خيرا أخي الكريم

هل طريقة الحصول على باقي المعلومات بسيطة أم سأضطر إلى التجربة وزيادة أرقام وكلمات للحصول عليها

هل تعرف طريقة التعديل في البطاقة بالكود مثلا تغيير رقم الموبايل بالكود

وشكرا

بسم الله الرحمن الرحيم

أخى العزيز :

طريقة إستخراج باقي البيانات سهله جدا

يعنى مثلا لو عاوزين نستخرج رقم الثابت :


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", vbTextCompare)
L2 = L + 5
i = InStr(L, Text1.Text, "tel", vbTextCompare)
If i = 0 Then
i = InStr(L, Text1.Text, "X-CLASS", vbTextCompare)
End If
i2 = i - 2
TM = Mid(Text1, L2, i2 - L2)

End Sub
يعنى بدل ما تدور على cell المحمول بتدور على home رقم الثابت و هكذا كل بيان له كلمه دلاليه قبلها أو بعدها فدور و إفهم صيغة الملفات دى 
أما بالنسبة لمسألة التعديل فسهله جدا و سأقوم بعمل مثال بسيط عليها الليله بإذن الله و أرجو التقييم ..
و السلام ختام ...
 

      
      
1

      
السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

    

  

    
    

      
#5
        
        

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

      
      

      
السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

    

  

    
    
    
 مواضيع مشابهة