Ölçme ve Değerlendirme Rastgele Değer Üreten Prosedür

4 views
Skip to first unread message

Hasan Gürsoy

unread,
May 17, 2011, 6:45:10 AM5/17/11
to marmarab...@googlegroups.com
Merhaba arkadaşlar,
Ölçme ve değerlendirme ödevi için aşağıdaki gibi bir makro kodladım. Bununla soruların doğru-yanlışlığını rastgele olarak atayabilirsiniz. Fakat uygulama genelde eşit sayıda 1 ve 0 ürettiğinden grafik ve sonuçlarda farklılık oluşturması için lütfen elle bazı sorularda/öğrencilerde daha çok bir veya daha çok sıfır giriniz.

Örnek uygulamayı http://dl.dropbox.com/u/8549949/MarmaraBOTE/2011.05.17-rastgele-deger-uret.xlsm adresinden indirebilirsiniz. Makroyu kullanmak için veriler sayfasında iken geliştirici sekmesinden RastgeleDegerUret isimli makroyu çalıştırın. Makroyu çalıştırabilmek için güvenliğin devre dışı bırakılmış olması gerekiyor.

Public Sub RastgeleDegerUret()
    Application.Calculation = xlCalculationManual 'Geçici olarak formül güncellemelerini devre dışı bırak
   
    Randomize
   
    Dim satir, sutun, Rastgele, Birler, Sifirlar As Integer
   
    For satir = 3 To 102
        For sutun = 2 To 41
            Rastgele = Math.Round(Rnd, 0)
            ActiveSheet.Cells(satir, sutun).Value = Rastgele
           
            If Rastgele = 1 Then Birler = Birler + 1 Else Sifirlar = Sifirlar + 1
        Next sutun
    Next satir
   
    Application.Calculation = xlCalculationAutomatic 'Formül güncellemelerini etkinleştir
    MsgBox ("Değerler güncellendi." & vbCrLf & vbCrLf & "Toplam 1: " & Birler & vbCrLf & "Toplam 0: " & Sifirlar)
End Sub

Selamlarımla
--

Hasan Gürsoy

unread,
May 17, 2011, 6:48:12 AM5/17/11
to marmaraböteİÖ2013
Link tekrardan:

http://dl.dropbox.com/u/8549949/MarmaraBOTE/2011.05.17-rastgele-deger-uret.xlsm
Reply all
Reply to author
Forward
0 new messages