Şimdi Ara

Rastgele İsim Yazdırma

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
514
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Merhabalar. Ben kendim için bir program hazırladım. Bu programın amacı benim girdiğim dizi isimlerinden birini rastgele seçip label'e yazdırması. İnternette aradım ama bulamadım. Rastgele sayı var ama isim yok. Ben bir çözüm buldum ama daha kısa yolu var mı diye merak ettim. Şimdi benim kullandığım yöntem şu: önce bilgisayara 1-6 arasında rastgele bir sayı seçtirdim. Sonra o sayılara harfli değerler verdim. O harfleri de bilgisayara string olarak tanıttım ve harflerin değerlerini verdim. Ör: dim s as string --> s="Stitchers" gibi. Bu 6 tane olduğu için fazla uğraştırmadı beni ama yine de kısa yöntemi varsa paylaşır mısınız? Aşağıda kodların resmi var.
     Rastgele İsim Yazdırma







  • Kısa yolu şöyle var;

    Dim array() As String = {"dizi1", "dizi2", "dizi3", "dizi4", "dizi5", "dizi6"} 

    ' Sonra rastgele sayıyı atıp

    Label1.Text = array(RASTGELESAYISONUCU)



    < Bu mesaj bu kişi tarafından değiştirildi welrocken -- 30 Temmuz 2015; 9:12:59 >
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.