Grafik Lcd 320x240 Uygulama 2

[ahmet2004]

{
*****************************************************************************
*  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.

[ahmet2004]

Şema:

[hatmeto]

kodu derleme sırasında ahmet.bas dosyası yok. diyorr

[ahmet2004]

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.