Meine Platinen bei Beta-Layout sind fertig und jetzt gibts bei Reichelt die HFD2-L 5V [genaue Bezeichung HFD2/005-S-L2-D ] nicht mehr :( Ich brauche die nächsten 14 Tage schnell 20 Stück sonst muss ich neue Platinen machen... würde auch 100 nehmen. Jemand eine Tipp woher
Selbstbau etwas bringt. Man nimmt einen Festfrequenz Oszillator, zB 6GHz, und einen VCO, der zB 3.5 - 5.2GHz macht. Dann einen Mischer hintendran, plus ein Tiefpass, der oberhalb 2.5Ghz abschneidet.
PLL schwingt nominell 479,5 MHz oberhalb des Empfangsbereiches von 850-2250 MHz, also auf etwa 1,3...2,7 GHz. Oder ein alter Wobbler, ein HP8620C mit HP86222 ist schon ab 200 Euro zu bekommen, 0-2,4GHz.
Hallo Darf man an der Spule eines bistabilen Relais (z.B. Panasonic TX2-L2) dauerhaft (d.h. möglicherweise mehrere Jahre) kontinuierlich Spannung anlegen oder sind nur Pulse zulässig? Hintergrund: In Datenblatt zum bistabilen Relais "Hongfa HFD3-L2" (mit zwei Spulen)
Ich habe soeben bemerkt dass der Kommentor im aktuellen Datenblatt [2] nicht mehr zu finden ist. [2] http://www.hongfa.com/product/pdf/HFD3_en.pdf
B And &H40 : If x5 = &H40 Then Forecolor2 = Forecolor2 + 8 x5 = B And &H20 : If x5 = &H20 Then Forecolor2 = Forecolor2 + 4 x5 = B And &H10 : If x5 = &H10 Then Forecolor2 = Forecolor2 + 2 End Sub Sub Set_Backcolor(R,G,B) Backcolor1=0 : Backcolor2
2 Jin = J + Tofs Lsp = Lookup(jin , Fonttable) If Lsp.i = 1 Then Lcd_write Dat , 255 Lcd_write Dat , 255 Else Lcd_write Dat , 0 Lcd_write Dat , 0 End If Next J Next I Next Nc End Sub Sub Lcd_setdrawframe
8000000 $regfile = "m644def.dat" '--- Disable JTAG (Port C) / 8MHz internal clock---- $prog &HFF , &HE2 , &HD9 , &HFF ' generated. Take care that the chip supports all fuse bytes. '--------------------- Dim I As Byte , J As Byte , N As Byte , Rcc As Byte Lcd_a0 Alias Portc.5 Lcd_cs Alias Portc.7 Lcd_reset
8000000 $regfile = "m644def.dat" '--- Disable JTAG (Port C) / 8MHz internal clock---- $prog &HFF , &HE2 , &HD9 , &HFF ' generated. Take care that the chip supports all fuse bytes. '--------------------- Dim I As Byte , J As Byte , N As Byte , Rcc As Byte Lcd_a0 Alias Portc.5 Lcd_cs Alias Portc.7 Lcd_reset
Then 'falls Handshake noch nicht erfolgt... I1 = Udr1 If I1 = &H25 Then 'Handshake: H:25 Udr1 = &H2B Hs1 = 1 Else Udr1 = I1 Goto Endpc End If Print #1 , "Nummer der Dose? (1-8) " For N = 1 To 20 If Ucsr1a.rxc = 1 Then 'neues Byte empfangen:Nummer Dnumber1 = Udr1 If Dnumber1 < 9 Then Hs1 = 1 Goto Befehl1
Sub Set_(x As Byte , Byval Index As Byte) Select Case Index Case 0 : X = X Or 1 Case 1 : X = X Or 2 Case 2 : X = X Or 4 Case 3 : X = X Or 8 Case 4 : X = X Or 16 Case 5 : X = X Or 32 Case 6 : X = X Or 64 Case 7 : X = X Or 128 End Select End Sub Sub Reset_(x As Byte , Byval Index As Byte) Select Case Index Case 0 : X = X And &HFE Case 1 : X = X And &HFD Case 2 : X = X And &HFB Case 3 : X = X And &HF7 Case 4 : X = X And &HEF Case 5 : X = X And &HDF Case 6 : X = X And &HBF Case 7 : X = X And &H7F End Select End Sub
die richtigen werte geschrieben Handle = Api.CreateFile("\\?\usb#vid_091e&pid_0003#5&295c686&0&2#{2c9c45c2-8e7d-4c08-a12d-816bbae722c0}", 0, &H1 Or &H2, 0, 3, 0, 0) security habe ich weggemacht und mit 0 ersetzt getlasterror ist immer noch 0 bei CreateFile und 5 bei WriteFile klappt wohl
"\\?\usb#vid_091e&pid_0003#5&295c686&0&2#{2c9c45c2-8e7d-4c08-a12d-816bbae722c0}" ist ein String im verwalteten Speicher und noch dazu ein VB-String! WinAPI Calls wollen Nullterminierte Strings! Schau dir mal http://www.vbarchiv.net/workshop
