Butonlara aynı isimi verme hakkında...

[kbekler]

Öncelikle böyle bir site oluşturanlardan, siteye yardımcı olanlardan ve nice yardım edenlerden Allah razı olsun...
Siteyi bayağ zamandır takip ediyorum ve 2 adet sorum olacak :
1. 7-8 adet butona aynı isimi verebilir miyiz ?

2. Verebiliyorsak bunlara kısa yol atayabilir miyiz ? (Alt-K, Alt-M gibi )

Yardımlarınız için şimdididen teşekkürler...

 

[Kemal Demir]

Öncelikle Forumumuza Hoş Geldniz.

Sub İsimverButonlara()
For x = 1 To 4
'x Yukarıdaki Buton Miktarını belirler
    ActiveSheet.Shapes(x).Select
    Selection.Characters.Text = "10KASIM1938"
    Next
End Sub

Umarım İstediğniz Böyle Birşeydi

Kısayoluda İsteyinize göre belirlersiniz.

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub UserForm_Initialize()
For a = 1 To 4
Controls("CommandButton" & a).Caption = [a1]
Next
End Sub

Veya

Private Sub UserForm_Initialize()
For a = 1 To 4
Controls("CommandButton" & a).Caption = "KAPAT"
Next
End Sub

 

[kbekler]

Cevap için teşekkürler...

Ama benim istediğim şöyle bir şey;

Butonların özellikler kısmında name kısımları farklı, ama properties kısımlarında CommandButton1(1)
CommandButton1(2)
CommandButton1(3) gibi olacak.

Visual Basic' te bu şekilde bir örnek vardı. Orada görmüştüm. Excel Vba' da bu yapılabilir mi ?
Reklam olmayacaksa elektronik hobi sitesindeki port ile röle kontrol örneğinde vardı. Bunu excel de yapmak istiyorum. Böyle birşey yaptım togglebutton kullanarak, güzel çalıştı; fakat 2 nolu butona bastığımda 1 nolu pini pasif hale getirdi. Ben burada takıldım. Uygulama şöyle;

modül :
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

form :
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Out &H378, 4

Else
Out &H378, 0
End If

End Sub

Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
Out &H378, 8

Else
Out &H378, 0
End If

End Sub

 

[excellium]

bildiğim kadarıyla her control'ün Name özelliği diğerlerinden farklı olmak zorundadır.

 

[kbekler]

Doğru bu farklı ama propetries kısmında yukarıda yazdığım gibi gözüküyor. Bu nasıl oluyor ?
Visual Basic programında yapılmış; Excel VBA' da yapılabiliyor mu ?

 

[excellium]

dosyayı ekler misiniz? biz de inceleyipi bişiler öğrenelim

 

[kbekler]

İçinde alıntı Visual Basic dosyası ve benim Excel dosyam var

 

[excellium]

http://www.vbasicmaster.com/

 

[alibal]

Butonlaraın ismi (name özelliği) farklı olmak sorundadır. Object orient (nesne tabanlı) dillerin temeli budur. Ama butonlara aynı etiket (caption) verilebilir.

 

[kbekler]

Sevgili excellium :

O siteye üyeyim ve aynı soruyu oraya da yönelttim. Herhangi bir cevap alamadım.

Sevgili alibal :

Caption özelliğini değiştirebiliyorum. Benim anlatmak istediğim, properties yazısı altındaki
CommandButton1(2)
CommandButton1(3)
ile ilgili...
Ben yine araştırmaya devam ediyorum.Yardımlarından dolayı herkese teşekkürler... Çözünce buraya yazacağım...
Sorumu resim olarak gönderiyorum...

 

[Levent Menteşoğlu]

Bunu neden istediğinizi izah ederseniz belki bir çözüm yolu bulabiliriz.

 

[kbekler]

ilgilendiğiniz için teşekkürler.

Kaç gündür kafayı yiyecem.Çünkü, illaki Visual Basic kullanmak istemiyorum, Visual Basic her makinada olmayacağı için EXCEL' de yapmak istedim. EXCEL ile yapmak istediğim şey gönderdiğim dosyada mevcut. Alıntı dosya da içindedir. Benim yapamadığım portun 1. pinini buton ile açıyorum, ama 2. pini diğer buton ile açınca 1. pin kapanıyor. O pini nasıl açık tutarım.Başka anlatılış şekli bulamıyorum.
Gönderdiğim Vba dosyasını EXCEL' e adapte etmek istedim ama vba konusunu siteye üye olduğum günden itibaren takip ettiğim için yeni yeni öğrenmeye başladığım için başaramadım.
Elektronik ile bağdaştığı için birkaç sitede sordum yanıt alamadım. Belki oluyordur diye cevap arıyorum.
Zaten sağolsunlar arkadaşlar bana yardımcı oldular bazı konularda. Ama bilgisizliğimden mi yoksa yapmak istediğimi anlatamamaktan mı kaynaklandı onu bilemiyorum.
Benim isteğim EXCEL' in vba' sı ile portlar tarafından elektronik sistemleri kontrol etmek; bunu bu siteyi takip ederek zaten başardım ve çalıştırdım, böbürlenmek gibi algılanmazsa kendi arabamı bile EXCEL ile kullandım. İşte bu sebeple zaten bu siteyle karşılaştım ve yeni şeyler öğrendim.

Yinede yardımlarınız için teşekkür ederim...

 

[Levent Menteşoğlu]

Sorunuz biraz teknik bir konu, açıkçası bilgi sahibi olduğum bir konu değil ama net cevap vermek için kodlarınızı çalıştırmak gerekiyor. Portlara bağladığınız ekipman nedir?

 

[Haluk]

Merhaba;

Anlayabildiğim kadarıyla sizin istediğiniz:

1) Herhangibir butona tıkladığınızda belli bir iş yapılsın.

2) Tıklanan buton ayrıca kendine has başka bir iş daha yapsın.

Durum böyleyse, bir Class Modul uygulaması ile sorun çözülebilir.

Ekteki dosyayı inceleyiniz.

 

[kbekler]

Sayın Haluk ;
Gönderdiğinizi hemen deniyeceğim.

Ama bazı bilgiler vereyim;

Ben röleler ile yani elektronik anahtarlar ile çalışıyorum. Devre olmasada elektronik bilen arkadaşlar voltmetrenin eksi ucunu paralel portun 25. Pinine, artı ucunu sıra ile 2 ve 9. Pinlere değdirirlerse programı kullanabilirler.
Fakat basitçe anlatayım;
Paralel portun (LPT) 2,3,4,5,6,7,8,9. Pinlerinin herbirine sıra ile seri olarak 220 ohm değerinde 1 direnç ve 1 ledi
Bağladım. Toprak olarak 25. Pini kullandım. EXCEL ile yaptığım basit şekildeki programı dosya olarak aşağıda gönderdim.

Örnek aldığım kodlar ise (Elektronik Hobi sitesinden alıntıdır.)

Modül:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


Form :
Dim data(7) As Integer, top_data As Integer, adres As Integer

Private Sub Command2_Click(Index As Integer)
If adres = 0 Then MsgBox "Lütfen PARALEL Port adresini girip ""Ayarla"" 'ya tıklayınız. Örnek:&h378", vbCritical + vbOKOnly, "Uyarı": Exit Sub
Select Case Command2(Index).Caption
Case "0"
led_yak (Index)
Command2(Index).Caption = "1"
Case "1"
led_sondur (Index)
Command2(Index).Caption = "0"
End Select
lbl_data = top_data
End Sub

Private Sub Command3_Click()
adres = Int(Val(txt_adres.Text))
End Sub

Private Sub Form_Load()
'adres = &H3BC
Out adres, 0
End Sub

Sub led_yak(pin_no As Integer)

led(pin_no).FillColor = &HFF&
top_data = 0
Select Case pin_no
Case 0
data(0) = 1
Case 1
data(1) = 2
Case 2
data(2) = 4
Case 3
data(3) = 8
Case 4
data(4) = 16
Case 5
data(5) = 32
Case 6
data(6) = 64
Case 7
data(7) = 128
End Select

For i = 0 To 7
top_data = top_data + data(i)
Next i
Out adres, top_data
End Sub

Sub led_sondur(pin_no As Integer)
led(pin_no).FillColor = &HC0C0C0
top_data = 0
data(pin_no) = 0
For i = 0 To 7
top_data = top_data + data(i)
Next i
Out adres, top_data

End Sub

Private Sub Text1_Change()

End Sub


Bu örnek istediğim gibi çalışıyor. Ama benim yaptığımda 1. Ledi yakıyorum, ama 2. Ledi yaktığımda 1. Ledin akımını resetliyor. Sende teker teker kullan diyeceksiniz ama bana aynı anda 1.ve 5., 3.4. ve 7. Pinlerin kullanımı gerekiyor. (Teker teker basarak çalışacak) Kumanda sistemimi bu amaçla yaptım.
Led kontrolu çalışırsa oda çalışacak. Zaten bu ufacık konu çözülürse, devresi de dahil hepsini yayınlayacağım. Çünkü öğrettiklerinizle neler yapılabileceğini görmenizi istiyorum

Teşekkürler...

 

[Levent Menteşoğlu]

Halen çalıştığım işyerinde kullanılan serial port kullanılarak bir teraziden tartım bilgisini excel hücresine yazan bir program yazmıştım. Ama paralel port ile hiç çalışmadım. Sizin verdiğiniz paralel port ile ilgili uygulamada ilgimi çekti. İlginç bir çalışma bende denemek isterim. Lakin "inpout32.dll" dosyası benim pcde mevcut değil. Eğer bu dosya ücretli yani lisanslı değilse buraya eklermisiniz.

Not:Lise tahsilimi teknik lise endüstriyel elektronik bölümünde yaptığımdan özellikle dijital ve endüstriyel elektronik konusunda yeterli düzeyde bilgi sahibiyim.

 

[Haluk]

Sayın kbekler;

Verdiğiniz kodları deneme şansım yok ancak, açıklamalarınızdan anlayabildiğim kadarıyla bu kez dosyamda bir revizyon yaptım.

Burada, herhangibir butona basınca led'i yakıp söndürüyor.

 

[kbekler]

Kusura bakmayın dün akşam internet ağımız çöktü, sabaha kadar firmadaydık. Ayarladık sonuçta. Bu nedenle geç cevap veriyorum. Laf aramızda benim yüzümden oldu. Fazla hareketli bir siteye girmişim bende de stres yaptı oldu işte. Neyse...

Sayın leventm;
İstemiş olduğunuz dll dosyasını gönderiyorum. Elektronik hobi sitesinden aldım. Sevgili Güçlü Tugay herkes kullansın diye sitesine koymuş. İnceleyebilirsiniz.(www.elektronikhobi.com)
Lütfen modül kısmına dikkat edelim. İnpout32.dll komutları orada tanıtılıyor.

Sayın haluk ;
Yardımlarınız için teşekkür ederim. Bende bu noktada takılıyorum. Ama çok önemli bir kısmını sayenizde hallettik. Fakat yanan bişeyi bu diğer buton niye kapatıyor. Reset atıyor. Diğer butona bir gıcığımı var anlamadım.

 

[Levent Menteşoğlu]

Dosya için teşekkürler, birde paralel portun bağlantı şemasını rica etsem sizden.