[es] - VB obrnuto printanje

Kiter

Član broj: 128170
Poruke: 25
*.adsl.net.t-com.hr.

Profil

^{22.09.2008. u 13:35 - pre 189 meseci}

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?

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.83.*

+1 Profil

Re: VB obrnuto printanje

^{22.09.2008. u 15:22 - pre 189 meseci}

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.

Odgovor na temu

Kiter

Član broj: 128170
Poruke: 25
*.adsl.net.t-com.hr.

Profil

Re: VB obrnuto printanje

^{23.09.2008. u 08:12 - pre 189 meseci}

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]}

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.83.*

+1 Profil

Re: VB obrnuto printanje

^{23.09.2008. u 08:56 - pre 189 meseci}

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.}

Odgovor na temu

Kiter

Član broj: 128170
Poruke: 25
*.adsl.net.t-com.hr.

Profil

Re: VB obrnuto printanje

^{23.09.2008. u 09:44 - pre 189 meseci}

>> Pretpostavljam da se promenljive deklarisao u deklaracijama.

Hm, nisam :) Kak to?

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.83.*

+1 Profil

Re: VB obrnuto printanje

^{23.09.2008. u 09:56 - pre 189 meseci}

Code:

Dim intMojaPromenljiva As Integer
Dim blnMojaPromenljiva As Long
Dim strMojaPromenljiva As String
Dim blnMojaPromenljiva As Boolean
...
Dim Nesto As typNesto

Odgovor na temu

Kiter

Član broj: 128170
Poruke: 25
*.adsl.net.t-com.hr.

Profil

Re: VB obrnuto printanje

^{23.09.2008. u 10:16 - pre 189 meseci}

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'.

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.83.*

+1 Profil

Re: VB obrnuto printanje

^{23.09.2008. u 10:27 - pre 189 meseci}

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.

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: VB obrnuto printanje

^{23.09.2008. u 11:32 - pre 189 meseci}

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 :)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu