Rastgele dağıtım ile ilgili yardım istiyorum

mubarzer
02-05-2011, 22:29   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
6 mesaj
Kayıt Tarihi:Kayıt: May 2011

 

Merhaba arkadaşlar! Vb6 ile ders dağıtım programı yapmaya çalışıyorum. Uzun süredir araştırıyorum. Anladığım kadarıyla randomize kullanımı gerekiyor. Genellikle rasgele sayı üretimi için kullanım örnekleri verilmiş. Bu örnekleri baya kurcaladım ama bir türlü kendi amacıma uygun hale dönüştüremedim. Bu konuyla ilgili yardıma ihtiyacım var. Veritabanı nasıl olmalı? Öğretmenlerin, öğrencilerin, sınıfların belirli koşulları olacak tabii. Bunlara göre rastgele veri çekme ve atama için nasıl bir yol izlemeliyim? Yardımcı olursanız sevinirim. Şimdiden çok teşekkür ederim...

censez41
02-05-2011, 22:38   |  #2  
censez41 avatarı
Yıllanmış Üye
Teşekkür Sayısı: 2
1,705 mesaj
Kayıt Tarihi:Kayıt: Nis 2009

Private Sub Command1_Click()
Randomize Timer


ZAR = Int(5 * Rnd(1) + 1)

 MsgBox ("GELEN ZAR " + Str$(ZAR))
End Sub


bu programda  1 ile 6 arasında rastlansal sayılar gelir
sorun için yardımı olabilir.

mubarzer
02-05-2011, 22:59   |  #3  
OP Taze Üye
Teşekkür Sayısı: 0
6 mesaj
Kayıt Tarihi:Kayıt: May 2011

Hocam teşekkür ederim. Yalnız verdiğiniz örnek rastgele sayı üretimi ile ilgili sanırım. Bu tip örnekler bulmuştum ama basic bilgim o kadar iyi olmadığı için herhalde yorumlayıp kendime uygun hale getiremedim. Benim istediğim veritabanındaki kayıtları tabloya rastgele bir şekilde dağıtmak. Yine de çok teşekkür ederim...

Blur
03-05-2011, 15:08   |  #4  
Yeni Üye
Teşekkür Sayısı: 0
30 mesaj
Kayıt Tarihi:Kayıt: May 2010

Dim zar As Integer
        Randomize()
        zar = Rnd() * 10
        MsgBox(zar)
'Bu kod sana rastgele 0 dan 10 kadar sayılar üretecektir. 
'Eğer zar'ın değeri 0 ise matematik dersi olsun.

        If zar = 0 Then
            Me.Text = "mat"
        End If

mubarzer
06-05-2011, 23:26   |  #5  
OP Taze Üye
Teşekkür Sayısı: 0
6 mesaj
Kayıt Tarihi:Kayıt: May 2011

Verdiğiniz fikir için çok teşekkür ederim üzerinde çalışıyorum büyük ihtimalle olacak istediğim. Teşekkürler...

Blur
08-05-2011, 12:18   |  #6  
Yeni Üye
Teşekkür Sayısı: 0
30 mesaj
Kayıt Tarihi:Kayıt: May 2010

Birşey deil Umarım başarırsınız :D