[ Kiter @ 22.09.2008. 13:35 ] @
Imam jedan mali program u visual basicu koji mi printa na stranice od recimo 1-99 i sad bi ja htio da te stranice na printeru izlaze obrnutim redosljedom. Kojom naredbom zadati 'obrnuto' printanje?
[ stefanpn @ 22.09.2008. 15:22 ] @
Imam TV i hocu da mi trazi kanale u nazad? Kako?

Citat:
Kiter: Imam jedan mali program u visual basicu koji mi printa na stranice od recimo 1-99 i sad bi ja htio da te stranice na printeru izlaze obrnutim redosljedom. Kojom naredbom zadati 'obrnuto' printanje?


Koji program?

Koje printanje!? (DataReport, CrystalReport, API pozivi, Printer Object) ?!?!?!

Baba Vanga je umrla, i ne može da nam objasni šta i kako, zato budi malo jasniji i ne štedi reči u opisu svog problema.
[ Kiter @ 23.09.2008. 08:12 ] @
Code:

Function Ispis()
  Printer.ScaleMode = 6
  Printer.FontName = "Tahoma CE"
  Slovo = stxt
   fg = do1
   Do Until fg = od1 - 1
    broj = Format(fg, "0" & Slovo & "#")
    Call printXY(broj, 150, 20, 66, False, False, False)
    Call printXY(broj, 135, 190, 95, False, False, False)
    Call printXY(broj, 170, 255, 36, False, False, False)
    Printer.NewPage
  fg = fg - 1
  Loop
  Printer.EndDoc
Exit Function
End Function


Ovo je funkcija za printanje. Sori na onakvom postu :)

[Ovu poruku je menjao Aleksandar Ružičić dana 23.09.2008. u 12:30 GMT+1]
[ stefanpn @ 23.09.2008. 08:56 ] @
Code:

Sub Ispis()
    Printer.ScaleMode = 6
    Printer.FontName = "Tahoma CE"
    Slovo = stxt
    fg = do1
    For fg = od1 - 1 To do1
        broj = Format(fg, "0" & Slovo & "#")
        Call printXY(broj, 150, 20, 66, False, False, False)
        Call printXY(broj, 135, 190, 95, False, False, False)
        Call printXY(broj, 170, 255, 36, False, False, False)
        Printer.NewPage
    Next fg
    Printer.EndDoc
End Sub


Ovo bi trebalo da ti stampa obrnuto od tvoje funkcije, s' tim da ce sad i brojevi ici obrnutim redosledom.

Pretpostavljam da se promenljive deklarisao u deklaracijama.
[ Kiter @ 23.09.2008. 09:44 ] @
>> Pretpostavljam da se promenljive deklarisao u deklaracijama.


Hm, nisam :) Kak to?
[ stefanpn @ 23.09.2008. 09:56 ] @


Code:

Dim intMojaPromenljiva As Integer
Dim blnMojaPromenljiva As Long
Dim strMojaPromenljiva As String
Dim blnMojaPromenljiva As Boolean
...
Dim Nesto As typNesto
[ Kiter @ 23.09.2008. 10:16 ] @
Da, radi, nisam trebao deklarirati ovo, radi i bez toga :) Hvala!

A i samo sam maknuo '-1' iz:

Code:
For fg = od1 - 1 To do1


Da printanje pocne sa '1'.
[ stefanpn @ 23.09.2008. 10:27 ] @
Ne deklarisanje promenljivih je losa programersla navika, i koliko mi je poznato samo Basic-oliki jezici to dozvoljavaju.

Kad deklarises promenljivu ti rezervises mesto za nju u memoriji. U VB-u ukoliko promenljiva nije deklarisana ona je po default-u tipa Variant.
[ Aleksandar Ružičić @ 23.09.2008. 11:32 ] @
Citat:
stefanpn: Ne deklarisanje promenljivih je losa programersla navika, i koliko mi je poznato samo Basic-oliki jezici to dozvoljavaju.

php, javascript, python, ruby, ... i koji god oces dinamicki jezik :)