Can someone PLEASE make me a transparent white .gif quick, opacity at 75%?
I'd really appreciate this - Can anyone make me a small plain-white .gif, with 75% opacity or 25% transparency? (So it's mostly white, and barely see-thru)
And post it so I can download it? I'm in charge of the website at work and we don't have any software here. No adobe, no dreamweaver or any other web-dev program; just notepad, paint, and a browser! I've gotten pretty good with updates and changes using just the editor, but there's no replacement for photoshop!
Thanks!
Not to sidestep your issue, but have you tried this:
http://www.w3schools.com/Css/css_image_transparency.asp
Beth
Similar Messages
-
Can someone please make an extension for Safari that replicates Tab Mix Plus
I don't use Safari, not because Safari is a terrible browser, not because it doesn't do a good job. I don't use Safari because it refuses to integrate a basic and imperative idea into its structure: Tab Browsing should be intuitive. To that end, I am imploring someone, ANYONE who knows how to create Safari Extensions, please create an extension for Safari that essentially replicates Firefox's Tab Mix Plus.
Most people (I read about 95%) use tabbed browsing on a regular basis, its that important. I'm shocked that Apple hasn't done this already. They would steal all of Firefox's thunder with that simple extension. For me, its 90% of the reason I use Firefox and ignore Safari. With the beauty and simplicity of OS X Lion, I'm stunned that Apple hasn't asked some bored software guy to spend all of 5 minutes to make this thing already. I wish I knew how, I wish I knew how to make extensions and plug ins and apps and all that other stuff, but I don't. All I can do is ask someone out there to please get off the couch and make this thing already. I know that this will more then likely fall on deaf ears and be forgotten by Apple and that's sad.
I hope this sparks some interest in making this happen. I can only hope.Well of course the person purchasing the "mix" will pay for the individual songs but what I'm
Suggesting is that apple or iTunes comes up with a creative way of sending the "mix" and have a one click download process like when you purchase apps. Picture an e-card from Apple or Itunes that will ask you to preview the album before downloading. Also, you'd have to know the person in order to send this downloadable mix from iTunes. Name, email, etc. The idea originated because I want to make someone a mixed CD but who really purchased CD's anymore? It would b so much easier if I or anyone had the ability to create a mix iTunes card or gift or e-card to send to someone else. -
i have an iPhone application already developed and it works great ,now i need to make that same application for my iPad .can someone please tell me step by step instructions on how to make it .
Try the developer's forum:
https://discussions.apple.com/community/developer_forums -
I need to download all of my photos from my iPhone 4S and my iPad 2 to my MacBook Air because there is no more storage space available. I want to make sure all my photos are not lost and that they do not return to the original devices because of the cloud. Can someone please help ?
Connect your devices to the computer with the USB cable (one device at a time) and import the photos via iPhoto or Image Capture.
If you have not changed any default settings on your computer, iPhoto will automatically launch when you plug in the device. Then follow the import prompts. -
I filmed several takes of the same scene for a movie. I trimmed the best clips from each take and put them into the project screen. However, I can't figure out how to make it flow seamlessly as one scene. Can someone please help me??
1-800-676-2775 apple support tech support 1 800 275 2273
If your computer is on one minute before it freezes, than you have one minute to secure your serial number.
click the apple----->click about this Mac ------> click on version----> until you see the serial number. You may have to do this a couple of times if it freezes before you have all the numbers. A camera might help.
Good Luck -
how do i set up email on iphone. i keep on getting an error that says, "We couldn`t connect to the server. Check your information and make sure it`s correct." all my info is correct, can someone please assit. it is the app OWA
Is this a company email account? If so you may need to talk their technical support, as there may be additional layers of security which are preventing a connection.
-
I used to make booklets on Publisher that would be printed on 11X17 then be folded and stapled down middle. Can someone please tell me best program to create a document like this in on a mac and how to print it on 11X17?
Try iStudio Publisher
-
CAn Someone Please Help me? Turn this program in a algorithm
DECLARE SUB RentCar ()
DECLARE SUB PayBill ()
DECLARE SUB Main ()
DECLARE SUB ReadCarData ()
DECLARE SUB FindCar ()
TYPE Car ' User made Type To hold Car Data
CarNumber AS INTEGER
License AS STRING * 8
Year AS INTEGER
CarMaker AS STRING * 16
CarName AS STRING * 16
Description AS STRING * 20
ColorOfCar AS STRING * 10
NumberOfDoors AS INTEGER
Price AS DOUBLE
Rented AS INTEGER
Customer AS INTEGER
END TYPE
TYPE Customer ' User made Type to hold Customer data
CustomerNumber AS INTEGER
CustName AS STRING * 50
Bill AS DOUBLE
END TYPE
DIM SHARED Cars(1 TO 26) AS Car ' Global Variables
DIM SHARED p(4) AS Customer
DIM CustName AS STRING * 50
p(0).CustName = "Kevin" ' Assign Customers who need to pay bills
p(0).Bill = 0
p(1).CustName = "Eljah"
p(1).Bill = 100
p(2).CustName = "Jared"
p(2).Bill = 55
p(3).CustName = "Claudwin"
p(3).Bill = 60
p(4).CustName = "Isaac"
p(4).Bill = 1500
CALL ReadCarData ' This reads the data statements into the Cars() array.
WIDTH 80, 50 ' Formats screen and call the main part of the program
CALL Main
' CAR DATA STATEMENTS
' LICENSE YEAR MAKER MODEL DESCRIPTION COLOR DOORS PRICE
DATA "X-5687", 2007, "DODGE", "CALIBER", "FAMILY CAR", "DARK RED", 4, 89.99
DATA "X-9681", 2006, "DODGE", "CHARGER", "SPORT", "GREY", 4, 47.99
DATA "X-9684", 2006, "DODGE", "RAM 2500", "PICKUP", "BLACK", 4, 101.99
DATA "X-9437", 2004, "FORD", "MUSTANG", "SPORT", "RED", 2, 45.99
DATA "X-2562", 2002, "FORD", "TAURUS", "SEDAN", "LIGHT GREY", 4, 67.99
DATA "X-3856", 2003, "FORD", "CONTOUR", "SMALL", "LIGHT BLUE", 2, 45.99
DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "BLACK", 4, 63.99
DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "DARK GREEN", 4, 63.99
DATA "X-8568", 1998, "FORD", "ESCORT", "COMPACT", "BROWN", 2, 35.99
DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "BLACK", 2, 58.99
DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "RED", 2, 58.99
DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "YELLOW", 2, 58.99
DATA "X-4724", 2003, "FORD", "AEROSTAR", "S.U.V.", "DARK GREEN", 4, 87.99
DATA "X-2727", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "BLACK", 2, 45.99
DATA "X-2327", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "RED", 2, 45.99
DATA "X-2767", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "GREY", 2, 45.99
DATA "X-2723", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "PURPLE", 2, 45.99
DATA "X-8486", 2005, "PONTIAC", "TRANSPORT", "S.U.V.", "WHITE", 2, 96.99
DATA "X-3261", 2005, "PONTIAC", "AZTEC", "S.U.V.", "YELLOW", 4, 93.99
DATA "X-1864", 2006, "PONTIAC", "TORRENT", "S.U.V.", "RED", 4, 98.99
DATA "X-8521", 2006, "MERCURY", "COUGAR", "SPORT", "BLACK", 2, 69.99
DATA "X-8471", 2006, "LINCOLN", "TOWN CAR", "LUXURY", "BLACK", 4, 149.99
DATA "X-8635", 2001, "LINCOLN", "CONTINENTAL", "LUXURY", "GOLD", 4, 139.99
DATA "X-2643", 2006, "CHEVROLET", "F-150", "PICKUP", "GREY", 2, 95.99
DATA "X-7143", 2006, "CHEVROLET", "CORVETTE", "SPORT", "YELLOW", 2, 131.99
DATA "X-7378", 2006, "CHEVROLET", "MALIBU", "SEDAN", "BLACK", 4, 81.99
SUB FindCar ' This sub goes through the data to search for a car
DIM Counter AS INTEGER 'variables need for sub
DIM TempMaker AS STRING
DIM TempModel AS STRING
DIM TempColor AS STRING
DIM TempCarType AS STRING
DIM TempRangeFrom AS DOUBLE
DIM TempRangeTo AS DOUBLE
DIM TempMax AS DOUBLE
DIM TempMin AS DOUBLE
DIM LeaveFindCar AS INTEGER
DIM MoreCar AS STRING
DIM CanDisplay AS INTEGER
DO WHILE LeaveFindCar = 0 ' Main loop to find type of car
' Initialize the variables
Counter = 0
TempMaker = ""
TempModel = ""
TempColor = ""
TempRangeFrom = 0
TempRangeTo = 0
CLS ' Draw the screen with the search fields"
COLOR 15
PRINT "FIND IDEAL CAR: (Enter one or more of these items)"
PRINT STRING$(80, CHR$(196))
COLOR 11
PRINT "Car Builder:"
PRINT "Car Model:"
PRINT "Car Color:"
PRINT "Price Range: From: To:"
COLOR 10 ' GetsUser can enter any search fields he wants
LOCATE 3, 19
INPUT TempMaker
LOCATE 4, 19
INPUT TempModel
LOCATE 5, 19
INPUT TempColor
LOCATE 6, 19
INPUT TempRangeFrom
LOCATE 6, 36
INPUT TempRangeTo
COLOR 15
PRINT STRING$(80, CHR$(196))
CanDisplay = 0
FOR Counter = 1 TO 26 '' This loop does the actual search of the matching cars
'We compare all string type variables as an
'uppercase (UCASE$) and Right Trimmed (RTRIM$)
'to avoid having to compare upper and lower case
'Values, this makes the condtions here twice
'as short to perform.
IF RTRIM$(TempMaker) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).CarMaker)) = UCASE$(RTRIM$(TempMaker)) THEN
IF RTRIM$(TempModel) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
IF RTRIM$(TempColor) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
' If Price of car is in between Mininum and Maximum Price
'Allows to display the record.
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
END IF
ELSE
CanDisplay = 0
END IF
ELSE
' The IF is to set Min to the smallest of
' the range vales and TempMax to the biggest.
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
END IF
END IF
ELSE
CanDisplay = 0
END IF
ELSE
IF RTRIM$(TempColor) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
' This IF is to set Min to the smallest of
' the range values and Max to the biggest.
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
END IF
ELSE
CanDisplay = 0
END IF
ELSE
' The IF is to set Min to the smallest of
' the range vales and Max to the biggest.
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN ' The IF one of the range to be 0
TempMin = TempRangeFrom
TempMax = TempRangeTo
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN ' This IF one of the range to be 0
TempMin = TempRangeTo
TempMax = TempRangeFrom
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSE
CanDisplay = 1
END IF
END IF
END IF
END IF
ELSE
'Same as previously, all string variables are UCASEd and
'RTRIMmed to shorten the comparison lenghts.
IF RTRIM$(TempModel) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
IF RTRIM$(TempColor) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
' This IF is to setMin to the smallest of
' the range vales and Max to the biggest
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
END IF
ELSE
CanDisplay = 0
END IF
ELSE
' This IF is to setMin to the smallest of
' the range vales and Max to the biggest
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
END IF
END IF
ELSE
CanDisplay = 0
END IF
ELSE
IF RTRIM$(TempColor) <> "" THEN
IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
' This IF is to setMin to the smallest of
' the range vales and Max to the biggest
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSE
CanDisplay = 1
END IF
ELSE
CanDisplay = 0
END IF
ELSE
' This IF is to setMin to the smallest of
' the range vales and Max to the biggest
IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
IF TempRangeFrom > TempRangeTo THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
ELSE
TempMin = TempRangeFrom
TempMax = TempRangeTo
END IF
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN
TempMin = TempRangeFrom
TempMax = TempRangeTo
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN
TempMin = TempRangeTo
TempMax = TempRangeFrom
IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
CanDisplay = 1
ELSE
CanDisplay = 0
END IF
ELSE
CanDisplay = 1
END IF
END IF
END IF
END IF
IF CanDisplay = 1 THEN ' If car match fields entered it is displayed
COLOR 11
PRINT Cars(Counter).CarNumber;
PRINT " " + RTRIM$(Cars(Counter).License);
PRINT " - " + RTRIM$(Cars(Counter).CarMaker);
PRINT " " + RTRIM$(Cars(Counter).CarName);
PRINT " " + RTRIM$(Cars(Counter).Description);
PRINT " " + RTRIM$(Cars(Counter).ColorOfCar);
PRINT TAB(60); USING " $###.##"; Cars(Counter).Price
CanDisplay = 0
END IF
NEXT Counter ' displays line after listing cars
COLOR 15
PRINT STRING$(80, CHR$(196))
DO WHILE UCASE$(MoreCar) <> "Y" AND UCASE$(MoreCar) <> "N"
LOCATE CSRLIN, 1 ' This loop ask useers if they want another car search
PRINT "Find Another Car (Y/N)"
INPUT MoreCar
LOOP
IF UCASE$(MoreCar) = "N" THEN ' If user entered "n" the loop is exited
LeaveFindCar = 1
END IF
MoreCar = ""
LOOP
END SUB
SUB Main
' This SUB is the main part of the program. It displays
' the menu and accepts the choices from the user, when the
' user picks a valid value, it executes the proper choice
DO
CLS
COLOR 15
'print the menu on the screen
LOCATE 1, 33
PRINT "RENT CARS PLUS"
LOCATE 2, 1
PRINT STRING$(80, CHR$(196))
COLOR 11
PRINT " 1 - Pay Bill"
PRINT " 2 - Rent Car"
PRINT " 3 - Find Ideal Car"
PRINT " 999 - Exit"
COLOR 15
PRINT STRING$(80, CHR$(196))
INPUT "Choice: ", Choice ' The user enters his/her choice
IF Choice = 999 THEN END
IF Choice <> 999 AND Choice <> 1 AND Choice <> 2 AND Choice <> 3 THEN
PRINT " Error Please Enter Correct Choice! " ' If not valid answer user is asked to enter correct choice
END IF
SELECT CASE Choice ' This Select Case executes the subprograms options
CASE 1
CALL PayBill
CASE 2
CALL RentCar
CASE 3
CALL FindCar
CASE 5
END SELECT
LOOP UNTIL Choice = 999
END SUB
SUB PayBill' This sub does the bill paying process.
' it asks a few question to the user to get the right
' information and be able to pay the given bill.
DIM CustName AS STRING
DIM MoreBill AS INTEGER
DIM Answer AS STRING
DIM Flag AS INTEGER
COLOR 15
MoreBill = 0 ' To start loop variable
DO WHILE MoreBill = 0 ' Loop to start the Bill Paying Process
StartBill:
' Displays screen to user
CLS
COLOR 15
PRINT "PAY A BILL"
PRINT STRING$(80, CHR$(196))
INPUT "Customer Name: ", CustName ' user enters customer name
Flag = 0
FOR Q = 0 TO 4 ' Loops to search for customer name in array
IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
Flag = 1
PRINT p(Q).CustName; p(Q).Bill
EXIT FOR
END IF
NEXT Q
'' If customer name invalid error message displayed
IF Flag = 0 THEN
PRINT "Invalid name. Press a key to try again."
DO WHILE INKEY$ <> "": LOOP
GOTO StartBill
END IF
MethodInput:
DO
LOCATE 4, 1 ' Display Payment methods and wait for user to pick one
COLOR 11
PRINT "We only use Visa or American Express. How do you wish to pay?"
PRINT "1 - Visa"
PRINT "2 - American Express"
PRINT "3 - Check"
PRINT "4 - Cash"
INPUT "Select 1, 2, 3, or 4: ", howtopay$ ' User enters way to pay
IF howtopay$ = "1" OR howtopay$ = "2" THEN ' CArd number asked for If american or visa
INPUT "Enter account number: ", cardnum$
ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
PRINT "You must select method of payment."
END IF
LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
PaymentInput:
'' users enters payment amount
INPUT "Payment Amount (0 to cancel the transaction): ", PayAmount
IF PayAmount <> 0 THEN
IF PayAmount > p(Q).Bill THEN
'' If payment bigger than amount owed message displayed
PRINT "Payment is bigger than amount due. Press key to enter payment."
DO WHILE INKEY$ = "": LOOP
GOTO PaymentInput
ELSE
' If amount valid , payment subtracted from amount owed
p(Q).Bill = p(Q).Bill - PayAmount
PRINT "New balance is "; USING "$#####.##"; p(Q).Bill
END IF
END IF
'' Loop ask if user wishes to pay another bill
DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
COLOR 15
LOCATE 48, 1
PRINT "Pay Another Bill (Y/N) ";
INPUT Answer
LOOP
IF UCASE$(RTRIM$(Answer)) = "N" THEN ' If answer is "N" then loop exited
MoreBill = 1
END IF
LOOP
END SUB
SUB ReadCarData
' This sub reads all data from the DATA statements
' And puts them in the Cars array
DIM Counter AS INTEGER
FOR Counter = 1 TO 26
Cars(Counter).CarNumber = Counter
READ Cars(Counter).License
READ Cars(Counter).Year
READ Cars(Counter).CarMaker
READ Cars(Counter).CarName
READ Cars(Counter).Description
READ Cars(Counter).ColorOfCar
READ Cars(Counter).NumberOfDoors
READ Cars(Counter).Price
NEXT Counter
END SUB
SUB RentCar
' This sub does the renting of a car
' to a customer. This ask several questions
' in order to get the right customer and the right
' car to rent then it rents it.
DIM MoreRent AS INTEGER
DIM TempCustomer AS INTEGER
DIM TempBill AS DOUBLE
DIM Answer AS STRING
DIM TempPrice AS DOUBLE
DIM TempInsurance AS DOUBLE
DIM CustName AS STRING
DIM Number AS STRING
DIM CarNumber AS INTEGER
DIM Days AS INTEGER
DIM Q AS INTEGER
MoreRent = 0 ' Loop for rental process
DO WHILE MoreRent = 0
InputName:
CLS ' Display screen to user
COLOR 15
PRINT "RENT A CAR"
PRINT STRING$(80, CHR$(196))
COLOR 11
LOCATE 3, 1
INPUT " Full Name: ", CustName ' user enters his name
IF RTRIM$(CustName) = "" THEN
PRINT "You Must Enter Your Name. Press a key to retry." ' User is told he must enter a name
DO WHILE INKEY$ = "": LOOP
GOTO InputName
ELSE
FOR Q = 0 TO 4
IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
Flag = 1
PRINT p(Q).CustName; p(Q).Bill
TempCustomer = Q
EXIT FOR
END IF
NEXT Q
END IF
InputNumber:
LOCATE 5, 1
INPUT " Phone Number: ", Number ' User enters phone number
IF RTRIM$(Number) = "" THEN
PRINT "You Must a phone number. Press a key to retry." ' User is warned he must enter a number
DO WHILE INKEY$ = "": LOOP
GOTO InputNumber
END IF
CarInput:
LOCATE 7, 2
COLOR 11
INPUT "Car Number: ", CarNumber
' This awaits a car number from the user.
IF CarNumber < 1 AND CarNumber > 26 THEN ' If the car number is out of range, we warn and start again
PRINT "Car Number must be between 1 and 26. Press a key to retry."
DO WHILE INKEY$ = "": LOOP
GOTO CarInput
ELSE
' No need to search, we just display the car information
COLOR 14
PRINT RTRIM$(Cars(CarNumber).License) + " - ";
PRINT Cars(CarNumber).Year;
PRINT RTRIM$(Cars(CarNumber).CarMaker) + " " + RTRIM$(Cars(CarNumber).CarName) + " ";
PRINT RTRIM$(Cars(CarNumber).ColorOfCar)
PRINT "PRICE: "; USING "$####.##"; Cars(CarNumber).Price
END IF
DaysInput:
LOCATE 10, 1
COLOR 11
INPUT " Number of Days to rent: ", Days
' This awaits for a number of days to rent the car for.
IF Days < 1 AND Days > 31 THEN
PRINT "Days are 1 to 31. Press a key to retry."
' Can't have less than 1 day or more than a month or we warn.
DO WHILE INKEY$ = "": LOOP
GOTO DaysInput
END IF
TempPrice = Days * Cars(CarNumber).Price
' Calculate the Price of the rental
InsuranceInput:
LOCATE 13, 1
COLOR 11
DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
COLOR 11
LOCATE 13, 1
PRINT "Add Insurance (Y/N)";
' the customer has the option to purchase insurance here.
INPUT Answer
LOOP
IF UCASE$(Answer) = "Y" THEN
COLOR 11
DO WHILE UCASE$(RTRIM$(Answer)) <> "F" AND UCASE$(RTRIM$(Answer)) <> "D"
'we loop until the users enters y or n
COLOR 11
LOCATE 14, 1
PRINT "(F)ixed Or (D)aily Amount";
' If the user selected yes, we ask for fixed or daily insurance amount.
INPUT Answer
LOOP
' if Fixed amount was picked we ask for that amount
IF UCASE$(RTRIM$(Answer)) = "F" THEN
INPUT "Fixed Insurance: ", TempInsurance
ELSE
TempInsurance = 15 * Days ' If Daily was picked we multiply 15 by the number of days rented
END IF
END IF
DO ' this loop asks for a payment method.
LOCATE 17, 1
PRINT "We only use Visa or American Express. How do you wish to pay?"
PRINT "1 - Visa"
PRINT "2 - American Express"
PRINT "3 - Check"
PRINT "4 - Cash"
INPUT "Select 1, 2, 3, or 4: ", howtopay$
IF howtopay$ = "1" OR howtopay$ = "2" THEN
INPUT "Enter account number: ", cardnum$
ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
PRINT "You must select method of payment."
END IF
LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
COLOR 14
PRINT
' This part displays some totals to the user.
PRINT "Rental Price = "; USING "$##,###.##"; TempPrice
PRINT "Insurance Amount = "; USING "$##,###.##"; TempInsurance
PRINT "Total Price = "; USING "$##,###.##"; TempPrice + TempInsurance
PRINT " ----------"
TempBill = p(TempCustomer).Bill
TempBill = TempBill + (TempPrice + TempInsurance)
p(TempCustomer).Bill = TempBill
PRINT "New Balance = "; USING "$##,###.##"; TempBill
PRINT " =========="
Answer = ""
' This loop asks if the user wants to rent another car.
DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
COLOR 15
LOCATE 48, 1
PRINT "Rent Another Car (Y/N) ";
INPUT Answer
LOOP
IF UCASE$(RTRIM$(Answer)) = "N" THEN
' If user selected N, we assign value to exit the loop
MoreRent = 1
END IF
LOOP
END SUB
Im really good at programming but really suck at algorithms can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for uIm really good at programming but really suck at algorithms
>If your are 'really good' at programming, you will be able to solve this problem. Because, it has nothing to do with algorithm.
>>can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u
>Wrong person, in the wrong place. -
I tried updating my iPod 5th gen to iOS 8 but it only shows me a picture of the iTunes logo and a charger at the bottom, I'm not sure what this means or what I need to do. Can someone please help me?
After restoring to factory settings/new iPod you will then have to restore from backup
To restore from backup see:
iOS: Back up and restore your iOS device with iCloud or iTunes
If you restore from iCloud backup the apps will be automatically downloaded. If you restore from iTunes backup the apps and music have to be in the iTunes library since synced media like apps and music are not included in the backup of the iOS device that iTunes makes.
You can redownload most iTunes purchases by:
Downloading past purchases from the App Store, iBookstore, and iTunes Store -
Can Someone PLEASE Tell Me Why My Muse Site Will Not Work Upon HTML Export?
Sorry for the long title!
I've had a few threads going regarding troubles with my Muse site. These issues have been on-going, and once I was no longer able to upload to Fetch—and had to export to html via FileZilla—it just seems the problems continue to snowball.
I have a web site. I will disclose the URL here now: www.jamescdarling.com
When this site was html-based (its original form), using my yahoo small business web host and Fetch, it worked like a charm. All Flash files functioned at 100%, embedded videos/players all played great, etc. Then, I switched over to Muse 1.) because I was excited by the potential, and 2.) I wanted to re-design my site, anyway.
So, I created my site in Muse, and uploaded it all into Fetch. I soon found that some of my Flash files and videos were not working. This was the case for a long time. I finally gave up after trying everything and asking lots of questions here.
Just recently, I set out to fix these issues as I was afraid this half-assed site would appear to make me look unprofessional and like I had no idea how to use Flash. I had some problems with the new Muse Update (had to ditch Fetch and use "export with html" using FileZlilla). Changes made to my Muse file were not taking... and each time I viewed my updated site, the updates were not there—it still looked like the previous incarnation of the site. However, with some help from some of the good folks here, I was able to make my site not only update, but work nearly perfectly—or so I thought!
I just clicked on my personal web site URL link in my LinkedIn page, and I see the old-looking site! The bookmark I have of my site is near-perfect—only the videos still will not load. However, it would seem that my site only functions as well as it does on MY computer only—that is, URL's I have been sending out probably are of the old non-functioning site? The changes I make are not being recognized.
If you will, click on my above URL (in bold)..... If you click on "Resume", you should see light blue rules separating each section. But I bet you will see heavier gray bars with headers inside them. Also, if you view my Flash work, go to the "Epiphone Casino Mini Site".... the "Finshes" and "Features" pages' interactive elements will not function as they should (never mind the video page!)—but they work perfectly when accessing my site from my bookmark on my computer.
Can someone please tell me how to make my site update web-wide, and how to get my Flash files to function?
Thanks!!!
Message was edited by: darling67It seams a lot of folks are haveing issues with FTP upload. Try these areas to look at. Maybe the right answer. I dont use Flash on my sites for a long time now. Anyhow, check these out.
http://tv.adobe.com/watch/muse-feature-tour/adobe-muse-publishing-and-managing-your-site/
http://www.adobekb.com/using_3rdparty_ftp.html#usingftp-understandinghowftpworks -
Can someone please tell me why when i order an app on my sons ipod, do I get charged twice for it? When I tried do report a problem with the charge, it said that I can not get a refund on that item. This is the second time this has happened to me. Does it have anything to do with having more then one ipod linked to the same account? Thanks for any help you can give me!!!
It has nothing to do with have more than one device using that account.
After you purchase it once, you redownload it on other devices by the following, not like purchasing a new app.
Downloading past purchases from the App Store, iBookstore, and iTunes Store
If you really got charged twice for purchases the same app twice with the same account contact iTunes again by:
Apple - Support - iTunes - Contact Us
Make sure that they are really the same app first. -
Can someone please help me? I am having trouble activating my iPhone.
I attach my iPhone to my computer through the USB and the cradle. iTunes opens fine and it shows my iPhone. When the iPhone window opens I get the following error. We could not complete your iTunes store request. The network connection timed out. Make sure your network settings are correct and your network is active , then try again. Can someone please help me with thin. I have tried to contact apple support but havn't been able to get anyone. If you go to my profile and read my bio there is a link to a site where I sell my concert photographs. My site is www.davextreme.photoreflect.com or my myspace is www.myspace.com/davextreme1. I would be willing to send an 8X10 of any musician you want to anyone who helps me solve this problem.
"The network connection timed out. Make sure your network settings are correct and your network is active , then try again."
This is usually the type of message you get when you have NO internet connection. It can also happen if the site that you are trying to contact is experiencing troubles or is just to busy at the time. Are you sure your connection is working properly? -
I updated my iPad mini to ios 7.0.2 couple days ago. Everything was fine until yesterday. I noticed that it seemed to have a mind of its own. It kept opening and closing app. I'm not sure what to don to fix this problem. I've tried restoring my iPad mini but that didn't help. Can someone please help me?
Try This...
Close All Open Apps... Sign Out of your Account... Perform a Reset... Try again...
Reset ( No Data will be Lost )
Press and Hold the Sleep/Wake Button and the Home Button at the Same Time...
Wait for the Apple logo to Appear...
Usually takes about 15 - 20 Seconds... ( But can take Longer...)
Release the Buttons...
If no joy...
Reset all settings
Settings > General > Reset > Reset all Settings.
This will return all iDevice settings to factory defaults... you will not lose any data.... But you will have to re-enter all of the device settings.
If the issue persists...
Connect to iTunes on the computer you usually Sync with and Restore
http://support.apple.com/kb/HT1414
Make sure you have the Latest Version of iTunes (v11) Installed on your computer
iTunes free download from www.itunes.com/download -
Hi, can someone please tell me why the spell check in pages doesn't work. I went to preferences and enabled this auto spell checker and have set the language to british english. But still it doesn't work while it works perfectly in TextEdit.
Inspector > Text > More > Language
Only applies to selected text, like making it a particular font.
It is not a setting that sticks. If you continue to paste in text from elsewhere particularly the Internet it will have a different or None language set to it. You need to select it and make it B.E.
Peter -
I would like to see the same mails in all my apple devices. Can someone please tell me how? My calendar and contacts sync but my mailboxes dont...
I would like to see the same mails in all my apple devices.
On iOS devices tap Settings > iCloud
Make sure Mail is swtiched ON.
Apple - iCloud - Learn how to set up iCloud on all your devices.
Maybe you are looking for
-
Can you setup handoff to work with two mac computers on the same network?
I am attempting to setup handoff to work with two computers on the same network. I cannot seem to get it to work. Should I be able to?
-
How to delete all contacts in thr e iPod Touch????
The synchronization with Outlook does not work properly: some contacts appears 2 times, some appears 3 times and some appears 4 times in the ipod. And the sync hsa deleded several contacts in my Outlook. So, I want to delete all contacts in the iPod
-
I want to REMOVE the 4th & 5th line (from the top) of the home page
The following information, in the page header area, is as follows: Line 4: Most Visited-..Getting Started-..Latest Headlines-..Lufthansa-.Buses – Mexico-.My Mexico Vacation-..Travel Line 5: AVG--Type your search here!.......Search-..Identity Guard Wi
-
How do I fix this iTunes issue???
I store all my media on an external drive that I have networked. I have gotten rid of the local copy iTunes keeps on my macbook because it was taking up too much space. Now I'm trying to put everything back into iTunes from it's network location an
-
Document's transparency blend space? Destination color space?
I need some hand-holding please. I just exported to pdf, and got this message, and would be happy to fix it if I had a clue what to do: The document's transparency blend space doesn't match the destination color space specified in the Export Adobe PD