SPOOL in ORACLE 10G

Do you have problem spooling file in oracle 10G?

• This problem occurs because of permission restriction of writing file in C drive.
• By spooling we create a file in oraclexe which is in C drive, if you do not have permission to create a file in C(OS drive) then spooling will be failed.
• This is the only reason why users other than admin cant spool.
• Allow users as well as admin to write files to C drive and then try spooling, it should work!

Thank you

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)