Bugün sizlerle basit bir bilet numarası oluşturma ve kaydetme programını paylaşmak istiyorum. Bu program, 10 adet altı basamaklı bilet numarası oluşturuyor ve bunları bir metin dosyasına kaydediyor. Ayrıca, oluşturulan bilet numaralarının ortalamasını alarak bir "FİNAL BİLET NUMARASI" hesaplıyor.
Programın çalışma mekanizmasının ayrıntıları (Programın İşleyişi yada tasarımı) :
1.Rastgele Sayı Üretimi:
Program, rastgele sayı üretmek için Randomize komutunu kullanarak başlangıç değerini ayarlıyor. Bu, her çalıştırmada farklı bilet numaraları elde etmemizi sağlıyor.
2.Bilet Numaralarının Oluşturulması:
2a.10 adet bilet numarası oluşturmak için bir döngü kullanılıyor.
2b.Her bilet numarası, 0 ile 8 arasında rastgele seçilen rakamların bir fazlası ile oluşturuluyor. Yani, sonuçta her bilet numarası 1 ile 9 arasında rakamlar içeriyor.Bu benim gerçek hayatta "milli piyango" bileti seçme kriterimdir.
3.Sonuçların Gösterimi:
Oluşturulan bilet numaraları, kullanıcıya bir mesaj kutusunda gösteriliyor. Bu sayede, kullanıcı hemen sonuçları görebiliyor.
4.FİNAL BİLET NUMARASI Hesaplama:
4a.Tüm bilet numaralarının toplamı hesaplanıyor.
4b.Toplamın ortalaması alınarak tam kısmı "FİNAL BİLET NUMARASI" olarak belirleniyor. Bu, bilet numaralarının genel bir değerlendirmesini sağlıyor.
5.Sonuçların Kaydedilmesi:
Oluşturulan bilet numaraları ve FİNAL BİLET NUMARASI, kullanıcının masaüstünde bir metin dosyasına kaydediliyor. Böylece, kullanıcı bu bilgileri daha sonra inceleyebiliyor.
6.Kullanıcıya Bilgilendirme:
Program, bilet numaralarının ve FİNAL BİLET NUMARASI'nın kaydedildiği dosyanın yolunu gösteren bir mesaj kutusu açıyor. Bu, kullanıcıya işlemin başarıyla tamamlandığını bildiriyor.
Özetle;
Bu program, basit bir şekilde rastgele bilet numaraları oluşturmak ve bunları kaydetmek için oldukça kullanışlı. Eğer siz de benzer bir şey yapmak isterseniz, kodu inceleyebilir ve kendi ihtiyaçlarınıza göre uyarlayabilirsiniz.
Final Bilet Numarası.vbs Betiğinin Kod İçeriği :
Kod: Tümünü seç
' 10 adet altı basamaklı bilet numarası oluşturma
Dim ticketNumbers
Dim i, j
Dim outputFilePath
Dim fso, outputFile
Dim finalTicketNumber
Dim totalSum
' Rastgele sayı üreteci için başlangıç değeri ayarla
Randomize
' Bilet numaralarını saklamak için dizi oluştur
ReDim ticketNumbers(9)
' 10 adet bilet numarasını oluştur
For i = 0 To 9
Dim ticketNumber
ticketNumber = ""
' 0'dan 8'e kadar olan rakamları kullanarak bilet numarasını oluştur
For j = 0 To 5
' Rastgele bir rakam seç (0-8 arası)
Dim randomDigit
randomDigit = Int(Rnd() * 9) ' 0 ile 8 arasında rastgele rakam
' Seçilen rakamın bir fazlasını ekle
ticketNumber = ticketNumber & (randomDigit + 1)
Next
' Oluşturulan bilet numarasını diziye ekle
ticketNumbers(i) = ticketNumber
Next
' Çıktıyı bir mesaj kutusunda göster
Dim outputMessage
outputMessage = "Oluşturulan bilet numaraları:" & vbCrLf
For i = 0 To 9
outputMessage = outputMessage & ticketNumbers(i) & vbCrLf
Next
' FİNAL BİLET numarasını hesapla
totalSum = 0
For i = 0 To 9
totalSum = totalSum + CLng(ticketNumbers(i)) ' CInt yerine CLng kullanıldı
Next
' Ortalama hesapla ve tam kısmını al
finalTicketNumber = Int(totalSum / 10) ' Ondalık kısmı atmak için Int kullanıldı
' FİNAL BİLET numarasını mesaj kutusunda göster
outputMessage = outputMessage & vbCrLf & "FİNAL BİLET NUMARASI: " & CStr(finalTicketNumber)
MsgBox outputMessage
' Masaüstüne kaydetme
outputFilePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\bilet_numaralari.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set outputFile = fso.CreateTextFile(outputFilePath, True)
' Bilet numaralarını dosyaya yaz
For i = 0 To 9
outputFile.WriteLine ticketNumbers(i)
Next
' FİNAL BİLET numarasını dosyaya yaz
outputFile.WriteLine "FİNAL BİLET NUMARASI: " & CStr(finalTicketNumber)
' Dosyayı kapat
outputFile.Close
' Kullanıcıya bilgi ver
MsgBox "Bilet numaraları ve FİNAL BİLET NUMARASI masaüstüne kaydedildi: " & outputFilePath
not: Ta...!!! Windows XP zamanından beridir kullandığım, şimdi ki zamana göre ilkel, zamanına göre iyi bir metin düzenleyicisi...
