نقل قول: فرمول تشخيص صحت كد ملي
سلام حامد جان
ایا این فرمول یک فرمول تعریف شده توسط ثبت احوال هست یا اینکه یک فرمول کلی برای شماره های 10 رقمی هست چون من هم یکسری بارکد 10 رقمی دارم که میخواهم اعتبار اونهارو ازمایش کنم که فرمولشون رو ندارم
نقل قول: فرمول تشخيص صحت كد ملي
نقل قول:
نوشته شده توسط
majjjj
سلام حامد جان
ایا این فرمول یک فرمول تعریف شده توسط ثبت احوال هست یا اینکه یک فرمول کلی برای شماره های 10 رقمی هست چون من هم یکسری بارکد 10 رقمی دارم که میخواهم اعتبار اونهارو ازمایش کنم که فرمولشون رو ندارم
سلام
كد ملي با باركد فرق داره، 3 عدد اول نشانه كد شهر، 6 عدد بعدي كد شخص و عدد آخر رقم كنترل هست و اين فرمول فقط براي كد ملي هست
نقل قول: فرمول تشخيص صحت كد ملي
خيلي عالي بود. برنامه ي كامپال شدش رو هم داريد؟
نقل قول: فرمول تشخيص صحت كد ملي
سلام
اين سورس تابع هست
كامپايلش كه ديگه كاري نداره
نقل قول: فرمول تشخيص صحت كد ملي
می شه برنامه شو بگذاری من سر در نمی آورم لطفا
نقل قول: فرمول تشخيص صحت كد ملي
نقل قول:
نوشته شده توسط
soheilbehro
می شه برنامه شو بگذاری من سر در نمی آورم لطفا
سلام
برنامش تو پست اول هست
اون تابع رو به برنامت اضافه كن و فراخواني كن، به همين سادگي
نقل قول: فرمول تشخيص صحت كد ملي
این هم لینک برنامه تشخیص صحت کد ملی و شماره شناسنامه های 10 رقمی میباشد
این برنامه کامپایل شده و با گرفیک خوب است
1 ضمیمه
نقل قول: فرمول تشخيص صحت كد ملي
این هم برنامه کمپایل شده همراه با سورس
نقل قول: فرمول تشخیص صحت کد ملی
اینم کد جاوا اسکريپت
function checkMelliCode(varmellicode)
{
var meli_code;
meli_code=varmellicode.value;
if (meli_code.length == 10)
{
if(meli_code==’1111111111′ ||
meli_code==’0000000000′ ||
meli_code==’2222222222′ ||
meli_code==’3333333333′ ||
meli_code==’4444444444′ ||
meli_code==’5555555555′ ||
meli_code==’6666666666′ ||
meli_code==’7777777777′ ||
meli_code==’8888888888′ ||
meli_code==’9999999999′ )
{
alert(”کد ملی صحیح نمی باشد”);
objcode.focus();
return false;
}
c = parseInt(meli_code.charAt(9));
n = parseInt(meli_code.charAt(0))*10 +
parseInt(meli_code.charAt(1))*9 +
parseInt(meli_code.charAt(2))*8 +
parseInt(meli_code.charAt(3))*7 +
parseInt(meli_code.charAt(4))*6 +
parseInt(meli_code.charAt(5))*5 +
parseInt(meli_code.charAt(6))*4 +
parseInt(meli_code.charAt(7))*3 +
parseInt(meli_code.charAt(8))*2;
r = n - parseInt(n/11)*11;
if ((r == 0 && r == c) || (r == 1 && c == 1) || (r > 1 && c == 11 - r))
{
return true;
}
else
{
alert(”کد ملی صحیح نمی باشد”);
objcode.focus();
return true;
}
}
else
{
return true;
}
نقل قول: فرمول تشخيص صحت كد ملي
چه جوري ميشه كد ملي اشخاص حقوقي رو چك كرد؟
آخه من يه برنامه نوشتم كه بر اساس شناسه اشخاص حقوقي (كد ملي) اطلاعات رو ذخيره مي كنه. فقط مي دونم بايد 11 رقمي باشه
نقل قول: فرمول تشخيص صحت كد ملي
نقل قول: فرمول تشخيص صحت كد ملي
نقل قول:
نوشته شده توسط
dev-dev-dev
معادل C# رو نداری ؟
سلام عليکم
در تالار سي شارپ سوالتان را بپرسيد(البته قبلش جستجو کنيد فکر کنم کد سي شارپ هم باشه)
به تاريخ پست ها هم نگاهي بندازيد.آخرين پست اين تاپيک دو سال قبل ايجاد شده!
موفق باشيد
نقل قول: فرمول تشخيص صحت كد ملي
نقل قول: فرمول تشخيص صحت كد ملي
Private Sub Command1_Click()
Dim A As Integer
Dim num As Long
Dim N As Long
Dim C As Integer
Dim L As Integer
A = Right(Text1.Text, 1) 'Çæáíä ÚÏÏ ÇÒ ÓãÊ
num = Left(Text1.Text, 9)
L = 2
For I = 1 To 9
If Len(Text1.Text) < 8 Then
A = MsgBox("National code numbers must be at least 8 digits", , "Error in entering the national code")
End If
If Text1.Text = "1111111111" Or Text1.Text = "2222222222" Or Text1.Text = "3333333333" Or Text1.Text = "4444444444" Or Text1.Text = "5555555555" Or Text1.Text = "6666666666" Or Text1.Text = "7777777777" Or Text1.Text = "8888888888" Or Text1.Text = "9999999999" Then
A = MsgBox("Error in entering the national code", , "worning")
End If
If Text1.Text = "1111111111" Or Text1.Text = "2222222222" Or Text1.Text = "3333333333" Or Text1.Text = "4444444444" Or Text1.Text = "5555555555" Or Text1.Text = "6666666666" Or Text1.Text = "7777777777" Or Text1.Text = "8888888888" Or Text1.Text = "9999999999" Then Exit For
If Len(Text1.Text) < 8 Then Exit For
N = num Mod 10
num = num \ 10
Z = N * L
Sum = Sum + Z
L = L + 1
Next
C = Sum Mod 11
If C < 2 And A = C Or C >= 2 And A = 11 - C Then Label1.Caption = "National code is correct" Else Label1.Caption = "National code is wrong"
End Sub
