Sayın arkadaşlar 5cm 10cm. boyutlarında ferrit nüve nereden temin edebilirim.Yardımlarınız için şimdiden teşekkürler.Saygılar. |
Sayın arkadaşlar 5cm 10cm. boyutlarında ferrit nüve nereden temin edebilirim.Yardımlarınız için şimdiden teşekkürler.Saygılar. |
Saygıdeğer arkadaşlar ırfu320 muadili hangisidir. ırfu320 yerine ırf830 kullanabilir miyim. Şimdiden herkese teşekkürler. Saygılarımla. |
Sayın arkadaşlar lütfen aşağıdaki yazılım hakkında yardım ederseniz sevinirim. Elektrikler kesildiğinde sayac kaldığı yerden devam etsin istiyorum. Yazılımda bir hata varsa düzeltebilirmisiniz lütfen,saygılarımla. '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 09.06.2013 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** CMCON = %00000111 ANSEL= 0 ' a/d converter iptali için. TRISIO = %111011 ' 2. bit çıkış-- diğerleri giriş. '------------------------------------------------------------------------------- @ device pic12f675 @ device pic12f675, wdt_on @ device pic12f675, protect_on @ device pic12f675, mclr_off @ device pic12f675, intrc_osc_noclkout '------------------------------------------------------------------------------- SAYAC VAR WORD DURUM VAR BYTE YAZ VAR BIT SYMBOL ROLE=GPIO.2 SYMBOL ELEKTRIK=GPIO.1 SAYAC=0 READ 1,DURUM IF DURUM=255 THEN DURUM=0 GOSUB SAYACYAZ ENDIF ELEKTRIK=DURUM BASLA: PAUSE 10000 SAYAC=SAYAC+1 IF SAYAC=10 THEN GOTO ROLEAC YAZ=1 GOTO BASLA ROLEAC: PAUSE 100 HIGH ROLE SAYACYAZ: DURUM=SAYAC WRITE 1,DURUM YAZ=0 RETURN END |
Sayın arkadaşlar,HSERIN PIC BASIC, yazılım hakkında yardım ederseniz sevinirim. Yazılımda belirttiğim,buraya SIM kartta kayıtlı telefon numarasını kaydetmek istiyorum, yazısının bulunduğu yere SIM kartta kayıtlı telefon numarasını nasıl kaydedip sms gönderebilirim. Yardımlarınız için şimdiden teşekkürler. Saygılarımla. 'Definitions DEFINE OSC 4 'for 4 Mhz 'DEFINE OSC 8 'for 8 Mhz DEFINE HSER_TXSTA 20h 'I wonder shall I define as DEFINE HSER_TXSTA 24h??? DEFINE HSER_RCSTA 90h 'same for all DEFINE HSER_BAUD 2400 'for 2400 Baud rate 'DEFINE HSER_BAUD 4800 'for 4800 Baud rate 'DEFINE HSER_BAUD 9600 'for 9600 Baud rate DEFINE HSER_SPBRG 25 'for 4Mhz/2400 & 8Mhz/4800 with an error %0.16 'DEFINE HSER_SPBRG 12 'for 4Mhz/4800 & 8Mhz/9600 with an error %0.16 DEFINE HSER_CLROERR 1 'same for all ' Initialization & Declaration i var byte numara var byte TRISB=%00000000 PORTB=%00000000 TRISD=%00001111 PORTD=%00000000 ILKKONTROL: HIGH PORTB.7 PAUSE 500 HIGH PORTB.6 PAUSE 500 HIGH PORTB.5 PAUSE 500 HIGH PORTB.4 PAUSE 500 PORTB=%00000000 GSM_KONTROL: HSEROUT ["AT",13] 'modemle haberleşme HSERIN 5000, GSM_KONTROL, [WAIT("OK")] '5 saniye ok yanıtını bekle. HIGH PORTB.7 PAUSE 1000 HSEROUT ["AT+GMM",13] 'Model ismi sorma HSERIN 5000, GSM_KONTROL, [WAIT("C55 series")] 'model ismi kontrol HIGH PORTB.6 PAUSE 1000 HSEROUT ["AT+IPR=2400",13] 'Set transfer speed HSERIN 5000, GSM_KONTROL, [WAIT("OK")] '5 saniye ok yanıtını bekle. HIGH PORTB.5 PAUSE 1000 PORTB=%00000000 BASLA: IF PORTB.6=1 THEN SMS_HATA HIGH PORTB.7 pause 1000 LOW PORTB.7 if PORTD.2 = 0 then SMS_GONDER PAUSE 1000 GOTO BASLA SMS_GONDER: HIGH PORTB.6 HSEROUT ["at+cmgs=",34,"buraya SIM kartta kayıtlı telefon numarasını kaydetmek istiyorum",34,13] 'telefon numarası kaydet. PAUSE 1000 HSEROUT ["deneme mesajı",26] HSERIN 10000, BASLA, [WAIT("OK")] '5 saniye ok yanıtını bekle. LOW PORTB.6 GOTO BASLA SMS_HATA: FOR i = 1 to 5 HIGH PORTB.4 PAUSE 500 LOW PORTB.4 PAUSE 500 next i PORTB=%00000000 GOTO BASLA END |
Sayın arkadaşlar HyperTerminal den siemens c55 ile sms göndermek istiyorum. Sms okuyabiliyorum silebiliyorum. Bağlantıda sorun yok. Fakat sms gönderme işleminde error ile karşılaştım. Lütfen konu hakkında yardım edebilirmisiniz. Saygılarımla. < Resime gitmek için tıklayın > |
Sayın arkadaşlar,telefon kulaklığından gelen 200mv. sesi tda2003 devresi ile yükseltip PIC16F628A +5volt giriş olarak okutmak istiyorum. Yardımlarınız için şimdiden çok teşekkürler. Saygılarımla. BASLA: IF GIR=1 THEN GOTO ROLE ELSE GOTO KAPA ENDIF GOTO BASLA ROLE: HIGH ROLE PAUSE 600 LOW ROLE GOTO BASLA KAPA: HIGH ROLE1 PAUSE 600 LOW ROLE1 GOTO BASLA END |
Sayın arkadaşlar,pic12f675 için yazdığım yazılım elektrikler kesildiğinde kaldığı yerden devam etsin istiyorum. Aşağıda yazdığım yazılım doğrumudur. Yardımlarınız için şimdiden teşekkürler. Saygılarımla. '**************************************************************** CMCON = %00000111 ANSEL= 0 ' a/d converter iptali için. TRISIO = %111011 ' 2. bit çıkış-- diğerleri giriş. '------------------------------------------------------------------------------- @ device pic12f675 @ device pic12f675, wdt_on @ device pic12f675, protect_on @ device pic12f675, mclr_off @ device pic12f675, intrc_osc_noclkout '------------------------------------------------------------------------------- SAYAC VAR WORD SYMBOL ROLE = GPIO.2 SAYAC=0 BASLA : PAUSE 10000 SAYAC=SAYAC+1 IF SAYAC=40 THEN GOTO ROLEAC write 0, SAYAC.highbyte write 1, SAYAC.lowbyte GOTO BASLA ROLEAC : PAUSE 100 HIGH ROLE SAYAC=0 END |
Sayın arkadaşlar bu adreste bulunan devreyi yaptım gayet güzel çalışıyor. http://www.xlentelectronics.nl/ Benim istediğim programda değişiklik yaparak 3 sensör bağlayıp üç ayrı bölgenin sıcaklık ve nem değerlerini ölçüp pc ye kayıt etmek. Visual Basic pc yazılımlarından hiç anlamıyorum. Eğer mümkünse lütfen,bu programı ücreti karşılığında yazabilirmisiniz. Saygılarımla. Programın görüntüsü bu şekilde http://www.xlentelectronics.nl/ ben bunun gibi üç ayrı bölgeyi kontrol edip üç ayrı görüntü almak istiyorum. |
Sayın arkadaşlar bu adreste bulunan devreyi yaptım gayet güzel çalışıyor. http://www.xlentelectronics.nl/ Benim istediğim programda değişiklik yaparak 3 sensör bağlayıp üç ayrı bölgenin sıcaklık ve nem değerlerini ölçüp pc ye kayıt etmek. Visual Basic pc yazılımlarından hiç anlamıyorum. Eğer mümkünse lütfen,bu programı ücreti karşılığında yazabilirmisiniz. Saygılarımla. Programın görüntüsü bu şekilde http://www.xlentelectronics.nl/ ben bunun gibi üç ayrı bölgeyi kontrol edip üç ayrı görüntü almak istiyorum. |
Sayın arkadaşlar bu adreste bulunan devreyi yaptım gayet güzel çalışıyor. http://www.xlentelectronics.nl/ Benim istediğim programda değişiklik yaparak 3 sensör bağlayıp üç ayrı bölgenin sıcaklık ve nem değerlerini ölçüp pc ye kayıt etmek. Visual Basic pc yazılımlarından hiç anlamıyorum. Eğer mümkünse lütfen,bu programı ücreti karşılığında yazabilirmisiniz. Saygılarımla. Programın görüntüsü bu şekilde http://www.xlentelectronics.nl/ ben bunun gibi üç ayrı bölgeyi kontrol edip üç ayrı görüntü almak istiyorum. |