Hi,
I'm writing a form to get numbers in order to calculate the price. if numbers and the code of business is wrong it will give me message box error.
The result will appear on a rich text box.
My professor wants me to set declare separate string variables to displaying text in the richtextbox. MY QUESTION :For Boolean variable, assign false to Boolean variable, when user input is invalid. Display results in the richtextbox, when Boolean is true, BUT IF IT IS FALSE : don't display the result.
My out put doesn't calculate the function and don't know how to set the Boolean to not display the output!!
Please help!
Here is my Code: - 'Declare variables to store the output
-
Dim strOutOffice As String = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c")
-
Dim strOutVisual As String = "Microsoft Visual Sudio Pro 2010:" & decTotalVS.ToString("c")
-
Dim strOutQuick As String = "Intuit Quick Books 2012:" & decTotalQuick.ToString("c")
-
Dim strOutMaker As String = "File Maker Pro 2011:" & decTotalMaker.ToString("c")
-
Dim strGrandTotal As String = "Grand Total:" & decGrandTotal.ToString("c")
-
-
Dim blnAnswer As Boolean = True 'Declare a boolean as true
-
-
-
Process------
-
.
-
.
-
.
-
-
'Output ---------------------------------------
-
rtbSalesOrder.Clear()
-
rtbSalesOrder.AppendText(strOutOffice & vbNewLine)
-
rtbSalesOrder.AppendText(strOutVisual & vbNewLine)
-
rtbSalesOrder.AppendText(strOutQuick & vbNewLine)
-
rtbSalesOrder.AppendText(strOutMaker & vbNewLine)
-
rtbSalesOrder.AppendText(strGrandTotal & vbNewLine)
7 1625
So, where is your if statement checking to see if the boolean is true.
It's pretty simple to say: -
Dim myBoolean As Boolean
-
'.......
-
If myBoolean = True Then
-
'do something
-
Else
-
'do something else...
-
End If
-Frinny
Thank you Frinavale,
what would be my Boolean not display the answer in the text box? Do i have to use rtbSalesOrder.Clear()
or there is something else to not to display the output in richTextbox?
is this correct: -
strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
-
-
If blnAnswer = True Then
-
-
rtbSalesOrder.AppendText(strOutOffice)
-
Else
-
rtbSalesOrder.Clear()
-
End If
It's not my project so I'm not sure what you're supposed to display in the TextBox.
According to what you previously posted, I would say that if false then you need to clear the TextBox because you don't want to show anything....
-Frinny
Here is my Code: -
strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
-
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutOffice)
-
Else
-
rtbSalesOrder.Clear()
-
End If
( if it is right, i's not working :(
What about it is not working ?
no it is not :(((
here is he whole code: -
Public Class SoftwareSales
-
-
-
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
-
'Declaration --------------------------
-
-
'Declare constants for retail Price
-
Const decOffice As Decimal = 500
-
Const decVisual As Decimal = 800
-
Const decQuick As Decimal = 230
-
Const decMaker As Decimal = 300
-
-
'Declare variables to store the quantities sold
-
Dim shoMsOffice As Short
-
Dim shoMsVs As Short
-
Dim shoMsQuick As Short
-
Dim shoMsMaker As Short
-
-
'Declare variables to store the total cost
-
Dim decTotalOffice As Decimal
-
Dim decTotalVS As Decimal
-
Dim decTotalQuick As Decimal
-
Dim decTotalMaker As Decimal
-
Dim decGrandTotal As Decimal
-
-
Dim strMsBizType As String 'Declare a variable to store business type
-
-
'Declare variables to store the applied discount
-
Dim intDisMsOffice As Integer = 1
-
Dim intDisMsVs As Integer = 1
-
Dim intDisMsQuick As Integer = 1
-
Dim intDisMaker As Integer = 1
-
-
Dim blnAnswer As Boolean = True 'Declare a boolean as true
-
-
'Declare variables to store the output
-
Dim strOutOffice As String
-
Dim strOutVisual As String
-
Dim strOutQuick As String
-
Dim strOutMaker As String
-
Dim strGrandTotal As String
-
-
-
-
-
'Input ----------------------------
-
-
strMsBizType = txtBizType.Text
-
strMsBizType = strMsBizType.ToUpper
-
-
If strMsBizType = "B" Or strMsBizType = "b" Or strMsBizType = "A" Or strMsBizType = "a" Or strMsBizType = "N" Or strMsBizType = "n" Then
-
blnAnswer = True
-
Else
-
MsgBox("Please enter B,A, or N for business type.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
-
End If
-
-
-
-
'strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
'rtbSalesOrder.AppendText(strOutOffice)
-
-
-
-
-
If IsNumeric(txtMsOffice.Text) And txtMsOffice.Text > 0 Then
-
shoMsOffice = txtMsOffice.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Microsoft Office Pro 2010.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
-
If IsNumeric(txtMsVs.Text) And txtMsVs.Text > 0 Then
-
shoMsVs = txtMsVs.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Microsoft Visual Studio Pro 2010.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
If IsNumeric(txtMsQuick.Text) And txtMsQuick.Text > 0 Then
-
shoMsQuick = txtMsQuick.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Intuit Quick Books 2012.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
If IsNumeric(txtMsMaker.Text) And txtMsMaker.Text > 0 Then
-
shoMsMaker = txtMsMaker.Text
-
Else
-
MsgBox("Please enter number of quantities sold for File Maker Pro 2011.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
-
'Process -------------------------------------
-
-
-
.
-
.
-
.
-
-
'Output ---------------------------------------
-
-
rtbSalesOrder.Clear()
-
-
strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutOffice)
-
Else
-
rtbSalesOrder.Clear(strOutOffice)
-
End If
-
-
strOutVisual = "Microsoft Visual Sudio Pro 2010:" & decTotalVS.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutVisual)
-
Else
-
rtbSalesOrder.Clear(strOutVisual)
-
End If
-
-
-
strOutQuick = "Intuit Quick Books 2012:" & decTotalQuick.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutQuick)
-
Else
-
rtbSalesOrder.Clear(strOutQuick)
-
End If
-
-
strOutMaker = "File Maker Pro 2011:" & decTotalMaker.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutMaker)
-
Else
-
rtbSalesOrder.Clear(strOutMaker)
-
End If
-
-
-
strGrandTotal = "Grand Total:" & decGrandTotal.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strGrandTotal)
-
Else
-
rtbSalesOrder.Clear(strGrandTotal)
-
End If
-
-
'rtbSalesOrder.Clear()
-
'rtbSalesOrder.AppendText("Microsoft Office Pro 2010:" & strOutOffice & vbNewLine)
-
'rtbSalesOrder.AppendText("Microsoft Visual Sudio Pro 2010:" & strOutVisual & vbNewLine)
-
'rtbSalesOrder.AppendText("Intuit Quick Books 2012:" & strOutQuick & vbNewLine)
-
'rtbSalesOrder.AppendText("File Maker Pro 2011:" & strOutMaker & vbNewLine)
-
'rtbSalesOrder.AppendText("Grand Total:" & strGrandTotal & vbNewLine)
-
-
End Sub
-
-
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
-
'Clear UserInput & and assign default values
-
txtMsOffice.Text = 0
-
txtMsVs.Text = 0
-
txtMsQuick.Text = 0
-
txtMsMaker.Text = 0
-
txtBizType.Text = "B"
-
rtbSalesOrder.Clear()
-
-
txtMsOffice.Focus() ' Reset the focus.
-
End Sub
-
-
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
-
End
-
End Sub
-
End Class
This one has the process too: -
Public Class SoftwareSales
-
-
-
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
-
'Declaration --------------------------
-
-
'Declare constants for retail Price
-
Const decOffice As Decimal = 500
-
Const decVisual As Decimal = 800
-
Const decQuick As Decimal = 230
-
Const decMaker As Decimal = 300
-
-
'Declare variables to store the quantities sold
-
Dim shoMsOffice As Short
-
Dim shoMsVs As Short
-
Dim shoMsQuick As Short
-
Dim shoMsMaker As Short
-
-
'Declare variables to store the total cost
-
Dim decTotalOffice As Decimal
-
Dim decTotalVS As Decimal
-
Dim decTotalQuick As Decimal
-
Dim decTotalMaker As Decimal
-
Dim decGrandTotal As Decimal
-
-
Dim strMsBizType As String 'Declare a variable to store business type
-
-
'Declare variables to store the applied discount
-
Dim intDisMsOffice As Integer = 1
-
Dim intDisMsVs As Integer = 1
-
Dim intDisMsQuick As Integer = 1
-
Dim intDisMaker As Integer = 1
-
-
Dim blnAnswer As Boolean = True 'Declare a boolean as true
-
-
'Declare variables to store the output
-
Dim strOutOffice As String
-
Dim strOutVisual As String
-
Dim strOutQuick As String
-
Dim strOutMaker As String
-
Dim strGrandTotal As String
-
-
-
-
-
'Input ----------------------------
-
-
strMsBizType = txtBizType.Text
-
strMsBizType = strMsBizType.ToUpper
-
-
If strMsBizType = "B" Or strMsBizType = "b" Or strMsBizType = "A" Or strMsBizType = "a" Or strMsBizType = "N" Or strMsBizType = "n" Then
-
blnAnswer = True
-
Else
-
MsgBox("Please enter B,A, or N for business type.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
-
End If
-
-
-
-
'strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
'rtbSalesOrder.AppendText(strOutOffice)
-
-
-
-
-
If IsNumeric(txtMsOffice.Text) And txtMsOffice.Text > 0 Then
-
shoMsOffice = txtMsOffice.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Microsoft Office Pro 2010.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
-
If IsNumeric(txtMsVs.Text) And txtMsVs.Text > 0 Then
-
shoMsVs = txtMsVs.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Microsoft Visual Studio Pro 2010.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
If IsNumeric(txtMsQuick.Text) And txtMsQuick.Text > 0 Then
-
shoMsQuick = txtMsQuick.Text
-
Else
-
MsgBox("Please enter number of quantities sold for Intuit Quick Books 2012.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
If IsNumeric(txtMsMaker.Text) And txtMsMaker.Text > 0 Then
-
shoMsMaker = txtMsMaker.Text
-
Else
-
MsgBox("Please enter number of quantities sold for File Maker Pro 2011.", MsgBoxStyle.OkOnly + vbCritical, "Data Entry Error")
-
End If
-
-
-
'Process -------------------------------------
-
-
'Discount table for Regular Business
-
If strMsBizType = "B" Or strMsBizType = "b" Then
-
decTotalOffice = decOffice * shoMsOffice
-
decTotalVS = decVisual * shoMsVs
-
decTotalQuick = decQuick * shoMsQuick
-
decTotalMaker = decMaker * shoMsMaker
-
End If
-
-
'Discount table for Academic
-
If strMsBizType = "A" Or strMsBizType = "a" Then
-
-
If (shoMsOffice = shoMsVs = shoMsQuick = shoMsMaker) <= 10 Then
-
decTotalOffice = shoMsOffice * decOffice
-
decTotalVS = decVisual * shoMsVs
-
decTotalQuick = decQuick * shoMsQuick
-
decTotalMaker = decMaker * shoMsMaker
-
-
Select Case shoMsOffice
-
Case 10 To 19
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.25
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case 10 To 19
-
-
intDisMsVs = (shoMsVs * decVisual) * 0.25
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 10 To 19
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.05
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 10 To 19
-
intDisMaker = (shoMsMaker * decMaker) * 0.05
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case 20 To 49
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.35
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
Select Case shoMsVs
-
-
End Select
-
Case 20 To 49
-
intDisMsVs = (shoMsVs * decVisual) * 0.35
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 20 To 49
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.1
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 20 To 49
-
intDisMaker = (shoMsMaker * decMaker) * 0.15
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case 50 To 99
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.5
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case 50 To 99
-
intDisMsVs = (shoMsVs * decVisual) * 0.5
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 50 To 99
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.15
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 50 To 99
-
intDisMaker = (shoMsMaker * decMaker) * 0.25
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case Is >= 100
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.75
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case Is >= 100
-
intDisMsVs = (shoMsVs * decVisual) * 0.75
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case Is >= 100
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.25
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case Is >= 100
-
intDisMaker = (shoMsMaker * decMaker) * 0.4
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
End If
-
End If
-
-
-
'Discount table for NonProfit Organizations
-
If strMsBizType = "N" Or strMsBizType = "n" Then
-
-
If (shoMsOffice = shoMsVs = shoMsQuick = shoMsMaker) <= 10 Then
-
decTotalOffice = shoMsOffice * decOffice
-
decTotalVS = decVisual * shoMsVs
-
decTotalQuick = decQuick * shoMsQuick
-
decTotalMaker = decMaker * shoMsMaker
-
End If
-
-
Select Case shoMsOffice
-
Case 10 To 19
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.25
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case 10 To 19
-
-
intDisMsVs = (shoMsVs * decVisual) * 0.25
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 10 To 19
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.1
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 10 To 19
-
intDisMaker = (shoMsMaker * decMaker) * 10
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case 20 To 49
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.35
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
Select Case shoMsVs
-
-
End Select
-
Case 20 To 49
-
intDisMsVs = (shoMsVs * decVisual) * 0.35
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 20 To 49
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.25
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 20 To 49
-
intDisMaker = (shoMsMaker * decMaker) * 0.15
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case 50 To 99
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.45
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case 50 To 99
-
intDisMsVs = (shoMsVs * decVisual) * 0.45
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case 50 To 99
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.4
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case 50 To 99
-
intDisMaker = (shoMsMaker * decMaker) * 0.2
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
-
Select Case shoMsOffice
-
Case Is >= 100
-
intDisMsOffice = (shoMsOffice * decOffice) * 0.6
-
decTotalOffice = (shoMsOffice * decOffice) - intDisMsOffice
-
-
Select Case shoMsVs
-
Case Is >= 100
-
intDisMsVs = (shoMsVs * decVisual) * 0.6
-
decTotalVS = (shoMsVs * decVisual) - intDisMsVs
-
-
Select Case shoMsQuick
-
Case Is >= 100
-
intDisMsQuick = (shoMsQuick * decQuick) * 0.5
-
decTotalQuick = (shoMsQuick * decQuick) - intDisMsQuick
-
-
Select Case shoMsMaker
-
Case Is >= 100
-
intDisMaker = (shoMsMaker * decMaker) * 0.25
-
decTotalMaker = (shoMsMaker * decMaker) - intDisMaker
-
End Select
-
End Select
-
End Select
-
End Select
-
End If
-
-
-
-
decGrandTotal = decTotalOffice + decTotalVS + decTotalQuick + decTotalMaker
-
-
'Output ---------------------------------------
-
-
rtbSalesOrder.Clear()
-
-
strOutOffice = "Microsoft Office Pro 2010:" & decTotalOffice.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutOffice)
-
Else
-
rtbSalesOrder.Clear(strOutOffice)
-
End If
-
-
strOutVisual = "Microsoft Visual Sudio Pro 2010:" & decTotalVS.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutVisual)
-
Else
-
rtbSalesOrder.Clear(strOutVisual)
-
End If
-
-
-
strOutQuick = "Intuit Quick Books 2012:" & decTotalQuick.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutQuick)
-
Else
-
rtbSalesOrder.Clear(strOutQuick)
-
End If
-
-
strOutMaker = "File Maker Pro 2011:" & decTotalMaker.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strOutMaker)
-
Else
-
rtbSalesOrder.Clear(strOutMaker)
-
End If
-
-
-
strGrandTotal = "Grand Total:" & decGrandTotal.ToString("c") & vbNewLine
-
If blnAnswer = True Then
-
rtbSalesOrder.AppendText(strGrandTotal)
-
Else
-
rtbSalesOrder.Clear(strGrandTotal)
-
End If
-
-
'rtbSalesOrder.Clear()
-
'rtbSalesOrder.AppendText("Microsoft Office Pro 2010:" & strOutOffice & vbNewLine)
-
'rtbSalesOrder.AppendText("Microsoft Visual Sudio Pro 2010:" & strOutVisual & vbNewLine)
-
'rtbSalesOrder.AppendText("Intuit Quick Books 2012:" & strOutQuick & vbNewLine)
-
'rtbSalesOrder.AppendText("File Maker Pro 2011:" & strOutMaker & vbNewLine)
-
'rtbSalesOrder.AppendText("Grand Total:" & strGrandTotal & vbNewLine)
-
-
End Sub
-
-
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
-
'Clear UserInput & and assign default values
-
txtMsOffice.Text = 0
-
txtMsVs.Text = 0
-
txtMsQuick.Text = 0
-
txtMsMaker.Text = 0
-
txtBizType.Text = "B"
-
rtbSalesOrder.Clear()
-
-
txtMsOffice.Focus() ' Reset the focus.
-
End Sub
-
-
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
-
End
-
End Sub
-
End Class
Sign in to post your reply or Sign up for a free account.
Similar topics
by: asim |
last post by:
Hi
if a declare a variale say
Dim Flag
and assing it to true a boolean value
Flag = True
and if i try to concatinate it with another string like
mystr="<my-str>" & Flag & "</my-str>"
and if...
|
by: Tjerk Wolterink |
last post by:
The following code does not work:
<xsl:variable name="width" select="form:image-width"/>
<xsl:if test="$width>$max_image_width">
<xsl:variable name="width" select="$max_image_width"/>
</xsl:if>...
|
by: leegold |
last post by:
Show full header Is there any way to make relevance when using boolean
mode more useful? If not, are there plans in the Fulltext development
"todo" for making it useful?
I'm thinking of just...
|
by: comp.lang.php |
last post by:
This is an urgent request (as always)
generate_admin_customer_position_dropdown($customerResult,
$customerResult->id);
print_r($_SESSION);
This code will generate an HTML dropdown as...
|
by: billelev |
last post by:
In other languages it's possible to prefix a boolean with a "!" to invert it, however this doesn't seem to work in VBA. Is there an alternative in VBA?
I'd like the flexibility to do something...
|
by: shiniskumar |
last post by:
how to check if the value of a boolean variable is true of false in ftl?
ive got a boolean variable whose value is false
i have to perform some action based on its value in front end
how do i...
|
by: kofler4404 |
last post by:
I wanted to know whether or not one should expect that the assignment and reading of boolean values (the type bool in c++) is thread safe.
I am using the latest release of pthreads on windows xp...
|
by: Curious |
last post by:
I have following code:
void DownloadLists ()
{
if (!mIsListsDownloaded)
{
// Loop -- Downloading entries for each list
foreach (ITritonList list in
|
by: Tony Johansson |
last post by:
Hello!
What can the reason be for making a System.Boolean as big as 4 bytes.
It's only true or false.
I imagine the variable type of a boolean could have been made much smaller.
//Tony
|
by: Robert Nash |
last post by:
!(1 && !(0 || 1))
Why is this true? I just can't see it. I would appreciate any help at all. I realise it's probably easy for you.
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
| |