Bu uygulamada KODGRUBUURET_Yeni formunda h1 ve h2 değerleri ile Module1'deki J değerleri sabit.
Yani
h1 her zaman h1 = Int((Len(strSource1) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource1, j, 1)
h2 her zaman h2 = Int((Len(strSource) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource, j, 1)
Module1'deki J değerleri de her zamanHARF-HARF-RAKAM-HARF şeklinde kod veriyor. Yani AA1B, CQ3W gibi. Kod miktarını ise her iki formda da bulunan Başlangıç ve Bitiş alanlarına kaç tane Kod üretmek istersek onu girerek belirliyorum. 1-20 mesela.
j = Int((Len(strSource1) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource1, j, 1)
j = Int((Len(strSource1) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource1, j, 1)
j = Int((Len(strSource) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource, j, 1)
j = Int((Len(strSource1) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource1, j, 1)
Bu J sıralaması her zaman sabit olarak HARF-HARF-RAKAM-HARF şeklinde kod üretiyor.
Ayrıca bu ifadelerde geçen strSource (RAKAM) ve strSource1 (HARF) değerleri de sabit. Buraya kadar herhangi bir değişiklik yok.
Bu uygulamada KODGRUBUURET formunun VBA'sındaki J'lerin sıralanışı hiç değişmiyor ve bana butona her basışımda HARF-HARF-RAKAM-HARF sırası ile kod üretiyor.
Benim asıl yapmak istediğim ise Module1'deki J'lerin sabit sıralanışını bir şekilde değiştirmek.
Module1 üzerinden sıralamayı değiştirmek benim için zor olduğundan ben KODGRUBUURET_Yeni formunu yaptım ve Module1'deki prosedürü doğrudan bu formun VBA'sına yazdım. Bu formun VBA'sındaki prosedürde de J sıralanışını J=KSec1, J=KSec2, J=KSec3, J=KSec4 şeklinde yazdım. Bu sıralanış da sabit kalacak ama dikkat ederseniz buradaki prosedürde HARF-HARF-RAKAM-HARF sıralanışı olmayacak ve her bir J değerini karşısındaki combobox (KSec1,2,3,4)'lerden alacak. İşte ben de buna göre J değerlerini KSec1, KSec2, KSec3, KSec4 comboboxlarından h1 veya h2 seçerek belirleyeyim, kod da ona göre çıksın istiyorum. Ben Comboboxlardan h1-h2-h1-h1 seçersem kod A2B3 gibi, eğer h1-h1-h1-h2 seçersem kod GYX3 gibi olsun. Harfler ve rakamlar zaten strSource ve strSource1den RANDOM olarak seçiliyor. Sadece formdaki comboboxlardan seçilen h1 ve h2'ler değişecek.
Sonuç olarak benim bir şekilde KSec1, KSec2, KSec3, KSec4 comboboxlarından seçeceğim h1 ve h2 değerlerini prosedürdeki J=KSec1, J=KSec2, J=KSec3, J=KSec4 ifadeleri ile ilişkilendirmem lazım ki 4'lü kodu üretebileyim.
Umarım biraz da açık yazabilmişimdir
saygılarımla.
