{
*****************************************************************************
* Name : PROJE.BAS *
* Author : ahmet2004 *
* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
* : All Rights Reserved *
* Date : 30.06.2008 *
* Version : 1.01 *
* Notes : GLCD 320x240 *
* Tarih : 18.11.2008 *
*****************************************************************************
}
Program lcd_320X240
Include "ahmet.bas"
Dim xxx As Word
Dim yyy As Word
If Not Enabled Then
Time.Hour = 17
Time.Minute = 22
Time.Second = 00
Date.Day = 30
Date.Month = 06
Date.Year = 8
DS1307.Write(Time,Date)
EndIf
Cls(1)
Cls(2)
Cls(3)
WriteControl(RTC_SQWE)
Brush.Style = bsSolid
Brush.Color = $00
SetFont(VerdanaBold)
Rectangle(0, 0, 319, 239)
WriteAt(230,226,"@ahmet2004")
Circle(180, 140, 80)
Ellipse(190, 170, 40, 20)
For xxx = 80 To 317
yyy = (sin(xxx)) * 3.1515926 + 127
LineTo(xxx,yyy)
Next
SetFont(ArialBlack)
WriteAt(20,2,"picproje.org")
SetImage(290, 180, BatteryImage, cmCopy)
Rectangle(80, 50, 317, 237)
SetFont(SansSerif)
While true
DS1307.Read(Time, Date)
Fill(3, 217, 50, 238)
WriteAt(4,216,DecToStr(Time.Hour, 2),":",DecToStr(Time.Minute,2),":",DecToStr(Time.Second,2))
WriteAt(4,226,DecToStr(Date.Day,2),"/",DecToStr(Date.Month,2),"/","20",DecToStr(Date.Year,2))
DelayMS(1000)
Wend
Projeyi yazıyorum lüften başka konu açıp burayıda öldürmeyin.
(http://resimekle.gen.tr/uploads/JP246517.jpg)
Şema:
(http://resimekle.gen.tr/uploads/8NK53363.jpg)
kodu derleme sırasında ahmet.bas dosyası yok. diyorr
Proje değerleri bu dosya içinde... Özellikle vermedim.
Bu daha çok hazırcılığa kaçıyor.
Programı kullanmaya başlayan herkes kendine uygun ayarları
yapabilir.Hazıra konma yok.Çalışarak kendiniz oluşturun.
Zaten çok kolay kullanımlı bir program.