أكبر مكتبة للأكواد , أطلب ما تريد

ارغب في الحصول على كود يقوم بعملية الاتصال عن بعد (Remote Desktop Connection) وعرض شاشة العميل عندي

كيف استخدم هذا الكود

أخي الفاضل استخدم خاصية البحث قبل طرح طلبك ( هذا افضل لك )

رااااااجع هذه الروابط ...........

- دلـيـلك الأسرع فيه موضوع Remote Assistance للاخ هاوي مجموعة اسألة .. ومناقشة جدية للموضوع

- كـود Remote Desktop

- كيف افتح خصية Remote Desktop بواسطة VB6 ؟؟؟

اخي / Ala2 VB يوجد مكتبة اكواد متطوره بالسورس كود فيما تتحدث عنه في قسم برامج الاعضاء برنامج مكتبة اكواد اكثر من رائع! .........!!!!!!!!!!!!!!!

بالتوفيق .............

A7med_prof

أخي , شكراً لكم , لكن أنا عندي 1500 تقريباً كيف هأرفعهم , يعني أنا متقدم نوعاً ما على تلك المكتبة

أشكركم على المرور وأنتظر المزيد من الطلبات إخواني الأعزاء

وانا منتظر منكم رفع المكتبات دي وشكرا علي التفاعل الجميل ده وربنة يزيد ويبارك

اقتباس

وانا منتظر منكم رفع المكتبات دي وشكرا علي التفاعل الجميل ده وربنة يزيد ويبارك

أريد كود يقوم بتغيير إعدادات اللغة شكراً

اخي قم بتجزأت البرنامج على اجزاء لنتمكن من تحميلها

كيف أقسمه أخي الكريم ؟؟؟ صعبة العملية , مستحيل أقسمه لأنه "كتلة واحدة" ولا يمكنني رفعه لأنه كبير ويطول في الرفع و أنا لا مؤاخذة عايش في العصر الحجري وباستخدام الدايل أب

هههههههههههههه

عالعموم ...

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

شكراً

لا انت عاوز تعمل حدوته وخلاص

حاول من عند اي احد تعرفه اتصرف

لكن بالطريقه ديه

صدقنيه لن يكون هذا الموضوع له فائده عاليه

متزعلش كده أخي , انا دورت , لقيت كود بس بيفتح لوحة الخيارات الأقليمية وخيارات اللغة :

Private Sub command1_Click()
Dim rs As Double
rs = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl")
End Sub

ايه يا حج

انت مقرأتش طلبه كويس عاوز يغير !!!!!!!!!!!!!!!

أخي , أنا بحثت في الرجستري عن قيمة اللغة بجميع الصيغ لكن لم أجد

طيب وبعدين !!!

البرنامج الذي قمت يارفاقه سابقا شغال 100%

عارف أخي , بس لم أجد القيمة في الرجستري المسؤولة عن تغيير اللغة , أنا لقيت قيم تغيير الدولة , العملة , نظام التاريخ والوقت ....

لكن اللغة ربما مشفرة , تحتاج واحد دارس رجستري كويس عشان يطلعها

تمام صديقي

اعترفت الان

يلا يا عم حمرتلك الظرف ( بقى لونه احمر )

اقتباس

كيف أقسمه أخي الكريم ؟؟؟ صعبة العملية , مستحيل أقسمه لأنه "كتلة واحدة" ولا يمكنني رفعه لأنه كبير ويطول في الرفع و أنا لا مؤاخذة عايش في العصر الحجري وباستخدام الدايل أب

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

اقتباس

A7med_prof

اقتباس

أخي الفاضل استخدم خاصية البحث قبل طرح طلبك ( هذا افضل لك )

رااااااجع هذه الروابط ...........

- دلـيـلك الأسرع فيه موضوع Remote Assistance للاخ هاوي مجموعة اسألة .. ومناقشة جدية للموضوع

- كـود Remote Desktop

- كيف افتح خصية Remote Desktop بواسطة VB6 ؟؟؟ !

اخي / Ala2 VB يوجد مكتبة اكواد متطوره بالسورس

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

فالعنوان اكبر من المضمون <_<

لهذا سأعتذر منك لأني سأقوم بأغلاق الموضوع -_- اذا وجدت عدم فائدة منه فقد اصبحت الردود الموجوده فيه اكثر من الفائدة نفسها حيث سيظهر هذا الموضوع عند القيام بعملية بحث وهو لا يحوي الكثير من المعلومات فأتمنى ان تبدء بطرح ما لديك لتفادي ذلك

والسلام

أستعمل الـ Win RAR أو برنامج File Split لتقسيم البرنامج و أرفعه جزء جزء و ليكن جزء كل يوم ثم ضع روابطه , أو ضع رابط التحميل الذى حملت البرنامج منه أساسا أو أذكر أسم البرنامج و مصنعه قد يكون عند أحد الأخوة فيرفعه.

100 100 اخ HNHN

كمان محمد سيد 100 100

ده اللي انا بقوله

أخواني أنا قابلت مصمم البرنامج شخصياً وهو رجل سعودي اسمه محمد الغنيم

وسأحاول وضع أكواد إن شاء تعالى

لجعل صورك بدرجة شفافية معينة :

أنشأ 2 Picture Box

الكود :

Const AC_SRC_OVER = &H0
Private Type BLENDFUNCTION
	BlendOp As Byte
	BlendFlags As Byte
	SourceConstantAlpha As Byte
	AlphaFormat As Byte
End Type
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim BF As BLENDFUNCTION, lBF As Long
	Picture1.AutoRedraw = True
	Picture2.AutoRedraw = True
	Picture1.ScaleMode = vbPixels
	Picture2.ScaleMode = vbPixels
	With BF
		.BlendOp = AC_SRC_OVER
		.BlendFlags = 0
		.SourceConstantAlpha = 128
		.AlphaFormat = 0
	End With
	RtlMoveMemory lBF, BF, 4
	AlphaBlend Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, lBF
End Sub

لحل المعادلات

(X+Y)^2

أدرج مربع نص وزر أمر

الكود :

Dim Dummy1() As String, Dummy2() As String  'split the equation in text1
Dim Pt1 As Integer, Pt2 As Integer  '1st and 2nd part of equation
Dim Symbol As String	'symbol + or - used in the equation

Private Sub Command1_Click()
Cls
Call Find_Formulea(Text1.Text)
End Sub


Private Sub Text1_Change()
'Final equation after clearing all spaces.
'run this app and press space bar to see what happen
'or copy some text with spaces from some where else, paste it in the text box and see what happens.
Text1.Text = Get_Eq(Text1.Text)
End Sub

Private Function Get_Eq(Eq As String) As String
'this function filters spaces from the equation.
Dim Final_Eq As String
Dim x As Integer
For x = 1 To Len(Text1.Text)
If Mid$(Text1.Text, x, 1) <> " " Then
Final_Eq = Final_Eq & Mid$(Text1.Text, x, 1)
Else
End If
Next x
Get_Eq = Final_Eq
End Function

Private Function Find_Formulea(Eq As String) As String  'this function will verify the numercis or
'alpha numercis elements in the equation.
' this time only numercis are used

Call Square_Cube_Int(Pt1, Pt2) 'a call to numercis equation solving function.

End Function

Private Function Square_Cube_Int(Num1 As Integer, Num2 As Integer)
Call Split_Eq(Text1.Text)
Print "This formulea will be used to solve this equation."
Dim Equation As String
Dim x As Boolean
Equation = Get_Eq(Text1.Text)
If Mid$(Equation, Len(Equation) - 1, 2) = "^2" Then 'find square

	If Symbol = "+" Then '  a+b

	Print "' (a + b)^2 = a^2 + b^2 + 2ab '"
	'step by step solution of the equation
	Print "  (" & Num1 & " + " & Num2 & ")^2"
	Print "=(" & Num1 & ")^2 + (" & Num2 & ")^2 + 2(" & Num1 & "x" & Num2 & ")"
	Print "=" & Num1 ^ 2 & " + " & Num2 ^ 2 & " + 2 (" & Num1 * Num2 & ")"
	Print "=" & Num1 ^ 2 + Num2 ^ 2 & " + " & 2 * (Num1 * Num2)
	Print "=" & Num1 ^ 2 + Num2 ^ 2 + 2 * (Num1 * Num2)

	Else	'a-b


	Print "' (a - b)^2 = a^2 + b^2 - 2ab '"
	'step by step solution of the equation
	Print "  (" & Num1 & " - " & Num2 & ")^2"
	Print "=(" & Num1 & ")^2 + (" & Num2 & ")^2 - 2(" & Num1 & "x" & Num2 & ")"
	Print "=" & Num1 ^ 2 & " + " & Num2 ^ 2 & " - 2 (" & Num1 * Num2 & ")"
	Print "=" & Num1 ^ 2 + Num2 ^ 2 & " - " & 2 * (Num1 * Num2)
	Print "=" & Num1 ^ 2 + Num2 ^ 2 - 2 * (Num1 * Num2)
	End If

ElseIf Mid$(Equation, Len(Equation) - 1, 2) = "^3" Then 'find cube

	If Symbol = "+" Then '  a+b

	Print "  (" & Num1 & " + " & Num2 & ")^3"
	Print "write down step by step solution here."
	Else	'a-b


	Print "  (" & Num1 & " - " & Num2 & ")^3"
	Print "write down step by step solution here."
	End If

Else

Print "Sorry it is for you."

End If

End Function

Private Function Split_Eq(Eq As String)
'this function aparts the equation into two parts ie Pt1 and Pt2
'and set the value for Symbol variable in gen section
Dim Symb As Boolean
Symb = InStr(1, Text1.Text, "+", vbTextCompare) 'for a+b
If Symb = True Then
Dummy1 = Split(Text1.Text, "+")
Dummy1(0) = Replace$(Dummy1(0), "(", "")
Dummy1(1) = Replace$(Dummy1(1), ")", "")
Dummy2 = Split(Dummy1(1), "^")
Pt1 = Int(Dummy1(0))
Pt2 = Int(Dummy2(0))
Symbol = "+"
Else	'for a-b
Dummy1 = Split(Text1.Text, "-")
Dummy1(0) = Replace$(Dummy1(0), "(", "")
Dummy1(1) = Replace$(Dummy1(1), ")", "")
Dummy2 = Split(Dummy1(1), "^")
Pt1 = Int(Dummy1(0))
Pt2 = Int(Dummy2(0))
Symbol = "-"
End If
End Function

إذا لم يجد الكود فاكتب في التكست بوكس :

(24+25)^2

المقارنة بين جملتين :

أدرج زر أمر , وشلة مربعات نص

الكود :

Private Sub Command1_Click()
Value = StrComp(Text1.Text, Text2.Text)
If Value = -1 Then
Label3.Caption = " value = -1  first string < second string"
ElseIf Value = 1 Then
Label3.Caption = " value = 1  first string > second string"
Else
Label3.Caption = " value = 0  first string = second string"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1.FontBold = True
Text1.FontSize = 12
Text2.FontBold = True
Text2.FontSize = 12
Command1.Caption = "strcompare"
Command1.FontBold = True
Command1.FontSize = 12
Command2.Caption = "quit"
Command2.FontBold = True
Command2.FontSize = 12
Label1.FontBold = True
Label1.FontSize = 12
Label2.FontBold = True
Label2.FontSize = 12
Label1.Caption = "enter frist sting"
Label2.Caption = "enter second sting"
Label3.FontBold = True
Label3.FontSize = 12
Label3.Caption = ""
End Sub

ابغا 3 اكواد لsin , cos,tan لأني ابغا اعمل آلة حاسبة بلييييز مستعجل عليه