Pomoć oko Visual Basica - zadatak ? (Programiranje) @ Bug.hr Forum

sharavi

13 godina

neaktivan

offline

sri 23.5.2012 15:17

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Može li mi neko, molim vas, pomoći oko Visual Basic zadatka ?

Tek smo počeli sa Visual Basicom (u Accessu) i zadatak nije previše težak (za one koji znaju).

Zadatak je : napisati kod koji će ispisati sve vrijednosti od unesene do broja 10

Znači kad se u text box unese broj 3 i pritisnemo command button , access treba da izbacuje brojeve 3,4,5,6,7,8,9,10

To je ovaj kod :

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

For i = Vrijednost To 10

MsgBox (i)

Next i

End Sub

Private Sub Text2_Change()

Vrijednost = Val(Text2.Text)

End Sub

Ali kako da kada npr. unesemo broj 14 , da izbaci 14,13,12,11,10.

Ja sam pokušao preko If-a i Loop-a ,ali ne ide.

Znači ovako sam pokušao :

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

For i = Vrijednost To 10

MsgBox (i)

Next i

If Vrijednost > 10 Then

Do

MsgBox (i)

i = Vrijednost - 1

Loop Until i = 9

End If

End Sub

Private Sub Text2_Change()

Vrijednost = Val(Text2.Text)

End Sub

Pa eto, ako mi neko može pomoći bio bih mu veoma zahvalan.

Poruka je uređivana zadnji put sri 23.5.2012 15:17 (sharavi).

trajni link

0 0 hvala 0

generic9974

14 godina

neaktivan

offline

sri 23.5.2012 15:36

Odgovori Citiraj

Re: Pomoć oko Visual Basica - zadatak ?

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

Vrijednost = Val(Text2.Text)

For i = Vrijednost To 10

MsgBox (i)

Next i

If Vrijednost > 10 Then

Do

MsgBox (i)

i = i - 1

Loop Until i = 9

End If

End Sub

1.

..... liniju

i = Vrijednost - 1

...zamjeni sa

i = i - 1

jer ti je varijabla vrijednost uvijek vrijednost upisana u textbox-u pa ti se program vrti u beskonacnom loop-u

2.

Private Sub Text2_Change()

Vrijednost = Val(Text2.Text)

End Sub

-ovaj dio ti je nepotreban jer ti je trigger event commandbutton_click i ovime samo nepotrebno trajbaš resurse

Poruka je uređivana zadnji put sri 23.5.2012 15:45 (generic9974).

Moj PC

trajni link nadporuka

1 0 hvala 1

generic9974

14 godina

neaktivan

offline

sri 23.5.2012 15:41

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

mada ce raditi i ovako gore pravilna upotreba if petlje bi bila

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

Vrijednost = Val(Text2.Text)

i = vrijednost

If Vrijednost > 10 Then
    Do
    MsgBox (i)
    i = i - 1
    Loop Until i = 9

Else

    For i = Vrijednost To 10
        MsgBox (i)
    Next i

End If

End Sub

Poruka je uređivana zadnji put sri 23.5.2012 15:55 (generic9974).

Moj PC

trajni link

1 0 hvala 1

sharavi

13 godina

neaktivan

offline

sri 23.5.2012 15:48

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

For i = Vrijednost To 10

MsgBox (i)

Next i

If Vrijednost > 10 Then

Do

MsgBox (i)

i = i - 1

Loop Until i = 9

End If

End Sub

Private Sub Text2_Change()

Vrijednost = Val(Text2.Text)

End Sub

Evo radi ovaj :)

Kada izbrišem zadnji dio i prebacim gore Vrijednost=Val(Text2.Text) neku grešku izbacuje ,a ovako radi :)

Hvala puno :)

trajni link

0 0 hvala 0

sharavi

13 godina

neaktivan

offline

sri 23.5.2012 15:50

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Na času smo radili sa for...next za brojeve manje od 10 , pa nam prof. rekao da samo iz tog primjera uradimo za brojeve veće od 10 :)

trajni link

0 0 hvala 0

generic9974

14 godina

neaktivan

offline

sri 23.5.2012 15:51

Odgovori Citiraj

Re: Pomoć oko Visual Basica - zadatak ?

sharavi kaže...

Evo radi ovaj :)

Kada izbrišem zadnji dio i prebacim gore Vrijednost=Val(Text2.Text) neku grešku izbacuje ,a ovako radi :)

Hvala puno :)

greska je bila ako si napravio copy-paste jer sam greskom stavio Text1.Text umjesto Text2.text ... {#} .. .editirao sam

Moj PC

trajni link nadporuka

1 0 hvala 1

sharavi

13 godina

neaktivan

offline

sri 23.5.2012 15:53

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Probaću i sa ovim , pa ću mu sve poslati na mail :)

Hvala puno još jednom :)

trajni link

0 0 hvala 0

generic9974

14 godina

neaktivan

offline

sri 23.5.2012 16:03

Odgovori Citiraj

Re: Pomoć oko Visual Basica - zadatak ?

cekaj stani!!!!

ako je zadatak bio da napravis sa for - next petljom onda ne bi trebalo ici sa do-loop ... probaj ovako

Public Vrijednost As Integer

Private Sub Command4_Click()

Dim i As Integer

Vrijednost = Val(Text2.Text)

If Vrijednost > 10 Then
     For i = Vrijednost To 10 Step -1
        MsgBox (i)
     Next i

Else

    For i = Vrijednost To 10
        MsgBox (i)
    Next i

End If

End Sub

Moj PC

trajni link nadporuka

1 0 hvala 1

sharavi

13 godina

neaktivan

offline

sri 23.5.2012 16:10

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Može i ovo :)

Hvala :)!

trajni link

0 0 hvala 0

sharavi

13 godina

neaktivan

offline

sri 6.6.2012 13:29

Odgovori Citiraj

Pomoć oko Visual Basica - zadatak ?

Može li mi neko dati smjernice u pisanju ovog programa :

Znači imamo dva text boxa (jedan u kojem se upisuje ime i prezime, a drugi u kojem se upisuje datum rođenja osobe) i command button.

Kada kliknemo na command button access treba da ispiše koliko je dana stara ta osoba.

Pokušao sam na ovaj način,ali mi i ne ide baš najbolje :

Public Sub Command4_Click()

Dim a, b As String

a = Text0.Text

b = datavalue(Text2.Text)

DateDiff("b","d", Now)

End Sub

Ako neko može pomoći bio bih mu veoma zahvalan.

trajni link

0 0 hvala 0