تقييم الموضوع :
  • 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" فى الجملة وليس عن اول مكان فقط ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [vb6.0] اخواني هل من احد يعلمني كل الكلمات الخاصة بلغة الفيجوال 6 anoname 2 67 13-05-18, 04:17 PM
آخر رد: anoname
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 14 5,061 02-04-18, 10:16 AM
آخر رد: السيد الغالي
  الى خبراء الفيجوال بيسك ما هى لغات البرمجه التى تستخدم فى البرمجه goodmastar2 8 293 28-11-17, 02:03 AM
آخر رد: goodmastar2
  الفيجوال بيسك 6 لا يعمل على ويندوز7 ehab125 6 334 28-10-17, 11:00 AM
آخر رد: مصمم هاوي
  [vb6.0] سؤال في الفيجوال بيسك 6.0 emamtron 3 172 27-10-17, 03:33 AM
آخر رد: عبد العزيز البسكري
  اختفاء المكون Microsoft Hierarchical FlexGrid Control 6.0 عند تحميل الفيجوال بيسك allobaed 1 195 13-09-17, 07:21 AM
آخر رد: Amir_alzubidy
  [سؤال] اعادة موضوع خرائط قوقل على الفيجوال بيسك 6.0 hannileo 10 522 13-08-17, 12:36 PM
آخر رد: hannileo
  موضوع خرائط غوغل على الفيجوال بيسك 6.0 hannileo 6 564 04-08-17, 05:15 PM
آخر رد: haniblack
Thumbs Down [vb6.0] نقاط ضعف الفيجوال بيسك hsunhdoveh81 3 293 19-05-17, 12:02 PM
آخر رد: alma2
  تغيير الاعدادات الاقليمية للويندوز من خلال الفيجوال بيسيك 6 abosara 2 290 26-03-17, 12:50 AM
آخر رد: Ahmed_Mansoor

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


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