Şimdi Ara

Visual Basic Random Text Generator Yardim

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü1 Mobil
5 sn
7
Cevap
0
Favori
426
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
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

    < Bu ileti mobil sürüm kullanılarak atıldı >







  • 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
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.