• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

VB.NET yazı sallama ?

  • Konuyu başlatan Konuyu başlatan Xara
  • Başlangıç tarihi Başlangıç tarihi

Xara

Banlanmış Üye
Aktiflik
K.Tarihi
4 Eyl 2011
Mesajlar
211
Puanı
47
Konum
Kocaeli
Arkadaşlar a dan z ye toplam 6 haneli harfler oluşturup texbox1 e yazıcak nasıl yapabilirim örnek verirmisiniz ?
 
Textbox1 e 6 basamaklı sayı sallayacak örnek vericek olursak.

fıgkhr böyle kafasına göre her seferinde farklı sallıyacak mesela

fkhjth
ufkylg
psgrhj

gibi sallayacak
 
Dim x As String = "abcçdefgğhıijklmnoöprsştuüvyz"
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MsgBox(random(6))
End Sub
Function random(ByVal uzunluk As Integer)
Dim i As Integer
Dim stringrandom As String
For i = 1 To uzunluk
Randomize()
stringrandom += x.Substring(Int(Rnd() * 29), 1)
Next
Return stringrandom
End Function


En iyi yöntem değil ama idare eder :D
 
Dim x As String = "abcçdefgğhıijklmnoöprsştuüvyz"
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MsgBox(random(6))
End Sub
Function random(ByVal uzunluk As Integer)
Dim i As Integer
Dim stringrandom As String
For i = 1 To uzunluk
Randomize()
stringrandom += x.Substring(Int(Rnd() * 29), 1)
Next
Return stringrandom
End Function


En iyi yöntem değil ama idare eder :D

buda nesi :D baya karışıkmış bak aram pek yoktur öğrenmeye çalışıyorum yıllardır :D
 
Dim r As New Random
Dim harf As String
harf = ChrW(r.Next(Asc("A"), Asc("Z") + 1))
Label1.Text = Label1.Text & harf

Her seferinde yeni bir harf oluştrur. Emre abi'nin verdiği daha iyi bence.
 
Son düzenleme:



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
textbox1.text =random(6)
End Sub


Function random(ByVal uzunluk As Integer)
Dim x As String = "abcçdefgğhıijklmnoöprsştuüvyz"
Dim i As Integer
Dim stringrandom As String
For i = 1 To uzunluk
Randomize()
stringrandom += x.Substring(Int(Rnd() * 29), 1)
Next
Return stringrandom
End Function

şeklinde kullan. biraz daha açıym :D ;

PHP:
Function random(ByVal uzunluk As Integer)
Dim x As String = "abcçdefgğhıijklmnoöprsştuüvyz"
Dim i As Integer
Dim stringrandom As String
For i = 1 To uzunluk
Randomize()
stringrandom += x.Substring(Int(Rnd() * 29), 1)
Next
Return stringrandom
End Function

bu kodu ekle. sonra istediğin yerden 6 haneli üretmek için random(6) yazıp kullanabilirsin. label1.text = random(6) gibi mesela.

 
Son düzenleme:
Function random(ByVal uzunluk As Integer) şu satırda hata veriyor

Error 1 Statement is not valid in a namespace. diye bir hata
 
Private Function yap onu. Ben .net 4 ile asp.net'de denedim belki ondan farklıdır :D
 
Belki Bu İşine Yarar
Programdan Görüntü:
MJE1.png


Kodların resmi:
FHH1.png


not: kaynak kodları silinmiş uplandıgı siteden :(
 
Geri
Üst