AccessTr.neT

Tam Versiyon: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Herkese sağlıklı günler dilerim. Bir hesaplama yaptırmak istiyorum if elseif else blokları ile çözüm üretilebilir ama ben yapılabilirse hesaplama formülüyle nasıl çözebilirim.
Hesaplanması gereken Textbox_AyakSayisi.Value değeri
Şöyle ki Ben cephe ölçüsü ne girersem gireyim sistem ölçüye göre ayak sayısını, her bir ayak arasında minimum 2,25 maxımum 3,25 cm aralık olacak şekilde bana ayak sayısını hesaplayacak. Yani girilen ölçüyü önce 2 ye bölecek çıkan değere bakacak değer 2,25 - 3,25 aralığında değilse 3 e bölecek yine min max değerler arasına oturmuyorsa 4 e bölecek. Başlangıç ayak sayısı 4500cm ye kadar 2 adet ayak. Bu ölçüden sonra yukarda anlattığım şekilde hesaplama yaparak bu ayak sayısını otomatikman arttıracak. Yardımlarınız için teşekkür ederim.

[Resim: do.php?img=11334]
4500cm =45 metre eder ölçü türünden emin misiniz?
(09/10/2021, 15:21)berduş yazdı: [ -> ]4500cm =45 metre eder ölçü türünden emin misiniz?

mm olacak özür dilerim
cephe ölçüsünün birimi ne mm, cm
2,25 maxımum 3,25 cm burası da her halde metre
(09/10/2021, 15:24)Oğuz Türkyılmaz yazdı: [ -> ]
(09/10/2021, 15:21)berduş yazdı: [ -> ]4500cm =45 metre eder ölçü türünden emin misiniz?

mm olacak özür dilerim


27 28 metreye kadar yapıldı istenirse de eklenerek arttırılabilir.@berduş hocam
dener misiniz?
Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_AyakSayisi = 2
If TextBox_CepheOlcusu <= 4500 Then Exit Sub
i = 1
Do Until xAyk >= 2250 And xAyk <= 3250
i = i + 1
xAyk = TextBox_CepheOlcusu / i
Loop
TextBox_AyakSayisi = i
End Sub
Sayfalar: 1 2