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
