Bir butona belli komutlar dahilinde Yanıp sönen bir ışık komutunu vermesi hakkında

[SIDDIK]

Arkadaşlar Kayıt giriş sayfasında Plakayı yazdığımda Hemen üst tarafda Porya Bakım Butonu var ben bu butona bastığımda yazdığım plakanın porya bilgileri çıkıyor bu bilgiler içinde kalan hanesinde herhangi bir tane daha fazlasının 1000 den aşağıya rakamı düştüğünde kayıt giriş sayfasındaki Porya Bakım butonunun Yanıp Sönmesini istiyorum. bu mümkünmüdür bu konuda yardımcı olurmusunuz.



Örnek ektedir. açıklamalı bir şekilde yazılıdır. daha iyi anlayacaksınız.

 

[SIDDIK]

Arkadaşlar bu konuda yardımcı olacak kimse yokmu benim için çok önemli yardımlarınızı bekliyorum.

 

[SIDDIK]

Arkadaşlar konu ile ilgili ilgilenen arkadaşlardan yorum bekliyorum. belki size anlattıklarım karmaşık gelebilir ama işin olur tarafı varmıdır.yapılması mümkünmüdür.üstadlarım bu konuda bana yardımcı olun önemli olmasa bu kadar ısrar etmem

 

[Taruz]

Merhaba..

Açılan formunuzdaki Kalan metin kutusunun yazı tipini kalın, rengini kırmızı yapın.

Formun Olay / Süreölçer Aralığını 500, Zaman Dolduğunda olay yoramına da

If [Metin105] < 2000 Then [Metin105].ForeColor = Not [Metin105].ForeColor
If [Metin107] < 2000 Then [Metin107].ForeColor = Not [Metin107].ForeColor
If [Metin109] < 2000 Then [Metin109].ForeColor = Not [Metin109].ForeColor
If [Metin111] < 2000 Then [Metin111].ForeColor = Not [Metin111].ForeColor
If [Metin113] < 2000 Then [Metin113].ForeColor = Not [Metin113].ForeColor
If [Metin115] < 2000 Then [Metin115].ForeColor = Not [Metin115].ForeColor
If [Metin117] < 2000 Then [Metin117].ForeColor = Not [Metin117].ForeColor

yazın.

 

[SIDDIK]

ben kalan hanesinin 2000 den aşağıya herhangi birisi olduğunda PORYA BAKIMLARI yazan butonun yanıp sönmesini istiyorum bu mümkünmüdür.

 

[Taruz]

Merhaba..

Aynı kodları formu kaynak gösterip butuna uyarlayın.

 

[SIDDIK]

Private Sub Form_Timer()
If [Metin105] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin107] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin109] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin111] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin113] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin115] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
If [Metin117] < 2000 Then [Komut159].ForeColor = Not [Komut159].ForeColor
End Sub

Bu şekilde yaptım ama olmuyor
Komut159 olan yer PORYA BAKIMLARI butonudur. Metin105-107-109-111-113-115-117 olan yerler ise PORYA BAKIMLARI TABLOSUNUN içindeki kalan hanesinin isimleridir. ben 2000 den aşağıya düştüğünde PORYA BAKIMLARI butonunun kırmızı yanıp sönmesini istiyorum ancak verdiğiniz kod TABLO içinde kalan hanenin hücresi yanıp sönüyor

 

[SIDDIK]

lütfen bu konuda yardımcı olun komut159 butonuna göre uyarlayamadım.

 

[Taruz]

Peki..

Konuya verdiğim cevabı tamamlayayım. Acelesini hala anlamış değilim ama..

 

[SIDDIK]

size &#231;ok te&#351;ekk&#252;r ediyorum.yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok sa&#287;olun