Forum » Programiranje » [VB] Ocena programa
[VB] Ocena programa
MihaFirst ::
Nisem imel kam uploadat svojga programa, zato me zanima, če bi se dal komu it na google talk, da mu pošlem stvar, pa bo potem napisal svoje mnenje?
miha.first@gmail.com
P.S.: če ma kdo kako idejo, kam naj ga uploadam, bi bil predloga zelo vesel :D
miha.first@gmail.com
P.S.: če ma kdo kako idejo, kam naj ga uploadam, bi bil predloga zelo vesel :D
www.gamma.si
- spremenilo: snow ()
Monster ::
malo velik se mi zdi(1,6mb), drugače mi pa šumniki ne delajo, sicer pa ce so to tvoji zacetki je dober :) kr lepo počasi naprej!
Ka zaboga...
Backup22 ::
Hm, program je sicer ok, vendar ima nekaj napak => npr. pri kalkuliranju napišeš nek string "abc" namesto števila in se stvar sesuje. (runtime error). Take stvari moraš "pohendlat", da npr. ko nekdo vpiše črko ali string, se prikaže opozorilo, da je storil napako...
Drugo napako imaš pri obsegu trikotnika z razločnimi stranicami. Funkcija ne vrne obsega ampak združi vse dolžine.
Uploadaj še source, da damo kakšen namig, kako stvari elegantno rešit... V katerem jeziku delaš?
Drugo napako imaš pri obsegu trikotnika z razločnimi stranicami. Funkcija ne vrne obsega ampak združi vse dolžine.
Uploadaj še source, da damo kakšen namig, kako stvari elegantno rešit... V katerem jeziku delaš?
//
MihaFirst ::
mal velik? a si ga sploh odpru? sicer pa ja... to je en prvih mojih programov... sploh pa največji 
edit: @basckup22: visual basic
edit: @basckup22: visual basic
www.gamma.si
Zgodovina sprememb…
- spremenil: MihaFirst ()
bluefish ::
kar zanimiva stvar. Popravi, kar je napisal Backup22 in dodaj še kaj funkcij (računanje z koti,...).
MihaFirst ::
ja, sej že delam na novi verziji... vsaka bo mela več funkcij... tistega buga sem pa tut jst opazil, ampak ne znam določit vrednost neštevilčnega znaka... any idea?
www.gamma.si
).. V katerem jeziku delaš? C#, VB? MihaFirst ::
vb, kot sem že omenil 
source bom prilimal malo kasneje (čez kake pol ure) ker jo mam na drugem disku, tule me pa nek zlo pomemben opravek čaka...
hvala vsem za pomoč. kaj pa sama zasnova progija (če računamo, da pridejo posodobitve)?
source bom prilimal malo kasneje (čez kake pol ure) ker jo mam na drugem disku, tule me pa nek zlo pomemben opravek čaka...
hvala vsem za pomoč. kaj pa sama zasnova progija (če računamo, da pridejo posodobitve)?
www.gamma.si
Ziga Dolhar ::
Zanimivo ikonico ima tale kalkulator ...
Sicer pa _izjemno_ velik filesize za tako preprost programček.
Sicer pa _izjemno_ velik filesize za tako preprost programček.
https://dolhar.si/
Zgodovina sprememb…
- spremenil: Ziga Dolhar ()
MihaFirst ::
ja... se mi je pač zdela fajn...
sicer pa res ne vem, zakaj je tako velik...
v glavnem, progi vsebuje MDI formo in 14 (če se ne motim) form...
tako, da prilagam samo dve kodi dveh form za primer, ker približno vse deluje na enak način...
Private Sub Command1_Click()
Dim Tolar As String, Evro As String
Tolar = Text1.Text
Evro = Tolar * 239
Text2.Text = Evro
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Command2_Click()
Dim Evro As String, Tolar As String
Evro = Text2.Text
Tolar = Evro * 0.0041841
Text1.Text = Tolar
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
Private Sub Form_Load()
MsgBox "Izracuni so zgolj informativni. Uporablja se tecaj, ki je veljal 29. septembra 2006.", vbInformation
End Sub
---------------------------------------------------------
Private Sub Form_Load()
End Sub
Private Sub Label2_DblClick()
Label2.Caption = "ASCII koda znaka " & Text1.Text & " je " & Asc(Text1.Text) & "."
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Label4_DblClick()
Dim Koda As String
Koda = Text2.Text
If IsNumeric(Koda) And Koda < 256 And Koda > 31 Then
Label4.Caption = "Znak ASCII kode " & Koda & " je " & Chr(Text2.Text) & "."
ElseIf IsNumeric(Koda) And Koda = 31 Then
MsgBox "Koda mora biti vecja od 31!", vbEclamation
Else
MsgBox "Koda mora biti manjša od 256!", vbExclamation
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
LP
sicer pa res ne vem, zakaj je tako velik...
v glavnem, progi vsebuje MDI formo in 14 (če se ne motim) form...
tako, da prilagam samo dve kodi dveh form za primer, ker približno vse deluje na enak način...
Private Sub Command1_Click()
Dim Tolar As String, Evro As String
Tolar = Text1.Text
Evro = Tolar * 239
Text2.Text = Evro
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Command2_Click()
Dim Evro As String, Tolar As String
Evro = Text2.Text
Tolar = Evro * 0.0041841
Text1.Text = Tolar
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
Private Sub Form_Load()
MsgBox "Izracuni so zgolj informativni. Uporablja se tecaj, ki je veljal 29. septembra 2006.", vbInformation
End Sub
---------------------------------------------------------
Private Sub Form_Load()
End Sub
Private Sub Label2_DblClick()
Label2.Caption = "ASCII koda znaka " & Text1.Text & " je " & Asc(Text1.Text) & "."
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Label4_DblClick()
Dim Koda As String
Koda = Text2.Text
If IsNumeric(Koda) And Koda < 256 And Koda > 31 Then
Label4.Caption = "Znak ASCII kode " & Koda & " je " & Chr(Text2.Text) & "."
ElseIf IsNumeric(Koda) And Koda = 31 Then
MsgBox "Koda mora biti vecja od 31!", vbEclamation
Else
MsgBox "Koda mora biti manjša od 256!", vbExclamation
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
LP
www.gamma.si
mtosev ::
Core i9 10900X, ASUS Prime X299 Edition 30, 32GB 4x8 3600Mhz G.skill, CM H500M,
ASUS ROG Strix RTX 2080 Super, Samsung 970 PRO, UltraSharp UP3017, Win 11 Pro,
Enermax Platimax 1700W | moj oče darko 1960-2016, moj labradorec max 2002-2013
ASUS ROG Strix RTX 2080 Super, Samsung 970 PRO, UltraSharp UP3017, Win 11 Pro,
Enermax Platimax 1700W | moj oče darko 1960-2016, moj labradorec max 2002-2013
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | COM in Visual BasicOddelek: Programiranje | 2125 (1586) | pexo |
| » | Visual basic noob questionOddelek: Programiranje | 1523 (1278) | DonMatejo |
| » | problem v visual basicuOddelek: Programiranje | 1143 (1076) | destiny |
| » | visual basic-seštevanjeOddelek: Programiranje | 816 (758) | Red_Mamba |
| » | VB in kk dobit Ip od račnalnikaOddelek: Programiranje | 1165 (999) | alesrosina |