+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: for next step döngüsü (/konu-for-next-step-dongusu.html)
Sayfalar:
1
2
for next step döngüsü - accessman - 25/03/2009
iyi günler arkadaşlar
for next döngüsü nasıl oluyor
mesala a sayısı için
"a" ve "-a" ve "sıfır" sayılarını döngüde kullanamak istiyorum
şu şekilde mi yazmam lazım
-------------------------
for b = b * (-1) to b step b
for a = a * (-1) to a step a
c = a + b
next a
next b
--------------------------
bunun için şu sonuçları almak istiyorum
c= -a + -b
c= -a + 0
c= -a + b
c= 0 + -b
c= 0 + 0
c= 0 + b
c= a + -b
c= a + 0
c= a + b
-------------------------
yardımlarınız için teşekkürler
Cvp: for next step döngüsü - Krizantem - 25/03/2009
Kod:
for i=-1 to 1
for j=-1 to 1
c=(i*a)+(j*b)
next
nextCvp: for next step döngüsü - accessman - 25/03/2009
çok teşekkürler
mesala 1 den 100 kadar sadece 5 ve katlarını kullanmamız gerekseydi nasıl yazmamız lazımdı
Cvp: for next step döngüsü - esrefigit - 25/03/2009
step 5 yaz
Cvp: for next step döngüsü - Seruz - 25/03/2009
Kod:
For i=5 to 100 Step 5"1 to 100 step 5" yazılırsa, değerler 1,6,11,16.... şeklinde döner.
Cvp: for next step döngüsü - esrefigit - 25/03/2009
Private Sub Komut6_Click()
Dim sakla As String
Dim i As Integer
Dim j As Integer
For i = -1 To 1
For j = -1 To 1
sakla = sakla & (i * Me.a) + (j * Me.b) & vbCrLf
Next
Next
Me.c = sakla
End Sub
buda diğeri
Private Sub Komut6_Click()
Me.c = Null
Dim sakla As String
Dim i As Integer
Dim j As Integer
For i = 1 To 100 Step 5
For j = 1 To 100 Step 5
sakla = sakla & (i * Me.a) + (j * Me.b) & vbCrLf
Next
Next
Me.c = sakla
End Sub