matematiksel işlem ve \ işareti

[Asri]

Merhaba,

Bu gün ilk defa karşılaştığım bir operatör. Bunun anlamı nedir. Tam sayı bölmemi? Evet öyleymiş

sonrakam = sayi - (sayi \ 10) * 10

Hazır bunu paylaşmışken hiç bir fonksiyon kullanmadan sadece matematiksel işlemle son rakamı nasıl buluruz.

 

[Asri]

Uzun yollu olsun ama sonuç olsun

Sub sonrakam()
sayi = 12569
adet = sayi / 10
For i = 1 To adet
    sayi = sayi - 10
Next i

End Sub

 

[antonio]

artan = sayi mod 10

 

[Asri]

artan = sayi mod 10

@antonio, Teşekkür ederim.

MOD, INT, TRUNC, ABS, STR gibi fonksiyonlar kullanmadan yapmak gerekiyor.

 

[Korhan Ayhan]

Bu değerde sonuç ne olmalı?

sayi = 12569.75

 

[Asri]

Bu değerde sonuç ne olmalı?

sayi = 12569.75

Tam sayılarda fonksiyonsuz sonuç elde etmek gerekiyordu.

Ondalıklı için düşünmedim.
İhtiyaca göre 9 yada 75 olabilir belki.

 

[antonio]

@antonio, Teşekkür ederim.

MOD, INT, TRUNC, ABS, STR gibi fonksiyonlar kullanmadan yapmak gerekiyor.

Tamsayılar için deneyiniz:

artan = sayi - (sayi \ 10) * 10

 

[Asri]

Teşekkür ederim. Ancak bu da her programda geçerli olmuyor.
\ tam sayı bölme işlemi özel tanımlı bir işlem sanırım.

Kuka robot yönetim yazılımında gerekli bir işlemdi. Bir arkadaş için araştırıyordum.
Kuka yazılım bu \ operatörü tanımlayamadı.

 

[Tevfik_Kursun]

Sayın Asri Hocam,
\ isareti DOS ortaminda calisan GwBasic, QBX programlarinda tanimli tamsayi boler isaretidir
Saygilarimla

 

[Asri]

Sayın Asri Hocam,
\ isareti DOS ortaminda calisan GwBasic, QBX programlarinda tanimli tamsayi boler isaretidir
Saygilarimla

Hocam ben aşağıdaki şekilde 10 çıkararak yaptım ama bunun 4 işlem ile yapılması mümkün mü?

Sub sonrakam()
sayi = 12569
adet = sayi / 10
For i = 1 To adet
   sayi = sayi - 10
Next i
End Sub

 

[Zeki Gürsoy]

"\" bölme işlemi yapar. Ancak tamsayı kısmını verir.

Tam sayı almanın diğer bir yolu da,

Dim l As Long
l = 1071 / 10

ve bu yöntem daha hızlıdır.

 

[Asri]

"/" bölme işlemi yapar. Ancak tamsayı kısmını verir.

Tam sayı almanın diğer bir yolu da,

Dim l As Long
l = 1071 / 10

ve bu yöntem daha hızlıdır.

Üstad bu şekilde daha hızlı oldu.
Değişken tanımlaması yapma ile yapmama arasındaki fark.

Teşekkür.

Sub sonrakam()
    Dim sayi As Long, birler As Long, bolum As Long, carpim As Long
    sayi = 12324
    bolum = sayi / 10
    carpim = bolum * 10
    birler = sayi - carpim
End Sub

 

[Zeki Gürsoy]

Rica ederim Asri bey. Neye ulaşmaya çalıştığınızı tam olarak belirtirseniz belki daha etkili bir çözüm geliştirilebilir.

.

 

[Asri]

Bir projede, tam sayının son rakamına ihtiyac vardı.
Kuka robot yazılımında mod, trunc gibi fonsiyonlar kullanılamıyor. Yada ben help inde böyle birşey bulamadım.
Bu nedenle fonksiyon kullanmadan tespiti için yazmıştım.
iki yöntemde iş görür durumda.

Amacımıza ulaştık diyelim.

 

[Zeki Gürsoy]

Peki tam sayıyı alırken birler basamağı yukarı yuvarlanırsa ne olacak? Örneğin, 123456 / 10 işlem sonucu 12346 yuvarlanmış olacaktır.
.

 

[Asri]

Peki tam sayıyı alırken birler basamağı yukarı yuvarlanırsa ne olacak? Örneğin, 123456 / 10 işlem sonucu 12346 yuvarlanmış olacaktır.
.

Evet bunu atlamışım.,
Bu durumda benim bulduğum yöntem 10 çıkarma daha doğru olacak gibi.
Sayı en fazla 4 hane olacağı için süre problemi olmayacak.

Yok bu da olmadı ))
Bunda da değişken tanımları yapıldığında sorun oluyor. Uygun değişken tanımlarına bakayım )

Sub sonrakam()
sayi = 12569
adet = sayi / 10
For i = 1 To adet
   sayi = sayi - 10
Next i
End Sub

 

[Asri]

Peki tam sayıyı alırken birler basamağı yukarı yuvarlanırsa ne olacak? Örneğin, 123456 / 10 işlem sonucu 12346 yuvarlanmış olacaktır.
.

Bu durumda aşağıdaki kod çalışır gibi duruyor

Sub sonrakam()
Dim birler As Integer, fark As Integer, sayi As Integer, adet As Integer
sayi = 1266
adet = sayi / 10
fark = sayi - (adet * 10)
If fark = 0 Then
  birler = 0
ElseIf fark > 0 Then
  birler = sayi - (adet * 10)
ElseIf fark < 0 Then
  birler = 10 - ((sayi - (adet * 10)) * -1)
End If

End Sub