Visual Basic diline biraz daha yakın olduğum için VBS ile çözüm önerecektim.
Ancak, ODTÜ de öretim üyesi bir arkadaşımdan yardım istedim
(gırtağına bastım diyebilirim), tamamı onun bilgileri ve fikridir.
Öncelikle yapılandırmaktan başlamak gerekiyor
İlk olarak, HMI ekranınıza Combobox ve Textlist nesnelerini
ekleyin ve bunları uygun şekilde yapılandırın.
Bunun için:
1. Combobox'un Yapılandırılması:
a) Combobox'u seçin.
b) Combobox'un özelliklerine gidin.
c) Combobox'un içeriğini belirleyin. Örneğin, Combobox'a
eklemek istediğiniz seçenekleri belirleyin.
Bu seçenekler genellikle bir liste halinde verilir.
d) Görünüm ve davranış özelliklerini ayarlayın.
Örneğin, Combobox'un boyutunu, görüntü stilini,
seçilen öğenin nasıl gösterileceğini vb. ayarlayın.
e) Combobox'un adını uygun bir şekilde belirleyin.
Ad, Combobox'a VBS kodunda referans vermek için.
2. Textlist'in Yapılandırılması:
a) Textlist'i seçin.
b) Textlist'in özelliklerine gidin.
c) Textlist'in görünümünü ve davranışını belirleyin.
Örneğin, metin boyutu, satır aralığı, sıralama
yöntemi vb. yarlayın.
d) Textlist'in adını uygun bir şekilde belirleyin.
Ad, Textlist'e VBS kodunda referans vermek içi.n
Örnek Kod:
Sub Combobox_SelectionChange
Dim selectedIndex
' Seçilen öge hangi sırada olduğu bilgisi
selectedIndex = ScreenItems("Combobox_1").SelectedIndex
' Textlist'i temizleyin
ScreenItems("Textlist_1").Clear
' Seçime göre metinleri ekleme
Select Case selectedIndex
Case 0
ScreenItems("Textlist_1").AddText "A1"
Case 1
ScreenItems("Textlist_1").AddText "B1"
Case 2
ScreenItems("Textlist_1").AddText "A1"
ScreenItems("Textlist_1").AddText "B1"
Case 3
ScreenItems("Textlist_1").AddText "A1"
ScreenItems("Textlist_1").AddText "B1"
ScreenItems("Textlist_1").AddText "A2"
' ve böyle devam eder...
End Select
End Sub
"Combobox'a Kodu Atama"şöyle yapılıyor:
1. Combobox'un özelliklerine gidin,
2. "SelectionChange" (veya benzeri bir olayı) seçin
3. Bu olay tetiklendiğinde yukarıdaki VBS kodunu
çalıştırmak için.
4. "Combobox_SelectionChange" alt rutinini atayın.
5. Bu şekilde, Combobox'ın seçimi değiştiğinde
belirlediğiniz metinleri Textlist'e ekleyebilirsiniz.
6. Kodu geliştirmek veya özelleştirmek için ve Combobox'taki
seçimi ve Textlist'e eklenen metinleri ayarlamak için
CASE ifadesini kullanın.
Kolay gelsin