MİNİ SÜRÜM

Donanım Haber

Uygulama ile Aç
Kayıt
S

Yüzbaşı
05 Aralık 2004
Tarihinde Katıldı
Takip Ettikleri
5 üye
Görüntülenme (?)
30 (Bu ay: 0)
Gönderiler Hakkında
S
5 yıl
pic12f675 eeprom sorunu elektrik kesintisi
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
S
6 yıl
HSERIN PIC BASIC sorunu
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
S
6 yıl
HyperTerminal sms gönderme siemens c55
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.
S
6 yıl
200mv +5volt yükseltme
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
S
6 yıl
pic12f675 eeprom sorunu
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
S
6 yıl
Visual Basic pc yazılım yardım lütfen
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.
S
6 yıl
Visual Basic pc yazılım
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.
S
6 yıl
Visual Basic pc yazılım yardım lütfen
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.
S
7 yıl
bedava elektrik üretimi doğru mu?
S
7 yıl
bedava elektrik üretimi doğru mu?
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.