ben programcı değilim sadece böyle bi program bi işte acilen lazım olduğu için yapıyorum dediğinizi ben zaten bu kodla yaptım ama sayfanın içinde harf kelime olunca yapmıyor nasıl olcak tam olarak yazarsanız sevinirim Kod: Dim sayi, uzunluk As Integer sayi = Text1. Text uzunluk = Len(Text1. Text) Select Case uzunluk Case 1: Text1. Text = sayi / 1000 Case 2: Text1. Text = sayi / 1000 Case 3: Text1. Text = sayi / 1000 End Select

arkadaşım ne istediğini bilmiyorsun ki sen? harflerin içinde çalışacak kod nedir yani bu nasıl bir mantıktır? nasıl bir aykırılıktır? o zaman ilk 3 harfli sayılarını buldur sonra onları nerde istiyorsan böldür hani şuan istediğin şeyin akla dair bi yanı yok. Nerede takıldıysan, hangi harflerin içinde nasıl bi sayı varsa bi örnek göster, ona göre akıl yürütsün millet.

double değişkenler ile çalış. bu kadar basit işlem için en büyük ipucu budur. a/b'yide yapamıcaksan bırak programlamayı.

benden de bi ipucu olsun belirlediğin basamaktan sonrasına karışmasın istiyorsan If 999<Sayı Then gibi

Butona bastığım zaman textbox içindeki 3-2-1 basamaklı sayıları 1000 ile bölcek örnek olarak 500 sayısı varsa onu 0.500 şeklinde yazacak ama diğer sayı ve yazıları bozmucak sadece 3 basamağa kadar bu işlemi yapacak 50000 gibi sayılara karışmıcak. örnek olarak : 5-50-500 bu sayıları şu şekilde yazacak ( 0.005) (0.050) (0.500) (Visual Basic 6)

tamam deniyorum

anladım o zaman 3 basamaklı sayıların başına oto 0. koyma gibi bi kod olamaz mı?

Visual Basic kod syntax'ını bilmem fakat yapacağınız işlemlerde data tipi'ni double tanımlarsanız zaten 0. gibi bir işleme gerek kalmaz zaten bölme sonucu istediğin gibi olur. 10/1000 = 0.001 gibi sonucu verir. Bütün veri tiplerini double tanımlayınız yada sonuc tipini double tanımlayınız. a = 10; b = 1000; double sonuc = a / b ;

usta senin dediğini yukarıda arkadaş verdi ama sadece sayıların olduğu textbox da çalışıyor bana harf ve sayıların karışık olduğu yerde çalışabilecek bişe lazım ve bu söylediklerinizden anlamıyorum biliyorsanız kodunu söyleyin sizde bilmiyosunuz galiba

"G0 X500 Y500 Z3000" böyle bi 1 sayfa yazı var textboxa atıp buttona basınca burdaki sayıların başına 0. gelecek bu kadar yani böyle olacak "G0 X0.500 Y0.500 z3000"

Allah seni davul etmesin Şimdi bu dediğinle senin yukarıda yazdığının alakası nedir? Sana gidişatını söyleyeyim. Bir String ifadeye bunu ata ; String a = "G0 X500 Y500 Z3000"; sonra bunu split metodu ile özel karakter ile array yani dizi içine doldur. Burada özel karakter boşluk oluyor. String objeler = a. split ; //Bu java syntaxıdır. bir döngü aç bu tür döngüler için for daha performanslı ve iyidir. String istenilenIfade = ""; for (int i = 0; i > objeler. lentgh ; i++){ //burada sırayla bütün G0, X500, Y500 gibi değerleri ayrı ayrı alıyoruz. String deger = objeler; // Mesela burada i=0 iken, G0 değerini alacaktır gibi //Bu kısımda ise ilk karkterden sonraki karakterleri alacağız ve istenilen yeni bir String ifadeye istediğin şekilde ekleyeceğiz tabi galiba 0 olma durumu istisna bir durum if(deger. substring(1). equlas("0")){ //burada ilk gelen değer için boşluk olmamalı yoksa bir boş diğer taraftan başlar onun kontrolu if(i 0) else }else } Bu java syntaxıdır ama işin mantığı ve yapacaklarının hepsini detaylı olarak anlattım. Mantıksal olarak kafamda compile ettim çalışıyor Java bir derleyicidede eksiksiz çalışır keza C#'tada çalışır.

dostum aradığın şey bumu? Private Sub Command1_Click If Text1. Text < 1000 Then Text2. Text = Text1. Text / 1000 Else Text2. Text = Text1. Text End If End Sub Private Sub Text1_KeyPress ' Bu Kod İle Text1'e Sadece Rakam ve Bir Adet Virgül girilmesini sağlıyor If KeyAscii <> 8 Then If Not IsNumeric(Chr Then KeyAscii = 44 End If If KeyAscii <> 8 Then If Chr = "," Then If InStr(1, Text1. Text, ",") > 0 Then KeyAscii = 0 End If ElseIf Not IsNumeric(Chr Then KeyAscii = 0 End If End If End

harf olunca nasıl bolmeyı bozmayan. Strşng bir karakteri, double bir karaktere bolemezsınzı bu matematiğin doğasına aykırıdır. 2 elmayı 3 armuta bölersek kaç olur gibi bir şey sizinkisi. Aynı türdeki yada kategorideki data tipleri ile işlem yapabilirsiniz.

iyide bu sayılarda harflerde belli değil değişiyor kordinat sisteminin sayıları onlar 1 sayfa olarak hepsini textboxa atacam 3 basamaklı sayıların başına 0. koycak visual basic 6 da

Private Sub Text1_KeyPress ' Bu Kod İle Text1'e Sadece Rakam ve Bir Adet Virgül girilmesini sağlıyor If KeyAscii <> 8 Then If Not IsNumeric(Chr Then KeyAscii = 44 End If If KeyAscii <> 8 Then If Chr = "," Then If InStr(1, Text1. Text, ",") > 0 Then KeyAscii = 0 End If ElseIf Not IsNumeric(Chr Then KeyAscii = 0 End If End If End Sub burasını çıkartırsan harf de

arkadaşlar bilen varmı? harfler olunca bölmeyi bozmayan

ikayserili kod çalışıyorda bu kodları yazınca textbox içine harf yazı yazamıyosun