Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Araçlar
  • Bu Konuda
Şimdi Ara

Visual Basic Random Text Generator Yardim

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
266
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • https://m.youtube.com/watch?v=vLGYw4yK6gQ

    Videoyu takip ederek bir exe dosyasi olusturdum fakat exeyi her acisimda ayni kelimeden basliyor ve sirasi ile takip ediyor.

    Yapmak istedigim ise su; butona her tikladigimda daha onceden belirlenmis kelimeler arasindan rastgele secip ekranda gosternek.
    Exe her calistiginda mutlaka farkli bir kelimeden baslamali ve siralama kesinlikle karisik olmali.
    Deneyip basariz oldugum kod ise sudur ;

    TextBox1.Text = Int(Rnd() * 4)
    Select Case TextBox1.Text
    Case 0
    TextBox1.Text = "KEY"
    Case 1
    TextBox1.Text = "1KEY"
    Case 2
    TextBox1.Text = "2KEY"
    Case 3
    TextBox1.Text = "3Key"
    End Select







  • formülü şöyle kullanın
    ustsayi = 3
    altsayi = 0
    TextBox1.Text = Int((ustsayi - altsayi + 1) * Rnd + altsayi)

    başlangıçta her seferinde farklı random sayı elde etmek için kodların başına
    Randomize Timer
    satırını ekleyin.
    not VB kurulu olmadığı için kodları excel vba da denedim. vb de farklı olabilir



    < Bu mesaj bu kişi tarafından değiştirildi akcan -- 4 Temmuz 2018; 10:12:11 >
  • akcan kullanıcısına yanıt
    Teşekkürler. Hemen deniyorum. Sonucu paylaşırım.
  • quote:

    Orijinalden alıntı: akcan

    formülü şöyle kullanın
    ustsayi = 3
    altsayi = 0
    TextBox1.Text = Int((ustsayi - altsayi + 1) * Rnd + altsayi)

    başlangıçta her seferinde farklı random sayı elde etmek için kodların başına
    Randomize Timer
    satırını ekleyin.
    not VB kurulu olmadığı için kodları excel vba da denedim. vb de farklı olabilir
    Randomize(Timer)
    ustsayi = 3
    altsayi = 0
    TextBox1.Text = Int((ustsayi - altsayi + 1) * Rnd() + altsayi)

    Select Case TextBox1.Text
    Case 0
    TextBox1.Text = "KEY"
    Case 1
    TextBox1.Text = "1KEY"
    Case 2
    TextBox1.Text = "2KEY"
    Case 3
    TextBox1.Text = "3Key"
    End Select

    Bu şekilde denedim hata veriyor. Randomize timer i kaldırdığımda da sonuç aynı




  • Vb yerine c# da şöyle bir konu buldum. İşime yarıyor.

    namespace WindowsFormsApplication1
    {
    public partial class Form1 : Form
    {
    public Form1()
    {
    InitializeComponent();
    }

    private void button1_Click(object sender, EventArgs e)
    {
    int adet = listBox1.Items.Count;
    Random rnd = new Random();
    int sayi = rnd.Next(0,adet);
    listBox1.SelectedIndex = sayi;
    }

    private void button3_Click(object sender, EventArgs e)
    {

    }

    private void button2_Click(object sender, EventArgs e)
    {

    }
    }
    }


    Şimdi Button 3 e Listbox da seçmiş olduğu kelimeyi ctrl +c yapmasını sağlamak

    Button 2 ye exe dosyasını kapatmasını sağlamak kaldı.
  • public partial class Form1 : Form
    {
    public Form1()
    {
    InitializeComponent();
    }

    private void button1_Click(object sender, EventArgs e)
    {
    int adet = listBox1.Items.Count;
    Random rnd = new Random();
    int sayi = rnd.Next(0, adet);
    listBox1.SelectedIndex = sayi;
    }

    private void button3_Click(object sender, EventArgs e)
    {
    Application.Exit();
    }

    private void button2_Click(object sender, EventArgs e)
    {
    BURAYA HANGİ KOD GELMELİ Kİ LİSTEDEN SEÇTİĞİ YAZIYI CTRL C YAPSIN?
    }
    }
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız