Reklamlar

reklam reklam

Gönderen Konu: Bir değişkenin (TAMSAYI) çift mi - tek mi olduğu nasıl sorgulanır.?  (Okunma sayısı 3768 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CK-53

  • moderatör
  • *****
  • İleti: 311
  • +30/-1
  • Cinsiyet: Bay
    • MiPSAN MAKİNA
        Başka bir yolu var mı? bilmiyorum ama böyle bir yol buldum. İşinize yarayabilir.





#3=10 (sorgulanacak değişken)

#4=FIX[#3/2]   (2 ye bölünüp ondalık kısmı atılıyor. Sayı tek olduğunda ondalık kısmı atılacak)
#5=[#4*2]       (Tekrar iki ile çarpılıyor. Tek sayının ondalık kısmı bölünürken atıldığı için, değer düşük olacak )
IF[#3EQ#5]GOTO1      (İlk değer ile bölünüp çarpılan değer sorgulanıyor. Eşit işe ÇİTF - Eşit değilse TEK)
#3000=1(TEK SAYI)
GOTO2

N1#3000=2(CIFT SAYI)

N2M30


Not : Sadece TAMSAYILAR için geçerlidir. Değişkenker negatif olabilir.
« Son Düzenleme: Ekim 30, 2010, 12:31:46 ÖS Gönderen: CK-53 »
Aynası iştir kişinin lafa bakılmaz..!

Çevrimdışı taşkaya

  • Yağmur Tarım Traktör
  • Forum Sorumlusu
  • *****
  • İleti: 1751
  • +199/-9
  • Cinsiyet: Bay
  • "ALİ RIZA TAŞKAYA" DÜZCE
işe yarayıp yaramama ması onemlı değil,fıkırlerını dokmen de ayrıcalıktır kardes
“Kalite, doğru ürün ya da hizmeti, müşterinin eline doğru zamanda ve doğru fiyatla koymaktır.”
  
  Yağmur Tarım Traktör

You are not allowed to view links. Register or Login

Çevrimdışı CK-53

  • moderatör
  • *****
  • İleti: 311
  • +30/-1
  • Cinsiyet: Bay
    • MiPSAN MAKİNA
Bugün bana uygun bir yüzey tarama programı yazıyordum. Yana kayma adetinin çift yada tek olması hesaplamada gerekiyordu. Böyle yapabildim. Belki benim gibi takılan olabilir diye düşündüm.
Bu da yüzey tarama programım.

X ti Y idi yazmaktan hesaplamaktan bıktıydık. Bu makro bölümünü kuranlardan Allah razı olsun. Bişeyler öğrendik sayenizde.



G65P9105X3000.Y1500.D200.F2000S500
M30


O9105
G80G90Z200.W0
M3S#19
#501=#24(X)
#502=#7 (D)
#503=#25(Y)


#510=[#503+10]
#3=FUP[#510/#502](HATVE ADEDI HESAPLANIYOR)
#530=FIX[#510/#3](PASO GENISLIK HESAPLANIYOR)
#540=[[[#501+#502]/2]+5](X HESABI)

#4=FIX[#3/2]
#5=[#4*2]
IF[#3EQ#5]GOTO1

(TEK)
G0X-#540Y-[[#3-1]/2]*#530
Z0
#550=0
N11IF[#550EQ#4]GOTO12
G90G1X#540F#9
G91G0Y#530
G90G1X-#540
G91G0Y#530
#550=#550+1
GOTO11
N12G90G1X#540
GOTO99


(CIFT)
N1#530=#530
G0X-#540Y-[[#3-1]/2]*#530
Z0
#550=1
N21IF[#550EQ#4]GOTO22
G90G1X#540F#9
G91G0Y#530
G90G1X-#540
G91G0Y#530
#550=#550+1
GOTO21
N22G90G1X#540
G91G0Y#530
G90G1X-#540

GOTO99
N99G0G90Z200.M19
M99
« Son Düzenleme: Ocak 09, 2011, 10:54:40 ÖÖ Gönderen: CK-53 »
Aynası iştir kişinin lafa bakılmaz..!

Çevrimdışı qaos35

  • Turkeycnc.com Üyesi
  • *
  • İleti: 6
  • +0/-0
Merhaba Fup ne işe yarıyor yazmazsak ne yapar

Çevrimdışı Kafkasyali

  • Operatör
  • **
  • İleti: 41
  • +1/-0
FUP Yukarı yuvarla
FIX Aşağı yuvarla

Örneğin;

#1=5.2 olsun
#2=FUP[#1]; yazarsak #2 değişkenine 6.0 değerini atarız.
#2=FIX[#1]; yazarsak #2 değişkenine 5.0 değeri atarız.