buyur hocam ilk kodu derledim https://www.box.com/s/zi2jl2jbs28zla8mfwvv Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

http://www.qb64.net/ buradan indir derleyici çalıştır zaten exe olarak çeviriyor. İmza...

exe haline getirebilirmiyiz acaba bunu? "bea"

qbasic İmza...

bekliyorum :/ "bea"

olmadı hacı ya bi yardım edemezmisin inceleyemezmisin acaba? 29. satırda hata falan diyo bi zahmet biri baksa çok iyi oluca benim için "bea"

basic gibi duruyo, bu kodları en son commodore64te grmüştüm :D :)

Power-Hacker bunu yazdı pascal ile mi kodluyor hiç bilgim yok hocam ya :/ "bea"

AS adında bir değişken olamaz, o anahtar szcük. MS PDS 7.1 ile exe haline getirilebilir fakat 64 bitlik windowslarda çalışmaz. PDS 7.1 http://homepages.ihug. co. nz/ twotowers/software/pds71. zip PDS 64 bit işletim sistemlerinde çalışmaz. Tüm dosyaları c'ye açın, sonra setup'ı çalıştırın. Kurulum dosyalarının yerini değiştiri seçin ve a: yerine c: yazın. Olaylara karışmayın!

QBASIC/BASIC PROGRAMLAMA DILI HOCAM sevdigim 3 turk atasozu.. 1- besle kargayı atsın iftirayı, 2- yayılma sivril , 3- luzumsuz eşek sucuk olur ve son olarak, 4- ak akçe karagün kara akçe ak gün içindir...

pascal ile mi kodluyor

qbasic değil gwbasic gwbasic de her satır başına numara veriyordun yamulmuyorsam

Müritler bu kodları tanıyan varmı bu kodlarla ablam birşey üzerinde çalışıyor dev gibi birşey bir kaç hesaplama için kullanıcak. Bu kodlar neyin nesidir. program haline getirilebilirmi. 10 REM DILIM SEKILLI YAPILAR ICIN DOĞAL POLARIZASYON 20 REM EGRISININ HESAPLANMASI VE CIZILMESI 30 REM MODEL PARAMETRELERI GIRILECEK 40 SCREEN 0, 0, 0 : CLS : KEY OFF : CLEAR : DIM X(5000) 50 INPUT "DERINLIK VE POLARIZASYON ACISI? " , D, T 60 INPUT "IKI KENAR ARASI UZAKLIK? " , A2 70 A1=A2/2 80 INPUT "RHO J/2 PI? " , M 90 INPUT "- X VE + X DEGERLERI? " , X1, X2 100 P1=22/7 110 P2=T 180/P1 120 AS=A1 SIN( P2 ) 130 AC=A1 COS( P2 ) 140 PRINT 150 PRINT " X-EKSENI V GERILIMI " 160 FOR L=X1 TO X2 STEP. 5 170 XL=L : N=N+1 180 S1= ^ 2 + ^ 2 190 S2= ^ 2 + ^ 2 200 S3=LOG( S1/S2 ) 210 VX=M S3 : X =VX 220 PRINT XL, VX 230 NEXT L 240 PRINT"LUTFEN BIR TUSA BASIN" 250 GOSUB 560 260 CLS : SCREEN 2 270 LOCATE 2, 1 : PRINT N ; "TANE VERI OKUNDU" 275 PRINT : PRINT "verilerin max. ve min. değer. hesaplaniyor" 280 MAX=X( 1 ) : MIN=X( 2 ) 290 FOR I=1 TO N 300 IF X =>MAX THEN MAX=X 310 IF X =<MIN THEN MIN=X 320 NEXT I 330 LOCATE 4, 34 : PRINT "HESAPLANDI " : PRINT 340 PRINT " MAX= " ; MAX, " MIN= " ; MIN : PRINT 350 PRINT " GRAFIGI GORMEK ICIN BIR TUSA BASIN " 360 GOSUB 560 370 D = MAX MIN 380 IF = 0 THEN D = 1 390 CLS : A = 718 / N : B 346 / D 400 C = MIN B 410 C = 346 ABS 420 IF C < 0 THEN GOTO 440 430 LINE ( 0, 0 ) ( 0,346 ) 440 LINE ( 0, C ) ( 718, C ) 450 PSET ( 0, C B X ( 1 ) ) 460 FOR I=2 TO N 470 LINE ( I A, C B X ) 480 NEXT I 490 GOSUB 560 500 CLS : PRINT "AYNI GRAFIK ICIN BOSLUK " : PRINT 510 PRINT "YENI MODEL PARAMETRELERI ICIN ENTER ' E BASINIZ " 520 GOSUB 560 530 IF A$ = CHR$ ( 13 ) THEN 40 540 IF A$ = CHR$ ( 32 ) THEN 390 550 GOTO 520 560 A$ = " " : A$ = INKEY$ : IF A$ = " " THEN 560 570 RETURN 10 REM DOGAL GERILIM OLCU BILGILERININ YORUMLANMASINDA 20 REM KULLANILACAK YARDIMCI EGRILERININ HESAPLANMASI 30 CLS 40 DIM X12Z (9) , ALFA (10) , XMINZ (10) , XMAXZ (10) , AZ(10) , AXMX(9) , AXMN (9) 50 FOR K=1 TO 9 60 READ X12Z 70 NEXT K 80 PI=22/7 90 LOCATE 3, 10 100 PRINT "ALFA A/Z XMAX/Z XMIN/Z" 110 FOR L=1 TO 10 120 READ ALFA 130 ALFAX=ALFA (PI/180) 140 C=COS 150 F=SIN 160 D=C/F 170 DD=D D 180 XMINZ =(-3/4) D+SQR(.5+(9/16) DD) 190 XMAXZ =(-3/4) D-SQR(:5+(9/16) DD) 200 AZ =SQR(.5+(9/16) DD) 210 IF L=10 THEN GOTO 260 220 XMX12=(XMAXZ -X12Z /AZ 230 XMX12=(XMINZ -X12Z /AZ 240 AXMX =1/XMX12 250 AXMN =1/XMX12 260 LOCATE 3+L, 10 270 PRINT ALFA , AZ , XMAXZ , XMINZ 280 NEXT L 290 LOCATE 15;10 300 PRINT ALFA , AZ ; XMAXZ , XMINZ 310 NEXT L 320 LOCATE 15 + M, 10 330 PRINT ALFA , X12Z , AXMX , AXMN 340 NEXT M 350 END 360 DATA -.721, .-.573, 579, -.492, -407, -.323, -.24, -.16, -.0.79 370 DATA 5, 10, 20, 30, 40, 50, 60, 70, 80, 90 ALFA A/Z XMAX/Z XMIN/Z 5 8. 598199 -17. 16727 2. 912521E-02 10 4. 310114 -8. 561829 5. 839825E-02 20 2. 177704 -4. 237412. 1179965 30 1. 478465 -2. 776871. 1800588 40 1. 139296 -2. 032601. 2459903 50 9463007 -1. 575177. 3174247 60 8289363 -1. 261528. 3963449 70 7578186 -1. 030379. 4852586 80 7192872 - . 8510979. 5874765 90 707107 - . 7066328. 7075811 ALFA X12/Z A/(XMAX - X12) A/(XMIN - X12) 5 - . 721 - . 5228054 11. 46235 10 - . 573 - . 5395176 6. 8263 20 - . 579 - . 5952595 3. 124412 30 - . 493 - . 6473505 2. 196636 40 - . 407 - . 7008458 1.744736 50 - . 323 - . 7557246 1.477614 60 - . 24 - . 8114674 1. 302653 70 - . 16 - . 8706767 1. 174442 80 -7. 900001E-02 - . 9316011 1. 079239 "bea"

qbasic değil gwbasic gwbasic de her satır başına numara veriyordun yamulmuyorsam qbasic de de verebilirsin hocam :) bir iki derleyici indirdim ama benim sistemde çalışmadı. arkadaşın verdiği linktekini indirip deneyeyim Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

basic :) The king is bleeding.