VB-pomoc

[e]

evo dio source-koda

Private Sub Form_Load()
Dim a As Integer
Dim n, r, d, l, Li, As Long
Text1.Text = ""
Label2.Caption = (HScroll1.Value / 10)
Label4.Caption = (HScroll2.Value / 10)
Label6.Caption = (HScroll3.Value / 2)
End Sub
------------------------------------------------
Private Sub HScroll1_Change()
a = 0
r = a + (HScroll1.Value / 10)
Label2.Caption = r
l = (6.28 * (a + (HScroll3.Value / 2)) * (10 * (a + (HScroll1.Value / 10)) + (((a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10))) / 2)) / 1000)
Label8.Caption = l
Li = (Sqr(a + (HScroll3.Value / 2) * (a + (HScroll1.Value / 10) / 2.54) + ((a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10)) / 2.54) / 2)) / (8 * (a + (HScroll1.Value / 10)) / 2.54) + (((a + (HScroll3.Value / 2)) * ((a + (HScroll2.Value / 10)) / 2.54) / 2)) + 11 * (a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10) / 25.4)
Text1.Text = Li
End Sub
---------------------------------------
situacija je ovakva: Visual Basic 6.0 mi uvijek prijavljuje grešku u navedenom dijelu programa. Program bi trebao vršiti proračune TC-a, al ako bude ovako neće ništa raditi. Svi ostali dijelovi programa rade, samo ovaj sere.
Nemojte mi slat tutorijale imam ih 28Mb + 2 knjige
molim za konkretnu pomoć

hvala

[MladaNada]

Koju gresku prijavljuje?
Ili ti samo kaze da ne moze kompajlirati?
Inace zar se ne pise sqrt za korjen u basicu?

[MladaNada]

I fali ti pokoja zagrada na par mjesta recimo
(Sqr(a + (HScroll3.Value / 2)

pa (6.28 * (a + (HScroll3.Value / 2))

[pedja089]

Dim a As Integer
Dim n, r, d, l, Li, As Long
ovaj deo moras izbaciti iz rutine formload
on spada u generalne deklaracije i uvek bi trebalo stoji na vrhu koda

[pedja089]

ovako treba da izgleda....
Dim a As Integer
Dim n, r, d, l, Li, As Long
----------------------------
Private Sub Form_Load()
Text1.Text = ""
Label2.Caption = (HScroll1.Value / 10)
Label4.Caption = (HScroll2.Value / 10)
Label6.Caption = (HScroll3.Value / 2)
End Sub
------------------------------------------------
Private Sub HScroll1_Change()
a = 0
r = a + (HScroll1.Value / 10)
Label2.Caption = r
l = (6.28 * (a + (HScroll3.Value / 2)) * (10 * (a + (HScroll1.Value / 10)) + (((a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10))) / 2)) / 1000)
Label8.Caption = l
Li = (Sqr(a + (HScroll3.Value / 2) * (a + (HScroll1.Value / 10) / 2.54) + ((a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10)) / 2.54) / 2)) / (8 * (a + (HScroll1.Value / 10)) / 2.54) + (((a + (HScroll3.Value / 2)) * ((a + (HScroll2.Value / 10)) / 2.54) / 2)) + 11 * (a + (HScroll3.Value / 2)) * (a + (HScroll2.Value / 10) / 25.4)
Text1.Text = Li
End Sub

sad mora da radi....

[matija]

slazem se s pedjom sto se tice premjestanja deklaracije varijabli u generalni dio, ali ne i s njegovim prijedlogom takvog rjesenja...
islo bi ovako:

Option Explicit
Private a As Integer
Private n, r, d, l, Li As Long
-----
pa onda dalje, meni nije javljalo nikakve greske (doduse, ne znam racuna li ti tocno )

primijeti razlike: kao prvo, kad deklariras varijable u generalnom dijelu, ne koristis Dim, vec Private ili Public, a osim toga, bitno je maknuti onaj zarez sto je stajao izmedu Li i As. inace to je bila i jedina greska koju je kompajler prijavio. barem meni.

sretno!

[e]

@ MN: u formuli nema korijena, moram to pogledati sa zagradama, kompajlira on sve i kad unesem neki broj odmah izbaci grešku "overflow"
@ pedja089: znam za to sa deklaracionim dijelom programa i opet isto
@ matija: sve progame koje sam do sad pisao sam radio sa dim i svi su radili kako treba

sretno!

hvala

[pedja089]

deklaracija promenjivih se vrsi sa dim
a option explicit je nacin za definisanje objekata...
npr objekat auto moze imati svojstvoa boje , modela , godista
pa se unutar toga definise sta je boja npr string duzine 7 znakova
pa onda godiste integer duzine 4 znaka itd
mnogo komplikovanije, a bespotrebno...

[pedja089]

@ MN: u formuli nema korijena, moram to pogledati sa zagradama, kompajlira on sve i kad unesem neki broj odmah izbaci grešku "overflow"

sretno!

hvala

neka promenljiva ti nije definisana kako treba. negde ti prelazi opseg.
nemoj definisati promenljive kao long jer long je u opsegu od -2.nesto do +2.nesto
probaj umesto long da stavis double
double je veoma precizna promenjiva a i zauzima nesto malo vise mem, ali imas jako veliku preciznost i veliki opseg sa 64 bita.
ovo bi trebalo da resi tvoje muke

[matija]

istina sto se tice option explicita - ovdje nema objekata. moja greska

sto rece pedja, probaj double. cudno da meni nije javljao overflow pri upisu broja...

[pedja089]

ja znam znanje

[e]

i sa double sve isto, samo sad još jedno sranje se pojavilo ni cls ne radi, a kad dodam novo commandbutton bez ikakvog sub-koda odmah pri kompilaciji izbaci grešku "overflow". imal iko kakav drugi programski jezik (delphi, VB.NET ili VB2005 ili javu ili c da ne skidam sa neta na dial-up-u sam

[pedja089]

pa kad nisi otklonio gresku
jednostavno uzmi novi projekt i onda dodaj cmb i videces da nema greske
a vb ima 600MB
nemogu ce da si ga skinuo sa neta sa dial up

[e]

ko je reako da sam ga skinuo sa neta, dobio sam ga od profesora, sam setup ima oko 50Mb ostalo su neka sranja, i neradi mi se više na VB 6 treba mi nešto novije jer imam problema i sa SP-om

[pedja089]

moj setup ima 600mb
profa te malo zajebao

[matija]

a mozda je ovo:

Dim n, r, d, l, Li As Long

nedavno sam bas citao kako ce takav kod zapravo samo varijablu Li deklarirati kao Long (a ostale kao Variant)

pedja

[e]

@pedja: evo o ćemu ti pričam, možda na CD-u ima 600Mb fajlova al evo šta ima na HDD-u



@matija: đe si to pročito?

[matija]

e ne znam gdje, al ne bi me cudilo da je tocno. probaj drugacije, ne moze skoditi.

[pedja089]

ok ako kod tebe to radi... moj na disku zauzima oko 700mb, i jos posle prvog restartovanja racunara trazi disk 2 na kojem stoje neka cudesa za ra sa bazama podataka