pocetnik-combobox+neka pojasnjenja

pocetnik-combobox+neka pojasnjenja 05.07.2009. u 17:38 · pre 210 meseci #1

ja sam totalni pocetnik u ovome.od programiranja znam raditi samo u flash-u, ima dosta slicnosti ali ne toliko da mi sve ide od ruke.planiram napraviti jedan program koji u sustini predstavlja izbor nekih parametara preko cobmobox-ova i da se ti izabrani parametri medjusobno mnoze, dele i t.d. kao krajnji rezultat dobijam svega 10 parametara koji se trebaju stampati a po mogucstvu da se zapisuju u excel na HD-u

moje pitanje je da li je to veliki zalogaj za pocetnika, da li mogu sve ovo izvuci iz nekog tutorijala, i da li mogu dobiti od nekoga malu pomoc uz neki primer koji poseduje combobox-ove koji su medjusobno povezani-zavisni i da se u zavisnosti od izabranog pojavljue rezultat u recimo nekom dynamic text-u a koji ce se odatle mnoziti ili deliti i t.d....

Unapred zahvalan na pomoci

Re: pocetnik-combobox+neka pojasnjenja 05.07.2009. u 17:52 · pre 210 meseci #2

Nije tesko za pocetnika :)

Procitaj TOP teme imas dosta tutorijala, posebno obrati paznju na koriscenje promenljivih.

Da ubacis nesto u combo koristis

Code:
Combo1.AddItem "tekst"

Da izvuces u promenljivu vrednost combo-a

Code:
varTekst = Combo1.Text

e sad, na primer, ako ce ti u combo-u biti nesto tipa "+", "-" i td. onda ces morati sa IF da proveravas vrednost.

Primer, u textboxu(Text1) se nalazi prvi broj (npr. 5) u drugom textboxu se nalazi drugi broj (npr. 7). A u Combo-u biras operaciju(+,-).

Code:
Private Sub Combo1_Change()
If Combo1.Text = "+" Then MsgBox Str(Val(Text1.Text) + Val(Text2.Text))
If Combo1.Text = "-" Then MsgBox Str(Val(Text1.Text) + Val(Text2.Text))
End Sub

Str -> konvertuje brojnu varijablu u varijablu tipa string
Val -> Konvertujes brojnu varijablu iz tipa string u broj

Re: pocetnik-combobox+neka pojasnjenja 05.07.2009. u 19:45 · pre 210 meseci #3

evo da pojednostavim
primer onoga sto pokusavam

evo sad je u redu valjda :)

primer.zip0.7k primer2.zip2.01k

Re: pocetnik-combobox+neka pojasnjenja 05.07.2009. u 23:56 · pre 210 meseci #4

nisi ubacio ceo projekat

Re: pocetnik-combobox+neka pojasnjenja 06.07.2009. u 12:52 · pre 210 meseci #5

Evo ti resenje:

Najbolje bi bilo kada bi u combobox-u pisao samo broj grama, a desno od box-a jedinica gr. U suprotnom moras da izvlacis numericke vrednost iz stringa.

A za racunanje ides ovako:

Code:
Text1.Text = Str(Val(Combo1.Text) * 0.01)

Ili kakav ti vec proracun treba. E sad da ti tekst bude ispisan u nekoj boji ides preko IF

Code:
If Combo2.Text = "Crvena" Then Text1.ForeColor = 255

i td...

za stampanje i upis u excel imas dosta tema po forumu, pa pretrazi

Re: pocetnik-combobox+neka pojasnjenja 06.07.2009. u 19:34 · pre 210 meseci #6

sustina programa je izbor parametara radi stampanja sa malo matematike
dakle, u jednom cb imamo 10 parametara i sad se treba izabrati jedan i kao takav bude postavljen - formatiran u excel-u (citaj na mestu gde ja hocu da pozicioniram taj izabrani tekst)

kada se on postavi tu gde ja hocu onda na SACUVAJ kreirati excel dokument koji ce biti sacuvan na desktop-u recimo

sto se tice boja, upravo je to sto me verovatno nisi razumeo, dakle meni ne treba da rec "crvena" bude u crvenoj boji vec da se na tom mestu upise predhodno izabrana boja i ako je to recimo crvena pise CRVENA + npr. 50gr
nadam se da si me shvatio
molim te samo ako mozes bar da mi napises kako to da uradim ako ne mozes u onom primeru koji sam okacio

Re: pocetnik-combobox+neka pojasnjenja 07.07.2009. u 12:43 · pre 210 meseci #7

ako sam dobro shvatio, onda treba ovako:

Code:
Text1.Text = Combo2.Text & " " & Str(Val(Combo1.Text) * 0.01)

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 12:27 · pre 210 meseci #8

Aleksandre evo vec dva dana pokusavam da povezem makar dva combo-a a da se ne javljam na forum i ne uspevam.MOLIM te posto mi bas treba, mozes li mi samo napraviti dva combo-a sa po jednim brojem koji u text area ispisu rezultat kada se pomnoze medjusobno pa valjda cu ukapirati gde gresim

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 13:00 · pre 210 meseci #9

Evo :)

projekat.rar1.5k

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 15:42 · pre 210 meseci #10

Hvala puno, sad kapiram :DDD

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 17:21 · pre 210 meseci #11

evo mene opet, malo sam ucio... sad mi nije jasno (citaj da li ovo moze ovako)

imam kod za kreiranje xls-a i printPreview istog na sledeci nacin

Code:
Private Sub Command3_Click()

Dim ime_fajla As String
Dim tmpString As String

ime_fajla = Format(Date, "dd.mm.yyyy")
Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

Dim ff As Integer
ff = FreeFile()

Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

Do While Not EOF(ff)
Input #ff, tmpString
Printer.Print tmpString
Loop
Close #ff

End Sub

kreiranje radi ali printPreview nece, predpostavljam zbog ovog:

Code:
Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

ako sam u pravu, kako definisati da na mestu & ime_fajla & stoji ime fajla kojeg je ustvari kreirao

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 17:36 · pre 210 meseci #12

Probaj ovo

Code:
Private Sub Command3_Click()

Dim ime_fajla As String
Dim tmpString As String

ime_fajla = Format(Date, "dd.mm.yyyy")
Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

Dim ff As Integer
ff = FreeFile()

Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

Do While Not EOF(ff)
Input #ff, tmpString
Printer.Print tmpString
Loop
Close #ff
Printer.EndDoc

End Sub

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 18:16 · pre 210 meseci #13

Tako mi prijavljuje gresku '55'
Probao sam i da razdvojim na dva tastera ovako
Kreiranje

Code:
Private Sub Command3_Click()

Dim ime_fajla As String

ime_fajla = Format(Date, "dd.yyyy.mm")

Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

End Sub

i stampanje

Code:

Private Sub Command4_Click()
dim ff as integer
ff = freefile()

dim tmpString as string

open "C:\proba\" & ime_fajla & ".xls" for input as #ff
do while not EOF(ff)
input #ff, tmpString
printer.print tmpString
loop
close #ff

printer.enddoc
End Sub

i ista stvar, printPreview ili Print samo nece da radi

tacnije poruka izgleda ovako

Run-Time error '53':
File not found

ako dodam tacnu putanju

Open "C:\proba\10.2009.07.xls" For Input As #ff

nista se ne desava, bez error-a

Re: pocetnik-combobox+neka pojasnjenja 10.07.2009. u 23:27 · pre 210 meseci #14

zasto se u svim kodovima na samom pocetku uvek ali samo kod mene nalazi ovo
Private Sub Command4_Click(Index As Integer)
dok je kod ostalih bez toga
mislim da mi pravi probleme...?
kako da iskljucim to?

Re: pocetnik-combobox+neka pojasnjenja 30.07.2009. u 01:28 · pre 210 meseci #15

Opet ja da ne bih otvarao novu temu
Aleksandre pitanje za tebe:
Sve ovo o cemu si mi pomagao uspeo sam da realizujem pa cak i usavrsim, sve je u najboljem redu,bas onako kako sam ja to zeleo, mejutim ne umem da uradim sledece stvari:

1.Kako u excelu upisivati celije svaki naredni put, odnosno , kako da mi vb proverava gde je stao sa upisom podataka od prosli put i nastavi dalje odnosno na prvo prazno polje i tako redom ..., da li je to moguce!?
2.Sledeca stvar koju bih da uradim a znam da je moguce cak imam i kod, dakle zeleo bih da excel koji napravim bude maksimalno zasticen sifrom ali kod koji imam ne funkcionise.Evo linka http://www.angelfire.com/biz7/julian_s/julian/julians_macros.htm Protecting all sheets
3.Kako da podatke iz recimo text1.text koji se nalazi na formi br.1 prebacim na formu br.2, dakle ne umem da ih povezem,kada u formu1 unesem nesto u taj text da mi se onda po aktiviranju forme 2 isti prikaze negde gde ja hocu,recimo text2.text
4.Kako da resetujem upisane vrednosti u okviru forme koja je aktivna a da ne gasim program, pokusavao sam sa refresh,reset ali ...
5.Napravio sam "program" na laptop-u koji ima manji monitor (15.6) za razliku od odstalih, i sada kada pokrenem na nekom drugom racunaru svi text boxovi, comboi i ostalo se ne "razvlace" tako da mi ceo program ispuni monitor vec mi sada stvara prazan prostor kojeg na manjim monitorima ne vidim!?
6.Da li je moguce u VB-u odraditi kod koji ce imati za zadatak davanje instrukcija nekoj masini stim sto ce svaka instrukcija biti vezana za vreme u sec. znaci, ja upisem vreme od recimo 5sec i toliko ce trajati neka instrukcija a posle isteka vremena da on sam nastavi na sledecu instrukciju u kome sam opet definisao trajanje recimo 6sec .Instrukcija koliko sam shvatio je vezana za impuls odnosno opciju 1 ili 0.Zeleo bih eksperimentisati malo sa tim pa ako imas neki dobar link koji se tice ovoga i slicnih stvari poput kreiranja programa preko rs232 usb i t.d.

Mozda sam dosadan ali me sve zivo zanima
Pozdrav i sve naj
Hvala

Forum kao aplikacija na telefonu

Srodne teme