1 MİLYONA KADAR SAYAN SAYICI????

[batu]

ARKADAŞLAR PBP DA BİR SAYICI YAPMAK İSTİYORUM VE BU SAYICININ EN AZ 1 MİLYONA KADAR SAYABİLMESİNİ VE SAYIYI EKRANA YAZMASINI İSTİYORUM. TÜM DENEMELERİME RAGMEN BİR TÜRLÜ 65535DEN DAHA FAZLA SAYDIRAMADIM, YARDIMCI OLURSANIZ SEVİNİRİM....
**SAYICIYI KULLANMAYI DÜŞÜNDÜĞÜM YER, BİR MAKİNENİN KAÇ KERE ÇALIŞTIĞINI GÖREBİLMEK İÇİN BU SAYICIYI KULLANACAĞIM

[aykut54]

kardeş bende pbp sayıcı yaptı 65535' kadar sayıyor word cinsinden tanımlama olup mak.65535 kadar sayar

bit
byte     mak:0-255
word    mak:0-65535

[batu]

Aykut54 ilginiz için teşekkür ederim, ama ben hala 1 milyona kadar saydıramadım
ARkadaşlar konu ile ilgili bilgisi-görüşü olanlar varsa lütfen paylaşsınlar...

kardeş bende pbp sayıcı yaptı 65535' kadar sayıyor word cinsinden tanımlama olup mak.65535 kadar sayar

bit
byte     mak:0-255
word    mak:0-65535

[ete]

Çok zorda kalırsanız, desimal sayı sisteminin mantığını hatırlayın ve aynısını programınıza uyarlayın. Aşağıda verdiğim sistemle isterseniz milyon isterseniz milyar sayacı yapabilirsiniz.
Sayılan değerin işlenmesini ise yine digit değişkenlerini kullanarak yapabilirsiniz.
İşte örnek

'****************************************************************
'*  Name    :SAYAC.BAS                                          *
'*  Author  : [ETE]                                             *
'*  Notice  : Copyright (c) 2007                                *
'*  Date    : 25.09.2003                                        *
'*  Version : 1.0                                               *
'*  Notes   : MILYON SAYACI                                     *
'*          :                                                   *
'****************************************************************
   DEFINE LCD_DREG		PORTB	'LCD data bacakları hangi porta bağlı?
	DEFINE LCD_DBIT		4		'LCD data bacakları hangi bitten başlıyor?
	DEFINE LCD_RSREG	PORTB	'LCD RS Bacağı Hangi Porta bağlı ?
	DEFINE LCD_RSBIT	1		'LCD RS bacağı Hangi Bite bağlı? PORTB.2
	DEFINE LCD_EREG		PORTB	'LCD Enable Bacağı Hangi Porta bağlı?
	DEFINE LCD_EBIT		3	    'LCD Enable Bacağı Hangi bite bağlı ? PORTB.3
	DEFINE LCD_BITS		4		'LCD 4 bit mi yoksa 8 bit olarak bağlı?
	DEFINE LCD_LINES	2		'LCD Kaç sıra yazabiliyor
trisa=0
trisb=0
       
BIR VAR BYTE
ONN VAR BYTE
YUZ VAR BYTE
BINN VAR BYTE
ONBIN VAR BYTE
YUZBIN VAR BYTE
MILYON VAR BYTE

clear
basla:

      BIR=BIR +1
      
      IF BIR=10 THEN
         BIR=0
         ONN=ONN+1
           IF ONN=10 THEN
              ONN=0
                YUZ=YUZ+1
                  IF YUZ=10 THEN
                     YUZ=0
                       BINN=BINN+1
                         IF BINN=10 THEN
                            BINN=0
                              ONBIN=ONBIN+1
                                IF ONBIN=10 THEN
                                  ONBIN=0 
                                    YUZBIN=YUZBIN+1
                                      IF YUZBIN=10 THEN
                                        YUZBIN=0
                                          MILYON=MILYON+1
                                            IF MILYON=10 THEN MILYON=0
                                      ENDIF        
                                 ENDIF
                          ENDIF        
                   ENDIF 
             ENDIF
         ENDIF

         LCDOUT $FE,2,DEC1 MILYON,".",DEC1 YUZBIN,DEC1 ONBIN, DEC1 BINN,".",DEC1 YUZ,DEC1 ONN,DEC1 BIR
'         PAUSE 30
         GOTO BASLA

ete

[aykut54]

ete hocam elinize sağlık peki bu işlemi dispalyde yapabilirmiyiz

[ete]

Kod a dikkat edersen elde edilen sayının LCD display de gösterilmesi için komut ilave ettim son tarafta.

Şayet 7 segment display için soruyor isen işin daha da kolay. Zaten değişkenlerin her biri tek haneli rakam tutuyorç Dolayısıyla sırası ile rakamları displaylere verirsen sayıyı 7 segment de de görebilirsin.

Ete

[e3]

ETE hocam siz daha iyi biliyorsunuzdur ancak FLOAT tipi değişken yapsak çalışmaz mı?Yeni yeni öğreniyorum da.

[batu]

ARKADAŞLAR ALAKANIZ İÇİN HEPİNİZE TEŞEKKÜR EDERİM.

ETE BEY DEDİĞİNİZ SİSTEME GÖRE PROGRAMLADIM VE SORUNUM ÇÖZÜLDÜ, BİLGİNİZ VE İLGİNİZ İÇİN ÇOK TEŞEKKÜR EDERİM...

[ibrsel]

@ protection ;

ETE hocam siz daha iyi biliyorsunuzdur ancak FLOAT tipi değişken yapsak çalışmaz mı?

PBP da float diye değikken tipi yok..Bu yüzden ETE hocamız sistemi nasıl kandırabileceğimizi güzelce anlatmış..
Float değişken tipi PROTON  ve C de  var diye biliyorum..

[e3]

Ben zaten Proton kullandığım için aklıma öyle geliverdi bir an. Unutmuşum buranın Pic Basic başlığı olduğunu, pardon. :roll: Çalışmalarınızda başarılar.Kolay gelsin.

[OG]

Kendim dahil olmak üzere PBP'culara bir uyarı, mümkün olduğunca Proton'a doğru adımlarını ilerletsinler, iskelet PBP ile aynı (basic), sonuç ise çok çok farklı.

PBP da hazırlanmış ve 3900 küsür size a sahip bir dosyayı define>declare, pause>delayms, gibi temel komutlar hariç diğerlerinde hiç bir değişiklik yapmadan proton da denedim, sonuçta 500 küsür word luk azalma oldu. Hem de ciddi güçlü bir yapısı var.

[sitenindelisi]

ETE hocam siz daha iyi biliyorsunuzdur ancak FLOAT tipi değişken yapsak çalışmaz mı?Yeni yeni öğreniyorum da. Smile

Çalışır fakat DWORD ile daha şık olur. RAM i aynı oranda tüketmelerine karşın, ne yazık ki ROM u aynı  oranda  tüketmiyorlar.

[Analyzer]

Selam,

Float tip değişken yoksa "yoğun" matematiksel işlemleri de yapamıyor olması lazım? Float olmaması gerçekten ilginç..

Analyzer

[ete]

Milyona kadar sayıcının 7 segment display gurubunda nasıl göründüğünü merak eden var ise aşağıdaki linke koyduğum program ve simulasyon dosyalarına bakabilir.

Ete

http://rapidshare.com/files/20235085/MILYON.rar.html