• الإعلانات

    • فيصل الحربي

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

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

amr ragab

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

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

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

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

11 عادي

عن amr ragab

  • الرتبة
    عضو
  • تاريخ الميلاد 03/03/1989

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : egypt

طرق الإتصال

  1. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer For x = 0 To 9999999 If x.ToString.Length = 1 Then TextBox1.Text = TextBox1.Text & "079" & "000000" & x & vbNewLine ElseIf x.ToString.Length = 2 Then TextBox1.Text = TextBox1.Text & "079" & "00000" & x & vbNewLine ElseIf x.ToString.Length = 3 Then TextBox1.Text = TextBox1.Text & "079" & "0000" & x & vbNewLine ElseIf x.ToString.Length = 4 Then TextBox1.Text = TextBox1.Text & "079" & "000" & x & vbNewLine ElseIf x.ToString.Length = 5 Then TextBox1.Text = TextBox1.Text & "079" & "00" & x & vbNewLine ElseIf x.ToString.Length = 6 Then TextBox1.Text = TextBox1.Text & "079" & "0" & x & vbNewLine ElseIf x.ToString.Length = 7 Then TextBox1.Text = TextBox1.Text & "079" & x & vbNewLine End If Application.DoEvents() Next End Sub End Class
  2. شوف ده  و لو عاوز تطور حاجة اكتبها غير بس فى الملف Text   http://sdrv.ms/16TVk3u
  3. لو عندك اى افكار عاوز تضفها  فى  EntityFrameWork اكتبها و هنضفها ان شاء الله شكرا لك eiado
  4. مكتبة MicroCode هى مكتبة لتسهيل عمل المبرمجين حاولت انى اعمل فكرة تسهل العمل و تساعد المبرمجين  عملت مكتبة و هى dll بتضفها فى المشروع بتاعك و بتساعدك على الكثير من الاعمال منها ادخال بيانات الى قاعدة البيانات طبعا الكل يعرف كبر حجم كود ادخال البيانات من الاتصال و الكومند و البرامتر و غيرها كتير  ده مثال كود ادخال فى المكتبة   Filed.Add("UserId", Guid.NewGuid) Filed.Add("UserName", "Amr Ragab") Filed.Add("Email", "[email protected]") Filed.Add("Phone", "+2 01226536526") Filed.Add("Active", True) Insert("Users") و ده مثال تحديث   Filed.Add("UserName", "Amr Ragab") Filed.Add("Email", "[email protected]") Filed.Add("Phone", "+2 01226536526") Filed.Add("Active", True) Condition("UserId", 857, MicroCode.CnType.Equal) Update("Users") المكتبة دى مجانا  و لو عاوز تطلب اى حاجة او تضيف اى افكار اكتب فى المنتدى او فى  http://microcodenet.blogspot.com قم بتجمل ال dll من  http://microcodenet.blogspot.com   او من المرفقات
  5. مكتبة MicroCode هى مكتبة لتسهيل عمل المبرمجين حاولت انى اعمل فكرة تسهل العمل و تساعد المبرمجين  عملت مكتبة و هى dll بتضفها فى المشروع بتاعك و بتساعدك على الكثير من الاعمال منها ادخال بيانات الى قاعدة البيانات طبعا الكل يعرف كبر حجم كود ادخال البيانات من الاتصال و الكومند و البرامتر و غيرها كتير  ده مثال كود ادخال فى المكتبة Filed.Add("UserId", Guid.NewGuid) Filed.Add("UserName", "Amr Ragab") Filed.Add("Email", "[email protected]") Filed.Add("Phone", "+2 01226536526") Filed.Add("Active", True) Insert("Users")و ده مثال تحديث Filed.Add("UserName", "Amr Ragab") Filed.Add("Email", "[email protected]") Filed.Add("Phone", "+2 01226536526") Filed.Add("Active", True) Condition("UserId", 857, MicroCode.CnType.Equal) Update("Users")المكتبة دى مجانا  و لو عاوز تطلب اى حاجة او تضيف اى افكار اكتب فى المنتدى او فى  http://microcodenet.blogspot.com قم بتجمل ال dll من  http://microcodenet.blogspot.com   او من المرفقات  
  6. مشكله عند رفع الموقع

    عموم رسالة access is denied بتكون ال folder permissions و بتتعمل على السيرفر  قم بالتعديل فى صلاحيات المستخدم    اما لو السيرفر لوكل local   ف كليك يمين و اختار تاب ال  permissions  و ضيف ال Iis Users  
  7. ال HTML لغة ترقيمة و ليست برجمة لابد من لغة برمجة لعمل هذا   ممكن تستخدم الJavaScript  <script type="text/javascript" language="javascript"> function RunFile() { WshShell = new ActiveXObject("WScript.Shell"); WshShell.Run("c:/windows/system32/notepad.exe", 1, false); } </script>و مثال كامل  <html><head> <title>Application Executer</title> <HTA:APPLICATION ID="oMyApp" APPLICATIONNAME="Application Executer" BORDER="no" CAPTION="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" SCROLL="no" WINDOWSTATE="normal"> <script type="text/javascript" language="javascript"> function RunFile() { WshShell = new ActiveXObject("WScript.Shell"); WshShell.Run("c:/windows/system32/notepad.exe", 1, false); } </script></head><body> <input type="button" value="Run Notepad" onclick="RunFile();"/></body></html>
  8. Process.Start( App Path )
  9. انا بستخدم GeckoBrowser بدلا من الكنترول WebBrowser العادى  طبعا علشان الكنترول العادى فية مشاكل كتير  المهم انا عاوز محملش الصور و المديا علشان يكون اخف انا بحث كتير و مش لاقى حل لو حد يعرف اى شى عن الموضوع ياريت نتناقش فية
  10. مشكلة في RequiredFieldValidator

    اكتب ال ValidationGroup <%@ Page Language="VB" AutoEventWireup="false" CodeFile="ValidationForm.aspx.vb" Inherits="About_ValidationForm" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title> </title> </head> <body> <form id="form1" runat="server"> <div> <asp:TextBox ID="Name" runat="server" ValidationGroup="sub1" style="margin-left: 0px" Width="110px"></asp:TextBox>  <asp:RequiredFieldValidator ID="RequiredFieldValidator1" ValidationGroup="sub1" runat="server" ControlToValidate="Name" ErrorMessage="Enter Name">*</asp:RequiredFieldValidator> <br /> <br />    </div> <asp:Button ID="Send" ValidationGroup="sub1" runat="server" style="font-weight: 700; margin-left: 286px" Text="SendButton" Width="243px" /> </form> </body> </html>
  11. مشكلة في البحث بين تاريخين

    برجاء كتابة كلمة ال SELECT و على العموم على كلامك جرب الجملة دى مع مراعات ان ColSearch يكون الاتنين نفس العمود و اكتب اسم الجدول و اسم العمود الظاهر "SELECT ColName From TableName Where ColSearch='10/05/2012' Or ColSearch=' 01/05/2012'"
  12. تعديل الارقام في القريدفيو

    اكتب ده فى العمود <%# "966" + CType(Eval("اسم العمود"), Integer).ToString%>
  13. مشكله في الحذف والتعديل على gridview

    و انت بتحدد الجدول من قاعدة البيانات اللى مفتوحة من ال SqlDataSource عند جملة WHERE و كلمة ORDER By اختار Advanced و اعمل علامة صح على الخيارين و سوف تكتب جملة التحديث و الحذف
  14. جرب الكود ده لارسال لكل واحد على حسب جمل ال Select Dim DBConn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString) Dim DBCommand As SqlDataAdapter = New SqlDataAdapter("Select email from emailtable", DBConn) Dim DataSettable As New DataSet Dim I As Long DBCommand.Fill(DataSettable, "emailtable") For I = 0 To DataSettable.Tables("emailtable").Rows.Count - 1 'ده الايميل Dim mail As String = DataSettable.Tables("emailtable").Rows(I).Item("email") ' اكتب كود الارسال هنا Next بس الافضل و اللى انا بستخدم ببعت لكل المستخدمين مرة واحد علشان معالجة البيانات و عدد مرات الارسال هتاخد وقت كبير الكود ده افضل بيجمع كل الايميل و بيبعت مرة واحد اختر اللى يناسبك و بردو بحتك طبعا التحديد فى جملة ال Select Dim DBConn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString) Dim DBCommand As SqlDataAdapter = New SqlDataAdapter("Select email from emailtable", DBConn) Dim DataSettable As New DataSet Dim I As Long DBCommand.Fill(DataSettable, "emailtable") 'ده الايميل Dim allmail As String = Nothing For I = 0 To DataSettable.Tables("emailtable").Rows.Count - 1 allmail += DataSettable.Tables("emailtable").Rows(I).Item("email") + "," Next ' اكتب كود الارسال هنا
  15. كيف اعمل الارقام والحروف التي تتولد عشوائيا

    ده كود انا عملة بيعمل حروف متغيرة كل مرة Public Function ArabicName() As String Dim liter As New Random Dim arrylast As New ArrayList arrylast.Add("") arrylast.Add(" ") arrylast.Add("أ") arrylast.Add("ب") arrylast.Add("ت") arrylast.Add("ث") arrylast.Add("ج") arrylast.Add("ح") arrylast.Add("خ") arrylast.Add("د") arrylast.Add("ذ") arrylast.Add("ر") arrylast.Add("ز") arrylast.Add("س") arrylast.Add("ش") arrylast.Add("ص") arrylast.Add("ض") arrylast.Add("ط") arrylast.Add("ظ") arrylast.Add("ع") arrylast.Add("غ") arrylast.Add("ف") arrylast.Add("ق") arrylast.Add("ك") arrylast.Add("ل") arrylast.Add("م") arrylast.Add("ن") arrylast.Add("و") arrylast.Add("ى") Return arrylast.Item(liter.Next(2, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(2, 28)) End Function