• الإعلانات

    • فيصل الحربي

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

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

sscvbnm

اعضاء
  • عدد المشاركات

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

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

السمعه بالموقع

6 عادي

عن sscvbnm

  • الرتبة
    عضو
  1. شكراً لك.. في الشركة قسم برمجي لكن لا نريد الخوض في هذا حتى الآن؛ ما أريده هو شبيه بهذه المواقع لكن بشكل متقدم وبتطويرات نوعية لتحقق كل الأهداف لكن الفكرة قريبة: https://taskant.com http://hitask.com/ http://www.sandglaz.com http://www.attask.com http://plan.io على كل لو لم يكن هذا موجوداً في العالم الآن فيمكن لأي أحد خوض هذه المغامرة لتطبيق الفكرة، وقد يصبح الموقع عالمياً إن كان متقناً وأميناً..
  2. نعم هي شركة لها عدة فروع لكن الحسابات غير مطلوبة في هذا المشروع وإنما المطلوب التواصل لإدارة المشاريع ومهام العمل ومتابعة ذلك
  3. جزاك الله خيراً أخ بارع ما أريده هو أبسط مما ذكرت في ردك بكثير لو كان نفس المجال لكن شيء مبسط جداً: تواصل مهمام مشاركات تقارير من غير محاسبة أو نقاط بيع أو جودة أو غيرها.. يعني شيء مصغر جداً عما تقول فياريت لو احد يدلنا على تطبيق أو موقع لهذا الأمر وجزاكم الله خيراً
  4. السلام عليكم ورحمة الله وبركاته شركة لها عدة فروع في أكثر من دولة بعض هذه الفروع مختصة بالإنتاج وبعضها بالتسويق والمبيعات أو شيء آخر.. في كل فرع عدد من الموظفين مع مديرهم البرنامج المطلوب (لا أريد مبرمج ولا شيء) أريد تقنية أو موقع أو برنامج يؤمن: - التواصل بين موظفي الشركة في كل الفروع عبر قوالب عمل محددة - إدارة مهام عمل وطلبات من فرع لآخر أو من المدير لأي أحد أو من شخص لشخص - إضافة مشاريع وإضافة أشخاص مع مهام فيها - تقراير ومتابعات حالة كل حركة أو من جهة ما - مشاركة ملفات - مراسلة فورية ومحادثة جماعية -- سرية عالية وأمن معلومات أكيد ... إلى آخر ما يتطلب العمل لو كان في مقر واحد البرنامج يجب أن يتيح إمكانيات للمستخدم العادي وللمدير أن يقوم بقولبة ما يحتاجه (من غير برمجة) أنا مبرمج .نت لا أعرف عن شيربوينت شيئاً، هل يؤمن شيربوينت هذا الغرض أم لا؟ وهل ستتطلب العملية برمجة أم لا؟ لأن الوقت مهم ومطلوب السرعة العالية في إعداد ما تحتاجه الشركة (فلا وقت لفتح مشروع أو حتى البرمجة على شيء يحتاج إلى جهد) أتوقع أن الشركات الكبيرة والمتوسطة ستحتاج هذا فلا بد من وجود تقنية جاهزة لهذا الغرض لا أعرفها ولذلك وضعت السؤال.. أرجو الإفادة وجزاكم الله خيراً..
  5. السلام عليكم هل سيتم نشر iso لويندوز 8 النهائي trial في موقع مايكروسوفت أم سيقتصر الموضوع على التطوير وإن كان نعم فمتى؟
  6. رائع جزاكم الله خيراً.. أضيف أيضاً أنه في حالة التعميم حسب ما وصفتها سنخسر إلى حد كبير ال normalization ونتحول غالباً إلى Denormalization database ولكل ميزات ومساوئ..
  7. ليس جنوناً.. ولكن فعلاً قد أحتاج لبناء SAP جديد ولكن في تخصص آخر.. هنا ستكون الكارثة، ونعود للسؤال الأول.
  8. نعم أنا واجهت هذه المشكلة في مشروع آخر ضخم البيانات وهي يمكن توصيفها ب(النص المنظم) فهي ليست حقولاً ثابتة أو محدودة وليست نصوصاً مسرودة وتوصلت أخيراً لاستعمال XML مع FTS لأحل المشكلة والحمد لله نجحت إلى حد كبير.. بارك الله فيكم وجزاكم الله خيراً
  9. السلام عليكم ورحمة الله وبركاته الإخوة الكرام/ عندما يطلب العميل برنامج قواعد بيانات تتزاحم الأفكار والوساوس للوصول إلى التصميم الأفضل للقاعدة.. ولا تصميم أفضل عندما تعلم أن العميل مهما فعلت سيطلب إضافة حقول بل وربما ستحتاج إلى إضافة جداول بعد تسليم البرنامج.. الحقول المفتوحة والجداول المفتوحة إحدى الأفكار بمعنى أنك تتيح للعميل القيام بإنشاء جداول وحقول من البرنامج نفسه بأنواع يختارها ويربط بين هذه الحقول كما يريد! ويمكنك تجميل هذه الفكرة بإضافة قوالب جاهزة لما يحتاجه غالباً من سيستخدم البرنامج.. ولكن! هذه الفكرة هي فكرة التعميم تجعلك تعمل وكأنك تعيد بناء واجهة لمخدم قواعد البيانات التي تستخدمها.. وهي أيضاً ستجعل كل مشاريع وزبائن قواعد البيانات عندك مشروعاً واحداً وزبوناً واحداً.. فلماذا لا تكون مشروع Open Source أو Freeware وتتيح التعامل مع أنواع عدة من قواعد البيانات معاً.. من ناحية الوقت مهما كلف هذا المشروع فإنه سيسد حاجة الكثيرين، ولكنه سيحتاج إلى غاية الإتقان والدقة في العمل. طريقة أخرى من طرق التعميم هو أن تجعل الجداول محفوظة كXML ثم تقوم بالبحث فيها عن طريق Full Text Search التعميم لا يعني فقط الحقول والجداول، وإنما أيضاً يشمل أسماء الحقول وأسماء الجداول فقد أخصص كل شيء في قاعدة البيانات غير أني لا أخصص أسماء الحقول في الجدول خاصة إذا فاقت ال50 حقلاً بل أجعل الأسماء عامة مثلاً FLD1.. FLD2 أياً يكن فإن أكثر المبرمجين حسب اطلاعي لا يستخدم التعميم في تصميم قاعدة البيانات، وإنما نلجأ إلى التخصيص والتخصيص في كل شيء.. رغم أن التخصيص مفيد في سرعة التصميم لأول مرة وكذلك يسهل عملية البحث والوصول وووميزاته كثيرة؛ إلا أنك عندما تدخل في برنامج غاية في التشعب والمعلومات الطويلة والمتزايدة والمترابطة قد تجده يعيقك ويبطأ عملك وتتمنى لو كان التعميم ممكناً بدون ضيق الوقت.. هل من رأي أو تجربة أو نصيحة أو فكرة.. شكراً للمشاركة والسلام عليكم ورحمة الله وبركاته
  10. السلام عليكم ورحمة الله وبركاته حصلت على هذا الكود لمعرفة طول وعرض الصورة من خلال الهيدر.. ثم حولته آلياً من C# إلى vb.net لم أعرف كيف أتخلص من الجزء المتعلق بكود Linq في هذا الكود لأنني أريد استخدامه ضصمن .نت 2 المصدر: http://www.codeproject.com/Articles/35978/Reading-Image-Headers-to-Get-Width-and-Height http://stackoverflow.com/questions/111345/getting-image-dimensions-without-reading-the-entire-file الكود: Imports System.Collections.Generic Imports System.Drawing Imports System.IO Imports System.Linq Namespace DevWilson ''' <summary> ''' Taken from http://stackoverflow.com/questions/111345/getting-image-dimensions-without-reading-the-entire-file/111349 ''' Minor improvements including supporting unsigned 16-bit integers when decoding Jfif and added logic ''' to load the image using new Bitmap if reading the headers fails ''' </summary> Public NotInheritable Class ImageHeader Private Sub New() End Sub Const errorMessage As String = "Could not recognise image format." Private Shared imageFormatDecoders As New Dictionary(Of Byte(), Func(Of BinaryReader, Size))() From { _ {New Byte() {&H42, &H4D}, DecodeBitmap}, _ {New Byte() {&H47, &H49, &H46, &H38, &H37, &H61}, DecodeGif}, _ {New Byte() {&H47, &H49, &H46, &H38, &H39, &H61}, DecodeGif}, _ {New Byte() {&H89, &H50, &H4E, &H47, &HD, &HA, _ &H1A, &HA}, DecodePng}, _ {New Byte() {&HFF, &HD8}, DecodeJfif} _ } ''' <summary> ''' Gets the dimensions of an image. ''' </summary> ''' <param name="path">The path of the image to get the dimensions of.</param> ''' <returns>The dimensions of the specified image.</returns> ''' <exception cref="ArgumentException">The image was of an unrecognised format.</exception> Public Shared Function GetDimensions(ByVal path As String) As Size Try Using binaryReader As New BinaryReader(File.OpenRead(path)) Try Return GetDimensions(binaryReader) Catch e As ArgumentException Dim newMessage As String = String.Format("{0} file: '{1}' ", errorMessage, path) Throw New ArgumentException(newMessage, "path", e) End Try End Using Catch generatedExceptionName As ArgumentException 'do it the old fashioned way Using b As New Bitmap(path) Return b.Size End Using End Try End Function ''' <summary> ''' Gets the dimensions of an image. ''' </summary> ''' <param name="path">The path of the image to get the dimensions of.</param> ''' <returns>The dimensions of the specified image.</returns> ''' <exception cref="ArgumentException">The image was of an unrecognised format.</exception> Public Shared Function GetDimensions(ByVal binaryReader As BinaryReader) As Size Dim maxMagicBytesLength As Integer = imageFormatDecoders.Keys.OrderByDescending(Function(x) x.Length).First().Length Dim magicBytes As Byte() = New Byte(maxMagicBytesLength - 1) {} For i As Integer = 0 To maxMagicBytesLength - 1 magicBytes(i) = binaryReader.ReadByte() For Each kvPair As var In imageFormatDecoders If StartsWith(magicBytes, kvPair.Key) Then Return kvPair.Value(binaryReader) End If Next Next Throw New ArgumentException(errorMessage, "binaryReader") End Function Private Shared Function StartsWith(ByVal thisBytes As Byte(), ByVal thatBytes As Byte()) As Boolean For i As Integer = 0 To thatBytes.Length - 1 If thisBytes(i) <> thatBytes(i) Then Return False End If Next Return True End Function Private Shared Function ReadLittleEndianInt16(ByVal binaryReader As BinaryReader) As Short Dim bytes As Byte() = New Byte(2 - 1) {} For i As Integer = 0 To 2 - 1 bytes(2 - 1 - i) = binaryReader.ReadByte() Next Return BitConverter.ToInt16(bytes, 0) End Function Private Shared Function ReadLittleEndianUInt16(ByVal binaryReader As BinaryReader) As UShort Dim bytes As Byte() = New Byte(2 - 1) {} For i As Integer = 0 To 2 - 1 bytes(2 - 1 - i) = binaryReader.ReadByte() Next Return BitConverter.ToUInt16(bytes, 0) End Function Private Shared Function ReadLittleEndianInt32(ByVal binaryReader As BinaryReader) As Integer Dim bytes As Byte() = New Byte(4 - 1) {} For i As Integer = 0 To 4 - 1 bytes(4 - 1 - i) = binaryReader.ReadByte() Next Return BitConverter.ToInt32(bytes, 0) End Function Private Shared Function DecodeBitmap(ByVal binaryReader As BinaryReader) As Size binaryReader.ReadBytes(16) Dim width As Integer = binaryReader.ReadInt32() Dim height As Integer = binaryReader.ReadInt32() Return New Size(width, height) End Function Private Shared Function DecodeGif(ByVal binaryReader As BinaryReader) As Size Dim width As Integer = binaryReader.ReadInt16() Dim height As Integer = binaryReader.ReadInt16() Return New Size(width, height) End Function Private Shared Function DecodePng(ByVal binaryReader As BinaryReader) As Size binaryReader.ReadBytes(8) Dim width As Integer = ReadLittleEndianInt32(binaryReader) Dim height As Integer = ReadLittleEndianInt32(binaryReader) Return New Size(width, height) End Function Private Shared Function DecodeJfif(ByVal binaryReader As BinaryReader) As Size While binaryReader.ReadByte() = &HFF Dim marker As Byte = binaryReader.ReadByte() Dim chunkLength As Short = ReadLittleEndianInt16(binaryReader) If marker = &HC0 Then binaryReader.ReadByte() Dim height As Integer = ReadLittleEndianInt16(binaryReader) Dim width As Integer = ReadLittleEndianInt16(binaryReader) Return New Size(width, height) End If If chunkLength < 0 Then Dim uchunkLength As UShort = CUShort(chunkLength) binaryReader.ReadBytes(uchunkLength - 2) Else binaryReader.ReadBytes(chunkLength - 2) End If End While Throw New ArgumentException(errorMessage) End Function End Class End Namespace وللعلم هو لم يعمل بعد التحويل بسبب خطأ في الصياغة حتى لو استخدمت .نت 3.5 جزاكم الله خيراً
  11. الأصوب هكذا والله أعلم: Function NEWDATE(ByVal D1 As Date, ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As Date On Error Resume Next D1 = D1.AddYears(y) D1 = D1.AddMonths(m) D1 = D1.AddDays(d) Return D1 End Function
  12. السلام عليكم ورحمة الله وبركاته أريد طريقة أعرف فيها تاريخ الميلاد من خلال إدخال عدد السنوات والأشهر والأيام فلو أدخل المستخدم 10 سنوات 3 أشهر 20 يوم؛ يظهر له التاريخ 10/7/2001 مثلاً عندي هذا الكود للعملية العكسية، كيف أعكسه؟ Function Calcdate(ByVal vDate1 As Date, ByVal vdate2 As Date) As String On Error Resume Next Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 NY.Value = vYears NM.Value = vMonths ND.Value = vDays End Function جزاكم الله خيراً
  13. السلام عليكم ورحمة الله وبركاته وهل الدومين who.is الشهير تابع لإسرائيل IS rael ؟؟
  14. السلام عليكم ورحمة الله وبركاته أحسن الله إليك أخ MoHaMMaD Pro إذا كان الUltrasurf هكذا فما هو الVPN المفضل؟ وهل تنصح ألا يستخدم (المندسون) سوى الTor إذا خيروا بينه وبين الUltrSurf؟ بالنسبة لاختراق https فالمقصود ما يحصل عليه من تجسس من قبل المخدم وتوجيه صفحته إلى أخرى لاستلام المعلومات وقد حصل ذلك مع فيسبوك؟ أما كلامك عن أن كل التشفير ممكن فكه، أليس هذا نظرياً؟ وماذا عن خوارزميات: RSA وAES وT-DES؟ أخي الكريم تأكد أن معلوماتك ستنشر ويستفيد منها الآلاف إن شاء الله، فلا يبخل علينا من له خبرة بارك الله فيكم