اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

قنديل الصياد

06 عضو ماسي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,661

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    28

 نوع المحتوي 

مشاركات المكتوبه بواسطه قنديل الصياد

    أعجبنى هذا البرنامج جدا

    في منتدى الاكسيل Excel

    قام بنشر

    الأخ الكريم قنديل صياد اعزك المولى 

    بارك الله جهودك و اكرمك من فضله

    يبدو ان هناك مشكلة في رابط التحميل لم اتمكن من تحميل الملف ؟؟؟

     

    الاخ العزيز الاستاذ/ احمد غانم

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

     

    تحياتي

    ما رأيكم فى البداء معا فى دورة فى ال php ( عنوان معدل )

    في حوارات الويب العامة

    قام بنشر


    5- الدرس الخامس (( المصفوفات Arrays -- الجزء الأول -- ))

    ::: عربي :::

    ::: English :::

    ===============

    6- الدرس السادس (( المصفوفات Arrays -- الجزء الثاني -- ))

    ::: عربي :::

    ::: English :::

    ===============

    7- الدرس السابع (( المصفوفات Arrays -- الجزء الثالث -- ))

    ::: عربي :::

    ::: English :::

    ===============

    8- الدرس الثامن (( المصفوفات Arrays -- الجزء الرابع -- ))

    ::: عربي :::

    ::: English :::

    ===============

    9- الدرس التاسع (( المصفوفات Arrays -- الجزء الخامس -- ))

    ::: عربي :::

    ::: English :::

    ===============

    10- الدرس العاشر (( المصفوفات Arrays -- الجزء السادس -- ))

    ::: عربي :::
    ]
    ::: English :::

    ===============

    11- الدرس الحادي عشر (( المعاملات الحسابية Arithmetic Operators ))

    ::: عربي :::

    ::: English :::

    ===============

    12- الدرس الثاني عشر (( معاملات التخصيص Assignment Operators ))

    ::: عربي :::

    ::: English :::

    ===============

    13- الدرس الثالث عشر (( معاملات المقارنة Comparison Operators ))

    ::: عربي :::

    ::: English :::

    ===============

    14- الدرس الرابع عشر (( المعاملات المنطقية Logical Operators ))

    ::: عربي :::

    ::: English :::

    ===============

    15- الدرس الخامس عشر (( الجملة الشرطية If...Else Statement -- الجزء الأول -- ))

    ::: عربي :::

    ::: English :::

    ===============

    16- الدرس السادس عشر (( الجملة الشرطية If...Else Statement -- الجزء الثاني -- ))

    ::: عربي :::

    ::: English :::

    ===============

    17- الدرس السابع عشر (( جملة التبديل Switch Statement ))

    ::: عربي :::

    ::: English :::

    ===============
    ===========
    =======
    ===

    ما رأيكم فى البداء معا فى دورة فى ال php ( عنوان معدل )

    في حوارات الويب العامة

    قام بنشر

    بعد اذن الاساتذة الكرام

    هذا الموضوع هام جدا وخاصة بالنسبة للذين يريدون رفع نتائج الطلاب على النت بواسطة لغة php

    ,دورة تعلم لغة البرمجة الـ PHP من الألف الى الياء (PHP from scratch (A-Z
    هذه الدورة موجودة على قناة الاستاذ احمد رضوان على اليوتوب
    الدورة موجودة باللغة العربية والإنجليزية

     

    - الدرس الأول (( تثبيت الـ Wamp Server ))

    ::: عربي :::

    ::: English :::

    ===============

    2- الدرس الثاني (( تثبيت المحرر NetBeans ))

    ::: عربي :::

    ::: English :::

    ===============

    3- الدرس الثالث (( المتغيرات Variables -- الجزء الأول -- ))

    ::: عربي :::

    ::: English :::

     

     


    ===============

    4- الدرس الرابع (( المتغيرات Variables -- الجزء الثاني -- ))

    ::: عربي :::

    ::: English :::

    كيف أعلن النتيجة على شبكة الانترنت

    في قسم الأكسيس Access

    قام بنشر

    اخى العزيز

    اليك روابط النتيجة

    الرابط الاول فعلا الفيس بوك عامل له حظر

    http://matrouh.zaghost.com/Upload/natiga/index.htm

     

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

     

    http://abusuliman.eb2a.com/natiga/index.htm

     

    تحياتى

    من رقم إلى كتابة تفقيط عربي مميز

    في منتدى الاكسيل Excel

    قام بنشر

    اخى العزيز بعد اذن اساتذتنا الكرام

    جرب هذا الكود

     الكود 

    
Function write_Number(numberp) ' برنامج التفقيط
On Error Resume Next
Dim ttpa, xp, a, number_s, fl As String
number_s = Str(numberp)
If Left(Right(number_s, 2), 1) = "." Then number_s = number_s & "0"
If Left(Right(number_s, 3), 1) <> "." Then number_s = number_s & ".00"
number_s = Trim(number_s)
' MsgBox " number_s = " & number_s
zp = Len(number_s)
z = 1
Do While zp > 0
c1 = ""
c2 = ""
c3 = ""
If zp = 12 Or zp = 9 Or zp = 6 Then
a = Mid(number_s, z, 1)
zp = zp - 1
Select Case a
Case "0"
c3 = ""
Case "1"
c3 = "ومائة "
Case "2"
c3 = "ومائتان "
Case "3"
c3 = "وثلاثمائة "
Case "4"
c3 = "واربعمائة "
Case "5"
c3 = "وخمسمائة "
Case "6"
c3 = "وستمائة "
Case "7"
c3 = "وسبعمائة "
Case "8"
c3 = "وثمانمائة "
Case "9"
c3 = "وتسعمائة "
End Select
z = z + 1
End If
If zp = 3 Then
z = z + 1
zp = zp - 1
End If
a = Mid(number_s, z, 1)
If zp = 2 Or zp = 5 Or zp = 8 Or zp = 11 Then
Select Case a
Case "0"
c2 = ""
Case "1"
c2 = "عشر "
Case "2"
c2 = "وعشرون "
Case "3"
c2 = "وثلاثون "
Case "4"
c2 = "واربعون "
Case "5"
c2 = "وخمسون "
Case "6"
c2 = "وستون "
Case "7"
c2 = "وسبعون "
Case "8"
c2 = "وثمانون "
Case "9"
c2 = "وتسعون "
End Select
zp = zp - 1
z = z + 1
End If
a = Mid(number_s, z, 1)
If zp = 1 Then ' الهللات
Select Case a
Case "0"
c1 = ""
Case "1"
If c2 = "عشر " Then
c1 = "واحدى "
Else
c1 = "وواحد "
End If
Case "2"
If c2 = "عشر " Then
c1 = "واثنتا "
Else
c1 = "واثناتان "
End If
Case "3"
c1 = "وثلاث "
Case "4"
c1 = "واربع "
Case "5"
c1 = "وخمس "
Case "6"
c1 = "وست "
Case "7"
c1 = "وسبع "
Case "8"
c1 = "وثمان "
Case "9"
c1 = "وتسع "
End Select
Else ' الريالات
Select Case a
Case "0"
c1 = ""
If c2 = "عشر " Then
c2 = "وعشرة "
End If
Case "1"
If c2 = "عشر " Then
c1 = "واحدى "
Else
c1 = "وواحد "
End If
Case "2"
If c2 = "عشر " Then
c1 = "واثنا "
Else
c1 = "واثنان "
End If
Case "3"
c1 = "وثلاثة "
Case "4"
c1 = "واربعة "
Case "5"
c1 = "وخمسة "
Case "6"
c1 = "وستة "
Case "7"
c1 = "وسبعة "
Case "8"
c1 = "وثمانة "
Case "9"
c1 = "وتسعة "
End Select
End If
zp = zp - 1
z = z + 1
Select Case zp
Case 9
Select Case c1 + c2 + c3
Case "وواحد "
xp = xp + "ومليون "
Case "واثنان "
xp = xp + "ومليونان"
Case Else
xp = xp + c3 + c1 + c2 + "مليون "
End Select
Case 6
Select Case c1 + c2 + c3
Case "وواحد "
xp = xp + "والف "
Case "واثنان "
xp = xp + "والفان "
Case "وثلاثة "
xp = xp + "وثلاثة الاف "
Case "واربعة "
xp = xp + "واربعة الاف "
Case "وخمسة "
xp = xp + "وخمسة الاف "
Case "وستة "
xp = xp + "وستة الاف "
Case "وسبعة "
xp = xp + "وسبعة الاف "
Case "وثمانية "
xp = xp + "وثمانية الاف "
Case "وتسعة "
xp = xp + "وتسعة الاف "
Case Else
If c2 = "وعشرة " Then
xp = xp + c3 + c1 + c2 + "الاف "
Else
xp = xp + c3 + c1 + c2 + "الف "
End If
End Select
Case 3
If c2 = "" Then
Select Case c1
Case ""
c1 = "ريال "
Case "وواحد "
c1 = "وريالا "
Case "واثنان "
c1 = "وريالان "
Case "وثلاثة "
c1 = "وثلاثة ريالات "
Case "واربعة "
c1 = "واربعة ريالات "
Case "وخمسة "
c1 = "وخمسة ريالات "
Case "وستة "
c1 = "وستة ريالات "
Case "وسبعة "
c1 = "وسبعة ريالات "
Case "وثمانية "
c1 = "وثمانية ريالات "
Case "وتسعة "
c1 = "وتسعة ريالات "
End Select
xp = xp + c3 + c1 + c2
Else
xp = xp + c3 + c1 + c2 + "ريالاً "
End If
Case 0
If c1 + c2 <> "" Then
If c2 = "" Then
Select Case c1
Case "وواحد "
xp = xp + "وهلله واحده"
Case "واثنان "
xp = xp + "وهللتان "
Case Else
xp = xp + c1 + "هللات "
End Select
Else
xp = xp + c1 + c2 + "هللة "
End If
End If
End Select
Loop
xp = LTrim(xp)
zp = Len(xp) - 1
If Left(xp, 1) = "و" Then
xp = Mid(xp, 2, zp)
End If
ttpa = xp
write_Number = ttpa
End Function

    الدالة

    =NoToTxt2(H1;"دينار";"فلس")

    مرفق ملف مجرب عليه الكود

     

    الصياد_تفقيط.rar

     

    ضاع منى كلمة السر؟؟؟؟!!!!

    في قسم الأكسيس Access

    كيف أعلن النتيجة على شبكة الانترنت

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه قنديل الصياد

    اخى العزيز

    تابع ايضا هذه الصفحة وهى معدة لرفع نتيجة الامتحانات عليها وقلي رايك فيها

     

    بها بعض ارقام الجلوس والدرجات الوهمية ... جلوس : 101

     

    http://matrouh.zaghost.com/Upload/natiga_xml/index.html

    كيف أعلن النتيجة على شبكة الانترنت

    في قسم الأكسيس Access

    قام بنشر

    قمت بارسال بيانات الموقع لحضرتك على الاميل وتم تغيير الصفحة الرئيسية بالموقع باضافة بعض المنتديات

    لاحظ حضرتك الموقع واى تعديل تريده انا موجود

    وقد قمت بتصميم صفحة بدون ملف فلاش لعرض النتيجة بشكل اجمل من الفلاش لحضرتك ومنتظر النتيجة وسارفعها لحضرتك على قاعدة بيانات الموقع

    رجاءا الحفاظ على قاعدة البيانات من العبث حتى لا يتوقف الموقع عن العمل

    تحياتى

×
×
  • اضف...

Important Information

  I accept