% hesaplama TextBox da

[polis-53]

Merhaba aradaşlar ekte gönderdiğim dosyada TextBox1 in içine alığı mal TextBox2 in içine sattığı maı yazıyorum %sinide TextBox3 un içine nasıl heaplattıracağımı bilmiyorum ve de %de si textBox3 un içine örneğin %20 gibi görünmesini istiyorum birde textBox larda yazılan rakamlarıda ayırcaç kullanılsın örneğin 150.000 gibi

 

[Merhum İdris SERDAR]

.

User Formun koduna;

Private Sub SONUÇ_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 On Error Resume Next
SONUÇ = Format(Val(ALDIĞI) / Val(SATTIĞI), "0.00%")
End Sub

yazın.

 

[polis-53]

yurdaş

merhaba userform koduna yazdım hesaplamadı yoksa yanlışmı yapıyorum

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[polis-53]

yurttas

tekrar merhaba yurttas bey yazmış olduğunuz kod çok geç hesaplıyor vede örneğin aldığı 100 sattığı 50 ise %desi %50 olacak

 

[Merhum İdris SERDAR]

tekrar merhaba yurttas bey yazmış olduğunuz kod çok geç hesaplıyor vede örneğin aldığı 100 sattığı 50 ise %desi %50 olacak

.

Bende hızlı çalışıyor.

Bununla ilgili kodda bölmedeki pay ve paydanın yerlerini değiştirin.

Yani;

Private Sub SONUÇ_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 On Error Resume Next
 SONUÇ = Format(Val(SATTIĞI) / Val(ALDIĞI), "0.00%")
End Sub

şeklinde yapın.

.

 

[polis-53]

merhaba yurttas bey dosyada aldığına ve sattığına rakam yazdığımda sonuç kısmını hesaplamıyor boş gözukuyor

 

[Merhum İdris SERDAR]

merhaba yurttas bey dosyada aldığına ve sattığına rakam yazdığımda sonuç kısmını hesaplamıyor boş gözukuyor

.

Hani geç hesaplıyordu?

Şimdi hesaplamıyor diyorsunuz. Anlayamıyorum.

Hesaplıyor.

Başkası da denesin bakalım. Hesaplıyor mu?

Yukarıda verdiğim kodla değiştirerek dosyayı tekrar ekliyorum.

Bu da hesaplıyor.



.

 

[polis-53]

özürdileyerek yine de hesaplamıyor
aşağıdaki Kod Toplama yapıyor Fakat bölme yaptıramadım hata veriyor buna bir bakarmısınız


Private Sub TextBox1_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

Private Sub TextBox2_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

Private Sub TextBox3_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)

End Sub

 

[Merhum İdris SERDAR]

.

Benden pes artık!...

Hiç kodda toplama işareti görüyormusunuz ki toplama yapsın.

.

 

[zafer]

Merhaba

özürdileyerek yine de hesaplamıyor
aşağıdaki Kod Toplama yapıyor Fakat bölme yaptıramadım hata veriyor buna bir bakarmısınız


Private Sub TextBox1_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

Private Sub TextBox2_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

Private Sub TextBox3_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)

End Sub

Bir yanlışlık yapıyorsunuz.Burada sadece bölme işareti var.Ayrıca Böyle bir kodlama olmaz kodlar hata verir.
textbox2 ye veri girmeden textbox3'ü nasıl hesaplatacaksınız.

Sizin yukarıdaki kodlarınız ile Sayın Yuttaş bey'in gönderdiği kodlar arasında hiç alaka yok.

Sayın Yurttaş bey'in dosyasını işleme soktuğunuzda

aldığı 10
sattığı 10
% 100

gösteriyor.Yani doğru..

 

[polis-53]

Arkadaşlar %hesabı saat tuttum tam 2dakikaya kadar anca hesaplıyor
yokmu bunun çözümü

 

[zafer]

Merhaba

Arkadaşlar %hesabı saat tuttum tam 2dakikaya kadar anca hesaplıyor
yokmu bunun çözümü

iki adet verinin hesaplanmasının 2 dakika olmasına imkan yok.
x386 makina bile bu kadar zamanda hesaplamaz.

Siz Sayın Yurttaş Bey'in gösterdiği yolun dışındada bir şeyler yapıyorsunuz hesaplama sonsuz döngüye filan giriyor herhalde

 

[polis-53]

Ardaş Userform çalışma Başlık altında bir dosya ekledim açıklamaları yazmışım bir bakarsanız göreceksiniz.

 

[zafer]

Merhaba

Private Sub SONUÇ_[B][COLOR=red]MouseMove[/COLOR][/B](ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 On Error Resume Next
 SONUÇ = Format(Val(SATTIĞI) / Val(ALDIĞI), "0.00%")
End Sub

Textbox1 ve textbox2'ye veri girdikten sonra %hesabı için textbox3'in üzerine mouse ile gelecekseniz textbox3 öyle hesaplama yapacak

 

[me68met]

nacizhane birde ekteki dosyayı denermisiniz?

 

[zafer]

Merhaba

nacizhane birde ekteki dosyayı denermisiniz?

Rica ederim.Teşekkürler.

MouseMove,Change,Exit

Arkadaşların kodlarda olaylara dikkat etmesi gerekir diye düşünüyorum.

 

[polis-53]

me68met

Teşekkürler me68met bey çok güzel çalışıyor birde yukrı yuvarlama yapılırsa çok sevineceğim virgülden sonrası gözükmesin iyi çalışmalar.

 

[me68met]

Rica ederim. Elimden geldiği kadar yapabildim. Ekteki dosyayı incelerseniz herhalde istediğiniz şekilde...

 

[polis-53]

me68met

günaydın aldığı 1500 sattığı 500 sonuç 33333 çikiyor oysa 33 çıkması lazım
sattığı /aldığı*100 diye yapabilirmiyiz