Rastgele Sayı ve harf

romanci · 9 Mayıs 2007

Bir etiket kutusu içine 4 basamaklı bir kod üretmek istiyorum. Ancak bu kod harf ve rakamlardan oluşsun.

Yani, 4A5D gibi

ve bu kodda herzaman ilk karakter rakam, ikinci karakter harf, üçüncüsü Rakam
ve dördüncüsüde harf olsun.

randomize komutuyla sadece rakam üretebiliyorum, ben aynı etiket kutusunda harf ve rakamlar olsun istiyorum bir türlü yapamadım. Yardımcı olursanız sevinirim.

rakamlar 0 9 arası, harfler ise A Z arası olacak, XQW de olabilir tabii.

attila52 · 9 Mayıs 2007

sayın romancı buna benzer bir yazılım vardı fakat onu parçalayıp atmam biraz zaman alacak belki bu arada başka bir fikir gelebilir eğer zaman varsa yardımcı olmaya çalışırım

romanci · 9 Mayıs 2007

zaman var elbette yaptığım çalışma sadece sayı üretiyor ve işimi görüyor, ancak başka bir çalışmamda harf sayı olayı var, ne kadar erken olursa bende çalışmamı yapmaya başlarım, bu özellik olmadan başlayamıyor tabloları yarım yamalak yapmaktayım.

Emeğim boşa gitsin istemiyorum.

İlgine teşekkür ederim arkadaşım

omerceri · 9 Mayıs 2007

İlk defa goto kullanıyorum. Biraz denedim sorun çıkmadı.
Sub a()
Line1:
a1 = Int((90 * Rnd) + 1)
If a1 >= 65 And a1 <= 90 Then
b1 = Chr(a1)
Else
GoTo Line1:
End If

Line2:
a2 = Int((90 * Rnd) + 1)
If a2 >= 65 And a2 <= 90 Then
b2 = Chr(a2)
Else
GoTo Line2:
End If

b3 = Int((9 * Rnd) + 1)
b4 = Int((9 * Rnd) + 1)

MsgBox b1 & b3 & b2 & b4

End Sub

romanci · 9 Mayıs 2007

Değerli ömerceri,

access veritabanı için istemiştim bu çalışmayı, siz sanırım excelde yaptınız, teşekkür ederim

modalı · 9 Mayıs 2007

Sayın romanci,

Yanılıyorsunuz. Yazılmış olan bir yordam. İstediğiniz bir noktadan çağırabilirsiniz. Sayın omerceri nin çalışmasında bir mesaj kutusuna atanıyor istediğiniz kod. Siz gerekli düzeltmeyi yapabilirsiniz.

Yani kod oluşmasını itediğiniz olaydan

Kod:

 Call Sub a()

yı çağıracaksınız ve koddaki

Kod:

MsgBox b1 & b3 & b2 & b4

satırını

Kod:

Me.Etiket1= b1 & b3 & b2 & b4

ile değiştirin.

İyi çalışmalar

romanci · 10 Mayıs 2007

Sayın Modalı, uyarınıza teşekkür ederim, bende üzerinde çalışıyordum zaten, o kodları biraz daha geliştirerek çoklu şeçime çevirmiştim.

İlginize teşekkür ederim, Call komutunu bilmedende olsa kullanarak çalıştırdım

romanci · 10 Mayıs 2007

bir şey sormak istiyorum, Call Sub a() komutu yerine,
Public Function a() As Long fonksiyonu ile çalıştırmak mümkün mü, bunun üzerine çalışıyorumda çözemedim.

romanci · 10 Mayıs 2007

Bu hale getirdim biraz daha çaba sarf edersem olacak galiba, fikirlerinizi ve yardımlarınızı bekliyorum

yeni54 · 10 Mayıs 2007

gerçi sorun çözülmüş ama değişik bir şifre üretme olarak kullanılabilecek bir
fonksiyonu, arşivde bulunması için ekleyeyim dedim.

Private Function Sifre_Uret(sayi As Byte) As String

Dim karakterler As String
Dim klen As Byte
Dim str As String

karakterler = "0123456789ABCDEFGHIJKLMNOPRQSTUVYZabcdefghijklmnoprqstuvyz!'^$%&/{([)]=}*?\-_"
klen = Len(karakterler)
str = ""

Randomize
While (Len(str) < sayi)
str = str & Mid(karakterler, Int(Rnd * klen) + 1 Mod klen, 1)
Wend

Sifre_Uret = str

End Function

kullanımı : msgbox Sifre_Uret(8) gibi olabilir.

romanci · 10 Mayıs 2007

sayın, yeni 54 ,
sizin yazdığınız kodu çalıştıramadım, kafam herhalde durdu gecenin bu saatinde

yeni54 · 10 Mayıs 2007

dosyanızın yeni hali ekte...

yeni54 · 10 Mayıs 2007

demin 7z ile sıkıştırmıştım. ama upload listesinde yokmuş 7z. eklenemez mi?

omerceri · 10 Mayıs 2007

Aşağıdaki Function kodunu modül sayfasına
Function a()
Line1:
a1 = Int((90 * Rnd) + 1)
If a1 >= 65 And a1 <= 90 Then
b1 = Chr(a1)
Else
GoTo Line1:
End If
Line2:
a2 = Int((90 * Rnd) + 1)
If a2 >= 65 And a2 <= 90 Then
b2 = Chr(a2)
Else
GoTo Line2:
End If
b3 = Int((9 * Rnd) + 1)
b4 = Int((9 * Rnd) + 1)
Function = b1 & b3 & b2 & b4
End Function
Aşağıdaki kodu da düğmenin click olayına yazarsan
Private Sub ŞifreDüğmesi_Click()
ŞifreDüğmesi.Value = a()
End Sub

romanci · 17 Mayıs 2007

sayın atilla 52, bu konuyla ilgili bir örnek gönderecektiniz ama hala göndermediniz, ben arkadaşlarında yardımıyla sorunu çözdüm ama elinizdeki programı görmek isterim, belki yeni fikirler geliştirmemize faydası olur.

senbilme · 13 Mayıs 2012

yeni54' Alıntı:
gerçi sorun çözülmüş ama değişik bir şifre üretme olarak kullanılabilecek bir
fonksiyonu, arşivde bulunması için ekleyeyim dedim.

Private Function Sifre_Uret(sayi As Byte) As String

Dim karakterler As String
Dim klen As Byte
Dim str As String

karakterler = "0123456789ABCDEFGHIJKLMNOPRQSTUVYZabcdefghijklmnoprqstuvyz!'^$%&/{([)]=}*?\-_"
klen = Len(karakterler)
str = ""

Randomize
While (Len(str) < sayi)
str = str & Mid(karakterler, Int(Rnd * klen) + 1 Mod klen, 1)
Wend

Sifre_Uret = str

End Function

kullanımı : msgbox Sifre_Uret(8) gibi olabilir.

öncelikle selamlar ben çok acemiyim bu söylediklerini nereye yazılıyor acaba