1
Creative Arts / Re: I do designs
« on: August 09, 2011, 04:04:41 pm »
@Kulverstukas
I did avatar on my style. Hope you like it:
I did avatar on my style. Hope you like it:
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
because dont have Photoshop here.
Public Class Digitron
'Balkan Art Kalkulator
'Autor: Cyber Null
'Datum kreiranja aplikacije: 10.1.2011.
'Namena programa: Izracunavanje osnovnih matematickih operacija
Private Sub Sabiranje() Handles Funkcija_sabiranje.Click
'Deklaracija promenljivih
Dim Broj1 As Double
Broj1 = Blok_1.Text
Dim Broj2 As Double
Broj2 = Blok_2.Text
Dim Rezultat As Double
Rezultat = Broj1 + Broj2
MessageBox.Show("Vaš rezultat je " & Rezultat.ToString, _
"Balkan Art")
End Sub
Private Sub Oduzimanje() Handles Funkcija_oduzimanje.Click
'Deklaracija promenljivih
Dim Broj1 As Double
Broj1 = Blok_1.Text
Dim Broj2 As Double
Broj2 = Blok_2.Text
Dim Rezultat As Double
Rezultat = Broj1 - Broj2
MessageBox.Show("Vaš rezultat je " & Rezultat.ToString, _
"Balkan Art")
End Sub
Private Sub Množenje() Handles Funkcija_mnozenje.Click
'Deklaracija promenljivih
Dim Broj1 As Double
Broj1 = Blok_1.Text
Dim Broj2 As Double
Broj2 = Blok_2.Text
Dim Rezultat As Double
Rezultat = Broj1 * Broj2
MessageBox.Show("Vaš rezultat je " & Rezultat.ToString, _
"Balkan Art")
End Sub
Private Sub Deljenje() Handles Funkcija_deljenje.Click
'Deklaracija promenljivih
Dim Broj1 As Double
Broj1 = Blok_1.Text
Dim Broj2 As Double
Broj2 = Blok_2.Text
Dim Rezultat As Double
Rezultat = Broj1 / Broj2
MessageBox.Show("Vaš rezultat je " & Rezultat.ToString, _
"Balkan Art")
End Sub
Private Sub Help() Handles HelpToolStripMenuItem.Click
'Deklaracija promenljive
Dim Pomoć As String
Pomoć = "Program je krajnje lak za upotrebu. Imate dva polja. U prvom unosite jedan broj u drugom svakako drugi. Odaberete koja će se funkcija izmedju njih izvršiti i to je to."
MessageBox.Show(Pomoć, "Balkan Art")
End Sub
Private Sub Autor() Handles AutorToolStripMenuItem.Click
'Deklaracija promenljive
Dim Autor As String
Autor = "Autor ovog programa je Cyber Null. Kontakt e-mail: dark.champion[at]hotmail.com"
MessageBox.Show(Autor, "Balkan Art")
End Sub
Private Sub Program() Handles OProgramuToolStripMenuItem.Click
'Deklaracija promenljive
Dim Program As String
Program = "Program je namenjen izračunavanju osnovnih matematičkih operacija. Program je vlasništvo Balkan Arta. Posetite nas na http://www.balkanart.net"
MessageBox.Show(Program, "Balkan Art")
End Sub
'Prelaz misem preko button-a
Private Sub Stil_dugmeta() Handles Funkcija_sabiranje.MouseHover
Funkcija_sabiranje.Text = "Saberi"
End Sub
Private Sub Stil_dugmeta2() Handles Funkcija_oduzimanje.MouseHover
Funkcija_oduzimanje.Text = "Oduzmi"
End Sub
Private Sub Stil_dugmeta3() Handles Funkcija_mnozenje.MouseHover
Funkcija_mnozenje.Text = "Pomnozi"
End Sub
Private Sub Stil_dugmeta4() Handles Funkcija_deljenje.MouseHover
Funkcija_deljenje.Text = "Podeli"
End Sub
Private Sub Stil_dugmeta0() Handles Funkcija_sabiranje.MouseLeave
Funkcija_sabiranje.Text = "+"
End Sub
Private Sub Stil_dugmeta22() Handles Funkcija_oduzimanje.MouseLeave
Funkcija_oduzimanje.Text = "-"
End Sub
Private Sub Stil_dugmeta33() Handles Funkcija_mnozenje.MouseLeave
Funkcija_mnozenje.Text = "*"
End Sub
Private Sub Stil_dugmeta44() Handles Funkcija_deljenje.MouseLeave
Funkcija_deljenje.Text = "/"
End Sub
End ClassI am sry because I used Serbian language in code, its because I am from Serbia. Calculator is not that good as Windows have it, but it can be usefull.
