[VB] Ocena programa

Rapidshare. Ne najboljša stvar, vendar vseeno.

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!

mal velik? a si ga sploh odpru? sicer pa ja... to je en prvih mojih programov... sploh pa največji

edit: @basckup22: visual basic

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?

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

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