Ara 18 2014
VB Visual Basic Script ile rastgele sayı üretmek VBS Script
Visual Basic VB Script ile rasgele sayı bulmak
Ara 18 2014
Visual Basic VB Script ile rasgele sayı bulmak
By Burhan KARADERE • Programlama - Software, VB (Ms Visual Script), Visual Basic 6.0 • 2 • Tags: basic, bulma, kod, Microsoft, örnek, random, randomize, rastgele, rnd, sayı, script, vb, VB Script, visyual
Ara 20 2013
Sony Xperia Qx100 modelindeki örnek reismleri ve video çekimlerini incelemye devam ediyoruz.
By Burhan KARADERE • Bilişim - IT Haber, Lens QX100, Sony • 0 • Tags: çekimler, çelimleri, example, for example, fotoğraflar, image, lens, örnek, photo, photograpy, picture, QX100, sample, sony
Ara 19 2013
Sony Xperia Değişik bir ürün çıkarmıştı daha önce bunu incelemiştik bu ürünün en iddalı modeli olan QX100 Lens ile çekilen bazı fotoğrafları sizinle paylaşmak istedim. Kaynak – Source : http://www.sonymobile.co.jp/product/xperia/accessory/camera.html
By Burhan KARADERE • Bilişim - IT Haber, Lens QX100, Sony • 0 • Tags: çekimler, çelimleri, example, for example, fotoğraflar, image, lens, örnek, photo, photograpy, picture, QX100, sample, sony
Kas 9 2010
// 10 elemanlı bir tamsayı dizisinin sıralanması
// hızlı sıralama
// a=(8, 3, 12, 9, 16, 30, 25, 1, 29, 2)
program en_buyuk;
var
a:array[1..10] of integer;
i,b,k,m:integer;
begin
for i:=1 to 10 do begin
write(i,’ .elemani gir..’);readln(a[i]);
end;
repeat
k:=1;
for i:=1 to 9 do begin
if(a[i]>a[i+1]) then begin
b:=a[i];a[i]:=a[i+1];a[i+1]:=b;k:=0;
end;
end;
until(k=1);
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
By Burhan KARADERE • Turbo Pascal • 0 • Tags: dizi, örnek, pascal
Kas 9 2010
// 10 elemanlı bir tamsayı dizisinin sıralanması
// a=(8, 3, 12, 9, 16, 30, 25, 1, 29, 2)
program en_buyuk;
var
a:array[1..10] of integer;
i,b,k,m:integer;
begin
for i:=1 to 10 do begin
write(i,’ .elemani gir..’);readln(a[i]);
end;
for k:=1 to 10 do begin
for i:=1 to 9 do begin
if(a[i]>a[i+1]) then begin
b:=a[i];a[i]:=a[i+1];a[i+1]:=b;
end;
end;
end;
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
By Burhan KARADERE • Turbo Pascal • 0 • Tags: Dizi 4, örnek, pascal, turbo
Eyl 24 2016
SAP ABAP yemek sipariş program kodu.
SAP SE Abap Yemek sipariş kodu. Yıllar önce yazılan bir kodu arşivimi kurcalarken buldum 🙂 şaka gibi zaman ne çabuk geçmiş. *&———————————————————————* *& Report ZYEMEKSIP *& Date : 09.07.2009 *&———————————————————————* *& Reseon : IT yemek sipariş takip programı *& Abap Writer : Burhan KARADERE *& Copyleft ® 2009 by Burhan KARADERE *&———————————————————————* REPORT zyemeksip. TABLES : zit_calisan , zyemeksiparis . TYPE-POOLS : slis . ” KUTUPHANE TYPE-POOLS: vrm. ” LISTBOX ICIN ” LISTBOX ICIN DEGISKENLER DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list. ” LISTBOX ICIN DEGISKENLER *&———————————————————————* *& GLOBAL DEGISKENLER *&———————————————————————* DATA : siparis(50) TYPE c . DATA : lokanta(30) TYPE c . ” lokanta DATA : siptoplayan(10) TYPE c . “sip toplayan DATA : ysipveren(10) TYPE c . ” sip veren DATA : ylokanta(15) TYPE c . “lokanta DATA : ysiparis(50) TYPE c . ” sipariş DATA : otur(10) TYPE c . ” ödeme türü DATA : sid(10) TYPE c . ” siparis id DATA : ssid LIKE zyemeksiparis-id . ” siparis detay id DATA : FIYAT(10) TYPE c . ” ödeme türü *&———————————————————————* *& GLOBAL DEGISKENLER *&———————————————————————* DATA : gt_fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE , ” fieldcat […]
Devamı
By Burhan KARADERE • Bilişim - IT Haber • 2 • Tags: Abap, abapçı, kod, örnek, programı, SAP, yemek sipariş