AccessTr.neT
for next step döngüsü - Baskı Önizleme

+- 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
next




Cvp: 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
5 ve katları olacaksa, 1 den 100'e değil, 5'den 100'e yazılmalı.
"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