mahdi.manian
پنج شنبه 05 اردیبهشت 1392, 18:27 عصر
با سلام.
دوستان فرض کنید ما دو چک باکس داریم. می خواهیم بگیم که اگه چک باکس اول فعال بود یک سری کد و اگه چک باکس دوم فعال بود کد های دیگری اجرا شوند. این کد ها را نوشتم:
If Option6.Value = vbChecked Then
Select Case c
Case Is = 0
Text1.Text = a + Val(Text1.Text)
Case Is = 1
Text1.Text = a - Val(Text1.Text)
Case Is = 2
Text1.Text = a * Val(Text1.Text)
Case Is = 3
Text1.Text = a / Val(Text1.Text)
End Select
End If
If Option7.Value = vbChecked Then
Select Case c
Case Is = 0
reso = Val(a + Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 1
reso = Oct(a - Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 2
reso = Oct(a * Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 3
reso = Oct(a / Val(Text1.Text))
Text1.Text = Oct(reso)
End Select
End If
ولی جواب نمی دهد! البته وقتی شرط را بر می دارم درست میشه! مشکل از کجاست؟
یک سوال دیگه هم داشتم. تابعی مثل oct و hex که برای تبدیل به مبنای 8 و 16 هست، تابعی برای مبنای 2 وجود دارد؟ من وقتی binary() را می نویسم خطا داده میشه! چطوری باید استفاده کرد؟
یک سوال دیگه هم دارم.
من برای تبدیل عدد به مبنای 8 مشکلی ندارم ولی برای تبدیل عدد به مبنای 16 مشکل دارم! مشکل این است که a و b و c و d و e و f که در ماشین حساب هست را وارد می کنم توی عدد به صورت string حساب میشه و چطوری میشه این مشکل را حل کرد؟ در حقیقت کاری کنیم که برنامه a و.. را درست حساب کنه.
با تشکر.
دوستان فرض کنید ما دو چک باکس داریم. می خواهیم بگیم که اگه چک باکس اول فعال بود یک سری کد و اگه چک باکس دوم فعال بود کد های دیگری اجرا شوند. این کد ها را نوشتم:
If Option6.Value = vbChecked Then
Select Case c
Case Is = 0
Text1.Text = a + Val(Text1.Text)
Case Is = 1
Text1.Text = a - Val(Text1.Text)
Case Is = 2
Text1.Text = a * Val(Text1.Text)
Case Is = 3
Text1.Text = a / Val(Text1.Text)
End Select
End If
If Option7.Value = vbChecked Then
Select Case c
Case Is = 0
reso = Val(a + Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 1
reso = Oct(a - Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 2
reso = Oct(a * Val(Text1.Text))
Text1.Text = Oct(reso)
Case Is = 3
reso = Oct(a / Val(Text1.Text))
Text1.Text = Oct(reso)
End Select
End If
ولی جواب نمی دهد! البته وقتی شرط را بر می دارم درست میشه! مشکل از کجاست؟
یک سوال دیگه هم داشتم. تابعی مثل oct و hex که برای تبدیل به مبنای 8 و 16 هست، تابعی برای مبنای 2 وجود دارد؟ من وقتی binary() را می نویسم خطا داده میشه! چطوری باید استفاده کرد؟
یک سوال دیگه هم دارم.
من برای تبدیل عدد به مبنای 8 مشکلی ندارم ولی برای تبدیل عدد به مبنای 16 مشکل دارم! مشکل این است که a و b و c و d و e و f که در ماشین حساب هست را وارد می کنم توی عدد به صورت string حساب میشه و چطوری میشه این مشکل را حل کرد؟ در حقیقت کاری کنیم که برنامه a و.. را درست حساب کنه.
با تشکر.