اكتب الشفرة التالية:
اذا اردت عدم ظهور الكسور في النتيجة اكتب الشفرة التالية:
)Label6.Text =CInt( TextBox3.Text / 79500
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text = "0" Then
TextBox1.Clear()
Else
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
End If
End Sub
End Classاذا اردت عدم ظهور الكسور في النتيجة اكتب الشفرة التالية:
)Label6.Text =CInt( TextBox3.Text / 79500
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
