تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة هل المكتوب في التكست حروف ام ارقام
#1
السلام عليكم
اريد معرفة المكتوب في تكست ارقام ام حروف

يعني يكون الكود بهذه الطريقة مثلا

اذا كان المكتوب في
text1.text ارقام ، وبعدين تنفيذ بقاية الجملة الشرطية عادي

واعتذر سؤال اخر بالنسبة لاداة الانترنت الي هي
Inet1

كيف اضع اللاتصال بموقع معين في جملة شرطية
يعني مثلا نقول اذا كان
Inet1 متصل بالموقع http://vb4arb.com نفذ هذا الامر علي سبيل المثال




بارك الله فيكم انتظر الاجابة
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- بالنسبة للسؤال الأول :
كود :
If IsNumeric(Trim$(Text1.Text)) = True Then
   MsgBox "المحتوى رقما"
Else
   MsgBox "المحتوى ليس رقما"
End If

- بالنسبة للسؤال الثاني . جرب هذا الكود . مع أني لم أستخدم هذه الأداة :
كود :
Private Sub command1_Click()
    With Inet1
        .URL = "http://ftp.kwikphp.com"
        .Protocol = icFTP
        .UserName = "My FTP username is here"
        .Password = "My FTP password is here"
        .RemoteHost = "ftp.kwikphp.com"
        .RemotePort = 21
        .Execute "ftp.kwikphp.com", "/htdocs/remmacs78/myfile.txt", "PUT", "C:\myfile.txt"
    End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone
LblStatus.Caption = "Connect Failed.... Error"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case ichostresolvinghost
LblStatus.Caption = "Looking for IP Address"
Case icHostResolved
LblStatus.Caption = "Found IP Address"
Case icConnecting
LblStatus.Caption = "Connecting"
Case icConnected
LblStatus.Caption = "Connected"
Case icRequesting
LblStatus.Caption = "Sending a Request"
Case icRequestSent
LblStatus.Caption = "Request Send Successfully"
Case icReceivingResponse
LblStatus.Caption = "Receiving Response"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case icDisconnecting
LblStatus.Caption = "Disconnecting"
Case icDisconnected
LblStatus.Caption = "Disconnected"
Case icError
MsgBox Inet1.ResponseCode & ":" & Inet1.ResponseInfo
LblStatus.Caption = "Error....!"
Case icResponseCompleted
LblStatus.Caption = "Response Completed"
End Select
If Inet1.StillExecuting = True Then
LblStillExecuting.Caption = "Still Executing"
Else
LblStillExecuting.Caption = "Execution Completed"
End If
End Sub

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك يا طيب
وجزاك الله خير
بالنسبة للسؤال الاول صحيح ويعمل

بالنسبة للسؤال الثاني لا يعمل وساوضح السؤال اكثر لان هذا الكود ليس المطلوب بارك الله فيك

انا الان يوجد تكست علي موقعي اريد ان استدعي هذا التكست وانا استخدم هذا الكود وهو يعمل جيدآ

PHP كود :
Dim A As String
Inet1.OpenURL("http://vb4arb.com/1.txt")
Text1.Text 

الان اريد ان اضع هذا الكود في جملة شرطية لاني ساضع اكثر من موقع
ويكون الكود اذا لم تتصل
Inet1 بالرابط الاول واضع بقاية الكود مثلا اتصل بالرابط الثاني او اي امر
اتمني يكون المطلوب واضح انتظر الاجابة بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- أخي الكود الخاص بالأداة يعمل جيدا . هذا مثال بكيفية إستخدامه .

- تحياتي .


الملفات المرفقة
.rar   Inet1_Example.rar (الحجم : 2.11 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك يا طيب وجزاك الله خير ان شاء الله في ميزان حسانتك

المثال يعمل جيدآ بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#6
VB_Coder كتب :السلام عليكم

- بالنسبة للسؤال الأول :
كود :
If IsNumeric(Trim$(Text1.Text)) = True Then
   MsgBox "المحتوى رقما"
Else
   MsgBox "المحتوى ليس رقما"
End If

- بالنسبة للسؤال الثاني . جرب هذا الكود . مع أني لم أستخدم هذه الأداة :
كود :
Private Sub command1_Click()
    With Inet1
        .URL = "http://ftp.kwikphp.com"
        .Protocol = icFTP
        .UserName = "My FTP username is here"
        .Password = "My FTP password is here"
        .RemoteHost = "ftp.kwikphp.com"
        .RemotePort = 21
        .Execute "ftp.kwikphp.com", "/htdocs/remmacs78/myfile.txt", "PUT", "C:\myfile.txt"
    End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone
LblStatus.Caption = "Connect Failed.... Error"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case ichostresolvinghost
LblStatus.Caption = "Looking for IP Address"
Case icHostResolved
LblStatus.Caption = "Found IP Address"
Case icConnecting
LblStatus.Caption = "Connecting"
Case icConnected
LblStatus.Caption = "Connected"
Case icRequesting
LblStatus.Caption = "Sending a Request"
Case icRequestSent
LblStatus.Caption = "Request Send Successfully"
Case icReceivingResponse
LblStatus.Caption = "Receiving Response"
Case icResponseReceived
LblStatus.Caption = "Response Received"
Case icDisconnecting
LblStatus.Caption = "Disconnecting"
Case icDisconnected
LblStatus.Caption = "Disconnected"
Case icError
MsgBox Inet1.ResponseCode & ":" & Inet1.ResponseInfo
LblStatus.Caption = "Error....!"
Case icResponseCompleted
LblStatus.Caption = "Response Completed"
End Select
If Inet1.StillExecuting = True Then
LblStillExecuting.Caption = "Still Executing"
Else
LblStillExecuting.Caption = "Execution Completed"
End If
End Sub

- تحياتي .
--------------------------------------------------------------------------
استاذي العزيز :VB_Coder
السلام عليكم ورحمة وبركاتة
كيف اشترط على المستخدم إدخال في text نص وليس رقماً ؟؟
نامل من اله ثم منكم الاجابة
والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

- جرب هذا الكود :

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim zNumbers As String
zNumbers="0123456789"
IF Instr(1,zNumbers,Chr(KeyAscii)) <> 0 Then
KeyAscii=0
Exit Sub
End IF
End Sub

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#8
لكم مني الف شكر وتقدير استاذي العزيز
على ما تقدمة لنا من دعم فني والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ماهو كود كتابة الحقل حروف عربية فقط alfakeeh 5 296 31-03-16, 09:26 PM
آخر رد: ahmed.m
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 508 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  معرفة ما اذا كان بالامكان عمل برنامج من دون سكيول سرفر AHMED213 3 803 29-08-13, 12:14 AM
آخر رد: AHMED213
  هل بالامكان معرفة اسم وعنوان الكائن اثناء التشغيل أبوالعباس 1 419 28-08-13, 02:13 PM
آخر رد: أبوالعباس
  برجاء معرفة تشغيل الاداة FPSPR70.ocx WAEL ABED 0 400 26-08-13, 04:23 AM
آخر رد: WAEL ABED
  تحويل الارقام الى حروف Convertir des chiffres en lettres derbaliammar 4 1,015 19-08-13, 09:39 PM
آخر رد: ولد رائع
  AccessPass معرفة كلمة سر قواعد البيانات derbaliammar 4 854 03-08-13, 06:21 AM
آخر رد: سعود
  مشكله عندى فى ترتيب التكست Yasso 13 1,483 31-07-13, 12:20 PM
آخر رد: VB_Coder
  ازاى اجعل التكست يقبل الرموز مثل "۞" ولا يحولها الى علامات ؟؟ Yasso 13 1,135 29-07-13, 04:50 AM
آخر رد: Yasso
  ارجو المساعدة في كود افراغ محتويات التكست بوكس علوش 4 581 26-07-13, 06:15 PM
آخر رد: refathafez

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم