FUNCTION Kullanımı

 

">DECLARE FUNCTION Rastgele! (MaxDeger!)
CLS

Rast = Rastgele(100)

PRINT Rast

END

FUNCTION Rastgele (MaxDeger)
        Rastgele = INT(RND * MaxDeger)
END FUNCTION
 

 

  Kurlarla Çevrim Yapan Uygulama

">DECLARE FUNCTION KurGiris! ()
DECLARE SUB KurGoster ()
CLS

DIM Dovizler(1, 1) AS STRING
DIM Kurlar(1, 1) AS DOUBLE


CALL KurGiris

CALL KurGoster

END

FUNCTION KurGiris


FOR i = 0 TO LEN(Dovizler) / 2

        INPUT "Kur Adi, Alış, Satış, Sembol", Dovizler$(i, 0), Kurlar(i, 0), Kurlar(i, 1), Dovizler$(i, 1)

NEXT


END FUNCTION

SUB KurGoster


PRINT "Kur Adi, Alış, Satış, Sembol"

FOR i = 0 TO LEN(Dovizler) / 2

        PRINT Dovizler(i, 0), Kurlar(i, 0), Kurlar(i, 1), Dovizler(i, 1)

NEXT


END SUB

 

 

    Verilen Sayının Rakamlarını Tersten Yazan Uygulama
DECLARE FUNCTION TersCevir! (Sayi!)

CLS

PRINT TersCevir(1234567)

END

FUNCTION TersCevir (Sayi)

   MetinselSayi$ = STR$(Sayi)
   BasamakSayisi = LEN(MetinselSayi)

   FOR Say = 0 TO BasamakSayisi   

        YeniSayi$ = YeniSayi$ + MID$(MetinselSayi$, (BasamakSayisi + 1 - Say), 1)

   NEXT

   TersCevir = VAL(YeniSayi$)

END FUNCTION
 

 

FUNCTION Kullanımı

Fonksiyonda Kullanılan Static Değerler

DECLARE FUNCTION Yaz! (Metin AS STRING)

CLS

a = Yaz("Ahmet")

b = Yaz("Mehmet")
c = Yaz("Faruk")

FUNCTION Yaz (Metin AS STRING)

STATIC Satir AS INTEGER
STATIC Sutun AS INTEGER

Satir = Satir + 10
Sutun = Sutun + 1

LOCATE Sutun, Satir: PRINT Metin

Yaz = 1 'Fonksiyon geriye deger dondurdugu icin kullanilmak durumunda

END FUNCTION

 

FUNCTION Kullanımı

18,579 Okunma Henüz yorum yapılmamış 10/11/2009 21:25:45

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,683 okuma,

QBasic ile Yapılmış Sayı Tahmin Oyunu
FOR NEXT Döngülerine Giriş

23,282 okuma,

FOR NEXT Döngülerine Giriş
Qbasic ve Çok Boyutlu Diziler

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,448 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,842 okuma,

Basic ve Diziler
DO LOOP Döngüsü

18,600 okuma,

DO LOOP Döngüsü
SELECT CASE Uygulaması

18,381 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

18,002 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,741 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,675 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,378 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,368 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,350 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

17,036 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,927 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,777 okuma,

GOSUB Kullanımı
Çaprım Tablosu Uygulaması

16,710 okuma,

Çaprım Tablosu Uygulaması
Şifreli Giriş Uygulaması

Yönetici için XYZGünAySaat şeklinde özel şifresi olan

16,443 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,987 okuma,

IF BLOK YAPILARI
Yükleniyor...
Yükleniyor...