Merhaba
1994 den beri ekmeğimi pascaldan çıkarıyorum.Windows,android,ios ve webde delphi ide, linux,wince tarafında freepascal Ana geliştirme ortamımımız delphi7 :) Borland satmasının benim için bir anlamı yok, şuan sahibi çok büyük bir yatırım firması. En son extjs(sencha) da aldılar.Delphi ile entegre etmek istiyorlar. Freepascalla yazılmış raspberry için opensource bir işletim sistemi var, çok küçük bir yer kaplıyor https://ultibo.org/ İyi Çalışmalar İsmet Sönmez From: Linux-programlama <linux-programlama-boun...@liste.linux.org.tr> On Behalf Of mucip.ilb...@gmail.com Sent: Wednesday, October 9, 2019 6:31 PM To: Özgür yazılımlarla çeşitli dillerde yazılım geliştirme <linux-programlama@liste.linux.org.tr> Subject: [Linux-programlama] Re: RaspBerry üzerinde Qt ile Merhabalar, Öncelikle elinize sağlık. BP 7.0 kullanmış ve Pascal diline aşık birisi olarak yanlış anlaşılmak istemem ama Borland'ın Delphi'yi satmasından sonra ister istemez uzaklaşıyor insan. En son Delphi 7 ile kod yazdığımı hatırlıyorum. Bir daha da dönüp bakmadım. Kolay gelsin, Mucip:) On Wed, Oct 9, 2019 at 6:16 PM İsmet Sönmez <ison...@bek.org.tr <mailto:ison...@bek.org.tr> > wrote: Merhaba Bazıları yavan sever :D Raspi ve pascal İyi Çalışmalar İsmet Sönmez From: Linux-programlama <linux-programlama-boun...@liste.linux.org.tr <mailto:linux-programlama-boun...@liste.linux.org.tr> > On Behalf Of mucip.ilb...@gmail.com <mailto:mucip.ilb...@gmail.com> Sent: Wednesday, October 9, 2019 12:57 PM To: Özgür yazılımlarla çeşitli dillerde yazılım geliştirme <linux-programlama@liste.linux.org.tr <mailto:linux-programlama@liste.linux.org.tr> > Subject: [Linux-programlama] Re: RaspBerry üzerinde Qt ile Merhabalar, Lazarus ile geliştirmiş olduğum projeler var. Ama Qt'den sonra yavan kalıyor. :) Kolay gelsin, Mucip:) On Wed, Oct 9, 2019 at 8:46 AM Bircan HANCI <birc...@gmail.com <mailto:birc...@gmail.com> > wrote: Bir ilave olarak Lazarus Pascal deneyebilirsiniz. Şahsen PC üzerinden birkaç ufak projede işimi gördüm. RaspiDestğei de mevcut ama açıkçası aktif olarak bir proje vs denemedim. Belki derdinize derman olur. Ama tabii kod yapısını Pscal a taşımanız gerekecek ki bu da epey iş yükü getirebilir. Saygılarımla. Bircan HANCI On Wed, Oct 9, 2019 at 12:46 AM Dr. Mucibirahman İLBUĞA <mucip.ilb...@gmail.com <mailto:mucip.ilb...@gmail.com> > wrote: Merhabalar, Kodu buldum. Biz o ara hazır kütüphane kullanmışız. USB den okumamışız. Koddaki USB okuma rutinleri kantardan gelen veriyi okumak için kullanılıyor. İki farklı tip indikatör için iki farklı okuma algoritması var. Hayvan kantara girdiği an RFID ile boyun numarası alınıyor ve kantar değeri bekleniyordu. Ağırlığın okunduğu hayvan, zaman, tartım bilgileri de örnek veritabanına yazılıyordu. Ayrıca basit bir PHP sayfası da koşuyordu BananaPi kart üzerinde. İstenilen hayvan listelenebiliyordu. Hikayesi kolaylıkla görülebiliyordu. Elbette kod tamamıyle deneysel. Ticari bir ürün olamadı. Henüz... :-P ///////// from pirc522 import RFID import signal import time import RPi.GPIO as GPIO import sqlite3 as lite import sys #import msvcrt import serial import re indikatorTip = 2 #1 ==> Erte #2 ==> YH-T7+E def seriDegerOku(): try: ser = serial.Serial(port='/dev/ttyUSB0', baudrate=9600, parity=serial.PARITY_NONE, stopbits=serial.STOPBITS_ONE, bytesize=serial.EIGHTBITS, timeout=0) deger = "" donen = 0 devam = True durum = "" while devam: for line in ser.read(): if ord(line) == 13: deger = deger + "#" else: deger = deger + str(line) if deger.count("#") == 2: #deger=deger[deger.find("#")+1:deger.find("#")] deger = re.findall('#(.*?)#',deger) durum = deger[0][0:1] donen = int(str(int(deger[0][1:7]))) deger = "" #print(str(deger) + ":" + deger[0]) #print(deger[0]) #donen = int(deger[0]) if durum == "A": ser.close() #devam = False return donen except: return -1 def seriDegerOkuYH(): try:seçiliyor. ser = serial.Serial(port='/dev/ttyUSB0', baudrate=9600, parity=serial.PARITY_NONE, stopbits=serial.STOPBITS_ONE, bytesize=serial.EIGHTBITS, timeout=0) deger = "" donen = 0 devam = True durum = "" while devam: for line in ser.read(): if ord(line) == 13: deger = deger + "#" else: deger = deger + str(line) if deger.count("#") == 2: deger = re.findall('ww(.*?)kgwt',deger) donen = float(deger[0]) deger = "" ser.close() return donen except: return -1 con = lite.connect('/home/bananapi/kurdak/kurdak.db') cur = con.cursor() rdr = RFID() util = rdr.util() util.debug = True print ("Kart Bekleniyor...") devam = True while devam: rdr.wait_for_tag() (error, uid) = rdr.request() if not error: print ("Kart Okundu:") (error, uid) = rdr.anticoll() if not error: kart_uid = str(uid[0])+ " " + str(uid[1]) + " " + str(uid[2]) + " " + str(uid[3])+ " " + str(uid[4]) print (kart_uid) if indikatorTip == 1: sqlKod = "INSERT INTO tartim(tarih, saat, kod, kilo) values(date('now'), time('now'), '" + kart_uid + "', " + str(seriDegerOku()) + ");" else: sqlKod = "INSERT INTO tartim(tarih, saat, kod, kilo) values(date('now'), time('now'), '" + kart_uid + "', " + str(seriDegerOkuYH()) + ");" #print (sqlKod) cur.execute(sqlKod) con.commit() print ("Kayit Tamam") //////// Kolay gelsin, Mucip:) On 8.10.2019 08:58, Metin Topallar wrote: > Umarım yardımcı olabilir. Şuan çok geniş bir boş zamana sahip değilim > yoksa hızlıca bir örnek yapıp yollardım. Ama kod üzerinde sorun > yaşadığınız yer var ise destek verebilirim. > _______________________________________________ Linux-programlama mailing list Linux-programlama@liste.linux.org.tr <mailto:Linux-programlama@liste.linux.org.tr> https://liste.linux.org.tr/mailman/listinfo/linux-programlama Liste kurallari: http://liste.linux.org.tr/kurallar.php _______________________________________________ Linux-programlama mailing list Linux-programlama@liste.linux.org.tr <mailto:Linux-programlama@liste.linux.org.tr> https://liste.linux.org.tr/mailman/listinfo/linux-programlama Liste kurallari: http://liste.linux.org.tr/kurallar.php -- Kolay gelsin, Mucip:) _______________________________________________ Linux-programlama mailing list Linux-programlama@liste.linux.org.tr <mailto:Linux-programlama@liste.linux.org.tr> https://liste.linux.org.tr/mailman/listinfo/linux-programlama Liste kurallari: http://liste.linux.org.tr/kurallar.php -- Kolay gelsin, Mucip:)
_______________________________________________ Linux-programlama mailing list Linux-programlama@liste.linux.org.tr https://liste.linux.org.tr/mailman/listinfo/linux-programlama Liste kurallari: http://liste.linux.org.tr/kurallar.php
