• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'open source prayer times'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 15 نتيجة

  1. السلام عليكم انشات قاعدة بيانات Access 2013 فيها حقل اسم واشياء اخرى وعند الانتهاء من كتابة الاسم يتم انشاء مجلد (folder) بالاسم الجديد في مجلد اسمه files بنفس مسار القاعدة  ولكن عندما انقل جميع الملفات الى حاسبة اخرى يتغيير المسار ولاتعمل بصورة صحيحة هل عبارة برمجية استخدمها حتى يتم العمل في مجلد (files) اينما نقلت الملفات وكيف انشئ زر عند ضغطه يفتح لي الفولدر بالاسم الحالي  base.rar
  2. السلام عليكم ورحمة الله وبركاته بعض البرامج فيها خاصية التعديل على شكل المخرجات في التقرير بحسب الشكل الذي يختاره المستخدم -دون استخدام البرمجة- عن طريق السحب والإفلات واضافة أو حذف حقول معينة من التقرير  وتحديد اللوان الترويسة وخصائص الصفحة وهوامشها بحيث يكون الشكل الذي يختاره المستخدم هو الشكل المعتمد في البرنامج  وهذه التقنية تسمى فيما أظن (Open Reports)   السؤال : هل هذه التقنية لها أدوات Tools  تضاف على البرامج أم أنها اجتهاد للمبرمجين ؟ وهل هذه التقنية موجودة في Active Report أو Crystal Report أو أي برنامج متخصص في إنشاء التقارير؟    
  3. حصلت على كود لمواقيت الصلاة من الأنترنت ولكنى لا أعرف كيف أحصل على قيم الدوال فى label or textBox   الكود: '--------------------- Copyright Block ---------------------- ' ' 'PrayTime.cs: Prayer Times Calculator (ver 1.2) 'Copyright © 2007-2010 PrayTimes.org ' 'C# Code By: Jandost Khoso 'Original JS Code By: Hamid Zarrabi-Zadeh ' 'License: GNU LGPL v3.0 ' 'TERMS OF USE: ' Permission is granted to use this code, with or ' without modification, in any website or application ' provided that credit is given to the original work ' with a link back to PrayTimes.org. ' 'This program is distributed in the hope that it will 'be useful, but WITHOUT ANY WARRANTY. ' 'PLEASE DO NOT REMOVE THIS COPYRIGHT BLOCK. ' '       Public Class PrayTime '------------------------ Constants -------------------------- ' Calculation Methods Public Shared Jafari As Integer = 0 ' Ithna Ashari Public Shared Karachi As Integer = 1 ' University of Islamic Sciences, Karachi Public Shared ISNA As Integer = 2 ' Islamic Society of North America (ISNA) Public Shared MWL As Integer = 3 ' Muslim World League (MWL) Public Shared Makkah As Integer = 4 ' Umm al-Qura, Makkah Public Shared Egypt As Integer = 5 ' Egyptian General Authority of Survey Public Shared [Custom] As Integer = 6 ' Custom Setting Public Shared Tehran As Integer = 7 ' Institute of Geophysics, University of Tehran ' Juristic Methods Public Shared Shafii As Integer = 0 ' Shafii (standard) Public Shared Hanafi As Integer = 1 ' Hanafi ' Adjusting Methods for Higher Latitudes Public Shared None As Integer = 0 ' No adjustment Public Shared MidNight As Integer = 1 ' middle of night Public Shared OneSeventh As Integer = 2 ' 1/7th of night Public Shared AngleBased As Integer = 3 ' angle/60th of night ' Time Formats Public Shared Time24 As Integer = 0 ' 24-hour format Public Shared Time12 As Integer = 1 ' 12-hour format Public Shared Time12NS As Integer = 2 ' 12-hour format with no suffix Public Shared Floating As Integer = 3 ' floating point number ' Time Names Public Shared timeNames As [string]() = {"Fajr", "Sunrise", "Dhuhr", "Asr", "Sunset", "Maghrib", _ "Isha"} Shared InvalidTime As [string] = "----" ' The string used for inv     '---------------------- Global Variables --------------------   Private calcMethod As Integer = 3 ' caculation method Private asrJuristic As Integer ' Juristic method for Asr Private dhuhrMinutes As Integer = 0 ' minutes after mid-day for Dhuhr Private adjustHighLats As Integer = 1 ' adjusting method for higher latitudes Private timeFormat As Integer = 0 ' time format Private lat As Double ' latitude Private lng As Double ' longitude Private timeZone As Integer ' time-zone Private JDate As Double ' Julian date Private times As Integer()   '--------------------- Technical Settings --------------------   Private numIterations As Integer = 1 ' number of iterations needed to compute times   '------------------- Calc Method Parameters -------------------- Private methodParams As Double()() Public Sub New() times = New Integer(6) {} methodParams = New Double(7)() {} Me.methodParams(Jafari) = New Double() {16, 0, 4, 0, 14} Me.methodParams(Karachi) = New Double() {18, 1, 0, 0, 18} Me.methodParams(ISNA) = New Double() {15, 1, 0, 0, 15} Me.methodParams(MWL) = New Double() {18, 1, 0, 0, 17} Me.methodParams(Makkah) = New Double() {18.5, 1, 0, 1, 90} Me.methodParams(Egypt) = New Double() {19.5, 1, 0, 0, 17.5} Me.methodParams(Tehran) = New Double() {17.7, 0, 4.5, 0, 14} Me.methodParams([Custom]) = New Double() {18, 1, 0, 0, 17} End Sub           ' return prayer times for a given date Public Function getPrayerTimes(ByVal year As Integer, ByVal month As Integer, ByVal day As Integer, ByVal latitude As Double, ByVal longitude As Double, ByVal timeZone As Integer) As [string]() Return Me.getDatePrayerTimes(year, month + 1, day, latitude, longitude, timeZone) End Function ' set the calculation method Public Sub setCalcMethod(ByVal methodID As Integer) Me.calcMethod = methodID End Sub ' set the juristic method for Asr Public Sub setAsrMethod(ByVal methodID As Integer) If methodID < 0 OrElse methodID > 1 Then Return End If Me.asrJuristic = methodID End Sub ' set the angle for calculating Fajr Public Sub setFajrAngle(ByVal angle As Double) Me.setCustomParams(New Integer() {CInt(Math.Truncate(angle)), -1, -1, -1, -1}) End Sub ' set the angle for calculating Maghrib Public Sub setMaghribAngle(ByVal angle As Double) Me.setCustomParams(New Integer() {-1, 0, CInt(Math.Truncate(angle)), -1, -1}) End Sub ' set the angle for calculating Isha Public Sub setIshaAngle(ByVal angle As Double) Me.setCustomParams(New Integer() {-1, -1, -1, 0, CInt(Math.Truncate(angle))}) End Sub ' set the minutes after mid-day for calculating Dhuhr Public Sub setDhuhrMinutes(ByVal minutes As Integer) Me.dhuhrMinutes = minutes End Sub ' set the minutes after Sunset for calculating Maghrib Public Sub setMaghribMinutes(ByVal minutes As Integer) Me.setCustomParams(New Integer() {-1, 1, minutes, -1, -1}) End Sub ' set the minutes after Maghrib for calculating Isha Public Sub setIshaMinutes(ByVal minutes As Integer) Me.setCustomParams(New Integer() {-1, -1, -1, 1, minutes}) End Sub ' set custom values for calculation parameters Public Sub setCustomParams(ByVal param As Integer()) For i As Integer = 0 To 4 If param(i) = -1 Then Me.methodParams([Custom])(i) = Me.methodParams(Me.calcMethod)(i) Else Me.methodParams([Custom])(i) = param(i) End If Next Me.calcMethod = [Custom] End Sub ' set adjusting method for higher latitudes Public Sub setHighLatsMethod(ByVal methodID As Integer) Me.adjustHighLats = methodID End Sub ' set the time format Public Sub setTimeFormat(ByVal timeFormat As Integer) Me.timeFormat = timeFormat End Sub ' convert float hours to 24h format Public Function floatToTime24(ByVal time As Double) As [string] If time < 0 Then Return InvalidTime End If time = Me.FixHour(time + 0.5 / 60) ' add 0.5 minutes to round Dim hours As Double = Math.Floor(time) Dim minutes As Double = Math.Floor((time - hours) * 60) Return Me.twoDigitsFormat(CInt(Math.Truncate(hours))) & ":" & Me.twoDigitsFormat(CInt(Math.Truncate(minutes))) End Function ' convert float hours to 12h format Public Function floatToTime12(ByVal time As Double, ByVal noSuffix As Boolean) As [string] If time < 0 Then Return InvalidTime End If time = Me.FixHour(time + 0.5 / 60) ' add 0.5 minutes to round Dim hours As Double = Math.Floor(time) Dim minutes As Double = Math.Floor((time - hours) * 60) Dim suffix As [string] = If(hours >= 12, " pm", " am") hours = (hours + 12 - 1) Mod 12 + 1 Return CInt(Math.Truncate(hours)) & ":" & Me.twoDigitsFormat(CInt(Math.Truncate(minutes))) & (If(noSuffix, "", suffix)) End Function ' convert float hours to 12h format with no suffix Public Function floatToTime12NS(ByVal time As Double) As [string] Return Me.floatToTime12(time, True) End Function '---------------------- Compute Prayer Times -----------------------   ' return prayer times for a given date Public Function getDatePrayerTimes(ByVal year As Integer, ByVal month As Integer, ByVal day As Integer, ByVal latitude As Double, ByVal longitude As Double, ByVal timeZone As Integer) As [string]() Me.lat = latitude Me.lng = longitude Me.timeZone = timeZone Me.JDate = Me.JulianDate(year, month, day) - longitude / (15 * 24) Return Me.computeDayTimes() End Function ' compute declination angle of sun and equation of time Public Function sunPosition(ByVal jd As Double) As Double() Dim D__1 As Double = jd - 2451545.0 Dim g As Double = Me.FixAngle(357.529 + 0.98560028 * D__1) Dim q As Double = Me.FixAngle(280.459 + 0.98564736 * D__1) Dim L As Double = Me.FixAngle(q + 1.915 * Me.dsin(g) + 0.02 * Me.dsin(2 * g)) Dim R As Double = 1.00014 - 0.01671 * Me.dcos(g) - 0.00014 * Me.dcos(2 * g) Dim e As Double = 23.439 - 0.00000036 * D__1 Dim d__2 As Double = Me.darcsin(Me.dsin(e) * Me.dsin(L)) Dim RA As Double = Me.darctan2(Me.dcos(e) * Me.dsin(L), Me.dcos(L)) / 15 RA = Me.FixHour(RA) Dim EqT As Double = q / 15 - RA Return New Double() {d__2, EqT} End Function ' compute equation of time Public Function equationOfTime(ByVal jd As Double) As Double Return Me.sunPosition(jd)(1) End Function ' compute declination angle of sun Public Function sunDeclination(ByVal jd As Double) As Double Return Me.sunPosition(jd)(0) End Function ' compute mid-day (Dhuhr, Zawal) time Public Function computeMidDay(ByVal t__1 As Double) As Double Dim T__2 As Double = Me.equationOfTime(Me.JDate + t__1) Dim Z As Double = Me.FixHour(12 - T__2) Return Z End Function ' compute time for a given angle G Public Function computeTime(ByVal G As Double, ByVal t As Double) As Double 'System.out.println("G: "+G); Dim D As Double = Me.sunDeclination(Me.JDate + t) Dim Z As Double = Me.computeMidDay(t) Dim V As Double = (CDbl(1) / 15) * Me.darccos((-Me.dsin(G) - Me.dsin(D) * Me.dsin(Me.lat)) / (Me.dcos(D) * Me.dcos(Me.lat))) Return Z + (If(G > 90, -V, V)) End Function ' compute the time of Asr Public Function computeAsr(ByVal [step] As Integer, ByVal t As Double) As Double ' Shafii: step=1, Hanafi: step=2 Dim D As Double = Me.sunDeclination(Me.JDate + t) Dim G As Double = -Me.darccot([step] + Me.dtan(Math.Abs(Me.lat - D))) Return Me.computeTime(G, t) End Function '---------------------- Compute Prayer Times ----------------------- ' compute prayer times at given julian date Public Function computeTimes(ByVal times As Double()) As Double() Dim t As Double() = Me.dayPortion(times)   Dim Fajr As Double = Me.computeTime(180 - Me.methodParams(Me.calcMethod)(0), t(0)) Dim Sunrise As Double = Me.computeTime(180 - 0.833, t(1)) Dim Dhuhr As Double = Me.computeMidDay(t(2)) Dim Asr As Double = Me.computeAsr(1 + Me.asrJuristic, t(3)) Dim Sunset As Double = Me.computeTime(0.833, t(4))   Dim Maghrib As Double = Me.computeTime(Me.methodParams(Me.calcMethod)(2), t(5)) Dim Isha As Double = Me.computeTime(Me.methodParams(Me.calcMethod)(4), t(6)) Return New Double() {Fajr, Sunrise, Dhuhr, Asr, Sunset, Maghrib, Isha} End Function ' adjust Fajr, Isha and Maghrib for locations in higher latitudes Public Function adjustHighLatTimes(ByVal times As Double()) As Double() Dim nightTime As Double = Me.GetTimeDifference(times(4), times(1)) ' sunset to sunrise ' Adjust Fajr Dim FajrDiff As Double = Me.nightPortion(Me.methodParams(Me.calcMethod)(0)) * nightTime If Me.GetTimeDifference(times(0), times(1)) > FajrDiff Then times(0) = times(1) - FajrDiff End If ' Adjust Isha Dim IshaAngle As Double = If((Me.methodParams(Me.calcMethod)(3) = 0), Me.methodParams(Me.calcMethod)(4), 18) Dim IshaDiff As Double = Me.nightPortion(IshaAngle) * nightTime If Me.GetTimeDifference(times(4), times(6)) > IshaDiff Then times(6) = times(4) + IshaDiff End If ' Adjust Maghrib Dim MaghribAngle As Double = If((methodParams(Me.calcMethod)(1) = 0), Me.methodParams(Me.calcMethod)(2), 4) Dim MaghribDiff As Double = Me.nightPortion(MaghribAngle) * nightTime If Me.GetTimeDifference(times(4), times(5)) > MaghribDiff Then times(5) = times(4) + MaghribDiff End If Return times End Function ' the night portion used for adjusting times in higher latitudes Public Function nightPortion(ByVal angle As Double) As Double Dim val As Double = 0 If Me.adjustHighLats = AngleBased Then val = 1.0 / 60.0 * angle End If If Me.adjustHighLats = MidNight Then val = 1.0 / 2.0 End If If Me.adjustHighLats = OneSeventh Then val = 1.0 / 7.0 End If Return val End Function Public Function dayPortion(ByVal times As Double()) As Double() For i As Integer = 0 To times.Length - 1 times(i) /= 24 Next Return times End Function ' compute prayer times at given julian date Public Function computeDayTimes() As [string]() Dim times As Double() = {5, 6, 12, 13, 18, 18, _ 18} 'default times For i As Integer = 0 To Me.numIterations - 1 times = Me.computeTimes(times) Next times = Me.adjustTimes(times) Return Me.adjustTimesFormat(times) End Function   ' adjust times in a prayer time array Public Function adjustTimes(ByVal times As Double()) As Double() For i As Integer = 0 To 6 times(i) += Me.timeZone - Me.lng / 15 Next times(2) += Me.dhuhrMinutes \ 60 'Dhuhr If Me.methodParams(Me.calcMethod)(1) = 1 Then ' Maghrib times(5) = times(4) + Me.methodParams(Me.calcMethod)(2) / 60.0 End If If Me.methodParams(Me.calcMethod)(3) = 1 Then ' Isha times(6) = times(5) + Me.methodParams(Me.calcMethod)(4) / 60.0 End If If Me.adjustHighLats <> None Then times = Me.adjustHighLatTimes(times) End If Return times End Function Public Function adjustTimesFormat(ByVal times As Double()) As [string]() Dim formatted As [string]() = New [string](times.Length - 1) {} If Me.timeFormat = Floating Then For i As Integer = 0 To times.Length - 1 formatted(i) = times(i) & "" Next Return formatted End If For i As Integer = 0 To 6 If Me.timeFormat = Time12 Then formatted(i) = Me.floatToTime12(times(i), True) ElseIf Me.timeFormat = Time12NS Then formatted(i) = Me.floatToTime12NS(times(i)) Else formatted(i) = Me.floatToTime24(times(i)) End If Next Return formatted End Function '---------------------- Misc Functions ----------------------- ' compute the difference between two times Public Function GetTimeDifference(ByVal c1 As Double, ByVal c2 As Double) As Double Dim diff As Double = Me.FixHour(c2 - c1)   Return diff End Function ' add a leading 0 if necessary Public Function twoDigitsFormat(ByVal num As Integer) As [string] Return If((num < 10), "0" & num, num & "") End Function '---------------------- Julian Date Functions ----------------------- ' calculate julian date from a calendar date Public Function JulianDate(ByVal year As Integer, ByVal month As Integer, ByVal day As Integer) As Double If month <= 2 Then year -= 1 month += 12 End If Dim A As Double = CDbl(Math.Floor(year / 100.0)) Dim B As Double = 2 - A + Math.Floor(A / 4) Dim JD As Double = Math.Floor(365.25 * (year + 4716)) + Math.Floor(30.6001 * (month + 1)) + day + B - 1524.5 Return JD End Function   '---------------------- Time-Zone Functions -----------------------   ' detect daylight saving in a given date Public Function UseDayLightSaving(ByVal year As Integer, ByVal month As Integer, ByVal day As Integer) As Boolean Return System.TimeZone.CurrentTimeZone.IsDaylightSavingTime(New DateTime(year, month, day)) End Function ' ---------------------- Trigonometric Functions ----------------------- ' degree sin Public Function dsin(ByVal d As Double) As Double Return Math.Sin(Me.DegreeToRadian(d)) End Function ' degree cos Public Function dcos(ByVal d As Double) As Double Return Math.Cos(Me.DegreeToRadian(d)) End Function ' degree tan Public Function dtan(ByVal d As Double) As Double Return Math.Tan(Me.DegreeToRadian(d)) End Function ' degree arcsin Public Function darcsin(ByVal x As Double) As Double Return Me.RadianToDegree(Math.Asin(x)) End Function ' degree arccos Public Function darccos(ByVal x As Double) As Double Return Me.RadianToDegree(Math.Acos(x)) End Function ' degree arctan Public Function darctan(ByVal x As Double) As Double Return Me.RadianToDegree(Math.Atan(x)) End Function ' degree arctan2 Public Function darctan2(ByVal y As Double, ByVal x As Double) As Double Return Me.RadianToDegree(Math.Atan2(y, x)) End Function ' degree arccot Public Function darccot(ByVal x As Double) As Double Return Me.RadianToDegree(Math.Atan(1 / x)) End Function   ' Radian to Degree Public Function RadianToDegree(ByVal radian As Double) As Double Return (radian * 180.0) / Math.PI End Function ' degree to radian Public Function DegreeToRadian(ByVal degree As Double) As Double Return (degree * Math.PI) / 180.0 End Function Public Function FixAngle(ByVal angel As Double) As Double angel = angel - 360.0 * (Math.Floor(angel / 360.0)) angel = If(angel < 0, angel + 360.0, angel) Return angel End Function ' range reduce hours to 0..23 Public Function FixHour(ByVal hour As Double) As Double hour = hour - 24.0 * (Math.Floor(hour / 24.0)) hour = If(hour < 0, hour + 24.0, hour) Return hour End Function Private Sub PrayTime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim showPrayerTimes = times Fajr_Label.Text = showPrayerTimes(0) End Sub End Class
  4. مجموعة من البرامج مبرمجة بلغة C# وقواعد بيانات SQL Server و SQLite   أولا : برنامج إدارة معامل التحاليل الطبية السلام عليكم آلان برنامج جادو لاب لإدارة معامل التحاليل الطبية... يعد برنامج جادو لاب من أقوي التطبيقات في إدارة معامل التحاليل الطبية حيث يتميز بالمميزات الآتية :- 1-وجود ميزة Multiaccount وهي تسمح لك بإضافة حسابات دخول في التطبيق مع اختلاف الصلاحيات لكل مستخدم علي حدة. 2-وجود ميزة Backup & Restore لإنشاء نسخة من قاعدة بيانات التطبيق واستعادتها مرة أخري لمنعها من التلف. 3-وجود نظام كامل لإدارة المرضي ووجود أكثر من 400 نوع تحليل مضافين مع النتائج الطبيعية Normal Values والعينة المطلوبة Required Specimen طبقاً لكتيب التحاليل الطبية الصادر عن معامل العصافرة 2013 . يمكنك أيضاً إضافة التحاليل الطبية أو حذفها وإنشاء مجموعات تحاليل طبية ليس لها أي دلالة علمية ولكن فقط لسهولة تنظيم الوصول للتحاليل. 4-إنشاء تعاقدات المعمل وحساب سعر التحاليل المطلوبة تلقائياً واستيراد الخصم المطلوب وحساب المبلغ النهائي المطلوب تلقائياً. 5-سهولة البحث والاستعلام عن أي شئ في التطبيق (مرضي-أطباء-تحاليل-تعاقدات). 6-وجود نظام لحساب الإيرادات أو الديون هذا اليوم أو الشهر أو العام أو المدة المطلوبة أيضاً يمكن معرفة أكثر التحاليل المطلوبة. 7-وجود نظام طباعة التقارير بكل سهولة (تقرير زيارة-نتائج للمعمل-نتائج للمريض برسوم بيانية لتوضيح حالة المريض للطبيب المعالج -الإيرادات-التعاقدات) وأنواع أخري كثيرة ويمكن تصميم التقارير علي حسب رغبة المستخدم. 8-إمكانية الربط بين الأجهزة بشبكة محلية أو ويب ومشاركة قاعدة البيانات فيما بينهم وتحديثها أول بأول فيما بينهم تلقائياً. 9-إمكانية ربط جهاز معملي بالتطبيق بكل سهولة لاستيراد النتائج تلقائياً وتسجيلها للمريض 10-تصدير التقارير علي هيئة ملفات وورد اكسل وPDF.     فيديو من البرنامج : نسخة تجريبية مجانية : https://www.mediafire.com/?piwzw6uh6dgaxxh السعر : 50 دولار سعر السورس كود : 250 دولار   ثانياً: برنامج إدارة الصيدليات   واحد من أفضل البرامج لإدارة الصيدليات حيث يتميز بالآتي :- 1-تعدد حسابات المستخدمين باللإضافة للصلاحيات المختلفة. 2-إمكانية بيع الأدوية وتفريطها بكل سهولة من خلال الباركود (يقوم البرنامج بتصفية الأدوية حيث يمنع بيع الأدوية المنتهية وتنبيهك للأدوية ذات الكميات القليلة) بالإضافة لطباعة الفواتير 3-تسجيل الأدوية في صيدلتك والمخزن وتسهيل عملية النقل فيما بينهما وطباعة تقارير بذلك. 4-إضافة الطلبيات والمشتريات وتسديد مديوناتها بكل سهولة. 5-إضافة الموردين بكل سهولة وتعديلهم. 6-إمكانية إضافة تعاقدات أفراد وشركات ومراكز ووجود نظام لإدارة التسديدات الآجلة. 7-إدارة العاملين في الصيدلية بكل سهولة. 8-طباعة تقرير شهري بأرباح الصيدلية ومرتبات العاملين والمصروفات وتحديد نسبة مكسب أو خسارة الصيدلية. 9-إمكانية نسخ البيانات واستعادتها لمنعها من الضياع أو التلف. 10-مراقبة كاملة للنظام (تسجيل دخول وخروج - التعديل - البيع - الإضافة).   فيديو من البرنامج : نسخة تجريبية مجانية : http://www.mediafire.com/download/95he8reubt6b231/AlwatanyiaPharma.rar السعر : 40 دولار سعر السورس كود : 200 دولار   ثالثاً : برنامج إدارة شركات فواتير الإنترنت   فيديو من البرنامج : السعر : 30 دولار سعر السورس كود : 150 دولار   رابعاً: برنامج إدارة العيادات والمراكز الطبية   السعر : 30 دولار سعر السورس كود : 150 دولار شركة GSoft لتصميم البرمجيات الحديثة رقم هاتف : +201208980438 بريد إلكتروني : [email protected] حساب فيس بوك (مفضل) : https://www.facebook.com/scimohammed.gado?ref=tn_tnmn      
  5. صلي هو برنامج مجاني و مفتوح المصدر لحساب اوقات الصلاة الاسلامية لمعظم دول العالم   الموقع الرسمى للبرنامج هو : http://sallyproject.altervista.org                 صلي هو برنامج مجاني و مفتوح المصدر و يحق لكل شخص استعماله و نشره, فقط لا تنسونا من خالص دعائكم
  6. السلام عليكم , انا احمد من كردستان العراق , انا طالب جامعي المرحلة الاخيرة (الرابعة ) علوم الحاسبات , عندي مشروع لازم اسويه , ولكن لا اعرف كيف اقوم بذالك , المطلوب مني ان اركب ويب كام على نضارات نكدر نشوف العين , و نربطة ويا ال سي شارب , حتي نسوي ( اي رايتر ) eye writer < ف شفت بعض الفيديوهات تستعمل ال opencv < ولكن انا بس من قبل اسبوعين سمعت بيها , ف ممكن مساعدة باي شكل من الاشكال ؟؟؟و شكرا ... :)
  7. بسم الله والحمد لله     هذا كلام مقتضب أكتبه على عجالة من أمري فكانت كلماته قليلة ولكن مغزاه كبير ولكل أحد أن يحكم بما شاء وإنما نبدي نحن عن بنات أفكارنا   البرمجيات الحرة والمصادر المفتوحة لها فضل كبير في نشأة المبرمج أيا كان مشربه وأيا كان مذهبه ، لا يجوز بحال إنكار فضلها على تعلمه وتطوره   كانت ولا تزال المصادر المفتوحة أصل العلوم ولبابها ولولاها ما وصلت البرامج ولا المبرمجون إلى ما وصلوا إليه     هذا أمر كان يقع في نفسي كلما سمعت أحدا يعيب المصادر المفتوحة وينقم عليها ويزعم ظلما وجورا أنها تهدم العلم وتحبط الهمة وتنكس النفس عن طلب المعالي وبلوغ المرام   ألم يعلم بأن اللغات الأولى لو بقيت مغلقة على أصحابها ما وصلت إلينا ، أم لم يعلم بأن اللغات الأشهر كالسي والسي ++ والجافا والباسكال مفتوحة المصدر   قد ينكر هذا الكلام  ناكر  ثم ما يلبث أن يضرب بإصبعه على لوحة مفاتيحه ليبحث عن كود لاتصال بقاعدة بيانات كذا وكذا ، أو عن كود استبدال كلمة بكلمة ، أو عن خوارزمية الترتيب الأسرع ، أو عن كود لبرمجة لعبة أو إنشاء نظام للموظفين     أفلا يرجع إلى نفسه ثم يسألها أليست هذا الأكواد المبثوثة في الشبكات والمخطوطة في الكتب والمشروحة في الفيديوهات أليست مصادر مفتوحة ، فإن كان ما يراه من شرها الأكبر حقا فلا يستفد منها  ولا يبحث عن كود أبدا ولا يسأل أستاذا عن كيف يفعل كذا وكذا لأن ذلك علم مفتوح
  8. ااسلام عليكم انا عندي واحب في computer Graphic using vc++ open gl وهذي اللغه جديده عليه فاتمنى تساعدوني في حلها Write a program that animates whirling hexagons• Requirement: The animation is generated by continuous zoom-in and zoom-out. Starting from the initial configuration of the hexagons, keep zooming in until you reach the smallest hexagon at the center covering the entire screen window, then reverse gear and start zooming out. Once you come back to the initial configuration, start zooming in again. This process is infinitely repeated until the user presses ‘q’ key to exit program. Make sure to slow down the speed of animation so the zooming process can be comfortably viewed. Also, make sure there is no flickering artifact during animation. . Write a program that draws a rosette • Requirement: Everytime the program runs, a random n-rosette must be generated and dis- played. n ranges in [5,17]. Write a program that draws the fifth-generation Koch snowflake ,
  9. أعلنت CIPS أن الحكومة الصينية سوف تعتمد نظام التشغيل Linux كنظام موحد للبلاد، وبالتحديد سيتم استخدام التوزيعة الصينية "أوبونتو كيلين" ('Ubuntu Kylin') وهي أحد النكهات الرسميّة لتوزيعة أوبونتو المشهورة. "أوبونتو كيلين" هي توزيعة صينية تمت إضافتها مؤخرا إلى عائلة أوبونتو باعتبارها نكهة رسمية، وسيتم إطلاق اﻹصدار اﻷول من التوزيعة في 25 أبريل جنبًا إلى جنب مع غيرها من نكهات أوبونتو الرسمية. وقال مارك شتلوورث مؤسس شركة كانونيكال المطوّرة ﻷوبونتو : " مع أوبونتو كيلين فإن الصين أصبح لديها نظام تشغيل خاص بها، آمن ومستقر، إنه قد أنتج بفضل المجتمع العالمي ﻷوبونتو، إن أوبونتو تجمع بين التكنولوجيا التامة والنظام اﻹيكولوجي الناضج ومصنّعي المعدات اﻷصليين والشركاء الذي نتعاون معهم، إن تلك المبادرة تحقق نقاط قوة للصين عبر مجموعة متكاملة من المنصات : (سطح المكتب، السيرفرات، الهواتف، اللوحيات، التخزين السحابي) " .   المصدر : لينكس اليوم
  10.   السلام عليكم ورحمة الله وبركاته   بغيت استفسر عن مفهوم Open-Source Software و Proprietary Software   من ناحية Policy, Methodology, Target Users, Spread      عندي بريزنتيشن مقارنه بينهم ومش فاهمه الموضوع وما لقيت مقالات كثيرة تفصل فيه..   ياليت توضحوا لي الموضوع او اذا فيه مقاللات عنه..       مشكورين وجزاكم الله خير..
  11. السلام عليكم ورحمة الله وبركاته أقدم لكم مشروع مضاد فيروسات ب net. مفتوح المصدر open source التحميل
  12. السلام عليكم ورحمة الله تعالى وبركاته   أود أولاً أن أشكر كافة طاقم الإدارة وأعضاء هذا المنتدى على جهودهم الجبارة   بينما كنت أتصفح منتدنا الحبيب, رأيت كثرة المواضيع التي تخص قواعد البيانات فكان ذلك الروتين قاتلا (وكأننا نريد صنع صاروخ بSQL) ففكرت لماذا لا أبدع فكرت من أفكاري الغبية ؟   فصنعت برنامجا لتشفير النصوص طبعا لكي تحفظوا أسراركم   :P   طبعاً البرنامج مفتوح المصدر (Open source) ويجب أن يكون لديك برنامج Visual Basic 2010.Net لكي تتمكن من التعديل (جرب الإصدارات السابقة وشوف حظك ^^)   البرنامج (معلومات بسيطة):   https://sourceforge.net/projects/encryptedtexts   لتحميله: https://sourceforge.net/projects/encryptedtexts/files/latest/download   ولتحميل السورس كود:   https://sourceforge.net/projects/encryptedtexts/files/Source%20Codes.rar/download?_test=updater&utm_expid=65835818-0   صور البرنامج:   واجهة الترحيب (جد جد بسيطة وبإمكانكم التعديل عليها من البروجيكت):   عملية التشفير:   عملية فك التشفير (يا أخي قَطِع قَطِع):     أرجو أن ينال البرنامج إعجابكم   وإنتظروانا في الإصدار 2 قريباً بمميزات جديدة ^^   تعليقاتكم تهمني كثييير   :rolleyes:   سلام
  13. برنامج ساعة الحائط - لسطح مكتب الويندوز بالسورس كود !   السورس كود Option Explicit'==================================================='Analog Clock'--------------------------------------------------'Creates a round(circle) shaped form'and draws H, M, S indicators'I made it easy to understand for VB6.0 beginers'--------------------------------------------------'Author: Evry1falls'Date: 2013'Visit : http://vb6access2003.blogspot.com'All lines of code are explained in the Blog, Visit :'http://vb6access2003.blogspot.com/2013/02/VB6-Analog-Clock.html'--------------------------------------------------'Reference:'Larry Serflaten, Dipak Auddy'Everything'Google : evry1falls'==================================================='API to create windowless formPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _ByVal hRgn As Long, _ByVal bRedraw As Boolean) As LongPrivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _ByVal Y1 As Long, _ByVal X2 As Long, _ByVal Y2 As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 'API to move windowless formPrivate Const HTCAPTION As Long = 2Private Const WM_NCLBUTTONDOWN As Long = &HA1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long 'The length of H,M,S indicators...Private Const hWidth As Long = 1100Private Const mWidth As Long = 1400Private Const sWidth As Long = 1500 'Globals to store canvas(Picture Object)'s'center co-ord.Private X As SinglePrivate Y As SinglePrivate PI2 As DoublePrivate Sub Form_Load()Dim RGN As Long' PI / 2PI2 = Atn(1) * 2With Me.BackColor = vbWhite.Width = Me.Width.Height = Me.Height'Let's save the points...X = .Width / 2Y = .Height / 2End With 'meLabel1.Caption = "Evry1falls" & vbCrLf & "@evry1falls.freevar.com"'Make a round windowless! form...RGN = CreateEllipticRgn(0, 0, 310, 310)Call SetWindowRgn(Me.hwnd, RGN, True)Call DeleteObject(RGN)End SubPrivate Sub Form_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Moving the form using mouse button from any location on the form held with mouseIf Button = 1 ThenReleaseCaptureSendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)'Stop the timerTimer1.Enabled = FalseEnd SubPrivate Sub Label1_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Move form when drag the labelForm_MouseDown Button, Shift, X, YEnd SubPrivate Sub lblClose_Click()'Exit App.Unload MeEnd SubPrivate Sub Timer1_Timer()Dim Angle, PX, PY, OX, OY, WX, WYMe.Cls'Get Hr Angle...Angle = (180 - (Hour(Now) * 6) * 5 - (Minute(Now) * 6) / 12) * 3.1415 / 180'Hr. pointPX = X + (hWidth * Sin(Angle))PY = Y + (hWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Hr. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbBlue ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbBlue ' To other opposite sideMe.Line -(PX, PY), vbBlue ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Min Angle...Angle = (180 - (Minute(Now) * 6)) * 3.1415 / 180'Min pointPX = X + (mWidth * Sin(Angle))PY = Y + (mWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Min. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbMagenta ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbMagenta ' To other opposite sideMe.Line -(PX, PY), vbMagenta ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Sec Angle...Angle = (180 - (Second(Now) * 6)) * 3.1415 / 180'Draw Sec. hand...Me.Line (X, Y)-(X + (sWidth * Sin(Angle)), Y + (sWidth * Cos(Angle))), vbRedEnd Subالشرح + السورس كود من هنا
  14. لدينا قاعدة بيانات متصلة بمشروع فيجوال بيزك 2010 به DataGrodView و نريد أن نجعل عمليات الحفظ و الحذف و التعديل و التنقل بين السجلات أسها باستخدام مفاتيح الكايبورد :   شكل الفورم :   الأكواد :   Imports System.Data.OleDbPublic Class Form1 '============================Visit Me==============================' ' You may use this Application for any purpose, as you wish . ' Don't forget to build your database as instructed at the tutorial ' link here : http://adonetaccess2003.blogspot.com/2011/11/datagridview-add-edit-delete-into.html'>http://adonetaccess2003.blogspot.com/2011/11/datagridview-add-edit-delete-into.html ' For any help using MS VB.Net along with any DB Engine, please ' Feel free to visit me here : http://adonetaccess2003.blogspot.com ' Or just : Google me ( Evry1falls - Your Issues ) ' ' Thanx again for using Evry1falls Solutions ' '==================================================================' Public CN As New OleDb.OleDbConnection Public RD As OleDbDataReader Public DBS As New DataSet Public Ckind As New OleDbCommand Public Akind As New OleDbDataAdapter Public CmDB As New OleDbCommandBuilder Public DkindS As New DataTable Public Rec As DataRow Public Frec() As DataRow Public N, I, CntRs, CntC As Integer Public SqlStr, xC As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connectionString As String = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" Dim sql As String = "SELECT * FROM Kinds" Dim connection As New OleDbConnection(connectionString) Dim dataadapter As New OleDbDataAdapter(sql, connection) Dim ds As New DataSet() connection.Open() dataadapter.Fill(ds, "Kinds") connection.Close() DG1.DataSource = ds DG1.DataMember = "Kinds" DG1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single DG1.CellBorderStyle = DataGridViewCellBorderStyle.Single DG1.Columns("Kind").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DG1.Columns("kind").HeaderCell.Value = "Sort Of Items" Rec = Nothing Frec = Nothing PictureBox1.Hide() Label1.Text = "" End Sub Private Sub DG1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DG1.CellBeginEdit If CN.State = ConnectionState.Open Then CN.Close() CN.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" CN.Open() PictureBox1.Show() Label1.Text = "" PictureBox1.Image = My.Resources.loading SqlStr = "Select * from Kinds" Ckind.Connection = CN Ckind.CommandText = SqlStr With Akind .SelectCommand = Ckind .Fill(DBS, "Kinds") End With DkindS = DBS.Tables("Kinds") CntC = DG1.Rows.Count If DG1.Rows(DG1.CurrentCell.RowIndex).IsNewRow = False Then xC = DG1.CurrentCell.Value.ToString Else xC = Nothing End If End Sub Private Sub DG1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellEndEdit If DG1.Rows.Count = CntC Then Frec = DkindS.Select("Kind = '" & xC & "'") If Frec.Length = 0 Then Exit Sub End If Rec = Frec(0) Rec.BeginEdit() Rec!Kind = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value Rec.EndEdit() If DBS.HasChanges = True Then CmDB.DataAdapter = Akind Akind.Update(DBS, "Kinds") Label1.Text = "Editted Successfully" PictureBox1.Hide() End If Exit Sub End If SqlStr = "Select * from Kinds" Ckind.Connection = CN Ckind.CommandType = CommandType.Text Ckind.CommandText = SqlStr With Akind .SelectCommand = Ckind .Fill(DBS, "Kinds") End With DkindS = DBS.Tables("Kinds") If DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value Is DBNull.Value Then PictureBox1.Hide() Label1.Text = "لا يمكن اضافة نوع فارغ" Exit Sub End If PictureBox1.Show() Rec = DkindS.NewRow Rec!KIND = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value DkindS.Rows.Add(Rec) If DBS.HasChanges = True Then CmDB.DataAdapter = Akind Akind.Update(DBS, "Kinds") Label1.Text = "تم التحديث" PictureBox1.Hide() End If End Sub Private Sub DG1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DG1.KeyDown If CN.State = ConnectionState.Open Then CN.Close() CN.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" CN.Open() If e.KeyCode = Keys.Delete Then If DG1.Rows.GetRowCount(DataGridViewElementStates.Visible) = 1 Then Label1.Text = "No Data Available" Exit Sub End If If DG1.Rows(DG1.CurrentRow.Index).IsNewRow = True Then Label1.Text = "Violation - Selected Couldn't be Deleted" Exit Sub End If Dim xc As String xc = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value.ToString MsgBox(xc) SqlStr = "Delete From Kinds where (Kind) = '" & xc & "'" Ckind.Connection = CN Ckind.CommandText = SqlStr CntRs = Ckind.ExecuteNonQuery Label1.Text = (CntRs & " Record(S) Deleted Successfully") DG1.Rows.Remove(DG1.CurrentCell.OwningRow) DG1.Refresh() End If End SubEnd Class  المصدر الأصلى
  15. يمكنكم تحميل الشيفرة المصدرية Source Code لمكتبات دوت نت فريم وورك Dot Net Framework باصداراتها المختلفة من رابط مايكروسوفت التالي : http://referencesource.microsoft.com/netframework.aspx حجم مكتبة 4.5 حوالي 133 MB للعلم هو مكتوب بلغة السي شارب C# كما يحتوي على ملفات الرموز Symbols من أجل دخول المنقح إلى داخل مناهج وخصائص وأصناف تلك المكتبات لمزيد عن كيفية تفعيل خاصية التنقيح الداخلي http://blogs.msdn.com/b/dotnet/archive/2012/08/15/announcing-the-release-of-net-framework-4-5-rtm-product-and-source-code.aspx لاستكشاف فئة ما يمكن البحث عنها ضمن المجلد باسمها كمثال String.cs أو DateTime.cs بالطبع ستظهر نتيجتين أو ثلاثة لأنها موجودة في مكتبات الـ ndp أو clr أو WPF وستجدون أن الملف يحتوي الشيفرة مكررة (لا أدري ما السبب) تجدون في المرفقات مثال عن شيفرة نوع المعطيات DateTime DateTime.rar