TASM

TASM for windows 64bit OS

Its well know problem for all windows 7 64bit OS user that they cant run many compilers directly.

TURBO C, TASM, MASM and many more application programs we can't run directly  as it is incompatible for 64bit.

DOSBox is one of the solution for this problem.

DOSBOX is programme that runs on your computer that enables you to run other programmes that were developed for a different computer or operating system.

In this post i have published TASM for windows 64bit.

All you need to do is just install this application and you are done with your job.

You need not to MOUNT any drive, or any other folder.. run your program on the go.

This is possible because of CONFIGURATION (.conf) file which I placed in the same folder where .exe file of DOSBox is present.

This installation file is made by me.. In case you face any problem or any query arises then consult on blog.

DOWNLOAD 2.7 MB

Calculator

Scientific Calculator-updated

-> As name suggests, Scientific calculator is much more complex than normal arithmetic calculator.

-> I tried to cover some important part of Scientific calculator in this project.

-> This is what i have done.

Dim memory As Double
Dim operation As String, disp As String
Dim startpos As Double
Dim var As Double
Dim pos1 As Double, x As Double
Dim chache As Double

Private Sub Cmd7_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "7"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "7"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmd0_Click()
Text1.Text = Text1.Text & "0"
Text1.DataField = 1
End Sub

Private Sub Cmd00_Click()
Text1.Text = Text1.Text & "00"
Text1.DataField = 1
End Sub
Private Sub Cmddot_Click()
If Text1.DataField = 0 Then
    Text1.Text = "0."
    Text1.SelStart = Len(Text1.Text)
    Text1.SetFocus
    Text1.DataField = 1
Else
    If Text1.Text = "0." Then GoTo hell
        Text1.Text = Text1.Text & "."
        Text1.DataField = 1
hell:
End If
End Sub

Private Sub Cmdsin_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        Text1.Text = ""
        Text1.SelText = "Sin("
        Text1.SelText = memory
        Text1.SelText = ")"
        Text2.Text = Math.Sin(memory)
        Text2.DataField = 1
    End If
End Sub
Private Sub Cmdcos_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        Text1.Text = ""
        Text1.SelText = "Cos("
        Text1.SelText = memory
        Text1.SelText = ")"
        Text2.Text = Math.Cos(memory)
        Text2.DataField = 1
    End If
End Sub

Private Sub Cmdtan_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        Text1.Text = ""
        Text1.SelText = "Tan("
        Text1.SelText = memory
        Text1.SelText = ")"
        Text2.Text = Math.Tan(memory)
        Text2.DataField = 1
    End If
End Sub

Private Sub Cmddiv_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        operation = "/"
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = "/ "
        startpos = Len(Text1.Text)
        Text1.SetFocus
    End If
End Sub

Private Sub Cmdsub_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        operation = "-"
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = "- "
        startpos = Len(Text1.Text)
        Text1.SetFocus
    End If
End Sub

Private Sub Cmdmul_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        operation = "*"
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = "* "
        startpos = Len(Text1.Text)
        Text1.SetFocus
    End If
End Sub
Private Sub Cmdadd_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.DataField = 1
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        operation = "+"
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = "+ "
        startpos = Len(Text1.Text)
        Text1.SetFocus
    End If
End Sub

Private Sub Cmd8_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "8"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "8"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmdequal_Click()
If Text1.DataField = 0 Then
    MsgBox "Enter number first", _
    vbOKOnly, _
    "Syntax Error"
    Text1.SetFocus
Else
pos1 = Len(Text1.Text)
x = Val(pos1) - Val(startpos)
var = Right(Text1.Text, x)
If operation = "+" Then
    Text2.Text = memory + var
    Text2.DataField = 1
    ElseIf operation = "-" Then
        Text2.Text = memory - var
        Text2.DataField = 1
        ElseIf operation = "*" Then
            Text2.Text = memory * var
            Text2.DataField = 1
            ElseIf operation = "/" Then
                Text2.Text = memory / var
                Text2.DataField = 1
End If
End If
Text2.SelStart = Len(Text2.Text)
End Sub


Private Sub Cmdinvert_Click()
If Text2.DataField = 0 Then
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        If Text1.Text < 0 Then
            Text1.Text = Text1.Text * -1
        Else
            Text1.Text = "-" & Text1.Text
        End If
    End If
Else
    If Text2.Text < 0 Then
        Text1.Text = Text2.Text * -1
        Text2.Text = Text1.Text
        Text2.DataField = 1
    Else
        Text1.Text = "-" & Text2.Text
        Text2.Text = Text1.Text
        Text2.DataField = 1
    End If
End If
End Sub

Private Sub Cmdclr_Click()
Cls
memory = 0
operation = ""
Text1.Text = ""
Text2.Text = ""
Text2.DataField = 0
Text1.DataField = 0
Text1.SetFocus
End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub Cmdrec_Click()
If Text2.DataField = 0 Then GoTo 1
    Text1.Text = Text2.Text
1:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        Text1.Text = ""
        Text1.SelText = "1/"
        Text1.SelText = memory
        Text2.Text = 1 / memory
        Text2.DataField = 1
    End If
End Sub

Private Sub Cmdlog_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        memory = Text1.Text
        Text1.Text = ""
        Text1.SelText = "Log("
        Text1.SelText = memory
        Text1.SelText = ")"
        Text2.Text = Math.Log(memory) / 2.30258509299405
        Text2.DataField = 1
    End If
End Sub

Private Sub Cmdsqr_Click()
If Text2.DataField = 0 Then GoTo 10
    Text1.Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        Text2.Text = Text1.Text * Text1.Text
        Text2.DataField = 1
    End If
End Sub

Private Sub Cmdweb_Click()
Dim web As String
web = "http://www.afzalali15.blogspot.com"
MsgBox "Calculator version: 2.0.0" & vbCrLf & "Copyright © 2012-Afzal", _
vbOKOnly + vbQuestion, _
"About Calculator"
Call Shell("explorer.exe " & web, vbNormalFocus)
End Sub

Private Sub Cmd9_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "9"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "9"
    Text1.DataField = 1
End If
End Sub
Private Sub Cmd4_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "4"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "4"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmd5_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "5"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "5"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmd6_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "6"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "6"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmd1_Click()
    If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "1"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "1"
    Text1.DataField = 1
End If
End Sub
Private Sub Cmdsqrt_Click()
With Text1
If Text2.DataField = 0 Then GoTo 10
    .Text = Text2.Text
10:
    If Text1.DataField = 0 Then
        MsgBox "Enter number first", _
        vbOKOnly, _
        "Syntax Error"
        Text1.SetFocus
    Else
        If .Text < 0 Then GoTo 11
            memory = .Text
            .Text = ""
            .SelText = "Sqrt("
            .SelText = memory
            .SelText = ")"
            Text2.Text = Math.Sqr(memory)
            Text2.DataField = 1
    End If
End With
GoTo 12
11:
MsgBox "Negative number!", _
vbOKOnly, _
"Error"
12:
End Sub

Private Sub Cmd2_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "2"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "2"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmd3_Click()
If Text2.DataField = 0 Then
    Text1.Text = Text1.Text & "3"
    Text1.DataField = 1
Else
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "3"
    Text1.DataField = 1
End If
End Sub

Private Sub Cmdans_Click()
If Text2.DataField = 0 Then GoTo hell
    Text1.Text = Text2.Text
hell:
End Sub

Private Sub Form_Load()
Text1.DataField = 0
Text2.DataField = 0
End Sub

Snapshot of Scientific Calculator.exe

Download source code

(4.2KB)

FB widget by afzal

Widgets by afzal

Calculator

Arithmetic Calculator

HEY FRIENDS, I HAVE DESIGNED A SIMPLE CALCULATOR USING VISUAL BASIC 6.0. HERE IS CODE FOR THE SAME.

Private Sub Command1_Click()
Dim add As Integer
add = Val(Text1.Text) + Val(Text2.Text)
Text3.Text = add
End Sub

Private Sub Command2_Click()
Dim min As Integer
min = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = min
End Sub

Private Sub Command3_Click()
Dim mul As Integer
mul = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = mul
End Sub

Private Sub Command4_Click()
Dim div As Double
div = Val(Text1.Text) / Val(Text2.Text)
Text3.Text = div
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
Cls
Text1.Text =   'there is a ASCII character after = sign, alt+255 i.e a space character
Text2.Text =  
Text3.Text =  
End Sub

Private Sub Command7_Click()
yourMsg1 = MsgBox("i)Enter first number." & vbCrLf & "ii)Enter second number." & vbCrLf & "iii) Choose any airthmetic operator.", 0, "Instructions for use")
End Sub

Snapshot of Calc.exe

Download full program along with executable calculator here

(6.3 KB)

Data Base Management System by korth

This file includes several ppts.. Covering entire syllabus point in short and colorful slides!

Intrested??? Download it now!

(17.8MB)

Be updated with latest technologies

Choose mozilla firefox for better performance of internet.

#1: Less Crashes Flat out, Firefox crashes less often than Internet Explorer does. Also, on the rare occasion that it does crash, you have the option to restore the session. This means that all of the pages you were viewing, at the time of the crash, will reload. #2: More to Offer Firefox has a lot more to offer than Internet Explorer does. Not only does Firefox come with several search engines preloaded, but it also allows you to download other applications that can be used with your browser. Forecastfox, for example, will display weather conditions in the lower, right-hand side of your browser. #3: Pop-ups Internet Explorer is pop-up hell. Even if you use the built-in pop-up blocker, you will quickly become annoyed. With Firefox, you can easily block unwanted pop-ups, while still being able to easily view the pop-ups that you need.

Try mozilla firefox 13.0.1 and share your review.

(15.80MB)