18-06-24, 01:58 AM
18-06-24, 07:11 AM
Dim n As Double = Rnd() * 4
TextBox1.Text = n.ToString("n1")
TextBox1.Text = n.ToString("n1")
18-06-24, 05:27 PM
جرب التالي
PHP كود :
Imports System
Imports System.Windows.Forms
Public Class Form1
Private rand As New Random()
' دالة لتوليد رقم عشوائي عشري بين حدود محددة
Private Function GenerateRandomDouble(lowerBounds As Double(), upperBounds As Double()) As Double
If lowerBounds.Length <> upperBounds.Length Then
Throw New ArgumentException("عدد الحدود الدنيا يجب أن يكون مساوياً لعدد الحدود القصوى")
End If
Dim index As Integer = rand.Next(lowerBounds.Length)
Dim lowerBound As Double = lowerBounds(index)
Dim upperBound As Double = upperBounds(index)
' توليد رقم عشوائي عشري بين الحدود المحددة
Dim randomValue As Double = lowerBound + (rand.NextDouble() * (upperBound - lowerBound))
Return randomValue
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' تحديد الحدود الدنيا والقصوى
Dim lowerBounds As Double() = {1.5, 3.2, 5.7, 8.4}
Dim upperBounds As Double() = {2.5, 4.3, 6.8, 9.9}
' توليد رقم عشوائي
Dim randomValue As Double = GenerateRandomDouble(lowerBounds, upperBounds)
' عرض الرقم العشوائي في ملف النص
TextBox1.Text = randomValue.ToString("F2") ' F2 لضبط عرض الرقم العشري بدقتين عشريتين
End Sub
End Class