سه رقم سه رقم کردن تکس باکس و بر عکس

[moghadam1372]

سلام

با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")

چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود

[ASHKANLAEI]

این کد فقط عدد های تکست رو در نظر میگیره میتونی موقع جمع جای تکست باکس، از این تابع استفاده کنی:
Public Function Str_To_Int(MyString As Variant) As Long
Dim i As Integer
Dim X As Variant
If IsNull(MyString) Or MyString = "" Then
Str_To_Int = 0
Exit Function
End If
For i = 1 To Len(MyString)
If IsNumeric(Mid(MyString, i, 1)) = True Then
X = Nz(X, "") & Mid(MyString, i, 1)
End If
Next i
Str_To_Int = Nz(X, 0)
End Function

[moghadam1372]

سلام خسته نباشید من میخواهپم دو تکس باکس که اعداد داخل تکس سه رقم سه رقم جدا شده باهم جمع یا ضرب کنم

[ASHKANLAEI]

دوست عزیز کدی که من گذاشتم رو در کدتون قرار بدین و سپس هر موقع خواستین (برای مثال) جمع رو انجام بدین از کد زیر استفاده کنید:
Str_To_Int(TextBox1) + Str_To_Int(TextBox2)

[moghadam1372]

این کد فقط عدد های تکست رو در نظر میگیره میتونی موقع جمع جای تکست باکس، از این تابع استفاده کنی:
Public Function Str_To_Int(MyString As Variant) As Long
Dim i As Integer
Dim X As Variant
If IsNull(MyString) Or MyString = "" Then
Str_To_Int = 0
Exit Function
End If
For i = 1 To Len(MyString)
If IsNumeric(Mid(MyString, i, 1)) = True Then
X = Nz(X, "") & Mid(MyString, i, 1)
End If
Next i
Str_To_Int = Nz(X, 0)
End Function


nz چیست و ارور می دهد

[the king]

سلام

با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")

چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود


Private Sub Command1_Click()
Text1.Text = Format(1234567, "###,###,###")
Text2.Text = Format(234567, "###,###,###")
End Sub

Private Function ValEx(ByVal Text As String)
ValEx = Val(Replace(Text, Mid(Format(1111, "#,###"), 2, 1), ""))
End Function

Private Sub Command2_Click()
Text3.Text = Format(ValEx(Text1.Text) - ValEx(Text2.Text), "###,###,###")
End Sub

[vebcir]

سلام من میخوام یک تایمر قرار بدم و مکرر بررسی کنه که مقلا اگر جمله ای نوشت که کلمه hi توی تکست باکس نوشته بود برنامه رو ببنده لطفا راهنمایی کنید
ممنون از اساتید محترم

[ASHKANLAEI]

از تابع InStr استفاده کنید و اگر مقدارش بیش از صفر بود یعنی وجود دارد در این صورت با End برنامه را ببندید.
position = InStr(1, stringToSearch, stringToFind)

[vbhamed]

سلام

با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")

چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود


Private Function num(s As String)


num = Val(Replace$(s, ",", ""))


End Function


Private Sub Form_Load()


MsgBox num(Text1) * num(Text2)


End Sub

[the king]

Private Function num(s As String)


num = Val(Replace$(s, ",", ""))


End Function


Private Sub Form_Load()


MsgBox num(Text1) * num(Text2)


End Sub


تابع Format برای انتخاب کاراکتر های مورد استفاده به تنظیمات Region and Language ویندوز رجوع میکنه، به همین جهت نمیشه تضمین کرد حتما در رشته خروجی Format کاراکتر جداکننده Comma باشه.

151249

مثلا در تنظیمات زبان آذربایجانی (Azeri Azerbaijan) از کاراکتر space به عنوان جداکننده استفاده می کنند. یا در زبان پشتو افغانستان از کاراکتر ، استفاده میشه.
البته در اغلب سیستم ها همون کاراکتر Comma جداکننده ارقام خواهد بود و مشکلی پیش نخواهد اومد.

[vbhamed]

تابع Format برای انتخاب کاراکتر های مورد استفاده به تنظیمات Region and Language ویندوز رجوع میکنه، به همین جهت نمیشه تضمین کرد حتما در رشته خروجی Format کاراکتر جداکننده Comma باشه.

151249

مثلا در تنظیمات زبان آذربایجانی (Azeri Azerbaijan) از کاراکتر space به عنوان جداکننده استفاده می کنند. یا در زبان پشتو افغانستان از کاراکتر ، استفاده میشه.
البته در اغلب سیستم ها همون کاراکتر Comma جداکننده ارقام خواهد بود و مشکلی پیش نخواهد اومد.

سلام
همونطور که خودتون گفتید کسی معمولا نمیاد این چیزا رو تغییر بده،‌همونطور که من الان بیشتر از 20 ساله برنامه هام دست کلی مشتریه و تابحال حتی یک مورد چنین مشکلی گزارش نشده
ضمنا به زبان عربی و انگلیسی هم برنامه در خارج از کشور کار میکنه
بنابراین به راحتی میتونید این مورد رو نادیده بگیرید ولی اگر خیلی حساس بودین هم میتونید تنظیمات Control Panel رو بخونین و طبق اون کاراکتر رو حذف کنین

[ASHKANLAEI]

ولی اگر خیلی حساس بودین هم میتونید تنظیمات Control Panel رو بخونین و طبق اون کاراکتر رو حذف کنیندوست عزیز فکر میکنم واژۀ محکم کاری از واژۀ حساسیت​ مناسب تر باشه.