منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > قسم Visual Basic 6 وما قبله > معرفة هل المكتوب في التكست حروف ام ارقام
نسخة كاملة : معرفة هل المكتوب في التكست حروف ام ارقام
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

مجاهد2010

15-04-13, 05:22 AM
السلام عليكم
اريد معرفة المكتوب في تكست ارقام ام حروف

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

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

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

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




بارك الله فيكم انتظر الاجابة

VB_Coder

15-04-13, 01:51 PM
السلام عليكم

- بالنسبة للسؤال الأول :
كود :
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

- تحياتي .

مجاهد2010

15-04-13, 10:55 PM
بارك الله فيك يا طيب
وجزاك الله خير
بالنسبة للسؤال الاول صحيح ويعمل

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

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

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

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

VB_Coder

16-04-13, 12:19 AM
السلام عليكم

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

- تحياتي .

مجاهد2010

16-04-13, 05:50 AM
بارك الله فيك يا طيب وجزاك الله خير ان شاء الله في ميزان حسانتك

المثال يعمل جيدآ بارك الله فيك

softmail8

18-04-13, 07:22 PM
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 نص وليس رقماً ؟؟
نامل من اله ثم منكم الاجابة
والله يحفظكم ويرعاكم

VB_Coder

18-04-13, 07:41 PM
السلام عليكم

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

كود :
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

- تحياتي .

softmail8

18-04-13, 11:43 PM
لكم مني الف شكر وتقدير استاذي العزيز
على ما تقدمة لنا من دعم فني والله يحفظكم ويرعاكم
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > قسم Visual Basic 6 وما قبله > معرفة هل المكتوب في التكست حروف ام ارقام