13Jun

n this article I will discuss about a very simple game. Yes, it is a Tic-Tak-Toe game of 3X3 dimension. It is a very simple game and I believe each and every one knows the rules of this game. So I am not going to mention anything about the game rules here. This article also gives you an idea about AI (Artificial Inelegancy) used in computer game. It is like giving thinking ability to you PC. In this game you can play against computer. That is man vs. computer. The game is developed in VB6. 0 and coded in very easy way to make the algorithm easy to understand. There are comments for each chunk of code which acts like a particular AI or games rule. I hope anyone can understand what I am going to do seeing the codes and comments. I used some Matrix formula to calculate/ find next move after a Human move. Here is the complete listing of source code. Private Sub Command1_Click(Index As Integer) If Command1(Index). Caption = “” Then Command1(Index). Caption = “X” Call computer Call win Else Beep End If End Sub Public Sub computer() Dim i, numb1, numb0, cou1, cou2 As Integer ‘************CALCULATE THE NUMBER OF “X”************ For i = 0 To 8 If Command1(i). Caption = “X” Then numb1 = numb1 + 1 End If Next i ‘*****************WIN OPPERTUNITY************ If (Command1(0). Caption = “O” And Command1(1). Caption = “O” And Command1(2). Caption = “”) Then Command1(2). Caption = “O” Exit Sub End If If (Command1(0). Caption = “O” And Command1(2). Caption = “O” And Command1(1). Caption = “”) Then Command1(1). Caption = “O” Exit Sub End If If (Command1(0). Caption = “O” And Command1(3). Caption = “O” And Command1(6). Caption = “”) Then Command1(6). Caption = “O” Exit Sub End If If (Command1(0). Caption = “O” And Command1(6). Caption = “O” And Command1(3). Caption = “”) Then Command1(3). Caption = “O” Exit Sub End If ‘**************************************** If (Command1(8). Caption = “O” And Command1(5). Caption = “O” And Command1(2). Caption = “”) Then Command1(2). Caption = “O” Exit Sub End If If (Command1(8). Caption = “O” And Command1(2). Caption = “O” And Command1(5). Caption = “”) Then Command1(5). Caption = “O” Exit Sub End If If (Command1(8). Caption = “O” And Command1(7). Caption = “O” And Command1(6). Caption = “”) Then Command1(6). Caption = “O” Exit Sub End If If (Command1(8). Caption = “O” And Command1(6). Caption = “O” And Command1(7). Caption = “”) Then Command1(7). Caption = “O” Exit Sub End If ‘******************************** If (Command1(6). Caption = “O” And Command1(7). Caption = “O” And Command1(8). Caption = “”) Then Command1(8). Caption = “O” Exit Sub End If If (Command1(6). Caption = “O” And Command1(3). Caption = “O” And Command1(0). Caption = “”) Then Command1(0). Caption = “O” Exit Sub End If ‘***************************************** If (Command1(2). Caption = “O” And Command1(1). Caption = “O” And Command1(0). Caption = “”) Then Command1(0). Caption = “O” Exit Sub End If If (Command1(2). Caption = “O” And Command1(5). Caption = “O” And Command1(8). Caption = “”) Then Command1(8). Caption = “O” Exit Sub End If ‘***************LOGICS IF THE CENTER BOX CONTAIN “O”*********** If Command1(4). Caption = “O” Then ‘*********************CROSS(X) LOGICS***************** For q = 0 To 8 Step 2 If q = 4 Then GoTo 2 End If If Command1(q). Caption = “O” Then n = 4 * 2 – q If Command1(n). Caption = “” Then Command1(n). Caption = “O” Exit Sub End If End If 2 Next q ‘*********************PLUSE(+) LOGICS***************** For w = 1 To 7 Step 2 If w = 4 Then GoTo 4 End If If Command1(w). Caption = “O” Then n = 4 * 2 – w If Command1(n). Caption = “” Then Command1(n). Caption = “O” Exit Sub End If End If 4 Next w End If ‘************************PROCTECT GAME*********************** If (Command1(0). Caption = “X” And Command1(1). Caption = “X” And Command1(2). Caption = “”) Then Command1(2). Caption = “O” Exit Sub End If If (Command1(0). Caption = “X” And Command1(2). Caption = “X” And Command1(1). Caption = “”) Then Command1(1). Caption = “O” Exit Sub End If If (Command1(0). Caption = “X” And Command1(3). Caption = “X” And Command1(6). Caption = “”) Then Command1(6). Caption = “O” Exit Sub End If If (Command1(0). Caption = “X” And Command1(6). Caption = “X” And Command1(3). Caption = “”) Then Command1(3). Caption = “O” Exit Sub End If ‘**************************************** If (Command1(8). Caption = “X” And Command1(5). Caption = “X” And Command1(2). Caption = “”) Then Command1(2). Caption = “O” Exit Sub End If If (Command1(8). Caption = “X” And Command1(2). Caption = “X” And Command1(5). Caption = “”) Then Command1(5). Caption = “O” Exit Sub End If If (Command1(8). Caption = “X” And Command1(7). Caption = “X” And Command1(6). Caption = “”) Then Command1(6). Caption = “O” Exit Sub End If If (Command1(8). Caption = “X” And Command1(6). Caption = “X” And Command1(7). Caption = “”) Then Command1(7). Caption = “O” Exit Sub End If If (Command1(1). Caption = “X” And Command1(2). Caption = “X” And Command1(0). Caption = “”) Then Command1(0). Caption = “O” Exit Sub End If If (Command1(6). Caption = “X” And Command1(7). Caption = “X” And Command1(8). Caption = “”) Then Command1(8). Caption = “O” Exit Sub End If If (Command1(2). Caption = “X” And Command1(5). Caption = “X” And Command1(8). Caption = “”) Then Command1(8). Caption = “O” Exit Sub End If If (Command1(3). Caption = “X” And Command1(6). Caption = “X” And Command1(0). Caption = “”) Then Command1(0). Caption = “O” Exit Sub End If ‘**************PUT “O” IN CENTER BOX IF BLANK**************** If (numb1 = 1 And Command1(4). Caption = “”) Then Command1(4). Caption = “O” Exit Sub End If ‘***************LOGICS IF THE CENTER BOX CONTAIN “X”*********** If Command1(4). Caption = “X” Then ‘*********************CROSS(X) LOGICS***************** For q = 0 To 8 Step 2 If q = 4 Then GoTo 5 End If If Command1(q). Caption = “X” Then n = 4 * 2 – q If Command1(n). Caption = “” Then Command1(n). Caption = “O” Exit Sub End If End If 5 Next q ‘*********************PLUSE(+) LOGICS***************** For q = 1 To 7 Step 2 If q = 4 Then GoTo 6 End If If Command1(q). Caption = “X” Then n = 4 * 2 – q If Command1(n). Caption = “” Then Command1(n). Caption = “O” Exit Sub End If End If 6 Next q If Command1(0). Caption = “” Then Command1(0). Caption = “O” Exit Sub End If If Command1(2). Caption = “” Then Command1(2). Caption = “O” Exit Sub End If If Command1(6). Caption = “” Then Command1(6). Caption = “O” Exit Sub End If If Command1(8). Caption = “” Then Command1(8). Caption = “O” Exit Sub End If End If ‘*******************MASTER LOGICS(1)********* If (Command1(3). Caption = “X” And Command1(1). Caption = “X”) Then If Command1(0). Caption = “” Then Command1(0). Caption = “O” Exit Sub End If End If If (Command1(1). Caption = “X” And Command1(5). Caption = “X”) Then If Command1(2). Caption = “” Then Command1(2). Caption = “O” Exit Sub End If End If If (Command1(5). Caption = “X” And Command1(7). Caption = “X”) Then If Command1(8). Caption = “” Then Command1(8). Caption = “O” Exit Sub End If End If If (Command1(3). Caption = “X” And Command1(7). Caption = “X”) Then If Command1(6). Caption = “” Then Command1(6). Caption = “O” Exit Sub End If End If ‘************************master logics(2)*************** If (Command1(3). Caption = “X”) Then If Command1(2). Caption = “X” And Command1(0). Caption = “” Then Command1(0). Caption = “O” Exit Sub End If If Command1(8). Caption = “X” And Command1(6). Caption = “” Then Command1(6). Caption = “O” Exit Sub End If End If If (Command1(5). Caption = “X”) Then If Command1(0). Caption = “X” And Command1(2). Caption = “” Then Command1(2). Caption = “O” Exit Sub End If If Command1(6). Caption = “X” And Command1(8). Caption = “” Then Command1(8). Caption = “O” Exit Sub End If End If If (Command1(7). Caption = “X”) Then If Command1(0). Caption = “X” And Command1(6). Caption = “” Then Command1(6). Caption = “O” Exit Sub End If If Command1(2). Caption = “X” And Command1(8). Caption = “” Then Command1(8). Caption = “O” Exit Sub End If End If If (Command1(1). Caption = “X”) Then If Command1(6). Caption = “X” And Command1(0). Caption = “” Then Command1(0). Caption = “O” Exit Sub End If If Command1(8). Caption = “X” And Command1(2). Caption = “” Then Command1(2). Caption = “O” Exit Sub End If End If ‘********************************************** If (numb1 = 5) Then MsgBox “*****Game over*****” Call newer GoTo 10 End If ‘*************Master Logics(1)***************** For K = 1 To 7 Step 2 If Command1(4). Caption = “O” And Command1(K). Caption = “” Then Command1(K). Caption = “O” Exit Sub End If Next K 8 cou1 = Int(Rnd * 9) If Command1(cou1). Caption = “” Then Command1(cou1). Caption = “O” Else GoTo 8 End If 10 End Sub Private Sub exit_Click() End End Sub Private Sub Form_Load() Open “C:WIN. TXT” For Append As #1 Close #1 End Sub Private Sub new_Click() Call newer End Sub Public Sub win() ‘**********************YOU WIN************* If (Command1(1). Caption = “X” And Command1(0). Caption = “X” And Command1(2). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(0). Caption = “X” And Command1(4). Caption = “X” And Command1(8). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(0). Caption = “X” And Command1(3). Caption = “X” And Command1(6). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(1). Caption = “X” And Command1(4). Caption = “X” And Command1(7). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(2). Caption = “X” And Command1(5). Caption = “X” And Command1(8). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(3). Caption = “X” And Command1(4). Caption = “X” And Command1(5). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(6). Caption = “X” And Command1(7). Caption = “X” And Command1(8). Caption = “X”) Then MsgBox “***You win***” Call newer End If If (Command1(6). Caption = “X” And Command1(4). Caption = “X” And Command1(2). Caption = “X”) Then MsgBox “***You win***” Call newer End If ‘*****************YOU LOST************* If (Command1(1). Caption = “O” And Command1(0). Caption = “O” And Command1(2). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(4). Caption = “O” And Command1(0). Caption = “O” And Command1(8). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(3). Caption = “O” And Command1(0). Caption = “O” And Command1(6). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(1). Caption = “O” And Command1(4). Caption = “O” And Command1(7). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(2). Caption = “O” And Command1(5). Caption = “O” And Command1(8). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(3). Caption = “O” And Command1(4). Caption = “O” And Command1(5). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(6). Caption = “O” And Command1(7). Caption = “O” And Command1(8). Caption = “O”) Then MsgBox “***You loset***” Call newer End If If (Command1(6). Caption = “O” And Command1(4). Caption = “O” And Command1(2). Caption = “O”) Then MsgBox “***You loset***” Call newer End If End Sub Public Sub newer() For i = 0 To 8 Command1(i). Caption = “” Next i End SubDownload the project from BD Experts site      

11Jun

The introduction of cellular phone has opened a couple of new opportunities for many individuals. First of all it allows us to stay connected no matter where we are, and many have said it will be a far off memory, when we think back on a time that we didn’t know every single thing that our friends were doing. Truly, cellular phones have brought us many things that we never could have imagined. But with that new innovation, something new has popped up for manufacturers like Case Logic cell phone pouches. Interestingly enough, there is not a market for cellular phone cases, and it’s actually quite profitable. There have been third party chargers, car chargers, and all kinds of other accessories that you could never even imagine. The most popular type of accessory out there is the mobile phone pouch, and one that many people tend to like is the case logic cell phone pouches. Case logic has long been trusted to provide storage for CD Players, CD’s, and many other electronic devices. It’s no surprise that they have now introduced their line of cellular phone cases, and there are many to choose from. There are all sorts of styles when it comes to Case Logic mobile phone pouches, you can go with the standard traditional leather pouch, or you can go for one of the newer drawstring cellular phone pouches. Whichever one you happen to choose you can be sure that you’re getting a great deal, considering the amount of time that Case Logic has spent developing their case technology. What reason do you have to own a cellular phone case? The big question, is what reason do you have to NOT own a cellular phone case. Generally these cases retail for below ten dollars, so it’s not something that’s going to put a big hurting on your wallet. Unlike your actual mobile phone, you can choose Case Logic mobile phone pouches that reflect your personality. You will no doubt be able to find a cellular phone pouch that is in your favorite color, and naturally they are all made for different types of phones. For instance if you have an iPhone, you will want to find a case that is made for it. But if you have the type of phone that still has a protruding antenna, you will be able to find that type of Case Logic mobile phone pouch as well. Anything you need for your mobile phone is out there, all you have to do is look for it! With Case Logic mobile phone pouches you know that you’re going to have one of the best cases around. If you’re planning on going with a case, then get one of these. They even make a universal mobile phone case for when you think you might be going through multiple cell phones during the course of a year, or if you just can’t find the perfect cell phone case. No matter what, Case Logic is the way to go!

9Jun

Lee Hyori is coming back on the first of April with a new song entitled “H-Logic”. She seems to be taking on a bit of a “Lady Gaga” kind of style in her MV. Other people are commenting that her style in the video looks strikingly similar to that of Christina Aguilera in her “Keep Gettin’ Better” music video, so Lee Hyori has been getting quite a bit of flack for her latest single, but let us know what you think by posting a comment below.
How can I download Lee Hyori’s H-Logic MP3?You can download the full MP3 of Lee Hyori’s “H-Logic” single through the link below:
–> Lee Hyori – H-Logic (MP3 Download)
So. . what are people saying about Lee Hyori’s, “H-Logic” on YouTube?
jhl182:i thought her album was gonna be all hip-hop?? thats what she said before. . .
mirumorag:Like Hyori on the chair when she stamp the radio. HaHaHaYankeeSpike:omg! this song is so super hot and i love the way she dances and her styles. screw gaga and those other bitches, hyori is the best!when will her new album be out? cant wait!goliov:Very cool and interesting! So Hyori!
stuyanniewu:hyori’s back! can’t wait for her comeback!as for the lady gaga resemblance, i think it’s not exactly there, maybe just the heavy makeup. i’d say it’s more of a 2ne1 influence, esp if u look @ the jewelry and clothes in her teaser photo. jujubeans55:YAY! Hyori is back and this teaser is awesome!Lithvel:That was actually kind of cool. I watched the clip in school earlier but had no sound on and i was like wtf is this :P , but it makes more sense with sound on. . . . but still, the vid doesn’t contain her singing. . But I’m stil anticipating it^^shigehisa55:hey guys. . dont compare lee hyori and lady gaga ok. . lee hyori has her own style. . and i dont like lady gaga. . I LOVE LEE HYORI JJANG!!!twoh3arts:why gaga? honestly it doesn’t remind me of her at all. . . She is just trying something that is different but not trying to be like gaga. 2ne1 have sorta different style compared to other girl groups. . G-Dragon’s “Heartbreaker” too. . Does that mean being different => gaga? LOL. –> Lee Hyori – H-Logic (Full MP3 Download)

7Jun


Like many owners of Apple knows Apple laptops are known for a motherboard problem, encouraging thing here is that everything is easier to buy a replacement logic board for a good price if you select a new or reconditioned parts. Apple laptop logic board replacements tend to vary from about $ 50 to $ 200, pretty big difference, but it depends on the model and if you choose new or renoveret.Udskiftning Apple laptop logic board is not the lightest laptop for repair, but that does not mean you will not be able to save a few dollars by buying part of themselves, although they must pay for installation, to see what can be saved to ask experts for repair of total citations and is suitable only for Quote – I think it’ll be quite surprised how much they want to charge for the logic of the Apple laptop board, regardless of model or condition, which in turn means that the focus on the online store for your laptop has a parts fordele.En second thing you must consider the Apple laptop logic board looks to replace as opposed to repair, simply because.

7Jun


LONDON – (Marketwire – February 16, 2010) – Pano Logic, a leader in zero client desktop virtualization (VDI), announced today that the CDG the UK’s leading distributor of innovative technology infrastructure, has joined its affiliate Pano population, more than 200 partners worldwide . CDG UK specializing in the VDI technologies that reduce costs, simplify management and lower overall TCO for businesses across EMEA. Experience a pent-up demand from buyers and distributors for easy access to VDI, CDG Britain admits Pano Logic is the only zero-client solution that will meet these requirements. “We are pleased to have virtualization, Pano Logic in our portfolio, we are witnessing the increasing demand for simplicity in VDI deployments. Pano Logic’s zero client centralized solution to meet this market demand,” said Oren Taylor, Executive Director, CDG United Kingdom. “Pano Logic delivers on the promise that VDI fully centralize all treatments of power to the data center, removing the burden of endpoint management. Pano customer experience even 88% reduction in total cost of ownership (TCO). We hope to expand to offer existing and new distributors through the CDG, “said Chris Hammam, general manager EMEA, Pano Logic Logic.Pano is a purpose-built solution for virtual desktops, companies worldwide to achieve dramatic savings in TCO radically simplify deployment and management of end user computing. Unlike all the other manufacturers centralizes Pano Logic VDI 100% of end-user computing power in a virtualized server. No processor, no operating system, no memory, no drivers, no software and no moving parts in a zero client Pano Device – remove the endpoint management. Unique.

7Jun


Menlo Park, CA – (Marketwire – March 2 2010) – Pano Logic, a leader in zero client desktop virtualization (VDI), announced today that Fujitsu, 47 billion U.S. dollars of global business solutions company will integrate Pano Logic pioneering zero-client virtual desktop technology new Fujitsu desktop computing solutions. New Fujitsu Zero Client delivers dramatic cost savings of ownership, energy efficiency and security benefits of a fully centralized computing to virtualized servers, while users connected through the industry’s first real zero-client-enabled LCD monitor.Fujitsu Zero client computing platform, which will be orderable in the March comprehensive software and hardware solution for plug-and-play virtual desktop computing, which eliminates the need for a PC or thin client on the endpoint. IT managers have a simplified infrastructure, administration of all users from a single, centralized control interface that takes advantage of your VMware infrastructure, while end users are familiar with Windows environment directly through the screen. Removal of support and maintenance of terminals and replace the screen with a built Pano Logic technology follow the total cost of ownership of computing dramatically, and end-users greater flexibility to access their virtual desktops from any Zero Client monitor connected to the screen will be netværket.

7Jun


The basic logical operators association SQL1. The purpose of this meeting is to make you aware of the advantages of various logical operators to use while writing the various SQL (syntax) query. It is human psychology to ignore the old technology when new, with several buildings on the site. To stick with the old techniques, when a new introduction, is again a disadvantage, because you tend to lose the advantages offered by new techniques in the same time, if you have forgotten your old techniques. May there be a situation where newer technology can help you find a solution, so when newer techniques are not responding to your needs, so we’ll have to look old to you os.Så friends, the old adage, old gold, although it would not glitter, but you must always have respect and faith in the old technique, time will show that the new facilities, sometimes not as flexible as you write complex queries. In such circumstances, to use older versions teknologi.Har wonderful time while you are surfing through this session: Let us first understand what exactly does Oracle • Oracle priest or priestess (In ancient Greece and Rome), which functioned as a channel for advice or prophecy from the gods, and his authority is final. • body has always been correct. • Oracle is the authority in the Church who found the answer to all questions related to the confessor. • In information technology, (In today’s era) is short, and when expanded: Oak Ridge Automatic .

7Jun


Menlo Park, CA – (Marketwire – February 8, 2010) – Pano Logic, a leader in zero client desktop virtualization (VDI), today announced a dramatic increase in sales of its award-winning, all-in-zero-client computing platform 2009, with customers rewarded with as many as 67% savings in calculating the total cost of ownership. Pano Logic has tripled sales last year with strong momentum in sales of existing and new clients for 2010. New and existing retailers have experienced significant economic rewards for the growing demand for Pano Logic is an innovative approach and is widely used among organizations that want to reap the benefits of virtualization to the desktop that are only levere.Innovative Pano Logic Pano Logic organizations adopt a zero-client computing platform because it allows comfortable, safe and cost effective way to fully exploit virtualization and centralized desktop computers. Organizations in healthcare, education, government, manufacturing, banking, professional services and many other industries achieve a drastic reduction in management and energy costs, and eliminating Desktop security breach, which resulted in dramatic savings in TCO. Apart from savings, Pano Logic improves end user productivity by providing optimum user experience and greater mobility of the ease with which users can log in and check out their virtual machines from the Pano zero client device within the organization. “The customer is zero instead made my job easier and cut to almost nothing the time we spend traveling to branch offices for debugging or to create new end-users. We can now perform these tasks on their own desktops,”

7Jun


Programmable logic controller (PLC) is a digital computer used for automation of industrial processes such as control of machinery on factory production lines. PLC is widely used in industrial automation. For details on industrial automation: http://iautomation. Blogspot. com PLC is designed for multiple input and output arrangements, extended temperature, resistance to electrical noise, and resistance to vibration and shock. Programs to control the operation of the machines are typically stored in battery-backed or non-volatile memory. PLC is an example of real-time system since output results must be produced in response to input conditions within a limited time, otherwise it will result in unintended operation.

7Jun

Here is a typical LAST Logic Games questions: Nine housewives – Alice, Barbara, Carol, Delores, Evelyn, Francis, Gertrude, Hillary, and Ingrid – Safeway will be shopping this weekend. You can shop on either Monday, Tuesday or Wednesday. Exactly three housekeepers will work on each of those days. The following conditions: 1st Barbara will work on Tuesday. 2nd Carol Francis and must act on the same day. Third Alice and Evelyn must act on the same day. 4th Gertrude and Hillary can not operate on the same day. 5th Barbara and Ingrid can not act on the same date. 6th Carol and Ingrid can not act on the same day. When Alice shops on Tuesday, and Carol trade on Monday, which of the following must be true? A. Gertrude trade on Monday. Gertrude B. stores on Wednesday. Hillary C. Trade on Monday. D. Delores trade on Wednesday. E. Francis trade on Wednesday. I’m not going to waste all our time to explain why, but the correct answer is D (Delores trade on Wednesday). I have no patience or expertise to teach you to reach this decision, but if you want to Excel on Law School Admission Test (last) better to be able to answer all questions as to within 30-40 seconds. Is it really possible? Yes, the professional classes and taking one hundredth LAST practice test, you can master LAST Logic Games. Which brings us back to the question posted in the subtitle.

Newer Posts »
Best UK Web Hosting
Instant Coffee | Coffee Beans | Ground Coffee | Business Phone Systems | 0845 Numbers | 0844 Numbers | 0800 Numbers | Office Chairs | Office Furniture | Static Guards