تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] المؤشرات فى الفيجوال ؟
#1
السلام عليكم ورحمة الله ..
انا مبرمج كويس فى c بس لسه جديد فى الفيجوال بيزك Undecided..
الحقيقه انا عملت برنامج بلغة ال c ومش عارف ازاى ممكن اكتبه فى كود الفيجوال فياريت لو حد يساعدنى
البرنامج بندخل فيه string حروف وبعد كده مجرد ما دخلنا اى حرف موجود فى ال string بيرجعلنا رقم الحرف ده او ترتيبه يعنى فى ال string
فى ال c بستخدم المؤشرات مش عارف فى الفيجوال اعمل ايه
البرنامج بلغة ال c اهو
#include "string"
#include "stdio.h"
int main(void)
{
char string[15];
char *ptr,c='T';

strcpy(string,"This is a string");
ptr=strchr(string,c);
if (ptr)
printf("The character%cis at position: %d ",c,ptr-string+1);
else
printf("The character was not foundn");
return 0;
}
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...

كود :
Dim MyStr As String, MyChar As String
Dim CharPos As Long

MyStr = "This is a string"
MyChar = "T"

CharPos = InStr(MyStr, MyChar)

if CharPos = 0 Then
    MsgBox("Character not found")
Else
    MsgBox("Character " & MyChar & " found at pos " & CStr(CharPos))
End If

الدالة InStr تبحث عن وجود String داخل String و تعيد رقم موقعه إن كان موجوداً، أو صفر إذا كان غير موجود.

أول character رقمه 1 و ليس 0 كما في لغة C.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: the dreams knight
#3
شكرا جزيلا اخى ناجى
لكن ماذا لو اردت ان يشير لى عن كل اماكن حرف ال "T" فى الجملة وليس عن اول مكان فقط ؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
  [vb6.0] كيفية برمجة ادات "Office Ribbon" في الفيجوال بيزك 0.6 Hammam Khalfi 0 427 21-04-23, 03:39 PM
آخر رد: Hammam Khalfi
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 1,454 19-01-21, 06:22 PM
آخر رد: amro1965
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 1,552 07-08-20, 09:51 AM
آخر رد: ahmed250
  [vb6.0] ما هي طريقة تسجيل أدوات ocx في الفيجوال بيسك - iisys 6 6,461 20-03-20, 11:33 AM
آخر رد: ahmed20
  مشكله فى لعبه مبرمجه على الفيجوال بيسك خالد كامل1 0 1,294 19-12-19, 09:53 PM
آخر رد: خالد كامل1
Lightbulb [vb6.0] اخواني هل من احد يعلمني كل الكلمات الخاصة بلغة الفيجوال 6 anoname 4 2,834 31-08-19, 09:18 PM
آخر رد: أمجد وضاح
  بعد ربط الفيجوال بيسك6 بالأوتوكاد اسلام الكبابى 0 1,163 20-07-19, 12:53 PM
آخر رد: اسلام الكبابى
  مشكلة في ربط الفيجوال مع الكريستال امين سليمان 1 1,618 08-06-19, 10:21 PM
آخر رد: asadtaif
  [سؤال] فتح ملف إكسل من خلال الفيجوال بيسك 6 Abdellah 7 5,623 07-06-19, 11:31 PM
آخر رد: bdwwsyd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم