Re: [Neo] Die HP-Tastatur

[Matthias Wächter]

Am 30.11.2009 15:28, schrieb Ulf Bro:
> Persönliche Empfehlung:
> 
> Ich möchte eine Tastatur vorstellen, die ich sehr gut finde. Seit einigen 
> Tagen schreibe ich ausschließlich damit und bin sehr von ihr überzeugt. Sie 
> wird wohl bis auf weiteres meine Tastatur bleiben.
> 
> Sie baut auf Matthias' Vokalblock auf:
> 
> yoa,j kgclfx
> iuehp dtnrsß
> üöä.q vmbzw
>
> […] Für Windows gibt es keinen Treiber.

Stimmt nicht! :-)

Anbei eines der beliebten Custom.ahk-Skripts für den
NeoVars-Windows-„Treiber“¹.

(De)aktivieren mit Mod3+F8.

– Mœsi

1:
http://wiki.neo-layout.org/wiki/Neo%20unter%20Windows%20einrichten/NeoVars



; -*- encoding:utf-8 -*-
; NEO-MUHP
; (c) 2009 Matthias Wächter


CharProc__UHPt() {
  global
  ; Custom Layout togglen
  isUHP := !(isUHP)
  if (isUHP) {
    CharProc__UHP1()
    if (zeigeModusBox)
      TrayTip,NEO-MU-HP-Belegungsvariante,Die Belegungsvariante wurde 
aktiviert. Zum Deaktivieren`, Mod3+F8 druecken.,10,1
  } else {
    CharProc__UHP0()
    if (zeigeModusBox)
      TrayTip,NEO-MU-HP-Belegungsvariante,Die Belegungsvariante wurde 
deaktiviert.,10,1
  }
}

CharProc__UHP1() {
  global
  ; NEO-MU-HP-Tastaturbelegungsvariante aktivieren
  ED12("010",1,"y","Y")
  ED12("011",1,"o","O")
  ED12("012",1,"a","A")
  ED12("013",0,",","–")
  ED12("014",1,"j","J")
  ED12("015",1,"k","K")
  ED12("016",1,"g","G")
  ED12("017",1,"c","C")
  ED12("018",1,"l","L")
  ED12("019",1,"f","F")
  ED12("01A",1,"x","X")

  ED12("01E",1,"i","I")
  ED12("01F",1,"u","U")
  ED12("020",1,"e","E")
  ED12("021",1,"h","H")
  ED12("022",1,"p","P")
  ED12("023",1,"d","D")
  ED12("024",1,"t","T")
  ED12("025",1,"n","N")
  ED12("026",1,"r","R")
  ED12("027",1,"s","S")
  ED12("028",1,"ß","ẞ")

  ED12("02C",1,"ü","Ü")
  ED12("02D",1,"ö","Ö")
  ED12("02E",1,"ä","Ä")
  ED12("02F",0,".","•")
  ED12("030",1,"q","Q")
  ED12("031",1,"v","V")
  ED12("032",1,"m","M")
  ED12("033",1,"b","B")
  ED12("034",1,"z","Z")
  ED12("035",1,"w","W")
}

CharProc__UHP0() {
  global
  ; NEO-MU-DK-Tastaturbelegungsvariante deaktivieren
  ED12("010",1,"x","X")
  ED12("011",1,"v","V")
  ED12("012",1,"l","L")
  ED12("013",1,"c","C")
  ED12("014",1,"w","W")
  ED12("015",1,"k","K")
  ED12("016",1,"h","H")
  ED12("017",1,"g","G")
  ED12("018",1,"f","F")
  ED12("019",1,"q","Q")
  ED12("01A",1,"ß","ẞ")

  ED12("01E",1,"u","U")
  ED12("01F",1,"i","I")
  ED12("020",1,"a","A")
  ED12("021",1,"e","E")
  ED12("022",1,"o","O")
  ED12("023",1,"s","S")
  ED12("024",1,"n","N")
  ED12("025",1,"r","R")
  ED12("026",1,"t","T")
  ED12("027",1,"d","D")
  ED12("028",1,"y","Y")

  ED12("02C",1,"ü","Ü")
  ED12("02D",1,"ö","Ö")
  ED12("02E",1,"ä","Ä")
  ED12("02F",1,"p","P")
  ED12("030",1,"z","Z")
  ED12("031",1,"b","B")
  ED12("032",1,"m","M")
  ED12("033",0,",","–")
  ED12("034",0,".","•")
  ED12("035",1,"j","J")
}

ActivateNEOMUHP() {
  global

  CP3F8  := "P__UHPt"                   ; M3+F8: Aktiviere/Deaktiviere NEO-MU-HP

  IniRead,isMUHP,%ini%,Global,isMUHP,0
  if (isMUHP)
    CharProc__UHP1()

}

ActivateNEOMUHP()