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> 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> *On
> Behalf Of *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>
> *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> 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> 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
> 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
> 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
>
--
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
