-
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 Xara
- Başlangıç tarihi
Cottonmouth
Aileden
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
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
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
buda nesi
baya karışıkmış bak aram pek yoktur öğrenmeye çalışıyorum yıllardır Cottonmouth
Aileden
buda nesi
Olur olur sabır
Olur olur sabır
Eskiden azmı başını yerdim
kullanmayı bilmiyorum
Form aç. Emre abinin verdiği kodları Form1'in class'ına ekle.
Cottonmouth
Aileden
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
;
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 Functionbu 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:
Cottonmouth
Aileden
Private Function yap onu. Ben .net 4 ile asp.net'de denedim belki ondan farklıdır
