15-01-2019, Saat: 08:12
Elinize sağlık süper bir anlatım olmuş
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Delphi Microchip Seri Haberleşme Örnek Uygulama
|
15-01-2019, Saat: 08:12
Elinize sağlık süper bir anlatım olmuş
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Arkadaşlar merhaba Delphi Can'a yeni üye oldum o yüzden konunun nasıl açıldığını bilmediğim için ve bu konunun benim sorunumla alakalı olduğunu düşündüğümden dolayı buraya yazıyorum sorunumu her hangi bir hatam varsa kusura bakmayın. Benim sorunum çalıştığım iş yerinde kamyon kantarı var mevcut program yetersiz kalıyor o yüzden yeni bir program hazırlayacağım.
Öncelikle kantar cihazından rs232 kablosu ile gelen bilgiyi dinlediğimde bilgi string olarak geliyor örneğin kantar da araç yok iken ağırlık bilgisi sıfır iken (A 0) değeri okunuyor,kantarda araç varken ağırlık bilgisi atıyorum 12500 olsun (A 12500) şeklinde okunuyor ve verinin harf kısmı kantar sallanırken C değerini alıyor. Sorum şu ben comport bileşeninin rxchar olayına yazdığım kodla memo1 bileşenine veri olarak alabiliyorum yapmak istediğim örneğin memoya gelen değer araç yokken (A 0) araç varken (A 12500) kantar sallantılı iken (C ,rakam sabit değil) ben bunun sadece rakam kısmını panele yazdırıyorum evet şimdi gelen verinin A olması durumunda rakamların yeşil olması,C olması durumunda kırmızı olmasını nasıl sağlayabilirim. kısacası kantar sallanırken rakamda sabit olmadığı için kırmızı olacak dolayısıyla tartı yapmaya izin vermeyecek,kantar sabit olunca rakamda sabit olacak ve yeşil rengini alacak dolayısıyla tartım yapmaya izin verecek biraz uzun oldu kusura bakmayı yardımlarınız için şimdiden teşekkür ederim.
21-04-2019, Saat: 16:45
Öncelikle sorunuzu yeni bir başlık altında sorun ki insanlar sorunuz olduğunu görüp cevap verebilsin. Sorunuzda ise gelen bilgiyi label'a yazdırıp label'ın font color değişkenini değiştirerek neden istediğinizi yapmıyorsunuz ? Neden memo ?
Topluluk mopluluk yok :/
21-04-2019, Saat: 16:55
(21-04-2019, Saat: 16:45)boreas Adlı Kullanıcıdan Alıntı: Öncelikle sorunuzu yeni bir başlık altında sorun ki insanlar sorunuz olduğunu görüp cevap verebilsin. Sorunuzda ise gelen bilgiyi label'a yazdırıp label'ın font color değişkenini değiştirerek neden istediğinizi yapmıyorsunuz ? Neden memo ?Öncelikle soruma cevap verdiğiniz için teşekkür ederim. çünkü memodan istediğim satır ve sütundaki karakterleri alabiliyorum mesela memoda A değeri görünüyor ben bu değeri panele almıyorum sadece rakam kısmını alabiliyorum ve bu özellik sadece memoya ait diye biliyorum yoksa labelde de aynı işlemi yapabilir miyim?
21-04-2019, Saat: 17:09
Gelen datayı ayrıştıracak bir fonksiyon yazmanız gerek. Fonksiyon gelen dataya göre labelin rengini değiştirebilir. İstediğiniz basit bir işlem. Sizi zora sokan nedir anlamadım.
21-04-2019, Saat: 17:30
(21-04-2019, Saat: 17:09)SercanTEK Adlı Kullanıcıdan Alıntı: Gelen datayı ayrıştıracak bir fonksiyon yazmanız gerek. Fonksiyon gelen dataya göre labelin rengini değiştirebilir. İstediğiniz basit bir işlem. Sizi zora sokan nedir anlamadım.Teşekkür ederim cevabınız için . Beni zora sokan serial iletişim konusunda hiç bir bilgimin olmaması data zaten string şeklinde geliyor gelen datayı ayrıştırma konusunda hiç bir bilgim yok inan ki.
21-04-2019, Saat: 20:19
Pos komutuyla A'yı bulun bir sonraki A ya da C karakteri arası istediğiniz data olacaktır. Copy komutuyla aradaki stringi kopyalayın.
Topluluk mopluluk yok :/
22-04-2019, Saat: 00:18
22-04-2019, Saat: 11:53
(21-04-2019, Saat: 17:30)bnyamin86 Adlı Kullanıcıdan Alıntı:(21-04-2019, Saat: 17:09)SercanTEK Adlı Kullanıcıdan Alıntı: Gelen datayı ayrıştıracak bir fonksiyon yazmanız gerek. Fonksiyon gelen dataya göre labelin rengini değiştirebilir. İstediğiniz basit bir işlem. Sizi zora sokan nedir anlamadım.Teşekkür ederim cevabınız için . Çözüm üretmişsiniz. Ama genede basit bir fonksiyon yazacağım. Belki başkasına yararı olur. Öncelikle COM porttan gelen datayı yakaladığınız olayın içerisinde datayı fonksiyona yolayın. function TartiHesapla(var Yazi: TLabel; GelenData: String): Boolean; const KIRMIZI = clRed; YESIL = clgreen; var DURUM: Char; begin DURUM := GelenData[1]; Delete(GelenData, 1, 1); if DURUM = 'A' then begin result := true; Yazi.Font.Color := YESIL; Yazi.caption := GelenData.Trim + ' Kg'; end else if DURUM = 'C' then begin result := false; Yazi.Font.Color := KIRMIZI; Yazi.caption := GelenData.Trim + ' Kg'; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if TartiHesapla(Label1, 'C 12500') then caption := 'Kantar Hazır' else caption := 'Kantar Hazır Değil'; end; Mesela ; ComReadRX olayı var diyelim. Oraya aşağıdaki gibi ilave edin. Com porttan okunan datayı GelenData kabul edersek aşağıdaki gibi olacaktır. Değer A ile başlıyorsa label rengi Yeşil ve geriye True dönecek. C ile başlıyorsa label rengi kırmızı ve geriye false dönecek. if TartiHesapla(Label1, GelenData) then caption := 'Kantar Hazır' else caption := 'Kantar Hazır Değil';
22-04-2019, Saat: 23:13
(22-04-2019, Saat: 11:53)SercanTEK Adlı Kullanıcıdan Alıntı:Güzel bir anlatım olmuş elbet işime yarayacak kardeşim çok teşekkür ederim ilgin ve alakan için...(21-04-2019, Saat: 17:30)bnyamin86 Adlı Kullanıcıdan Alıntı: Teşekkür ederim cevabınız için . |
« Önceki Konu | Sonraki Konu »
|
Konu ile Alakalı Benzer Konular | |||||
Konular | Yazar | Yorumlar | Okunma | Son Yorum | |
Delphi RabbitMq | 3ddark | 8 | 2.286 |
21-11-2022, Saat: 18:26 Son Yorum: 3ddark |
|
Raspberry Pi, MQTT ve Delphi | SimaWB | 15 | 8.842 |
26-01-2022, Saat: 15:08 Son Yorum: Jakarta2 |
|
Nodemcu ile Delphi json haberleşme | arsl01 | 10 | 7.626 |
24-12-2021, Saat: 09:25 Son Yorum: arsl01 |
|
OpenAI GPT3 Nedir? Delphi ile Kullanımı | Tan Ay | 1 | 1.258 |
07-05-2021, Saat: 15:40 Son Yorum: mrmarman |
|
Delphi ve PLC Haberleşmesi hk. | Abdullah ILGAZ | 12 | 12.477 |
24-08-2020, Saat: 19:02 Son Yorum: Onur |