المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 02-06-2004, 11:23 PM   مشاركة رقم : 1
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 24-02-2004
المشاركات: 16

افتراضي الى خبرا وعلما الفجول بيسك ارجو المساعده

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



كيف الحال انشاء الله تكون بخيررر
انا لي طلب في لغه الفجول بيسك والذي هو كا التالي
اريد انا اسوي برنامج وفي البرنامج تاكست وبعد ذالك اقوم بعمل البرنامج على ملف تنفيذي exe والمطلوب اني عندما اكتب على التكست اي عدد مثلا 55 او 77
وبعد ذالك اقوووم باقفال البرنامج وعندما اقوم بفتحه مره تاني القي العدد محتفظ على التكست اي يكون موجود العدد 55 او 77
فارجو من اخواني المساعده
اريد الكود الذي اذا كتبت رقم على التكست وقمت بقفل البرنامج نهائياً وفتحه مره اخرى القي الرقم موجود على التكست ديركت . وهذا هو طلبي ونرجو المساعده
وشكرا اخووووووكم معانق النجوم

  رد مع اقتباس
قديم 03-06-2004, 01:30 PM   مشاركة رقم : 2
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

أخي العزيز هناك أكثر من طريقة لعمل ذلك , بعض هذه الطرق تتطلب معرفة بالتعامل مع الملفات و بعضها الآخر يتطلب معرفة بالتعامل مع مفاتيح وقيم الرجستري ...الخ

فإذا تابعت دروس التعامل مع الملفات فيمكنك عند إغلاق برنامجك حفظ البيانات في ملف ما ومن ثم عند تشغيل البرنامج تجعل مربع النص يستمد قيمته من هذا الملف النصي ...

هذا مثال فقط

تحياتي

  رد مع اقتباس
قديم 03-06-2004, 10:32 PM   مشاركة رقم : 3
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 24-02-2004
المشاركات: 16

افتراضي اخي العزيز

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

  رد مع اقتباس
قديم 04-06-2004, 06:19 AM   مشاركة رقم : 4
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 03-06-2004
المشاركات: 6

افتراضي

اخي الكريم
اعمل موديل و عرف فية القيمة الي انت سوف تعملة
و عندما تفتح البرنامج مرة الرقم مكانة موجود
او اذا حبيت تغير الرقم الرقم الجديد هو الي ينحفظ

  رد مع اقتباس
قديم 04-06-2004, 08:56 PM   مشاركة رقم : 5
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

يا عزيزي خذ الفكر ..

انت لما تحفظ قيمة في متغير فهي تكون محفوظة في الذاكرة وبمجرد إغلاق البرنامج تحذف جميع البيانات المتعلقة به في الذاكرة و بالتالي تضيع البيانات
فإذا أردت أن تبقى البيانات فعليك أن تحفظها في القرص الصلب فإذا كانت البيانات كثيرة فيفضل خزنها في قاعدة بيانات ويمكنك استخدام الملفات , وفي حال القيم الصغيرة (رقم معين أو كلمة ) تستطيع أيضاً استخدام الرجستري

الآن المطلوب منك تبحث عن كيفية التعامل مع قواعد البيانات أو الملفات أو الرجستري لتتمكن من عمل ما تريد

لك خالص التحية

  رد مع اقتباس
قديم 04-06-2004, 10:29 PM   مشاركة رقم : 6
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 24-02-2004
المشاركات: 16

افتراضي اشكرا الاخ نجيب واشكرا الاخ صدى

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

  رد مع اقتباس
قديم 05-06-2004, 09:07 PM   مشاركة رقم : 7
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

dim txt as string

private sub cmdsave_click()
txt = text1.text
open "file.dat" for output as #1
write#1,txt
close#1
end sub

private sub form_load()
open "file.dat" for input as #1
input#1,txt
close#1
text1.text = txt
end sub
أعتقد أن الكود سيكون مشابهاً لذلك

  رد مع اقتباس
قديم 07-06-2004, 01:46 AM   مشاركة رقم : 8
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 09-07-2003
المشاركات: 58

افتراضي

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

السلام عليكم و رحمة الله وبركاته ...



الاخ العزيز معانق النجوم ... في كود الاخ العزيز نجيب تجد مبتغاك بإذن الله تعالى .... و احب ان اضيف زيادةً في الخير اته يمكنك الاعتماد على الريجستري كما قال عزيزنا نجيب لتخزين الرقم بشكل سريع ... فإذا كان لديك مربع نص اسمه Text1 في الفورم فيمكن الاعتماد على الكود التالي لتحيقي مبتغاك بإذن الله تعالى :
كود:
Private Sub Form_Load()
    Text1 = GetSetting("Rgheed", "Rgheed", "Rgheed", "0")
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "Rgheed", "Rgheed", "Rgheed", Text1
End Sub
السلام عليكم ورحمة الله وبركاته ....

  رد مع اقتباس
قديم 07-06-2004, 10:55 PM   مشاركة رقم : 9
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 24-02-2004
المشاركات: 16

افتراضي

اشكر الاخ/ نجيب المجيدي على مشاركتي بحل مشكلتي لكن اقول ان الشفره الي كتبتها يا اخ نجيب ما اشتغلت .
و اشكر الاخ/ رغيد الطيب الف الف الف شكر يا اخي رغيد واقول بصراحه اسم على مسمى يا استاذ رغيد الطيب شفرتك نفعت معاي وطلعه مظبوطه انا اشكرك بعنف استاذ رغيد وعاد لي خدمه منك يا استاذ رغيد ولو اني مزعج شويه اشتي شرح بسيط عن الشفره الذي كتبتها اذا سمحت وزاد الله الرجال والمبرمجين من امثالك
وربي يوفقك وانشاء الله تكون من اروع وافضل المبرمجين
وشكرا
اخووووك
معانق النجوم

  رد مع اقتباس
قديم 08-06-2004, 04:09 PM   مشاركة رقم : 10
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 09-07-2003
المشاركات: 58

افتراضي

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

السلام عليكم و رحمة الله و بركاته ..


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

اما بالنسبة لكود عزيزنا المجيدي فهو كود سليم بإذنه تعالى غير انه ربما فقط نسي ان يخبرك ان الخطأ الذي يظهر لك هو ان اعتمد على فتح الملف و قرأته (file.dat) عند تشغيل الفورم مباشرة وهذا سيشكل خطأ منطقي بسيط هو انه في المرة الاولى لتشغيل برنامجك لن يكون هناك ملف مخزون اصلاً لهذا فان عملية الفتح تفشل و يظهر لك الخطأ الذي يظهر لك و الله سبحانه و تعالى اعلى و اعلم ...

ولحل المسئلة ينبغي التأكد من وجود لملف اصلاً قبل فتحه بواسطة الامر Open او يمكن تسهيلاً تجاوز اي خطأ ينشأ باستخدام العبارة :
كود:
On Error Resume Next
و لعل الله يكتب بذلك النجاح للشفرة السليمة اصلاً ...

و تسهيلاً قم بكتابة التالي بعد ان تضع مربع نص بإسم Text1 على الفورم :
كود:
[align=left]
Private Sub Form_Load()
    Dim F As Integer, S As String
    
    On Error Resume Next
    F = FreeFile
    Open App.Path + "\myValue.txt" For Input As F
        Input #F, S
    Close F
    
    Text1.Text = S
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim F As Integer
    
    On Error Resume Next
    
    F = FreeFile
    Open App.Path + "\myValue.txt" For Output As F
        Print #F, Text1.Text
    Close F
End Sub
[/align]
اعود فأقول جزا الله الجميع خيرا ... و السلام عليكم ورحمة الله وبركاته ..

  رد مع اقتباس
إضافة رد

أدوات الموضوع

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

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.