Dev Shed Forums http://forums.devshed.com/ Dev Shed - Open Source web development forums. Topics covered include PHP, Apache, mySQL, Zope, Jserv, Java, Python, Zend, XML, DHTML, Javascript and more. en Sun, 21 Jan 2018 22:24:14 GMT vBulletin 60 http://forums.devshed.com/images/misc/rss.png Dev Shed Forums http://forums.devshed.com/ Dollar 1 Hosting - Money Back Hosting - Free SSL - Dollar1hosts.com! http://forums.devshed.com/web-hosting-offers/979884-dollar-1-hosting-money-hosting-free-ssl-dollar1hosts-com-new-post.html Sat, 20 Jan 2018 11:44:24 GMT Dollar 1 Hosting itself clear's that hosting in one dollar...yes Dollar1hosts.com is offering best, affordable, reliable, hugely demanded, money back protected, DDOS protected web hosting service @one dollar per month. Dollar1hosts.com always try to explore new things that would satisfy our customers and we have reduced our plan pricing to much a extent so that you would be able to afford it. In short, due to this your money will be saved and you would be happy. If your happy so are we happy. We also help our customers to setup their websites also provide many features that would help them increase traffic to their website..buy now!

Features which are forcing clients to sign up with us!


– Half Dollar Hosting
– Unlimited Space
– Unlimited Bandwidth
– Easy Billing Cycles
– Cheaper Reseller hosting Plans
– Easy Upgrade Facility
– Free Migration Services
– Ideal plans for wordpress Hosting
– Ideal plans for third party scripts or apps
– Multiple GEO Locations
– SEO Tools for search engine submissions
– 24Χ7 Live Chat Support
- Free Migration Service-Half
- Fixed Pricing for Lifetime
- No Hidden Fees
- Unconditional Money Back Guarantee.
- Cheaper Dedicated Servers
- Low Cost Dedicated Servers
- Life Time Fixed Pricing
- Fast Issue Resolution
- Priority Based Customer Support
- Best $1 Unlimited Hosting
- Paypal As an Payment Gateway
- Free Auto SSL


https://www.dollar1hosts.com/ - instantcpanelhosting, cheap hosting, hosting, cpanel host, wordpress host, cheap web host, budget wordpress hosting, unlimited cpanel hosting, unlimited db hosting, unlimited mysql, unlimited databases, web hosting, hosting, web hosting, linux shared hosting, half dollar hosting, one dollar hosting, $1 hosting, $1 web hosting, $1 unlimited hosting, reliable web hosting, affordable web hosting, latest php hosting, free ssl hosting, money back hosting, cheap dedicated servers, low cost dedicated serfvers, priority hosting support, 24x7 support, best support hosting, dollar1hosts, dollar1host, dollar 1 host, dollar host, 1 dollar host, 1 dollar hosting, 1 dollar web, web hosting $1, cheap hosting solutions, cheap vps hosting, cheap ssl cert, free dedicated hosting, free domain hosting.

HURRY UP.

————
Dollar1hosts.com
Sales/Support Team
]]>
Web Hosting Offers karryjones http://forums.devshed.com/web-hosting-offers-100/dollar-1-hosting-money-hosting-free-ssl-dollar1hosts-com-979884.html
Cheap Australia Dedicated Server - Hostripples! http://forums.devshed.com/web-hosting-offers/979883-cheap-australia-dedicated-server-hostripples-new-post.html Sat, 20 Jan 2018 06:31:10 GMT *Cheap Australia Dedicated Server - Hostripples! * Get an high performance cheap Australia dedicated server,. Even though these are our cheap Australia dedicated server, we offers you a very high level of performance and security compared to THE competitors offers at a similar price level. You can host multiple projects or websites on cheap Australia dedicated server you control and manage...
Cheap Australia Dedicated Server - Hostripples!


Get an high performance cheap Australia dedicated server,. Even though these are our cheap Australia dedicated server, we offers you a very high level of performance and security compared to THE competitors offers at a similar price level. You can host multiple projects or websites on cheap Australia dedicated server you control and manage with total autonomy.

250 Mbps Speed - 3 TB Bandwidth

AUD 250 A - $150/Month
Intel Xeon E3-1245v5 - 4c/8t - 3.5 GHz/3.9 GHz
32GB DDR4 ECC RAM
2 x 2 TB SATA HDD
250 Mbps Speed
3 TB Bandwidth
1 Free Ip

Buy Now!

500 Mbps Speed - 5TB Bandwidth

AUD 500 A - $175/Month
Intel Xeon E3-1245v5 - 4c/8t - 3.5 GHz/3.9 GHz
64GB DDR4 ECC RAM
2 x 2 TB SATA HDD
500 Mbps Speed
5 TB Bandwidth
1 Free Ip

Buy Now!

Why choose Hostripples?
Instant Setup
Easy usability
Value for money
24 x 7 customer service
Unmatched server performance


Visit:- Cheap Australia Dedicated Server

It’s not that we are bragging about our services, our customers say it all!

Hurry up and get Hostripples – the one-stop solution for your web hosting requirements!

Hostripples - Affordable web hosting
Hostripples.com Cheap Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration

Connect with us: Facebook | Twitter | LinkedIn

Hostripples - Affordable web hosting
http://hostripples.com/
http://hostripples.in/
http://hostripples.co.uk/
https://myhostseo.com/
Hostripples.com $1 Unlimited Hosting | $2 Unlimited Windows Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration ]]>
Web Hosting Offers hi5s2arp http://forums.devshed.com/web-hosting-offers-100/cheap-australia-dedicated-server-hostripples-979883.html
Best approach for mobile responsive http://forums.devshed.com/css-help/979882-approach-mobile-responsive-new-post.html Fri, 19 Jan 2018 20:06:03 GMT What would be the best approach for a site using XHTML 1.0 Transitional to become mobile responsive ? What would be the options!? What CSS rules to implement ? Thank you :) What would be the best approach for a site using XHTML 1.0 Transitional to become mobile responsive ? What would be the options!? What CSS rules to implement ?
Thank you :) ]]>
CSS Help pwpx2 http://forums.devshed.com/css-help-116/approach-mobile-responsive-979882.html
<![CDATA[[Python 3, PIP Wheel] Problem with install pip wheel package.... help needed!]]> http://forums.devshed.com/python-programming/979881-python-3-pip-wheel-install-pip-wheel-package-help-new-post.html Fri, 19 Jan 2018 18:05:15 GMT Hey Python Programmers... I try to install the python wheel package on windows 7 and 10... I get the pip wheel package in my python path (in the Lib folder), on my computer... and i use pip with the follow command: ---Quote--- pip install wheel ---End Quote--- But if i call this command in the command prompt, Hey Python Programmers...

I try to install the python wheel package on windows 7 and 10...
I get the pip wheel package in my python path (in the Lib folder),
on my computer... and i use pip with the follow command:
Quote:

pip install wheel
But if i call this command in the command prompt,
i get an big error with red text... I can't let you see
what for error i get, the problem is thad i can't copy
this error to give more information.

Even i get try my pip wheel package into the python36-32 folder
and get the same problem if i install the pip wheel package...

Can anyone help me to give strict information, about how i
can lost the problem thad i get ?...

Please give me all steps (incl. screenshots) to lost the problem,
just i can install the pip wheel package and the .whl librarys
i want install for my projects !....

Even numpy and opencv will not be installing on my computer...
I want to install it, but i get many problems with the pip wheel package...

Thanks for help, Jamie. ]]>
Python Programming JamieVanCadsand http://forums.devshed.com/python-programming-11/python-3-pip-wheel-install-pip-wheel-package-help-979881.html
Sqlite3 with Pascal http://forums.devshed.com/programming-languages/979880-sqlite3-pascal-new-post.html Fri, 19 Jan 2018 15:40:53 GMT I am using Free Pascal. Linux x64 I want to simply SELECT some data. I have the connection established but I dont know what method/function/etc to use to select the data and put into a string. Any assistance is appreciated. Thanks. I am using Free Pascal. Linux x64


I want to simply SELECT some data.
I have the connection established but I dont know what method/function/etc to use to select the data and put into a string.

Any assistance is appreciated.

Thanks. ]]>
Other Programming Languages cadams http://forums.devshed.com/programming-languages-139/sqlite3-pascal-979880.html
TEMOK | Wide Range of USA Linux Reseller Hosting at Very Low Price | WHM Access http://forums.devshed.com/web-hosting-offers/979879-temok-wide-range-usa-linux-reseller-hosting-low-price-whm-access-new-post.html Fri, 19 Jan 2018 12:19:55 GMT *Temok (https://www.temok.com)* is providing cheap and high quality services of web hosting since 2014. We provide various hosting services, starting from the reasonable personal hosting package to high quality services of budget and Business web hosting. Linux reseller hosting with Temok is easy to use and helps you build a solid lasting relation with your customers. We offer unbranded reseller... Temok is providing cheap and high quality services of web hosting since 2014. We provide various hosting services, starting from the reasonable personal hosting package to high quality services of budget and Business web hosting. Linux reseller hosting with Temok is easy to use and helps you build a solid lasting relation with your customers. We offer unbranded reseller hosting at affordable price. You will get complete control over your customer’s hosting accounts and how you allocate resources to them via intuitive WHM/cPanel control panel. We offer you limitless databases, unlimited mailboxes, free domain name, 24/7 expert support, protection against hackers/possible intruders and a lot more.


We are offering wide range of USA Linux Reseller Hosting Plans at very reasonable price. Below you will find some details of them along with the links which you can use to order your desired Linux Reseller Hosting Plan.

⟄⟄ Linux Reseller Hosting Starter Plan US ⟃⟃

∘ RAID Protected Storage: 50GB
∘ Bandwidth: 500GB
∘ phpMyAdmin: Yes
∘ Unlimited cPanel Accounts
∘ Unlimited Addon Domains
∘ Unlimited Subdomains
∘ Unlimited Email Accounts
∘ Unlimited MySQL5 Databases
∘ Unlimited Web Disk Access
∘ No Setup Fee
∘ Price: $19.99/Month ⊁⊁ Order Starter Plan ⊀⊀

⟄⟄ Linux Reseller Hosting Premium Plan US ⟃⟃

∘ RAID Protected Storage: 80GB
∘ Bandwidth: 700GB
∘ phpMyAdmin: Yes
∘ Unlimited cPanel Accounts
∘ Unlimited Addon Domains
∘ Unlimited Subdomains
∘ Unlimited Email Accounts
∘ Unlimited MySQL5 Databases
∘ Unlimited Web Disk Access
∘ No Setup Fee
∘ Price: $27.99/Month ⊁⊁ Order Premium Plan ⊀⊀

⟄⟄ Linux Reseller Hosting Business Plan US ⟃⟃

∘ RAID Protected Storage: 120GB
∘ Bandwidth: 1000GB
∘ phpMyAdmin: Yes
∘ Unlimited cPanel Accounts
∘ Unlimited Addon Domains
∘ Unlimited Subdomains
∘ Unlimited Email Accounts
∘ Unlimited MySQL5 Databases
∘ Unlimited Web Disk Access
∘ No Setup Fee
∘ Price: $36/Month ⊁⊁ Order Business Plan ⊀⊀

⟄⟄ Linux Reseller Hosting First-Class Plan US ⟃⟃

∘ RAID Protected Storage: 160GB
∘ Bandwidth: 1200GB
∘ phpMyAdmin: Yes
∘ Unlimited cPanel Accounts
∘ Unlimited Addon Domains
∘ Unlimited Subdomains
∘ Unlimited Email Accounts
∘ Unlimited MySQL5 Databases
∘ Unlimited Web Disk Access
∘ No Setup Fee
∘ Price: $44/Month ⊁⊁ Order First Class Plan ⊀⊀

⟄⟄ Linux Reseller Hosting Super-Class Plan US ⟃⟃

∘ RAID Protected Storage: 200GB
∘ Bandwidth: 1400GB
∘ phpMyAdmin: Yes
∘ Unlimited cPanel Accounts
∘ Unlimited Addon Domains
∘ Unlimited Subdomains
∘ Unlimited Email Accounts
∘ Unlimited MySQL5 Databases
∘ Unlimited Web Disk Access
∘ No Setup Fee
∘ Price: $71.19/Month ⊁⊁ Order Super Class Plan ⊀⊀

Our cPanel servers are setup on powerful servers with superior connectivity to ensure that each server delivers optimum performance and offers the flexibility to run large websites. Our servers are fully managed with security monitoring and 24/7 Technical Support which helps customers concentrate more on the growth of their business. We offer free migration services.

➛ We accept VISA, MasterCard, American Express, PayPal, WorldPay and Diners Club International for payment.

If you have any questions & queries please let us know sales[at]temok.com or follow us on Twitter for latest Promos & Discounts.
]]>
Web Hosting Offers tk-hassan http://forums.devshed.com/web-hosting-offers-100/temok-wide-range-usa-linux-reseller-hosting-low-price-whm-access-979879.html
<![CDATA[DDoS Protection|100% Uptime|24/7 Support|Unlimited Space&Bandwidth - Dollar1hosts.com]]> http://forums.devshed.com/web-hosting-offers/979878-ddos-protection-100-uptime-24-7-support-unlimited-space-bandwidth-dollar1hosts-com-new-post.html Fri, 19 Jan 2018 11:16:03 GMT * With Dollar1hosts.com we take pride in ensuring our customers are happy with our hosting. With that said, we work to improve our services on a daily basis by providing the best secure and reliable hosting, one on one personal support, and most affordable rates in the industry. Dollar1hosts.com also offers 30 Days money back guarantee, 24x7 live chat support, free migration service, Unlimited...
With Dollar1hosts.com we take pride in ensuring our customers are happy with our hosting. With that said, we work to improve our services on a daily basis by providing the best secure and reliable hosting, one on one personal support, and most affordable rates in the industry. Dollar1hosts.com also offers 30 Days money back guarantee, 24x7 live chat support, free migration service, Unlimited features, DDOs protection, 100% uptime, easy billing cycles and these features makes us special than others and forcing clients to choose our services, so hurry and allow us to serve you.

Key Features @Dollar1hosts.com:

- Unlimited cpanel hosting
- Unlimited Mysql DB's
– Half Dollar Hosting
– Unlimited Space
– Unlimited Bandwidth
– Easy Billing Cycles
– Cheaper Reseller hosting Plans
– Easy Upgrade Facility
– Free Migration Services
– Ideal plans for wordpress Hosting
– Ideal plans for third party scripts or apps
– Multiple GEO Locations
– SEO Tools for search engine submissions
– 24Χ7 Live Chat Support
- Free Migration Service-Half
- Fixed Pricing for Lifetime
- No Hidden Fees
- Unconditional Money Back Guarantee.
- Cheaper Dedicated Servers
- Low Cost Dedicated Servers
- Life Time Fixed Pricing
- Fast Issue Resolution
- Priority Based Customer Support
- Best $1 Unlimited Hosting
- Paypal As an Payment Gateway
- Free Auto SSL


https://www.dollar1hosts.com/ - unlimited cpanel hosting, unlimited db hosting, unlimited mysql, unlimited databases, web hosting, hosting, web hosting, linux shared hosting, half dollar hosting, one dollar hosting, $1 hosting, $1 web hosting, $1 unlimited hosting, reliable web hosting, affordable web hosting, latest php hosting, free ssl hosting, money back hosting, cheap dedicated servers, low cost dedicated serfvers, priority hosting support, 24x7 support, best support hosting, dollar1hosts, dollar1host, dollar 1 host, dollar host, 1 dollar host, 1 dollar hosting, 1 dollar web, web hosting $1, cheap hosting solutions, cheap vps hosting, cheap ssl cert, free dedicated hosting, free domain hosting.

HURRY UP.

————
Dollar1hosts.com
Sales/Support Team
]]>
Web Hosting Offers karryjones http://forums.devshed.com/web-hosting-offers-100/ddos-protection-100-uptime-24-7-support-unlimited-space-bandwidth-dollar1hosts-com-979878.html
Best UK Dedicated Server - Hostripples! http://forums.devshed.com/web-hosting-offers/979877-uk-dedicated-server-hostripples-new-post.html Fri, 19 Jan 2018 06:40:42 GMT *Best UK Dedicated Server - Hostripples! * Get an high performance cheap UK dedicated server,. Even though these are our cheap UK dedicated server, we offers you a very high level of performance and security compared to THE competitors offers at a similar price level. You can host multiple projects or websites on cheap UK dedicated server you control and manage with total autonomy. *UK...
Best UK Dedicated Server - Hostripples!


Get an high performance cheap UK dedicated server,. Even though these are our cheap UK dedicated server, we offers you a very high level of performance and security compared to THE competitors offers at a similar price level. You can host multiple projects or websites on cheap UK dedicated server you control and manage with total autonomy.

UK DEDI A - $205/Month
Intel Xeon E3-1245v5 - 4c/8t - 3.5 GHz/3.9 GHz
32GB DDR4 ECC RAM
2 x 2 TB SATA
250 Mbps Port Speed
Unlimited Bandwidth
1 Free IP

Buy Now!

Why choose Hostripples?
Instant Setup
Easy usability
Value for money
24 x 7 customer service
Unmatched server performance


Visit:- Cheap UK Dedicated Server

It’s not that we are bragging about our services, our customers say it all!

Hurry up and get Hostripples – the one-stop solution for your web hosting requirements!

Hostripples - Affordable web hosting
Hostripples.com Cheap Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration

Connect with us: Facebook | Twitter | LinkedIn

Hostripples - Affordable web hosting
http://hostripples.com/
http://hostripples.in/
http://hostripples.co.uk/
https://myhostseo.com/
Hostripples.com $1 Unlimited Hosting | $2 Unlimited Windows Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration ]]>
Web Hosting Offers hi5s2arp http://forums.devshed.com/web-hosting-offers-100/uk-dedicated-server-hostripples-979877.html
CSS Animation http://forums.devshed.com/css-help/979876-css-animation-new-post.html Fri, 19 Jan 2018 02:39:43 GMT Two images, on "on top" of the other. The top image has opacity. Can CSS be used to animate the top layer?

For example, the bottom layer is an image of a light bulb.

The top layer is the light bulb filament.

The CSS animation turns the top layer on and off as if the filament was flickering...

Doable?

Add JS and make the flicker "random"? ]]>
CSS Help Arty Zifferelli http://forums.devshed.com/css-help-116/css-animation-979876.html
PyQt5 http://forums.devshed.com/python-programming/979875-pyqt5-new-post.html Thu, 18 Jan 2018 23:26:39 GMT Hi all. I've sort of got my head around Tkinter and managed to build a gui that accepts values, saves them to a SQLite3 database, manipulates the data then present it in the same gui. I decided to try to do the same thing with PyQt5 as I thought it would be interesting to see if I could then convert it to an Android app. The only tutorials that I've found so far have either returned the data in a pop-up window or on the console. Can someone please direct me to a tutorial or other information that can help me please.

I realise that this might be a pretty dumb question, but it is really bugging me at this time. ]]>
Python Programming Bushranger http://forums.devshed.com/python-programming-11/pyqt5-979875.html
How to execute a script that takes hours http://forums.devshed.com/php-development/979874-execute-script-takes-hours-new-post.html Thu, 18 Jan 2018 14:49:11 GMT I need to import some products into a MySQL DB new products code are push from an external script to a web service on my server once I collect new products code that need to be imported each day I need to check them against a SOAP web service to retrive some additional data the soap web service is pretty slow and can take up to 3/5 second each time and I may have 2000 precuts to import each... I need to import some products into a MySQL DB
new products code are push from an external script to a web service on my server
once I collect new products code that need to be imported each day I need to check them against a SOAP web service to retrive some additional data

the soap web service is pretty slow and can take up to 3/5 second each time and I may have 2000 precuts to import each day
It can basically take up to 3 hours to scan all the products

After I get the extra data from i can create SQL statement needed to add the product into MySQL database
I guess that the bast thing is to store them in a .sql file or DB and execute them at the end

so

STEP 1
- web service push product code that need to be imported to my script
- my script writes the product code to database

STEP 2
*** a script loads new codes that needs to be imported and for each one make a SOAP call to get additional data
- I can create iNSERT statement for my my MySQL DB

STEP 3
- execute MySQL statements

the problem is how can i execute and loop all products i need to import without experiencing timeout ]]>
PHP Development al404 http://forums.devshed.com/php-development-5/execute-script-takes-hours-979874.html
Leasedlayer : 10% Discount on all VPS http://forums.devshed.com/web-hosting-requests/979873-leasedlayer-10-discount-vps-new-post.html Thu, 18 Jan 2018 09:45:19 GMT Leasedlayer offers 10% LIFETIME Discount on All VPS Hosting plans which is Suitable for smaller & large scale enterprises.

Leasedlayer VPS Hosting takes performance and reliability to the next level! Perfect Web hosting Solution for websites and web applications expecting fast growth and require an isolated hosting environment.

Leasedlayer offers discount on VPS Hosting
10% Discount | Code : ALL@10

VPS Hosting Plans
''''''''''''''''''''''''''''''''''''''

Netherlands Linux VPS

CPU - 2 vCPU Cores
Pure SSD - 50 GB
RAM / SWAP - 2GB / 2 GB
Port - 1 Gbps
IPv4/Ipv6 - 1/5
Price : Euros 14/mo.
> Order Now <

Germany KVM VPS

CPU - 2 vCPU Cores
Pure SSD - 40 GB
RAM / SWAP - 2GB / 2 GB
Port - 100 Mbps
IPv4/Ipv6 - 1/5
Price : Euros 12/mo.
> Order Now <

Netherlands KVM Linux VPS

CPU - 2 vCPU Cores
Pure SSD - 40 GB
RAM / SWAP - 2GB / 2 GB
Port - 1 Gbps
IPv4/Ipv6 - 1/5
Price : Euros 12/mo.
> Order Now <

Germany KVM Windows VPS

CPU - 2 vCPU Cores
Pure SSD - 40 GB
RAM / SWAP - 2GB / 2 GB
Port - 100 Mbps
IPv4/Ipv6 - 1/5
Price : Euros 15/mo.
> Order Now <

> Click to know more on VPS Hosting Services by Leasedlayer <

Contact us at any time

Verified Payment Modes
...................................
Paypal | Bank Transfer | Perfect Money | Skrill

>Terms Of Services<

Thank You. ]]>
Web Hosting Requests leasedlayer.com http://forums.devshed.com/web-hosting-requests-101/leasedlayer-10-discount-vps-979873.html
Cheap Canada Windows VPS Cloud RAM - Hostripples! http://forums.devshed.com/web-hosting-offers/979872-cheap-canada-windows-vps-cloud-ram-hostripples-new-post.html Thu, 18 Jan 2018 05:32:43 GMT *Cheap Canada Windows VPS Cloud RAM - Hostripples! * The VPS Cloud models are ideal for hosting professional production environments or critical applications. A hardware SLA is just one of the guarantees in place to provide you high availability and stable service right from the word go. *Canada Windows VPS Cloud RAM Plans* *Canada Windows VPS Cloud RAM PLAN 1 - $50/Month* Guaranteed...
Cheap Canada Windows VPS Cloud RAM - Hostripples!


The VPS Cloud models are ideal for hosting professional production environments or critical applications. A hardware SLA is just one of the guarantees in place to provide you high availability and stable service right from the word go.

Canada Windows VPS Cloud RAM Plans

Canada Windows VPS Cloud RAM PLAN 1 - $50/Month
Guaranteed RAM : 6 GB
HDD : 25 GB
Bandwidth : 100 Mbps Unlimited
CPU Cores : 1 vCore
RDP Access : YES
IPv4 : 1 IP
IPv6 : 1 IP

Buy Now!

Canada Windows VPS Cloud RAM PLAN 2 - $90/Month
Guaranteed RAM : 12 GB
HDD : 50 GB
Bandwidth : 100 Mbps Unlimited
CPU Cores : 2 vCore
RDP Access : YES
IPv4 : 1 IP
IPv6 : 1 IP

Buy Now!

Canada Windows VPS Cloud RAM PLAN 3 - $170/Month
Guaranteed RAM : 24 GB
HDD : 100 GB
Bandwidth : 100 Mbps Unlimited
CPU Cores : 4 vCore
RDP Access : YES
IPv4 : 1 IP
IPv6 : 1 IP

Buy Now!

Why choose Hostripples?
Instant Setup
Easy usability
Value for money
24 x 7 customer service
Unmatched server performance


Visit:- Cheap Canada Windows VPS Cloud RAM

It’s not that we are bragging about our services, our customers say it all!

Hurry up and get Hostripples – the one-stop solution for your web hosting requirements!

Hostripples - Affordable web hosting
Hostripples.com Cheap Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration

Connect with us: Facebook | Twitter | LinkedIn

Hostripples - Affordable web hosting
http://hostripples.com/
http://hostripples.in/
http://hostripples.co.uk/
https://myhostseo.com/
Hostripples.com $1 Unlimited Hosting | $2 Unlimited Windows Hosting | Unlimited Bandwidth | Unlimited Space | Domain Name Registration ]]>
Web Hosting Offers hi5s2arp http://forums.devshed.com/web-hosting-offers-100/cheap-canada-windows-vps-cloud-ram-hostripples-979872.html
hypotenuse of a right triangle http://forums.devshed.com/programming/979871-hypotenuse-triangle-new-post.html Thu, 18 Jan 2018 02:04:33 GMT I am having some issues with this. I get that the hypotenuse is 5, but I'm not converting the inputs correctly. My problem is trying to find away to convert a string number input to a numeric value type. Anyways here is the problem.

Develop a C# console application that computes the hypotenuse of a right triangle. The computation of the hypotenuse

of a right triangle is based on the Pythagorean Theorem: c2 = a2 + b2 and the hypotenuse, c ("long side") of the triangle

can be computed with the formula the hypotenuse is equal to the square root of the side a squared plus side b squared.

The application should take as many side pairs inputs as the user desires and calculate each until the user enters a zero

for both side one and side two (sentinel loop). You should use at least two (2) Math class methods.

The output should look something like this:

enter length of first side: 3

enter length of second side: 4

The hypotenuse is 5

enter length of first side: 3.44

enter length of second side: 4.88

The hypotenuse is 5.97059461025449

enter length of first side: 10.55

enter length of second side: 33.0

The hypotenuse is 34.6453820876607

enter length of first side: 0

enter length of second side: 0

Press any key to continue . . . ]]>
C Programming 1236x http://forums.devshed.com/programming-42/hypotenuse-triangle-979871.html
How to persistently assign windows function keys http://forums.devshed.com/visual-basic-programming/979870-persistently-assign-windows-function-keys-new-post.html Thu, 18 Jan 2018 00:00:44 GMT Hi,

I've created a VB program to assign the action of printing a screenshot of the current screen to a function key of choice, but I'm having trouble trying to get the assignment to persist after the program is closed.

So a couple of questions arise:

1. Is this possible to do?
2. If so, does anyone know the way to do it?

The code I currently have is:

Code:

Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms.Keys
Imports System.Runtime.InteropServices
Imports Shell32              ' for ShellFolderView
Imports SHDocVw              ' for IShellWindows

Public Class frmFunctionKeyChanger
        <DllImport("User32.dll")> _
        Private Shared Function RegisterHotKey(ByVal hwnd As IntPtr, _
                                                        ByVal id As Integer, ByVal fsModifiers As Integer, _
                                                        ByVal vk As Integer) As Integer
        End Function

    <DllImport("User32.dll")> _
    Private Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, _
                                                        ByVal id As Integer) As Integer
    End Function

        Private Declare Function CreateDC Lib "gdi32" Alias _
          "CreateDCA" (ByVal lpDriverName As String, _
          ByVal lpDeviceName As String, ByVal lpOutput As String, _
          ByVal lpInitData As String) As Integer

        Private Declare Function CreateCompatibleDC Lib "GDI32" _
          (ByVal hDC As Integer) As Integer

        Private Declare Function CreateCompatibleBitmap Lib "GDI32" _
          (ByVal hDC As Integer, ByVal nWidth As Integer, _
          ByVal nHeight As Integer) As Integer

        Private Declare Function GetDeviceCaps Lib "gdi32" Alias _
          "GetDeviceCaps" (ByVal hdc As Integer, _
          ByVal nIndex As Integer) As Integer

        Private Declare Function SelectObject Lib "GDI32" _
          (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

        Private Declare Function BitBlt Lib "GDI32" _
          (ByVal srchDC As Integer, _
          ByVal srcX As Integer, ByVal srcY As Integer, _
          ByVal srcW As Integer, ByVal srcH As Integer, _
          ByVal desthDC As Integer, ByVal destX As Integer, _
          ByVal destY As Integer, ByVal op As Integer) As Integer

        Private Declare Function DeleteDC Lib "GDI32" _
          (ByVal hDC As Integer) As Integer

        Private Declare Function DeleteObject Lib "GDI32" _
          (ByVal hObj As Integer) As Integer

        Const SRCCOPY As Integer = &HCC0020
        Dim WithEvents printDoc As New Printing.PrintDocument()
    Private printFont As Font
    Private streamToPrint As StreamReader
        Private bmpScreen As System.Drawing.Bitmap
        Private pd As New PrintDocument()
    Private strPrintText As String

        Private Sub btnAssign_Click(sender As Object, e As EventArgs) Handles btnAssign.Click

                Dim aKeyCodes As AssocArray = New AssocArray
                Dim intKeyPressed As Integer

                If (Not cboAction.SelectedItem.ToString() = "" _
                &  Not cboFunctionKey.SelectedItem.ToString() = "" _
                        ) Then
                        aKeyCodes.Fill(New String(){"F1","F2","F3","F4","F5","F6","F7","F8","F9","F10","F11","F12"} _
                                                , New String(){F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12}
                                                )

            For Each varKey As Object In aKeyCodes.Elements
                If (varKey(0) = cboFunctionKey.SelectedItem.ToString()) Then
                                        intKeyPressed = varKey(1)
                                        Exit For
                End If
            Next

                        Select cboAction.SelectedItem.ToString()
                        Case "Print Screen"
                                'Assign function key to the Print Screen action
                                RegisterHotKey(
                                Me.Handle,
                                100,
                                vbNull,
                                intKeyPressed
                                )

                        Case "Print File Name List"
                                'Assign function key to the Print File Name List action
                                RegisterHotKey(
                                Me.Handle,
                                200,
                                vbNull,
                                intKeyPressed
                                )

                        Case Else
                                'Error - no action selected
                                MsgBox("An action must be selected.", MsgBoxStyle.OkOnly, "Error")

                        End Select
                Else
                        Select True
                        Case cboAction.SelectedItem.ToString() = ""
                                MsgBox("An action must be selected.", MsgBoxStyle.OkOnly, "Error")

                        Case cboFunctionKey.SelectedItem.ToString() = ""
                                MsgBox("An action must be selected.", MsgBoxStyle.OkOnly, "Error")

                        Case Else
                                'Unknown Error
                                MsgBox("Unknown Error.", MsgBoxStyle.OkOnly, "Error")

                        End Select
                End If

        End Sub

    Protected Overrides Sub WndProc(ByRef oMsg As System.Windows.Forms.Message)
        Dim id As IntPtr = oMsg.WParam
                Dim strPath As String
                Dim strFilenames As String

                Select Case (id.ToString())
        Case "100"
            'Print the screen
                        Try
                                CaptureScreen()
                                AddHandler pd.PrintPage, AddressOf Me.PrintImage
                                pd.Print()

                        Catch ex As Exception
                        End Try

                Case "200"
            'Print the file name list
                        Try
                                strPath = GetExplorerPath()
                                strFilenames = GetFilenamesAsText(strPath)
                                strFilenames = GetFilenamesAsText(strPath)

                                'Try
                                        'printFont = New Font("Courier New", 10)
                                        'AddHandler pd.PrintPage, AddressOf Me.PrintFileList
                                        'pd.Print()
                                'Finally
                                        'streamToPrint.Close()
                                'End Try
                        Catch ex As Exception
                                MessageBox.Show(ex.Message)
                        End Try
                End Select

                MyBase.WndProc(oMsg)
    End Sub

        Protected Sub CaptureScreen()

                Dim hsdc, hmdc As Integer
                Dim bmpHandle, OLDbmpHandle As Integer
                Dim releaseDC As Integer
                Dim intWidth, intHeight As Integer


                hsdc = CreateDC("DISPLAY", "", "", "")
                hmdc = CreateCompatibleDC(hsdc)

                intWidth = GetDeviceCaps(hsdc, 8)
                intHeight = GetDeviceCaps(hsdc, 10)
                bmpHandle = CreateCompatibleBitmap(hsdc, _
                intWidth, intHeight)

                OLDbmpHandle = SelectObject(hmdc, bmpHandle)
                releaseDC = BitBlt(hmdc, 0, 0, intWidth, _
                intHeight, hsdc, 0, 0, 13369376)
                bmpHandle = SelectObject(hmdc, OLDbmpHandle)

                releaseDC = DeleteDC(hsdc)
                releaseDC = DeleteDC(hmdc)

                bmpScreen = Image.FromHbitmap(New IntPtr(bmpHandle))
                DeleteObject(bmpHandle)

        End Sub

    Private Sub PrintImage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
                Dim bnds As Rectangle

                'Adjust the size of the image to the page to print the full image without losing any part of it
                bnds = ev.MarginBounds

                If (bmpScreen.Width / bmpScreen.Height > bnds.Width / bnds.Height) Then 'Image is wider
                        bnds.Height = CType((CType(bmpScreen.Height, Double) / CType(bmpScreen.Width, Double) * CType(bnds.Width, Double)), Integer)
                Else
                        bnds.Width = CType((CType(bmpScreen.Width, Double) / CType(bmpScreen.Height, Double) * CType(bnds.Height, Double)), Integer)
                End If

        'Calculate optimal orientation
        pd.DefaultPageSettings.Landscape = bnds.Width > bnds.Height

        'Put image in center of page
        bnds.X = CType(((sender.DefaultPageSettings.PaperSize.Width - bnds.Width) / 2), Integer)
        bnds.Y = CType(((sender.DefaultPageSettings.PaperSize.Height - bnds.Height) / 2), Integer)
                ev.Graphics.DrawImage(bmpScreen, bnds)

        End Sub

    'The PrintPage event is raised for each page to be printed.
    Private Sub PrintFileList(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

                Dim linesPerPage As Single = 0
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim leftMargin As Single = ev.MarginBounds.Left
        Dim topMargin As Single = ev.MarginBounds.Top
        Dim line As String = Nothing

        'Calculate the number of lines per page.
        linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)

        'Print each line of the file.
        While count < linesPerPage
            line = streamToPrint.ReadLine()

                        If line Is Nothing Then
                Exit While
            End If

                        yPos = topMargin + count * printFont.GetHeight(ev.Graphics)
            ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, yPos, New StringFormat())
            count += 1
        End While

        'If more lines exist, print another page.
        If (line IsNot Nothing) Then
            ev.HasMorePages = True
        Else
            ev.HasMorePages = False
        End If

        End Sub

        Private Function GetExplorerPath() As String

                Dim exShell As New Shell
                Dim strPath As String = ""
                Dim strDir As String

                For Each w As ShellBrowserWindow In DirectCast(exShell.Windows, IShellWindows)
                        ' Try to cast to an Explorer folder
                        If TryCast(w.Document, IShellFolderViewDual) IsNot Nothing Then
                                strPath = DirectCast(w.Document, IShellFolderViewDual).FocusedItem.Path
                                Exit For

                        ElseIf TryCast(w.Document, ShellFolderView) IsNot Nothing Then
                                strPath = DirectCast(w.Document, ShellFolderView).FocusedItem.Path
                                Exit For
                        End If
                Next

                If Directory.Exists(strPath) Then
                        strDir = strPath
                ElseIf File.Exists(strPath)
                        strDir = Path.GetDirectoryName(strPath)
                Else
                        strDir = ""
                End If

                Return strDir

        End Function
 
        Private Function GetFilenamesAsText(strPath As String) As String

                Dim strFilenames As String = ""

                For Each filename As String In Directory.EnumerateFiles(strPath)
                        strFilenames = filename + vbCrLf
        Next

                Return strFilenames.Substring(0, Len(strFilenames) - Len(vbCrLf))

        End Function
 
    Public Sub PrintText(ByVal text As String, Optional ByVal printer As String = "")

                Dim pd As New Printing.PrintDocument

        strPrintText = text

                Using (pd)
                        If printer IsNot Nothing _
                        & printer <> "" Then
                                pd.PrinterSettings.PrinterName = printer
                        End If

                        AddHandler pd.PrintPage, AddressOf Me.PrintPageHandler
            pd.Print()
                        RemoveHandler pd.PrintPage, AddressOf Me.PrintPageHandler
        End Using

        End Sub
 
    Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As PrintPageEventArgs)

                Dim myFont As New Font("Courier New", 9)

                args.Graphics.DrawString(strPrintText, _
          New Font(myFont, FontStyle.Regular), _
          Brushes.Black, 50, 50)

        End Sub

End Class

Debbie ]]>
Visual Basic Programming Debbie-Leigh http://forums.devshed.com/visual-basic-programming-52/persistently-assign-windows-function-keys-979870.html