█ VB Yardım - TextBox içine Random yazı yazdırma █

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb █ VB Yardım - TextBox içine Random yazı yazdırma █

Bu konudaki kullanıcılar: 1 misafir

9
Cevap 661
Tıklama 0
Öne Çıkarma

1. sayfa

█ VB Yardım - TextBox içine Random yazı yazdırma █

Cevap Yaz

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

Merhaba ,

Bir windows applicasyonu yaptım içerisinde bir adet TextBox var Bunun içersisine 8 - 10 karakter Random bastırmak istiyorum . yardımcı olabilecek olan varmı ?

 
   
  Public Class Form1 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          Timer1.Enabled = True 
      End Sub 
   
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
          Timer1.Enabled = False 
      End Sub 
   
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
          Me.Close() 
      End Sub 
   
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
          SendKeys.Send("{Enter}") 
          SendKeys.Send(TextBox1.Text) 
      End Sub 
   
       
  End Class

< Bu mesaj bu kişi tarafından değiştirildi kuafortr -- 1 Kasım 2014; 7:23:26 >

Gökşen PASLI

11 yıl

Yarbay

https://social.msdn.microsoft.com/Forums/vstudio/en-US/ef77dc83-2796-406f-a95d-4cbf82c2e431/vbnet-generate-a-random-string-of-numbers-and-letters?forum=vbgeneral

Bu mesaja 1 cevap geldi.

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: Gökşen PASLI

https://social.msdn.microsoft.com/Forums/vstudio/en-US/ef77dc83-2796-406f-a95d-4cbf82c2e431/vbnet-generate-a-random-string-of-numbers-and-letters?forum=vbgeneral

Burada sadece nasıl random karakter üretileceği yazıyor. Ben bunu TextBox içinde üretmek istiyorum . Yada üretilen random karakterleri send key ile basmak istiyorum .

Yinede teşekkürler .

Bu mesaja 1 cevap geldi.

Gökşen PASLI

11 yıl

Yarbay

orayı da şey yap textbox1.text=randomüretilen değer

Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @kuafortr

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: Gökşen PASLI

orayı da şey yap textbox1.text=randomüretilen değer

işte bende onu yapamadım ondan soruyorum. Ramdom üretmeyi biliyorum. Ama bunu TextBox ın içine yazacak şekilde yapamadım

Bu mesaja 1 cevap geldi.

Gökşen PASLI

11 yıl

Yarbay

düğmeye basınca mı tek seferlik textboxa random yazacak yoksa düğmeye basınca timerla her saniye rastgele yazı mı yazılaca textboxa

Bu mesaja 3 cevap geldi.

Bu mesajda bahsedilenler: @kuafortr

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: Gökşen PASLI

düğmeye basınca mı tek seferlik textboxa random yazacak yoksa düğmeye basınca timerla her saniye rastgele yazı mı yazılaca textboxa

düğmeye basınca timerla her saniye rastgele 10-20 haneli ABCDEFG........UVYZ alfabe harflerinden bastırmam gerekiyor

Gökşen PASLI

11 yıl

Yarbay

bi timer bi button birde textbox ekle

Imports System.Text
Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
timer1.Interval=1000
timer1.Start

End Sub

Sub Timer1Tick(sender As Object, e As EventArgs)

Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim r As New Random
Dim sb As New StringBuilder
For i As Integer = 1 To 8
Dim idx As Integer = r.Next(0, 35)
sb.Append(s.Substring(idx, 1))
Next

textBox1.Clear()
textBox1.Text=sb.ToString()

End Sub
End Class

Bu mesaja 1 cevap geldi.

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: Gökşen PASLI

bi timer bi button birde textbox ekle

Imports System.Text
Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
timer1.Interval=1000
timer1.Start

End Sub

Sub Timer1Tick(sender As Object, e As EventArgs)

Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim r As New Random
Dim sb As New StringBuilder
For i As Integer = 1 To 8
Dim idx As Integer = r.Next(0, 35)
sb.Append(s.Substring(idx, 1))
Next

textBox1.Clear()
textBox1.Text=sb.ToString()

End Sub
End Class

Malesef olmadı. 4 saattir uğraşıyorum, sizin dediğiniz gibi yeni bir proje açıp sadece timer buton ve textbox ekledim ve verdiğiniz kodları yapıştırdım ama hata alıyorum. ilgilendiğiniz için teşekkür ederim

kuafortr

11 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: Gökşen PASLI

düğmeye basınca mı tek seferlik textboxa random yazacak yoksa düğmeye basınca timerla her saniye rastgele yazı mı yazılaca textboxa

Yazdıklarınızın yardımı oldu ve hallettim . Teşekkür ederim

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb █ VB Yardım - TextBox içine Random yazı yazdırma █