[es] - Digitron, ako moze pomoc

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

^{14.05.2007. u 01:39 - pre 206 meseci}

Ok evo na brzinu sam uradio ceo digitron sa svim brojevima, plus, minus, jednako i tasterom CE za brisanje. Sam uradi za mnozenje i deljenje. Poslao sam ti kod za digitron(kalkulator) koji je uradio slavni Microsoft. Sta njemu fali, zasto ga ne iskoristis.Ti vidi koji ti je laksi za ispravku.

Code:

'Program: Digitron
'Sastavio: rgdRajko
'Datum: 14.05.2007
'Verzija: 1.0.1

'Deklaracija
Dim memorisano As Long
Dim zbir As Long

Dim pritisnutnekiodtasterasabrojevima As Boolean

Dim pritisnutjetasterplus As Boolean
Dim vecjepritisnutjetasterplus As Boolean

Dim pritisnutjetasterminus As Boolean
Dim vecjepritisnutjetasterminus As Boolean

Dim pritisnutjetasterjednako As Boolean

'Tasteri 0 do 9
Private Sub cmdBroj1_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj1.Caption)
End Sub

Private Sub cmdBroj2_Click()
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj2.Caption)
    pritisnutnekiodtasterasabrojevima = True
End Sub

Private Sub cmdBroj3_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj3.Caption)
End Sub

Private Sub cmdBroj4_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj4.Caption)
End Sub

Private Sub cmdBroj5_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj5.Caption)
End Sub

Private Sub cmdBroj6_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj6.Caption)
End Sub

Private Sub cmdBroj7_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj7.Caption)
End Sub

Private Sub cmdBroj8_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj8.Caption)
End Sub

Private Sub cmdBroj9_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj9.Caption)
End Sub

Private Sub cmdBroj0_Click()
    Call proverazatasteresabrojevima
    txtDisplej.Text = Val(txtDisplej.Text & cmdBroj0.Caption)
End Sub

'Dugme "+"
Private Sub cmdPlus_Click()
    If pritisnutnekiodtasterasabrojevima = True Then
        If pritisnutjetasterplus = True Then
            zbir = memorisano + Val(txtDisplej.Text)
            memorisano = zbir
            vecjepritisnutjetasterplus = True
            txtDisplej.Text = zbir
        End If
        If pritisnutjetasterminus = True Then
            zbir = memorisano - Val(txtDisplej.Text)
            memorisano = zbir
            txtDisplej.Text = zbir
        End If
    End If

    pritisnutjetasterplus = True
    pritisnutjetasterminus = False
    vecjepritisnutjetasterminus = True

    If vecjepritisnutjetasterplus = False Then
        memorisano = Val(txtDisplej.Text)
        vecjepritisnutjetasterplus = True
    End If

    pritisnutnekiodtasterasabrojevima = False
End Sub

'Dugme "-"
Private Sub cmdMinus_Click()
    If pritisnutnekiodtasterasabrojevima = True Then
        If pritisnutjetasterminus = True Then
            zbir = memorisano - Val(txtDisplej.Text)
            memorisano = zbir
            vecjepritisnutjetasterminus = True
            txtDisplej.Text = zbir
        End If
        If pritisnutjetasterplus = True Then
            zbir = memorisano + Val(txtDisplej.Text)
            memorisano = zbir
            vecjepritisnutjetasterplus = True
            txtDisplej.Text = zbir
        End If
    End If

    pritisnutjetasterminus = True
    pritisnutjetasterplus = False
    vecjepritisnutjetasterplus = True

    If vecjepritisnutjetasterminus = False Then
        memorisano = Val(txtDisplej.Text)
        vecjepritisnutjetasterminus = True

    End If

    pritisnutnekiodtasterasabrojevima = False
End Sub

'Dugme "="
Private Sub cmdJednako_Click()
    If pritisnutjetasterjednako = False Then
        If pritisnutnekiodtasterasabrojevima = True Then
            If pritisnutjetasterplus = True Then
                zbir = memorisano + Val(txtDisplej.Text)
                memorisano = zbir
                txtDisplej.Text = zbir
            End If
            If pritisnutjetasterminus = True Then
                zbir = memorisano - Val(txtDisplej.Text)
                memorisano = zbir
                txtDisplej.Text = zbir
            End If
        End If
    End If
    pritisnutjetasterjednako = True
    pritisnutjetasterplus = False
    vecjepritisnutjetasterplus = False

    pritisnutjetasterminus = False
    vecjepritisnutjetasterminus = False
End Sub

'Dugme CE za brisanje svega
Private Sub cmdCe_Click()
    vecjepritisnutjetasterplus = False
    pritisnutnekiodtasterasabrojevima = False
    memorisano = 0
    txtDisplej.Text = "0"
End Sub

Private Sub Form_Load()
    txtDisplej.Text = "0"
    cmdBroj1.Caption = "1"
    cmdBroj2.Caption = "2"
    cmdBroj3.Caption = "3"
    cmdBroj4.Caption = "4"
    cmdBroj5.Caption = "5"
    cmdBroj6.Caption = "6"
    cmdBroj7.Caption = "7"
    cmdBroj8.Caption = "8"
    cmdBroj9.Caption = "9"
    cmdBroj0.Caption = "0"

    cmdPlus.Caption = "+"
    cmdMinus.Caption = "-"
    cmdJednako.Caption = "="

    cmdCE.Caption = "CE"
End Sub

Public Sub proverazatasteresabrojevima()
    If vecjepritisnutjetasterplus = True Then
        vecjepritisnutjetasterplus = False
        txtDisplej.Text = ""
    End If
    If vecjepritisnutjetasterminus = True Then
        vecjepritisnutjetasterminus = False
        txtDisplej.Text = ""
    End If
    pritisnutnekiodtasterasabrojevima = True
    pritisnutjetasterjednako = False
End Sub

rgdrajko

Prikačeni fajlovi

Digitron.JPG - 12.04k

Digitron.zip - 14.42k

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Digitron, ako moze pomoc

^{14.05.2007. u 17:44 - pre 206 meseci}

Sto se tice konvencija i standarda za imenovanje u VB-u mislim da tu ne treba trositi reci i raspravljati se oko toga, evo sta Microsoft kaze http://msdn2.microsoft.com/en-us/library/aa240822(VS.60).aspx a inace to je nesto sto se stalno menja, tako da se vec za .NET standardi znatno razlikuju (napusta se madjarska notacija - izmedju ostalog).

Sto se mene tice, ako neko radi samo za sebe nije bitno koji standard koristi - bitno da ima neka pravila koja postuje (zbog sebe), a ako se radi u timu, ili ako neko drugi treba da cita tvoj kod (npr. ovde na elitesecurity) onda bi bilo kulturno da se poznaju i postuju osnovni standardi, a ne da neko sebi daje za pravo da donosi konacan sud. Sto se mene tice zovi ti promenljivu "vecjepritisnutjetasterminus" ako hoces (cini mi se da ima puno "je" u nazivu) ali mene, a i vecinu drugih koji to treba da citaju to iritira zato sto smo navikli na standarde.

Sto se tice digitrona, ne vidim zasto bi se pisao program za to, ali OK je u edukativne svrhe.

Odgovor na temu