Ynt: Ynt: esp8266 proton basic kodları

t600 · 19 Eylül 2015, 12:35:59

Arkadaşlar esp8266 ile ilgili daha önce yapmış olduğum bir projenin kodlarını paylaşıyorum , Hayırlı olsun , Bu işten para kazanan olursa benide görmesi karşılığında kullanabilir , Kodlar Allaha emanet .
Uygulamada 240x128 ekrtan , 18f4620 ve esp8266 kullanıldı , ve videoda göründüğü gibi çalışıyor , Esp yi güncellemeyi unutmayın .Yazılım proton basic

uygulamanın videosu :
! No longer available
proton basic kodları :

'emrah gökdua egokdua@hotmail.com

mesaj birleştirme:: 20 Eylül 2015, 02:38:51

programda birçok değişken var , bunların çoğu başka birşeyden kalma gereksiz silebilirsiniz , silmesenizde sorun yok , ben 240x128 kullandım , siz 2x16 kullanabilirsi,niz veya başka bir lcd.
Hayırlı olsun .

mesaj birleştirme:: 20 Eylül 2015, 03:02:43

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

'İKİNCİ ÖRNEK PROGRAM

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

bunlar daha garanti :

'
' Toshiba T6963 Graphic LCD Demo
'
' Using PROTON+ Version 3.08 onwards
'
' Print on two text screens of the LCD then pan between them
'
' Ensure that a 6 pixel font is implemented for the LCD's circuit
'
Device = 18F4620
'Declare Xtal = 16
' Declare LCD_Type = Toshiba ' Target a Toshiba T6963 graphic LCD
OSCCON = %11101010

' Declare PLL_Req = On
Declare All_Digital = True ' Set PORTA and PORTE to digital mode

'Hserial_Baud = 9600 ' Set baud rate to 9600
'Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
'Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode

Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving

Symbol role = PORTA.2

Symbol buz = PORTB.3
Symbol led1 = PORTA.4
Symbol led2 = PORTA.5
' Symbol SDA = PORTA.0' Alias the SDA (Data) line
'Symbol SCL = PORTB.5 ' Alias the SSL (Clock) line

TRISA = %00000000
TRISD = %00000000
TRISB = %00000000
TRISC = %10000000

' LCD pin assignments
'

TRISD = %00000000
TRISB = %00000000
TRISC = %00000000
TRISC = %10010000
' LCD characteristics
'

ADCON0= %00001011
ADCON1 = %10011111
' ADCON2 = %10010111
ADCON2 = %10010000

Dim Xpos As Word
Dim Ypos As Word
Dim Addr As Word
Dim char As Byte

Dim xx As Word
Dim yy As Word
Dim z As Byte
Dim kelime[50] As Byte

Dim yonetici[7] As Byte
Dim bekci1[7] As Byte
Dim bekci2[7] As Byte
Dim bekci3[7] As Byte
Dim bekci4[7] As Byte
Dim h As Byte
Dim bilgi As Word
Dim yolcu As Byte
Dim rak As Byte
Dim hane_gec As Byte
Dim durum As Byte
' Choose an 8 pixel font
Dim saniye As Byte
Dim dakika As Byte
Dim saat As Byte
Dim gunadi As Byte
Dim gun As Byte
Dim ay As Byte
Dim yil As Byte
Dim t As Byte

Dim gun1 As Byte
Dim ay1 As Byte
Dim yil1 As Byte
Dim gun2 As Byte
Dim ay2 As Byte
Dim yil2 As Byte

Dim s1 As Byte
Dim s2 As Byte
Dim d1 As Byte
Dim d2 As Byte
Dim a1 As Byte
Dim a2 As Byte
Dim ba1 As Byte
Dim ba2 As Byte
Dim y1 As Byte
Dim y2 As Byte
Dim g1 As Byte
Dim g2 As Byte
Dim sa1 As Byte
Dim sa2 As Byte
Dim ilk As Byte
Dim dat[800] As Byte
Dim anahtar As Byte
Dim adress As Word
Dim okunan As Byte
Dim bilgix As Byte
Dim adresso As Word
Dim blok As Byte
Dim no As Byte
Dim say As Byte
Dim say1 As Byte
Dim zii As Word
Dim a As Word
Dim p As Word
Dim k As Word
rass:
say1 = 0
adresso = 1

role = 1
led1 = 1
led2 = 1

DelayMS 100

role = 0
DelayMS 100
role = 1

anahtar = 0

' LCD Display Constants
ilk = ERead 1

DelayMS 1000

' Clear both text and graphics of the LCD

' Sound hp, [Loop,2]
' Sound hp,_
' [50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160]
' '' buz = 1

' buz = 0
' DelayMS 400
bas:

For k = 0 To 800
dat[k] = 255

Next

led1 = 0
led2 = 0

DelayMS 100
HSerOut["AT+CIPMUX=1", 13, 10]
DelayMS 500
HSerOut["AT+CIPSERVER=1,1234", 13, 10]

z = 1
Xpos = 0
Ypos = 0

' hrsout "ATE1"
DelayMS 500

wf_ana:
HYYT:
Toggle led1
For k = 0 To 800
dat[k] = 255
Next

DelayMS 100
HSerOut["AT+CIPMUX=1", 13, 10]
DelayMS 500
HSerOut["AT+CIPSERVER=1,1234", 13, 10]

DelayMS 200

p= 1
dat[1] = 0
'
' HRSOut "AT+CWMODE=3"
' HSEROUT["AT+CWSAP?", 13,10]

' HSerOut["AT+CWLIF", 13, 10]
' Hrsin Wait("+IPD")

' HSerIn [dat[1]]
HSerIn [Str dat\50]
p= 50
'dd1:

' HrSIn 200, timeoutx, dat[p]
' dat[p] = HRSIn, {10, timeoutx}
' HSerIn 200, timeoutx, [dat[p]]
'Inc p

'GoTo dd1

timeoutx:
' If dat[1] = "+" Then

' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 100

HSerOut["AT+CIPMUX=1", 13, 10]
HRSIn Wait("OK")

DelayMS 700

' Prepare to send 33 bytes

' HSerOut["AT+CIPSEND=",dat[15],",153",13,10]
HSerOut["AT+CIPSEND=",dat[15],",2000",13,10] ' enter dahil değil
DelayMS 500

' HSerOut["<html><head><title>menu</title></head><body bgcolor=$#5589bf$></body></html>",13,10 ]

'95 harf
'HSerOut["<Html><head><title>esp8266 user program example</title></head><body> "]
'HSerOut["<h1><center style=$font-family:verdana;font-size:80%;color:red$>Designed by FxDev</center></h1>"]
'HSerOut["<p style=$font-family:verdana;font-size:80%;color:green$>This is ESP8266 HTML Example</p> "]
'HSerOut["<p>Be Different Everytime!!</p><p>Designed by Firat DEVECI </p> "]
'HSerOut["<p><a href=$http://hackaday.io/project/3568-esp8266-test-program$>Hackaday Project Page</a></p>"]
'HSerOut["</body></html> "]
'HSerOut[13,10]
' 100 karekter
HSerOut["<html><head><title>menu</title></head><body bgcolor=$#5589bf$></body></html> "]
HSerOut["<html><head><title></title></head><body bgcolor=$Red$></body> "]
HSerOut["<font face=$tahoma$ size=$+6$ color=$#FFFF00$>T21 </font> "]
HSerOut["<font face=$tahoma$ size=$1$ color=$#FFFF00$>____________________________________</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#FFFF00$>gokdua teknololi</font> "]
HSerOut["<P>----------------------------------------------------------------------------</p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 1 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>0.17 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 2 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>0.57 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 3 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>9.54 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 4 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>3.19 BAR </font> </p></body> "]
HSerOut["</html><form action=$http://herhangibirsite.dom/prog/adduser$ method=$post$> "]
HSerOut["<p><fieldset><legend>KONTROL KUTUSU</legend>
"]
HSerOut[13,10]
DelayMS 500

HSerOut["AT+CIPSEND=",dat[15],",800",13,10] ' enter dahil değil
DelayMS 500

HSerOut["SN_COD: <input name=$personal_fname$ type=$text$ size=$20$ tabindex=$1$/> "]
HSerOut["TXT_NO: <input name=$personal_lname$ type=$text$ size=$25$ tabindex=$2$/>

"]
HSerOut["AT_KOD: <input name=$personal_address$ type=$text$ size=$55$ tabindex=$3$/>

"]
HSerOut["</fieldset> "]
HSerOut["<fieldset><input type=$radio$ name=$pr mod$ value=$tt1$ checked=$on$> ptr mod
"]
HSerOut["<input type=$radio$ name=$cinsiyet$ value=$tt2$> txt mod
"]
HSerOut["<input type=$submit$ value=$Send$> <input type=$reset$ value=$Sıfırla$> "]
HSerOut["</P></form> "]
HSerOut[13,10]
DelayMS 500

' Prepare to send 22 bytes

DelayMS 100

' HSerOut["AT+CIPCLOSE",13,10]

' HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
' HSerOut["AT+CIPCLOSE=",34,dat[15],34,13,10]
HSerOut["AT+CIPCLOSE=$0$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$1$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$2$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$3$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$4$",13,10]
DelayMS 200

DelayMS 500

GoTo HYYT

' HSerOut["AT+CIPMUX=1", 13, 10]

'HRSIn Wait("OK")
' Print At 10 ,1, "OK"
DelayMS 2000

' Now disconnect
HSerOut["AT+CIPCLOSE=4", 13, 10]
DelayMS 100

HSerOut["emoooooo", 13, 10]
DelayMS 100

For k = 0 To 800
dat[k] = 255
Next

' HRSOut " AT+CIPSERVER=1,1234 "

'HSerOut["AT+CIPMUX=1", 13, 10]
'DelayMS 10
' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 10
' print " "
' End If

GoTo wf_ana

End

Murat Mert · 19 Eylül 2015, 13:06:52

S.A.
Einize sağlık güzel olmuş.

t600 · 19 Eylül 2015, 13:14:10

PROGRAMI KISACA ANLATAYİM:
ıp numarası geldiğinde kim olduğuna bakmaksızın html kodları gönderiliyor . Göndereceğiniz html deki tüm karekter sayısı pakedin önünde androide doğru gönderilmezse bağlantı sorunu oluşur. Bu program çalışır durumda ama siz yeni html yaparsanı buna dikkat edin
HSerOut["AT+CIPSEND=",dat[15],",2000",13,10] ' enter dahil değil

Bu kodda belirtilen 2000 rakamı enter kodu dahil olarak 2000 adet asc karekterinin gönderileceğini androide paket başında söyler .

'dd1:

' HrSIn 200, timeoutx, dat[p]
' dat[p] = HRSIn, {10, timeoutx}
' HSerIn 200, timeoutx, [dat[p]]
'Inc p

'GoTo dd1

Bu kod herhangibir cihazdan sorgulama geldiğinde kullanılır ve html yi gönderme işi başlar,

mesaj birleştirme:: 20 Eylül 2015, 03:21:28

Bu projeyi yaparken donanım bağlantılarında fıratdevecinin dökümanlarından yararlanmaya çalıştım , Fakat orada dikkat edilmesi gereken bir şey var , Oradaki esp8266 nın pin bağlantılarında bir hata var , ve çalışmıyor , bunun üzerine esp8266 nın kendi datashetine bakarak düzelttim , tam hatırlamıyorum ama gpı pinlerinden biri 1 k ile - ye mi bağlanması gerekiyordu , bunun gibi birşey

mesaj birleştirme:: 20 Eylül 2015, 03:32:45

pin bağlantıları :rest 10 k ile vcc ye , gpıo0 1 k ile vcc ye , rx tx zaten belli gpo15 ide güncelleme sırasında ya - ye ya artıya bağlıyoruz ama tam hatırlıyamadım , belkide biryere bağlamıyoruz çalışma sırasında - veya artı olabilir datashetten bakın

magnetron · 19 Eylül 2015, 13:36:56

hocam eline sağlık ,

bişey sorucam peki uzak bilgisayar

PIC 'e bir veri göndermek isterse o nasıl olacak

mesela PIC 'in kontrol ettiği bir fanın hızını yükseltmek
veya odanın sıcaklık set değerini değiştirmek

bunu PIC 'e nasıl gönderecek ?

teşekkür

t600 · 19 Eylül 2015, 13:46:08

Şöyle :
Bankanın sitesine girdiniz , Burada size doldurulması gereken alanlar çıkar .Siz buraya sifrenizi yazarsınız ve gönder dersiniz , androidiniz otamatik olarak bu bilgileri html sayfasını aldığı ıp adresine gönderir .
İnternetten html kullanımı ile ilgili bir pdf indirin , burada forum kısımlarını okuyun . Eğer pic in içine gömdüğünüz form kodlarını yazarsanız android de açılan sayfada form çıkar . Bu form da ad soy ad yerine motor hızı yazarsının ve gönder dediğiniz anda esp8266 nın tx portundan bu bilgileri 9600 baud da alırsınız , bukadar basit .
Bu işin artık pic ile ilgisi yok , html kodları ile sayfa yapmak ile ilgisi var . Yani html öğrenin

mesaj birleştirme:: 20 Eylül 2015, 03:47:27

https://www.google.com.tr/search?q=html+form+kodları&client=opera&hs=ehH&source=lnms&tbm=isch&sa=X&ved=0CAcQ_AUoAWoVChMI1trGgPWCyAIVAvEUCh1pkAu5&biw=1920&bih=982

mesaj birleştirme:: 20 Eylül 2015, 03:48:31

Bunun dışında esp nin udp ile kullanımı da var , bunun için datashet e bakmak gerek . Eğer işi html ile yapmak istemiyorsanız esp nin datashet inde bu konu anlatılıyor
udp kullanımında bir veb sayfası kullanılamaz , ama esp özelliği gereği hem udp , hem sunucu olarak kullanılabiliyor , Şöyle bir sıkıntı ile karşılaştım , Aynı anda 4 adet bilgisayara bağlı kalıyor . Bu sebepten bir timeout olayı var , Esp ye bağlı olan her bilgisayar bu süre boyunca tutulur ve sonra bağlantı kopar . Yada 4 üne birden süresiz bağlantı olur . bu süreyi siz belirliyebiliyorsunuz , dataset te bu konu anlatılıyor

mesaj birleştirme:: 20 Eylül 2015, 03:54:04

form örnekleri:
http://www.belgeler.org/hpm/html-php-mysql-giris_prg-html_form.html

mesaj birleştirme:: 19 Eylül 2015, 13:55:26

yani bu iş sizin html yue nekadar hakim olduğunuz ve hayal gücünüz ile ilgili . Bu noktada bir veb tasarımcısı olma olayı başlıyor , Yani artık herşey html ile site yapım teknikleri ile ilgili

Maxim · 19 Eylül 2015, 15:37:41

merhaba teşekkürler kod için
fakat derlenmiyor bilginize, baya tanım hatası veriyor proton.

ayrıca başlığı proton+ bölümüne taşımak lazım sanırım

t600 · 20 Eylül 2015, 05:41:47

bunu az önce denedim sorun yok . proton ıde 2.0.0.7 ile
Bu arada konuyu proton bölümüne nasıl taşıyacağız ?

'
' Toshiba T6963 Graphic LCD Demo
'
' Using PROTON+ Version 3.08 onwards
'
' Print on two text screens of the LCD then pan between them
'
' Ensure that a 6 pixel font is implemented for the LCD's circuit
'
Device = 18F4620
'Declare Xtal = 16
' Declare LCD_Type = Toshiba ' Target a Toshiba T6963 graphic LCD
OSCCON = %11101010

' Declare PLL_Req = On
Declare All_Digital = True ' Set PORTA and PORTE to digital mode

'Hserial_Baud = 9600 ' Set baud rate to 9600
'Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
'Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode

Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving

Symbol role = PORTA.2

Symbol buz = PORTB.3
Symbol led1 = PORTA.4
Symbol led2 = PORTA.5
' Symbol SDA = PORTA.0' Alias the SDA (Data) line
'Symbol SCL = PORTB.5 ' Alias the SSL (Clock) line

TRISA = %00000000
TRISD = %00000000
TRISB = %00000000
TRISC = %10000000

' LCD pin assignments
'

TRISD = %00000000
TRISB = %00000000
TRISC = %00000000
TRISC = %10010000
' LCD characteristics
'

ADCON0= %00001011
ADCON1 = %10011111
' ADCON2 = %10010111
ADCON2 = %10010000

Dim Xpos As Word
Dim Ypos As Word
Dim Addr As Word
Dim char As Byte

Dim xx As Word
Dim yy As Word
Dim z As Byte
Dim kelime[50] As Byte

Dim yonetici[7] As Byte
Dim bekci1[7] As Byte
Dim bekci2[7] As Byte
Dim bekci3[7] As Byte
Dim bekci4[7] As Byte
Dim h As Byte
Dim bilgi As Word
Dim yolcu As Byte
Dim rak As Byte
Dim hane_gec As Byte
Dim durum As Byte
' Choose an 8 pixel font
Dim saniye As Byte
Dim dakika As Byte
Dim saat As Byte
Dim gunadi As Byte
Dim gun As Byte
Dim ay As Byte
Dim yil As Byte
Dim t As Byte

Dim gun1 As Byte
Dim ay1 As Byte
Dim yil1 As Byte
Dim gun2 As Byte
Dim ay2 As Byte
Dim yil2 As Byte

Dim s1 As Byte
Dim s2 As Byte
Dim d1 As Byte
Dim d2 As Byte
Dim a1 As Byte
Dim a2 As Byte
Dim ba1 As Byte
Dim ba2 As Byte
Dim y1 As Byte
Dim y2 As Byte
Dim g1 As Byte
Dim g2 As Byte
Dim sa1 As Byte
Dim sa2 As Byte
Dim ilk As Byte
Dim dat[800] As Byte
Dim anahtar As Byte
Dim adress As Word
Dim okunan As Byte
Dim bilgix As Byte
Dim adresso As Word
Dim blok As Byte
Dim no As Byte
Dim say As Byte
Dim say1 As Byte
Dim zii As Word
Dim a As Word
Dim p As Word
Dim k As Word
rass:
say1 = 0
adresso = 1

role = 1
led1 = 1
led2 = 1

DelayMS 100

role = 0
DelayMS 100
role = 1

anahtar = 0

' rr:
' delayms 500
' toggle led1
' goto rr

' LCD Display Constants
ilk = ERead 1

DelayMS 1000

' Clear both text and graphics of the LCD

' Sound hp, [Loop,2]
' Sound hp,_
' [50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160]
' '' buz = 1

' buz = 0
' DelayMS 400
bas:

For k = 0 To 800
dat[k] = 255

Next

led1 = 0
led2 = 0

DelayMS 100
HSerOut["AT+CIPMUX=1", 13, 10]
DelayMS 500
HSerOut["AT+CIPSERVER=1,1234", 13, 10]

z = 1
Xpos = 0
Ypos = 0

' hrsout "ATE1"
DelayMS 500

wf_ana:
HYYT:
Toggle led1
For k = 0 To 800
dat[k] = 255
Next

DelayMS 100
HSerOut["AT+CIPMUX=1", 13, 10]
DelayMS 500
HSerOut["AT+CIPSERVER=1,1234", 13, 10]

DelayMS 200

p= 1
dat[1] = 0
'
' HRSOut "AT+CWMODE=3"
' HSEROUT["AT+CWSAP?", 13,10]

' HSerOut["AT+CWLIF", 13, 10]
' Hrsin Wait("+IPD")

' HSerIn [dat[1]]
HSerIn [Str dat\50]
p= 50
'dd1:

' HrSIn 200, timeoutx, dat[p]
' dat[p] = HRSIn, {10, timeoutx}
' HSerIn 200, timeoutx, [dat[p]]
'Inc p

'GoTo dd1

timeoutx:
' If dat[1] = "+" Then

' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 100

HSerOut["AT+CIPMUX=1", 13, 10]
HRSIn Wait("OK")

DelayMS 700

' Prepare to send 33 bytes

' HSerOut["AT+CIPSEND=",dat[15],",153",13,10]
HSerOut["AT+CIPSEND=",dat[15],",2000",13,10] ' enter dahil değil
DelayMS 500

' HSerOut["<html><head><title>menu</title></head><body bgcolor=$#5589bf$></body></html>",13,10 ]

'95 harf
'HSerOut["<Html><head><title>esp8266 user program example</title></head><body> "]
'HSerOut["<h1><center style=$font-family:verdana;font-size:80%;color:red$>Designed by FxDev</center></h1>"]
'HSerOut["<p style=$font-family:verdana;font-size:80%;color:green$>This is ESP8266 HTML Example</p> "]
'HSerOut["<p>Be Different Everytime!!</p><p>Designed by Firat DEVECI </p> "]
'HSerOut["<p><a href=$http://hackaday.io/project/3568-esp8266-test-program$>Hackaday Project Page</a></p>"]
'HSerOut["</body></html> "]
'HSerOut[13,10]
' 100 karekter
HSerOut["<html><head><title>menu</title></head><body bgcolor=$#5589bf$></body></html> "]
HSerOut["<html><head><title></title></head><body bgcolor=$Red$></body> "]
HSerOut["<font face=$tahoma$ size=$+6$ color=$#FFFF00$>T21 </font> "]
HSerOut["<font face=$tahoma$ size=$1$ color=$#FFFF00$>____________________________________</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#FFFF00$>gokdua teknololi</font> "]
HSerOut["<P>----------------------------------------------------------------------------</p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 1 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>0.17 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 2 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>0.57 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 3 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>9.54 BAR </font> </p> "]
HSerOut["<p><font face=$tahoma$ size=$+2$ >BASINC 4 : </font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#5589bf$>gokdua tekno</font> "]
HSerOut["<font face=$tahoma$ size=$+2$ color=$#ffff00$>3.19 BAR </font> </p></body> "]
HSerOut["</html><form action=$http://herhangibirsite.dom/prog/adduser$ method=$post$> "]
HSerOut["<p><fieldset><legend>KONTROL KUTUSU</legend>
"]
HSerOut[13,10]
DelayMS 500

HSerOut["AT+CIPSEND=",dat[15],",800",13,10] ' enter dahil değil
DelayMS 500

HSerOut["SN_COD: <input name=$personal_fname$ type=$text$ size=$20$ tabindex=$1$/> "]
HSerOut["TXT_NO: <input name=$personal_lname$ type=$text$ size=$25$ tabindex=$2$/>

"]
HSerOut["AT_KOD: <input name=$personal_address$ type=$text$ size=$55$ tabindex=$3$/>

"]
HSerOut["</fieldset> "]
HSerOut["<fieldset><input type=$radio$ name=$pr mod$ value=$tt1$ checked=$on$> ptr mod
"]
HSerOut["<input type=$radio$ name=$cinsiyet$ value=$tt2$> txt mod
"]
HSerOut["<input type=$submit$ value=$Send$> <input type=$reset$ value=$Sıfırla$> "]
HSerOut["</P></form> "]
HSerOut[13,10]
DelayMS 500

' Prepare to send 22 bytes

DelayMS 100

' HSerOut["AT+CIPCLOSE",13,10]

' HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
' HSerOut["AT+CIPCLOSE=",34,dat[15],34,13,10]
HSerOut["AT+CIPCLOSE=$0$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$1$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$2$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$3$",13,10]
DelayMS 200
HSerOut["AT+CIPCLOSE=$4$",13,10]
DelayMS 200

DelayMS 500

GoTo HYYT

' HSerOut["AT+CIPMUX=1", 13, 10]

'HRSIn Wait("OK")
' Print At 10 ,1, "OK"
DelayMS 2000

' Now disconnect
HSerOut["AT+CIPCLOSE=4", 13, 10]
DelayMS 100

HSerOut["emoooooo", 13, 10]
DelayMS 100

For k = 0 To 800
dat[k] = 255
Next

' HRSOut " AT+CIPSERVER=1,1234 "

'HSerOut["AT+CIPMUX=1", 13, 10]
'DelayMS 10
' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 10
' print " "
' End If

GoTo wf_ana

End

t600 · 20 Eylül 2015, 11:18:53

ekransız yazılım . Bunu bir fabrika için yapmıştım 1 yıl önce , an6 analog girişi okuyor ve wifi ye veriyor . Modemi esp ye köprülemiştik yada android ile bağlanıp tanklardaki yağ miktarını görebiliyorduk vbb :

'yazılım emrah gökdua egokdua@hotmail.com
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'
' Toshiba T6963 Graphic LCD Demo
'
' Using PROTON+ Version 3.08 onwards
'
' Print on two text screens of the LCD then pan between them
'
' Ensure that a 6 pixel font is implemented for the LCD's circuit
'
Device = 18F4620

Declare Xtal = 16
' Declare LCD_Type = Toshiba ' Target a Toshiba T6963 graphic LCD
'

Declare PLL_Req = On
Declare All_Digital = True ' Set PORTA and PORTE to digital mode

'Hserial_Baud = 9600 ' Set baud rate to 9600
'Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
'Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode

Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving

Symbol role = PORTA.2
Symbol sil = PORTA.4
Symbol buz = PORTB.3
Symbol led = PORTA.3

TRISA = %00110000
TRISD = %00000000
TRISB = %00000000
TRISC = %10000000

' LCD pin assignments
'

Declare All_Digital = True ' Set PORTA and PORTE to digital mode

TRISD = %00000000
TRISB = %00000000
TRISC = %00000000
TRISC = %10010000

' LCD characteristics
'

ADCON0= %00001011
ADCON1 = %10011111
' ADCON2 = %10010111
ADCON2 = %10010000
ADCON0= %00011011
ADCON1 = %10001111

TRISE = %111
' LCD pin assignments

' LCD characteristics
'

Dim Xpos As Word
Dim Ypos As Word
Dim Addr As Word
Dim char As Byte

Dim xx As Word
Dim yy As Word
Dim z As Byte
Dim kelime[50] As Byte

Dim yonetici[7] As Byte
Dim bekci1[7] As Byte
Dim bekci2[7] As Byte
Dim bekci3[7] As Byte
Dim bekci4[7] As Byte
Dim h As Byte
Dim bilgi As Word
Dim yolcu As Byte
Dim rak As Byte
Dim hane_gec As Byte
Dim durum As Byte
' Choose an 8 pixel font
Dim saniye As Byte
Dim dakika As Byte
Dim saat As Byte
Dim gunadi As Byte
Dim gun As Byte
Dim ay As Byte
Dim yil As Byte
Dim t As Byte

Dim gun1 As Byte
Dim ay1 As Byte
Dim yil1 As Byte
Dim gun2 As Byte
Dim ay2 As Byte
Dim yil2 As Byte

Dim s1 As Byte
Dim s2 As Byte
Dim d1 As Byte
Dim d2 As Byte
Dim a1 As Byte
Dim a2 As Byte
Dim ba1 As Byte
Dim ba2 As Byte
Dim y1 As Byte
Dim y2 As Byte
Dim g1 As Byte
Dim g2 As Byte
Dim sa1 As Byte
Dim sa2 As Byte
Dim ilk As Byte
Dim dat[200] As Byte
Dim anahtar As Byte
Dim adress As Word
Dim okunan As Byte
Dim bilgix As Byte
Dim adresso As Word
Dim blok As Byte
Dim no As Byte
Dim say As Byte
Dim say1 As Byte
Dim zii As Word
Dim a As Word
Dim p As Word
Dim k As Word
Dim akil1 As Byte
Dim akil2 As Byte
Dim port As Byte
Dim haf As Byte
Dim mevcut As Word
Dim m[8] As Byte
Dim e[8] As Byte
Dim sarfiyat As Word
Dim ara As Word
Dim hafiza As Word

sifirla:
haf = 0
rass:
say1 = 0
adresso = 1

role = 1
buz = 0

DelayMS 100
buz = 1
led = 1
role = 0
DelayMS 100
role = 1
led = 0
buz = 0
anahtar = 0
' LCD Display Constants

If sil = 0 Then
GoSub bipp
EWrite 1,

GoSub bipp
DelayMS 500
GoSub bipp
DelayMS 500
GoSub bipp
DelayMS 500
GoSub bipp
DelayMS 500
End If

ilk = ERead 1

If ilk <> 123 Then
GoSub bipp
ilk = 123
sarfiyat = 0
EWrite 1, [ilk]
EWrite 5, [sarfiyat]
End If

sarfiyat = ERead 5

DelayMS 200

HYYT:

' Sound hp, [Loop,2]
' Sound hp,_
' [50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160]
' '' buz = 1

' buz = 0
' DelayMS 400
bas:
Timeout:

HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
DelayMS 500

HSerOut["AT+CIPCLOSE=",34,"1",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"2",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"3",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"4",34,13,10]
DelayMS 500

donus2:
mevcut = ADIn 6
mevcut = ADIn 6 ' Place the conversion into variable Var1
mevcut = mevcut - 160
mevcut = mevcut / 5
If mevcut > 160 Then
mevcut = 0
hafiza = mevcut
End If

If hafiza < (mevcut - 3) Then
GoSub bipp

ara = mevcut - hafiza
sarfiyat = sarfiyat + ara
EWrite 5, [sarfiyat] ' kapalı olacak
GoSub bip

End If
hafiza = mevcut

z = 1
Xpos = 0
Ypos = 0

wf_ana:

p= 1
dat[1] = 0

p = 0
timeoutx:
' If dat[1] = "+" Then

'Print At 1 ,1, "port" , dat[11],dat[12], dat[13], dat[14],dat[15],dat[16],dat[17]

err:
'HSerIn [z]
'Print At Xpos,2, dec z
'inc xpos
'if xpos > 16 then
'gg:
'goto gg
'end if

'goto err
akil1 = 0
akil2 = 0
p = 0
z=0

HSerOut["AT+CIPMUX=1", 13, 10]
DelayMS 500

HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 500

ana:
aax1:
z = 0
HSerIn 60000, Timeout, [z]
If z = 10 Then
GoTo aax1
End If
If z = 13 Then
GoTo aax1
End If

If z="," Then
aax11:
HSerIn 200, Timeout, [z]

If z = 10 Then
GoTo aax11
End If
If z = 13 Then
GoTo aax11
End If
port=z

GoTo aax2
End If
GoTo aax1

aax2:

DelayMS 200

yenile:
donus1:
For k = 0 To 7
m[k] = 0
Next
For k = 0 To 7
e[k] = 0
Next

mevcut = ADIn 6
mevcut = ADIn 6 ' Place the conversion into variable Var1
mevcut = mevcut - 160
mevcut = mevcut / 5
If mevcut > 160 Then

mevcut = 0
hafiza = mevcut
End If

If hafiza < (mevcut - 3) Then

GoSub bipp

ara =0
ara = mevcut - hafiza
sarfiyat = sarfiyat + ara
EWrite 5, [sarfiyat] ' kapalı olacak
GoSub bip
DelayMS 100
End If
hafiza = mevcut
StrN m = Str$(Dec mevcut)
StrN e = Str$(Dec sarfiyat)

' Prepare to send 33 bytes

' HSerOut["AT+CIPSEND=",dat[15],",153",13,10]
HSerOut["AT+CIPSEND=",port,",257",13,10] ' enter dahil değil
DelayMS 1000

HSerOut["<head><title>devreelektronik</title><head><body>"] '48
HSerOut["<h1> T21 devreelektronik.com </h1> "]
HSerOut["<h1> ----------------------- </h1> "]
HSerOut["<h1>ANADOLU CAM Tank 1 </h1> "]
HSerOut["<h1> mevcut: ",m[0],m[1],m[2],m[3]," litre </h1> "] '30
HSerOut["<h1> sarfiyat: ",e[0],e[1],e[2],e[3],e[4],e[5]," litre </h1>"] '33

HSerOut[13,10]
DelayMS 500

HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
DelayMS 500

HSerOut["AT+CIPCLOSE=",34,"1",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"2",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"3",34,13,10]
DelayMS 500
HSerOut["AT+CIPCLOSE=",34,"4",34,13,10]
DelayMS 500

GoSub bipp
DelayMS 3000
RCREG = 0
z = 0

GoTo HYYT

' HSerOut["AT+CIPMUX=1", 13, 10]

'HRSIn Wait("OK")
' Print At 10 ,1, "OK"
DelayMS 2000

' Now disconnect
HSerOut["AT+CIPCLOSE=5", 13, 10]
DelayMS 100

HSerOut["emoooooo", 13, 10]
DelayMS 100

For k = 0 To 800
dat[k] = 255
Next

' HRSOut " AT+CIPSERVER=1,1234 "

'HSerOut["AT+CIPMUX=1", 13, 10]
'DelayMS 10
' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
DelayMS 10
' print " "
' End If

GoTo wf_ana

bipp:

buz = 1
DelayMS 40
buz = 0
DelayMS 120

buz = 1
DelayMS 40
buz = 0
DelayMS 40

Return
bip:

buz = 1
DelayMS 10
buz = 0
DelayMS 30

buz = 1
DelayMS 10
buz = 0
DelayMS 10

Return

dolum_bekle1:
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
Return

dolum_bekle2:
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
DelayMS 2000
GoSub bipp
Return

End

t600 · 21 Eylül 2015, 08:05:42

çalıştıramayan olursa yardımcı olurum .

OG · 22 Eylül 2015, 05:21:00

Eline sağlık @t600 ,
code tag içine alsaydın daha toplu olurdu..

t600 · 22 Eylül 2015, 07:51:57

Teşekkürler , Patron code tag ne demek ?

OG · 22 Eylül 2015, 08:01:59

Estağfirullah,

Code tag (kod etiketi) kodların derli toplu olmasını sağlayan html etiket , alıntı yaparken kullandığımız gibi bir şey

Declare Xtal = 16
   ' Declare LCD_Type = Toshiba                          ' Target a Toshiba T6963 graphic LCD
'
       
   Declare PLL_Req = On
       Declare All_Digital = True              ' Set PORTA and PORTE to digital mode
   
     
 'Hserial_Baud = 9600 ' Set baud rate to 9600
 'Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
'Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode     

Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving

Foruma mesajımızı yazarken üstte görünen butonlardan # ile etiketli butona basınca kolayca eklenir, kodlar arasına yapıştırılır

ayrıca code uzun ise, forumun karakter sayısı kısıtlaması sebebiyle, code tag olmadığında sayfada kodlardan bir bölümü çıkmayabilir.

t600 · 22 Eylül 2015, 08:19:27

'yazılım emrah gökdua  egokdua@hotmail.com
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'
' Toshiba T6963 Graphic LCD Demo
'
' Using PROTON+ Version 3.08 onwards
'
' Print on two text screens of the LCD then pan between them
'
' Ensure that a 6 pixel font is implemented for the LCD's circuit
'
    Device = 18F4620 
    
   

  Declare Xtal = 16
   ' Declare LCD_Type = Toshiba                          ' Target a Toshiba T6963 graphic LCD
'
       
   Declare PLL_Req = On
       Declare All_Digital = True              ' Set PORTA and PORTE to digital mode
    
     
 'Hserial_Baud = 9600 ' Set baud rate to 9600
 'Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
'Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode     

Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving
              
  Symbol role = PORTA.2      
 Symbol sil = PORTA.4
  Symbol buz = PORTB.3
  Symbol led = PORTA.3
    
 
          
       TRISA = %00110000
  TRISD = %00000000
   TRISB = %00000000
    TRISC = %10000000
    
    


' LCD pin assignments
'

            Declare All_Digital = True              ' Set PORTA and PORTE to digital mode
    
          
          
      
  TRISD = %00000000
   TRISB = %00000000
    TRISC = %00000000
    TRISC = %10010000
   
' LCD characteristics
'

           ADCON0= %00001011  
      ADCON1 = %10011111   
     ' ADCON2 = %10010111
     ADCON2 = %10010000 
             ADCON0= %00011011 
             ADCON1 = %10001111 

                TRISE = %111
' LCD pin assignments

' LCD characteristics
'

           Dim  Xpos    As Word
Dim  Ypos    As Word
Dim  Addr    As Word
Dim  char    As Byte 
          

Dim xx As Word
Dim yy As Word        
Dim z As Byte 
Dim kelime[50] As Byte   

Dim yonetici[7] As Byte   
 Dim bekci1[7] As Byte   
 Dim bekci2[7] As Byte   
 Dim bekci3[7] As Byte   
 Dim bekci4[7] As Byte   
        Dim h As Byte
     Dim bilgi As Word
 Dim yolcu As Byte
  Dim rak As Byte
  Dim hane_gec As Byte      
    Dim durum As Byte
            ' Choose an 8 pixel font
       Dim  saniye As Byte
Dim  dakika  As Byte
Dim  saat  As Byte
Dim  gunadi  As Byte
Dim  gun   As Byte 
Dim  ay   As Byte 
Dim  yil  As Byte 
Dim t As Byte

 Dim  gun1   As Byte 
Dim  ay1   As Byte 
Dim  yil1  As Byte
Dim  gun2   As Byte 
Dim  ay2   As Byte 
Dim  yil2  As Byte

Dim s1 As Byte
Dim s2 As Byte
 Dim d1 As Byte
Dim d2 As Byte
 Dim a1 As Byte
Dim a2 As Byte
Dim ba1 As Byte
Dim ba2 As Byte
Dim y1 As Byte
Dim y2 As Byte
 Dim g1 As Byte
Dim g2 As Byte
 Dim sa1 As Byte
Dim sa2 As Byte
Dim ilk As Byte
 Dim dat[200] As Byte
Dim anahtar As Byte
Dim adress As Word
Dim okunan As Byte
Dim bilgix As Byte
Dim adresso As Word
 Dim blok As Byte
 Dim no As Byte
  Dim say As Byte
     Dim say1 As Byte
  Dim zii As Word
   Dim a As Word
   Dim p As Word
   Dim k As Word
   Dim akil1 As Byte
   Dim akil2 As Byte  
    Dim port As Byte
    Dim haf As  Byte
    Dim mevcut As Word
    Dim m[8] As Byte
     Dim e[8] As Byte
     Dim sarfiyat As Word
          Dim ara As Word
     Dim hafiza As Word
     
     sifirla:
    haf = 0
  rass:
   say1 = 0
  adresso = 1

   role = 1
     buz = 0
   
   DelayMS 100
   buz = 1
   led = 1
   role = 0
   DelayMS 100
   role = 1
   led = 0
   buz = 0
anahtar = 0
' LCD Display Constants

   If sil = 0 Then
   GoSub bipp
     EWrite 1,

     GoSub bipp
     DelayMS 500
     GoSub bipp
     DelayMS 500
      GoSub bipp
     DelayMS 500
     GoSub bipp
     DelayMS 500
     End If
     
     
     ilk = ERead 1
                     
           If ilk <> 123 Then
           GoSub bipp
    ilk = 123
    sarfiyat = 0    
      EWrite 1, [ilk]
       EWrite 5, [sarfiyat]
       End If
 
         sarfiyat = ERead 5
 
 
                DelayMS 200
    
            
             
          
       
           HYYT: 
     
    ' Sound hp, [Loop,2]
 ' Sound hp,_ 
 ' [50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160] 
   '  '' buz = 1
        
     '    buz = 0 
    '      DelayMS 400
          bas:
              Timeout:  
        
                      HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
                  DelayMS 500
                
                 HSerOut["AT+CIPCLOSE=",34,"1",34,13,10]
                  DelayMS 500
                 HSerOut["AT+CIPCLOSE=",34,"2",34,13,10]
                 DelayMS 500
                  HSerOut["AT+CIPCLOSE=",34,"3",34,13,10]
                 DelayMS 500
                  HSerOut["AT+CIPCLOSE=",34,"4",34,13,10]
                  DelayMS 500 
    
          
                

       
              
                donus2:
               mevcut = ADIn 6  
              mevcut = ADIn 6 ' Place the conversion into variable Var1  
              mevcut = mevcut - 160 
              mevcut = mevcut / 5
                 If mevcut > 160 Then
                 mevcut = 0
                      hafiza = mevcut
                 End If
      
    
                   If hafiza < (mevcut - 3) Then
                     GoSub bipp 
                    
      ara = mevcut - hafiza
      sarfiyat = sarfiyat + ara
      EWrite 5, [sarfiyat]          ' kapalı olacak
        GoSub bip

      End If
              hafiza = mevcut     
              
              
              
              
              
              
              
        
              z = 1
              Xpos = 0
              Ypos = 0
                   
               
            
           wf_ana:      
                 
  
             

 
 
                           
              
          
             p= 1
             dat[1] = 0
             
             
                 p = 0
                timeoutx: 
              '  If dat[1] = "+" Then
                
             'Print At 1 ,1, "port" , dat[11],dat[12], dat[13], dat[14],dat[15],dat[16],dat[17]
           
                 err:
                'HSerIn  [z] 
                'Print At Xpos,2, dec z
                'inc xpos
                'if xpos > 16 then
                'gg:
                'goto gg
                'end if
                
                'goto err
                 akil1 = 0
                 akil2 = 0
                p = 0
                z=0
            
              HSerOut["AT+CIPMUX=1", 13, 10]
              DelayMS 500
              
                  
              HSerOut["AT+CIPSERVER=1,1234", 13, 10] 
                    DelayMS 500      
       
 ana:
    aax1:   
    z = 0 
 HSerIn 60000, Timeout, [z] 
    If z = 10  Then
    GoTo aax1
    End If
    If z = 13  Then
    GoTo aax1
    End If
    
    If z="," Then
    aax11:
    HSerIn 200, Timeout,  [z]
    
        If z = 10  Then
    GoTo aax11
    End If
    If z = 13  Then
    GoTo aax11
    End If
    port=z
    
    GoTo aax2
    End If
    GoTo aax1
            
            aax2:
 
                                  
           DelayMS 200
                  
                  yenile:
                   donus1:              
                For k = 0 To 7
          m[k] = 0
          Next
            For k = 0 To 7
          e[k] = 0
          Next 
          
                  mevcut = ADIn 6 
                  mevcut = ADIn 6 ' Place the conversion into variable Var1  
                   mevcut = mevcut - 160 
                   mevcut = mevcut / 5
                 If mevcut > 160 Then
           
                 mevcut = 0
                      hafiza = mevcut 
                 End If
      
    
                   If hafiza < (mevcut - 3) Then 
                    
                     GoSub bipp
                
                     ara =0   
      ara = mevcut - hafiza
      sarfiyat = sarfiyat + ara
       EWrite 5, [sarfiyat]          ' kapalı olacak
        GoSub bip
      DelayMS 100
      End If
              hafiza = mevcut   
               StrN m = Str$(Dec mevcut)
        StrN e = Str$(Dec sarfiyat)     
              
                
                
                
                
                
                
               ' Prepare to send 33 bytes
               
               
        '    HSerOut["AT+CIPSEND=",dat[15],",153",13,10]      
                    HSerOut["AT+CIPSEND=",port,",257",13,10]     '  enter dahil değil
        DelayMS 1000 
        
              
       
 

HSerOut["<head><title>devreelektronik</title><head><body>"]  '48
HSerOut["<h1> T21 devreelektronik.com   </h1>            "]
HSerOut["<h1> -----------------------   </h1>            "]
HSerOut["<h1>ANADOLU CAM  Tank 1 </h1>                   "]
HSerOut["<h1> mevcut: ",m[0],m[1],m[2],m[3]," litre </h1> "] '30
HSerOut["<h1> sarfiyat: ",e[0],e[1],e[2],e[3],e[4],e[5]," litre </h1>"]   '33
                                                         
HSerOut[13,10] 
DelayMS 500

             HSerOut["AT+CIPCLOSE=",34,"0",34,13,10]
                  DelayMS 500
                
                 HSerOut["AT+CIPCLOSE=",34,"1",34,13,10]
                  DelayMS 500
                 HSerOut["AT+CIPCLOSE=",34,"2",34,13,10]
                 DelayMS 500
                  HSerOut["AT+CIPCLOSE=",34,"3",34,13,10]
                 DelayMS 500
                  HSerOut["AT+CIPCLOSE=",34,"4",34,13,10]
                  DelayMS 500 
    
          
                     GoSub bipp
                  DelayMS 3000 
                  RCREG = 0
                  z = 0


                

   
          GoTo HYYT
 

 
                           '   HSerOut["AT+CIPMUX=1", 13, 10]
                              
    'HRSIn Wait("OK")
     '        Print At 10 ,1, "OK" 
                 DelayMS 2000
         
    ' Now disconnect
    HSerOut["AT+CIPCLOSE=5", 13, 10]
 DelayMS 100
              
          HSerOut["emoooooo", 13, 10]
          DelayMS 100       
           
                For k = 0 To 800
          dat[k] = 255
          Next
           
               
          '  HRSOut " AT+CIPSERVER=1,1234 "
          
            'HSerOut["AT+CIPMUX=1", 13, 10]
            'DelayMS 10
           ' HSerOut["AT+CIPSERVER=1,1234", 13, 10]
             DelayMS 10
            ' print  " "
             '  End If
                 
             
              GoTo wf_ana       
                 
                      
           bipp:
  
  
     
       buz = 1
          DelayMS 40
         buz = 0 
          DelayMS 120

       buz = 1
          DelayMS 40
         buz = 0 
          DelayMS 40

               Return
                 bip:
  
  
     
       buz = 1
          DelayMS 10
         buz = 0 
          DelayMS 30

       buz = 1
          DelayMS 10
         buz = 0 
          DelayMS 10
  
  
     Return
  
     
      dolum_bekle1:
      DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
        DelayMS 2000
      GoSub bipp
     Return
      
      
      dolum_bekle2:
          DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
       DelayMS 2000
      GoSub bipp
        DelayMS 2000
      GoSub bipp
    Return
    
    
    

    
    End

anladım galiba

test

mesaj birleştirme:: 22 Eylül 2015, 22:27:30

bilgi :esp nin donanım bağlantıları ile sorun yaşıyorsanız bu modülü alın , Tak ve kullan şeklinde . Güncellemek için usb seri converter kullanın.
http://tr.aliexpress.com/item/Esp8266-ESP-12-wifi-module-esp8266-serial-wifi-coexistence-full-AP-test-board/32268087153.html?ws_ab_test=201526_3,201527_2_71_72_73_74_75,201409_1

nioo · 17 Kasım 2015, 00:36:07

Hocam merhaba,
pic tx ucunu esp8266 ya direkmi bağladınız.
yada bir şekilde 3,3 volta düşürdünüzmü?

Picproje Elektronik Sitesi

Haberler:

Ynt: Ynt: esp8266 proton basic kodları

t600

Murat Mert

t600

magnetron

t600

Maxim

t600

t600

t600

OG

t600

OG

t600

nioo