Merhaba arkadaşlar,
Bankalarda (İşbank,Finansbank .vs. ) güvenlik amacıyla kullanılan ve genellikle "EKRAN KLAVYESİ" olarak adlandırılan şifrelerinizi üzerinde numaralar bulunan kutulara tıklayarak girmenize olanak sağlayan uygulamayı Excel ortamında userform üzerinde yapmak istiyorum.
Bunun için 10 tane label oluşturdum ve bunların caption olayına rastgele ürettiğim rakamları atadım.
label1.Caption = Int(Rnd() * 10)
şeklindeki kod bana 0 ile 9 arasındaki rakamları rastgele veriyor ve label a atıyor. Fakat koddan da anlayabileceğiniz üzere aynı rakam birden fazla kez yaratılabiliyor ve bu yüzden bazı rakamlar da hiç oluşmayabiliyor.
Rastgele sayı üreten RND fonksiyonunu yukarıdaki isteğe göre düzenlemenin bir yolu varmıdır ?
Not : Burada amaç fantezi yapmak sadece, yoksa VBA ortamında şifre güvenliği diye birşeyin olmadığını ve bu kodun güvenlik anlamında hiçbirşeye yaramayacağını biliyorum.
Bankalarda (İşbank,Finansbank .vs. ) güvenlik amacıyla kullanılan ve genellikle "EKRAN KLAVYESİ" olarak adlandırılan şifrelerinizi üzerinde numaralar bulunan kutulara tıklayarak girmenize olanak sağlayan uygulamayı Excel ortamında userform üzerinde yapmak istiyorum.
Bunun için 10 tane label oluşturdum ve bunların caption olayına rastgele ürettiğim rakamları atadım.
label1.Caption = Int(Rnd() * 10)
şeklindeki kod bana 0 ile 9 arasındaki rakamları rastgele veriyor ve label a atıyor. Fakat koddan da anlayabileceğiniz üzere aynı rakam birden fazla kez yaratılabiliyor ve bu yüzden bazı rakamlar da hiç oluşmayabiliyor.
Rastgele sayı üreten RND fonksiyonunu yukarıdaki isteğe göre düzenlemenin bir yolu varmıdır ?
Not : Burada amaç fantezi yapmak sadece, yoksa VBA ortamında şifre güvenliği diye birşeyin olmadığını ve bu kodun güvenlik anlamında hiçbirşeye yaramayacağını biliyorum.