Opakovanie každej časti cyklu
Opakovanie každej časti cyklu
Caw. Nevie niekto ako sa da opakovat jedna cast cyklu dajmetomu 5x a potom sa prejde na dalsiu cast. (Predpokladame ze sa jedna o generator vypisov.)Prosim vo VB. Dik.
Re: Opakovanie každej časti cyklu
for ($i = 0; $i <= 4; $i++)
Re: Opakovanie každej časti cyklu
si si istý, že je to VB??? mne to pripadá skôr ako php. Ale pardon, zabudol som napisat ze som to chcel vo VB. dopisem.
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Re: Opakovanie každej časti cyklu
http://www.hojko.com/citajte-pred-zaloz ... 23064.html
hlavne 4. a 6. odstavec. Netuším v čom programuješ, či nejaký asembler či php ako ti markus napísal. Dokonca možno robíš v jazyku ktorý je na tak nízkej úrovni že vnorené cykly nezvláda
hlavne 4. a 6. odstavec. Netuším v čom programuješ, či nejaký asembler či php ako ti markus napísal. Dokonca možno robíš v jazyku ktorý je na tak nízkej úrovni že vnorené cykly nezvláda
-
manager666
Star
- Príspevky: 642
- Registrovaný: 12 aug 2007, 13:29
Re: Opakovanie každej časti cyklu
Z toho, co si napisal mi to vychadza ako cyklus vnoreny do dalsieho cyklu:
Ak si toto nevedel, tak sa nad sebou zamysli a zacni sa ucit od zakladov, nech to ma nejaky vyznam.... 
Kód: Vybrať všetko
For i = 0 To n
For j = 0 To 4
DoSomething()
Next
DoSomethingElse()
NextRe: Opakovanie každej časti cyklu
ale ja mam zložený cyklus, a trepať to tam odznova je zdvojnásobenie práce.manager666 napísal:Z toho, co si napisal mi to vychadza ako cyklus vnoreny do dalsieho cyklu:Ak si toto nevedel, tak sa nad sebou zamysli a zacni sa ucit od zakladov, nech to ma nejaky vyznam....Kód: Vybrať všetko
For i = 0 To n For j = 0 To 4 DoSomething() Next DoSomethingElse() Next
Toto robím:
Kód: Vybrať všetko
Imports System.IO
Public Class Form1
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim iiii As Integer
Dim iiiii As Integer
Dim pismena(25)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pismena(0) = "a"
pismena(1) = "b"
pismena(2) = "c"
pismena(3) = "d"
pismena(4) = "e"
pismena(5) = "f"
pismena(6) = "g"
pismena(7) = "h"
pismena(8) = "i"
pismena(9) = "j"
pismena(10) = "k"
pismena(11) = "l"
pismena(12) = "m"
pismena(13) = "n"
pismena(14) = "o"
pismena(15) = "p"
pismena(16) = "q"
pismena(17) = "r"
pismena(18) = "s"
pismena(19) = "t"
pismena(20) = "u"
pismena(21) = "v"
pismena(22) = "w"
pismena(23) = "x"
pismena(24) = "y"
pismena(25) = "z"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 25 Step
RichTextBox1.Text = RichTextBox1.Text & pismena(i)
For ii = 0 To 0
RichTextBox1.Text = RichTextBox1.Text & pismena(ii) & vbLf
Next
ProgressBar1.Value = i
Next i
ProgressBar1.Value = i
Dim lalo As StreamWriter
lalo = New StreamWriter("C:\test.txt")
lalo.Write(RichTextBox1.Text)
End Sub
End Class
tu samozrejme som len lamentoval, je tam veľa chýb.
//autoeditácia príspevku (14 Mar 2011, 18:02)
teoreticky by to šlo vygenerovaním 625 polí 25x25, čím by sa do 25 áčiek za sebou zapisovalo pokračovanie abecedy napr:
Kód: Vybrať všetko
aa
ab
ac
ad
ae
af
ag.......Tu je program vo vylepšenej verzii