Функция RND - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! На одном компьютере при загрузке формы получаем случайно число: Int(Rnd * 1000000) На другом компьютере при открытии этой же формы получаем случайное число. Вопрос почему на 2 разных компьютерах числа синхронно совпадают хоть 2 разных ПК, но считает получается одинаково, как избежать данной ситуации?

Решение задачи: «Функция RND»

textual
Листинг программы
       Option Explicit
 
      Private Declare Function GetTempPath Lib "kernel32" _
         Alias "GetTempPathA" (ByVal nBufferLength As Long, _
         ByVal lpBuffer As String) As Long
 
      Private Declare Function GetTempFileName Lib "kernel32" _
         Alias "GetTempFileNameA" (ByVal lpszPath As String, _
         ByVal lpPrefixString As String, ByVal wUnique As Long, _
         ByVal lpTempFileName As String) As Long
 
      Private Function CreateTempFile(sPrefix As String) As String
         Dim sTmpPath As String * 512
         Dim sTmpName As String * 576
         Dim nRet As Long
 
         nRet = GetTempPath(512, sTmpPath)
         If (nRet > 0 And nRet < 512) Then
            nRet = GetTempFileName(sTmpPath, sPrefix, 0, sTmpName)
            If nRet <> 0 Then
               CreateTempFile = Left$(sTmpName, _
                  InStr(sTmpName, vbNullChar) - 1)
            End If
         End If
      End Function
 
      Private Sub Command1_Click()
         Dim sTmpFile As String
         Dim sMsg As String
         Dim hFile As Long
 
         sTmpFile = CreateTempFile("VBT")
         hFile = FreeFile
 
         Open sTmpFile For Binary As hFile
            Put #hFile, , "This is a test. 1234"
         Close hFile
 
         sMsg = "Temp FileName: " & sTmpFile & vbCrLf
         sMsg = sMsg & "File Length: " & FileLen(sTmpFile) & vbCrLf
         sMsg = sMsg & "Time Created: " & _
            Format$(FileDateTime(sTmpFile), "long time") & vbCrLf
 
         MsgBox sMsg, vbInformation, "TempFile"
 
         Kill sTmpFile
      End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы