ASP / .Asp De Kelime Sayısını Bulma

< % Function Kelimebul(Gelen) Gelen=Trim(Gelen) If Gelen="" Then Exit Function KelimeParcala=Split(Gelen," ") Kelimebul=Ubound(KelimeParcala,1)+1 End Function Kelime="merhaba deneme yazisi yazdik kelime sayisini bulacagiz " Saybakalim=Kelimebul(Kelime) Response.Write (Saybakalim) 'Sonuç 7 Kelime %> TurkIRC ©   Tags: addon, irc komutları, komutlar, Komutları

» Devamını Oku

DATABASE / SQL Server 2005 GSM No Kontrolü

CREATE FUNCTION [dbo].[fn_GSM] ( @deger nvarchar(1000) ) RETURNS @RtnValue table ( GSM nvarchar(10), Durum bit ) AS BEGIN SET @deger = LTRIM(RTRIM(@deger)) DECLARE @karakterler NVARCHAR(10) SET @karakterler = ‘0123456789’ DECLARE @deger_ NVARCHAR(1000) SET @deger_ = ” DECLARE @say INT SET @say = 1 DECLARE @harf NVARCHAR(1) WHILE (@say < = LEN(@deger)) BEGIN SET @harf = '' SET @harf = SUBSTRING(@deger, [...]

» Devamını Oku

DELPHI / Loop

// show 1,2,3,4,5 message boxes var i: integer; begin for i := 1 to 5 do begin ShowMessage(‘Box: ‘+IntToStr(i)); end; end; var i: integer; begin for i := 5 downto 1 do begin ShowMessage(‘T minus ‘ + IntToStr(i) + ‘seconds’); end; ShowMessage(‘For sequence executed!’); end; var i,j: integer; begin //be aware: //this double loop is executed 4×4=16 times for i:= […]

» Devamını Oku

DELPHI / Open Source Ahmdialogs

(* This File is Part of the AHM Triton Tools for Borland Delphi and C++ Builder. Copyright (c) 1995 – 1998 AHM Alexander H. Mehlhorn For more Information contact AHM at E-Mail : [email protected] ICQ : 176724 or URL http://www.ahm.co.za AHM is copyright by Alexander H. Mehlhorn All Parts of this Collection were developed, designed and implemented by AHM Under […]

» Devamını Oku

PASCAL / Asgari Geçim İndirimi

program asgari_gecim_indiri; uses crt; const s_oran = 50; var med,es : char; cocuk : 1..15; oran : real; begin {$R+} clrscr; write(‘Evlimisin bekarmsn? (e yada h ) > ‘); readln(med); writeln; if med in [‘H’,’h’] then begin write(‘Asgari ge‡im indirim orannz ‘, s_oran); end else begin write(‘EŸiniz ç‡alŸyor mu? (e yada h ) > ‘); readln(es); writeln; if es in […]

» Devamını Oku

mIRC Koruma

Genel korumalar : Küfür koruması, reklam koruması, badnick koruması, bad ident koruması, random nick koruması, random ident koruması, uzun harf koruması, büyük harf koruması, flood koruması, ctrl+k,u,r,b koruması ame /me koruması. Genel özellikler : Her korumaya muaf kanal ekliye biliyoruz, tek kanal\\\’ı bütün korumalardan muaf tutma özelliği, nick muaf özelliği, Korumalardan 7 tanesi uyarılı korumadı, Uzun harf, büyük harf, ctrl […]

» Devamını Oku

IRC Tüm kullanicilara mesaj gondermek

alias duyuru { set %mass duyuru set %massacre $1- who * echo -a Duyuru Mesajı Gönderiliyor? } raw 352:*:{ if %mass == duyuru { if serv !isin $6 { msg $6 [Duyuru] %massacre } } } Kullanımı : /duyuru mesaj Scriptinizde Alt + R yaparak ekleyiniz. TurkIRC ©   Tags: irc komutları, komutlar, Komutları, mirc, mirc download, Mirc indir, mirc […]

» Devamını Oku
1 2 3 4 6