Permalink![German German](https://www.developpez.net/forums/attachments/p225638d1479901341/autres-langages/autres-langages/basic/spiderbasic/quelques-demos-jeux-spiderbasic-purebasic/vectordrawing.png/)
Indication up
![German German](https://www.developpez.net/forums/attachments/p225638d1479901341/autres-langages/autres-langages/basic/spiderbasic/quelques-demos-jeux-spiderbasic-purebasic/vectordrawing.png/)
I SPEAK ENGLISH & GERMAN as good as i can:D; Re: What are you working on at the moment? « Reply #781 on. Continuing my learning in PureBasic, so converting to PC a Cosine game called 'Blok Copy' that has previously been released on C64, C64DTV, Atari 8bit, Commodore PET.
Sign up for GitHub nowadays
GitHub is usually house to over 36 million programmers working jointly to web host and examine code, handle projects, and create software jointly.
![Purebasic german forums Purebasic german forums](http://www.purearea.net/pb/pics/CAV_v1.1.png)
Look for fileDuplicate route
Cannot retrieve contributors at this time
; Explanation: Translates guitar strings to keyboard events and executes them |
; OS: Windows |
; English-Forum: |
; French-Forum: |
; German-Forum: http://www.purebasic.fr/german/viewtopic.php?p=149551#p149551 |
; - |
; MIT License |
; |
; Copyright (g) 2007 Sicro |
; |
; Authorization is hereby granted, free of charge of charge, to any individual obtaining a copy |
; of this software and associated documentation files (the 'Software program'), to deal |
; in the Software program without restriction, including without restriction the privileges |
; to use, copy, enhance, merge, release, deliver, sublicense, and/or sell |
; copies of the Software program, and to enable persons to whom the Software program can be |
; equipped to do so, subject to the subsequent conditions: |
; |
; The above copyright see and this authorization see shall become included in all |
; duplicates or considerable portions of the Software. |
; |
; THE SOFTWARE IS Supplied 'AS IS', WITHOUT WARRANTY OF ANY KIND, Show OR |
; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
; Health and fitness FOR A Specific Objective AND NONINFRINGEMENT. IN NO Occasion SHALL THE |
; Writers OR COPYRIGHT Cases BE LIABLE FOR ANY CLAIM, DAMAGES Or even OTHER |
; LIABILITY, WHETHER IN AN ACTION OF Agreement, TORT OR OTHERWISE, ARISING FROM, |
; OUT OF OR IN Link WITH THE Software program OR THE USE OR OTHER DEALINGS IN THE |
; SOFTWARE. |
CompilerIf #PBCompilerOS lt;gt; #PBOSWindows |
CompilerError 'Supported Operating-system are just: Windows' |
CompilerEndIf |
Method SendKeys(Keys.s i9000) |
Secured i.l, KeyCode.w, VirtualKey.c, KeysState.n |
For i = 1 To Len(Secrets) |
KeyCode = VkKeyScan(Asc(Mid(Secrets,we,1))) |
VirtualKey = KeyCode amp; $FF |
KeysState = (KeyCode gt;gt; 8) amp; $FF |
Select KeysState |
Case 1 ; Umschalt-Taste wird benoetigt |
keybdevent(#VKSHIFT,1,0,0) |
Case 6 ; 'Alt Groß'-Flavor wird benoetigt |
keybdevent(#VKRMENU,1,0,0) |
EndSelect |
keybdevent(VirtualKey,1,0,0) |
keybdevent(VirtualKey,1,#KEYEVENTFKEYUP,0) |
Select KeysState |
Case 1 ; Umschalt-Taste wieder loslassen |
keybdevent(#VKSHIFT,1,#KEYEVENTFKEYUP,0) |
Situation 6 ; 'Alt Groß'-Taste wieder loslassen |
keybdevent(#VKRMENU,1,#KEYEVENTFKEYUP,0) |
EndSelect |
Next |
EndProcedure |
;-Illustration |
CompilerIf #PBCompilerIsMainFile |
SendKeys('Hello there Planet') |
CompilerEndIf |
Duplicate ranges Duplicate permalink