Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi rester -- 1 Nisan 2008; 23:44:40 > |
Hızlı 
Bildirim
visual basic yardımm...........
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Philips BG7025/15 Bodygroom Series 7000 entegre tarak başlıklı (3 ila 11 mm) : Amazon.com.tr: Kişisel Bakım ve Kozmetik
https://www.amazon.com.tr/dp/B07FJHZDPL
dün paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
up -
up.... -
şu ornekleri incelersen belki işine yarar
http://www.speedyshare.com/878349631.html -
burada bu konuyla ilgili pek bir bilgiye ulaşamazsın zannediyorum yazılım ağırlıklı forumlara bir göz atsan daha faydalı olur.
pascal veya c olsaydı elimden geldiğince yardımcı olmaya çalışırdım ama bize vb göstermediler.
^ -
quote:
Orjinalden alıntı: S.T.A.L.K.E.R
şu ornekleri incelersen belki işine yarar
http://www.speedyshare.com/878349631.html
teşekkürler bir bakayım. sadece uç uça eklenmiş doğruların nasıl hesaplandığını bulsam iş bitecek ama verileri bir dosyaya yazmadan matrisle yapmak zor.. -
2 command butonu yapman lazım 1 tanesi için şehrin kordinazlarını girdiinde kaydeden ve bir sayaç değişkeni diğerinde ise mesafeyi hesaplayan kod olmalı
ayrıca "Dim a() As Single" bu şekilde tanımlama olmaz dizi tanımlıyorsan boyutunu da belirlemen lazımdır mesela dim a(100) as integer dersin (diziler 0dan başlar) 101 boyutlu bir dizi oluşur kaç tanesini kullanmak istediğin sana bağlıdır.
program sana acil lazım değilse .net ile programı yazabilirim ama vb6.0dan biraz farklı olur
< Bu mesaj bu kişi tarafından değiştirildi Number47 -- 2 Nisan 2008; 1:51:26 > -
quote:
Orjinalden alıntı: Akosev
2 command butonu yapman lazım 1 tanesi için şehrin kordinazlarını girdiinde kaydeden ve bir sayaç değişkeni diğerinde ise mesafeyi hesaplayan kod olmalı
ayrıca "Dim a() As Single" bu şekilde tanımlama olmaz dizi tanımlıyorsan boyutunu da belirlemen lazımdır mesela dim a(100) as integer dersin (diziler 0dan başlar) 101 boyutlu bir dizi oluşur kaç tanesini kullanmak istediğin sana bağlıdır.
program sana acil lazım değilse .net ile programı yazabilirim ama vb6.0dan biraz farklı olur
Dim a() As Single tanımlaması aşağıda redim ile zaten belirlemiş olmuyor muyum? x ve y şeklinde 2 tane satır olacak ama kullanıcının istediği kadar sütün olması istendiğinden yukarda () şeklinde bırakıyorum.mesela kullanıcı n e 4 dedi 4 dediğinde program kullanıcıdan 2 x 2 tane y değerini for döngüsü
ile alıyor ama ben döngüden değerleri geri cağıramıyorum.
4 tane değer olduğundan bu işlemi z=((x2-x1)^2+(y2-y1)^2)^0.5
1.koordinatlar ve 2.koordinatlar +2.koordinatlar ve 3. koordinatları ayrı ayrı yapıp toplamasını sağlayamadım da bunuda bir döngü ile yapacaz fakat programın 2. şehirle 1.şehiri yapıp 2.ile 3 geçmesi için ne yapmamız gerektiğini anlayamadım birde n tane şehir olabileceği düşünülünce iş karısıyor şehir sayısı belli olsa daha kolay olacak.
-
hocam bak sana yazdım test ettim sorun yok
quote:
Public Class Form1
Dim A(99), B(99), i, x, y As Integer
Dim yol As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A(i) = TextBox1.Text
B(i) = TextBox2.Text
TextBox1.Clear()
TextBox2.Clear()
i = i + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
x = 0
For y = 1 To i - 1
x = x + ((A(y) - A(y - 1)) ^ 2 + ((B(y) - B(y - 1)) ^ 2)) ^ 0.5
Next
TextBox3.Text = x
End Sub
End Class
ihtiyacın olan 3 textbox
2 tane kordinatlar için
yani(x,y) x için 1 tane y için 1 tane
1 tane de sonuç için
2 tane commandbox
1 tane kordinat girişi için
1 tane sonuç için
.net ile vb6.0 arasında biraz farklılık olabilir o kısımları senin düzenlemen gerekir
tanımlama olayına gelirsen
dim A() as ..........
dedin diyelim sen burda dizin kaç tane birime sahip belli mi değil
o yüzden tanımlamada sorun çıkar
başlangıçta belirteceksin istersen çok büyük sayı kullan 100000 filan değişmez ama parantez için mutlaka bir pozitif tam sayı olması gerekir
< Bu mesaj bu kişi tarafından değiştirildi Number47 -- 2 Nisan 2008; 2:19:35 >
-
quote:
Orjinalden alıntı: Akosev
hocam bak sana yazdım test ettim sorun yok
quote:
Public Class Form1
Dim A(99), B(99), i, x, y As Integer
Dim yol As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A(i) = TextBox1.Text
B(i) = TextBox2.Text
TextBox1.Clear()
TextBox2.Clear()
i = i + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
x = 0
For y = 1 To i - 1
x = x + ((A(y) - A(y - 1)) ^ 2 + ((B(y) - B(y - 1)) ^ 2)) ^ 0.5
Next
TextBox3.Text = x
End Sub
End Class
ihtiyacın olan 3 textbox
2 tane kordinatlar için
yani(x,y) x için 1 tane y için 1 tane
1 tane de sonuç için
2 tane commandbox
1 tane kordinat girişi için
1 tane sonuç için
.net ile vb6.0 arasında biraz farklılık olabilir o kısımları senin düzenlemen gerekir
tanımlama olayına gelirsen
dim A() as ..........
dedin diyelim sen burda dizin kaç tane birime sahip belli mi değil
o yüzden tanımlamada sorun çıkar
başlangıçta belirteceksin istersen çok büyük sayı kullan 100000 filan değişmez ama parantez için mutlaka bir pozitif tam sayı olması gerekir
hocam cok sağol ne kadar teşekkür etsem azdır.bu kodları baz alarak sorunu çözebilirim .çok teşekkürler...
-
quote:
Orjinalden alıntı: rester
hocam cok sağol ne kadar teşekkür etsem azdır.bu kodları baz alarak sorunu çözebilirim .çok teşekkürler...
sorun değil ben geçen dönem .net gördüm geçen sene vb6.0 gördüm ben de yeniyim pek bişe bildiğim söylenemez
haydi sana kolay gelsin bi sorun olursa tekrar yaz buraya ben bakarım ok haydi hayırlı geceler -
bende merak ettim çözümünü -
Private Type sehirxy
xdeger As Single
ydeger As Single
End Type
Private Sub Command1_Click()
Dim a() As sehirxy
Dim sehir_sayisi, b As Integer
Dim eleman_say, i As Integer
Dim z As Single
eleman_say = 0
sehir_sayisi = InputBox("şehir sayısını giriniz....?")
MsgBox (" kordinatlarını gireceğiniz şehir sayısı....:" & sehir_sayisi)
ReDim a(2, sehir_sayisi)
For i = 0 To sehir_sayisi - 1
For k = 0 To 1
a(k, i).xdeger = Val(InputBox((i) & ". şehrin " & "x" & (k) & " kordinatını girin"))
a(k, i).ydeger = Val(InputBox((i) & ".şehrin y" & (k) & " kordinatını girin"))
Next k
Next i
For i = 0 To sehir_sayisi
For k = 0 To 1
z = ((a(k + 1, i).xdeger - a(k, i).xdeger) ^ 2 + (a(k + 1, i).ydeger - a(k, i).ydeger) ^ 2) ^ 0.5
Next k
Next i
MsgBox (".şehrin mesafesi" & z)
End Sub
valla soru hoşuma gitti bende uğraştım biraz
burda istersen tip kullanmadan da yapabilirsin ya aslında istediğimiz hangi iki şehirin arası olduğunu buldurmak gerekirdi ama bu saatte anca bu kadar
< Bu mesaj bu kişi tarafından değiştirildi teacher3.4 -- 6 Nisan 2008; 1:26:08 >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
