-
Thread
bascom: 3 parameters expected beim elseif
folgenden Code eingebe, funzt es zumindest im Simulator mit wechselnden Werten fuer R und F: Dim F As Byte , R As Integer F = 1 R = 900 If F = 1 And R < 100 Then Gosub Test1 Elseif F = 2 And R > 50 And R < 200 Then Gosub Test2 Elseif F = 3 And R > 201 And R < 799 Then Gosub Test3
'Ein Pin (PA0) wird wieder als Eingang definiert Dim T As Long T = 0 Dim S As Bit S = 0 Dim J As Bit 'K1 0 oder 1 Dim J2 As Bit 'Zeitfestsetzung
-
Thread
Board Design überprüfen?
Widerstände für SDA und SCL. Rechts davon die Knopfzelle. Links von der RTC der dazugehörige Quarz. Der AS1130-Teil: AS1130 links. Links die Stiftleiste, für den Anschluss an die Matrix (CS0-CS11). Dadrüber zwei Widerstände für SDA und SCL (wiederum verbunden über die RTC und dann an den µC). Der Widerstand ganz oben Links ist für die I2C-Adresse des AS1130 (optional). Der Kondensator zwischen AS1130 und µC ist für den AS1130. Unter dem AS1130 zwei Widerstände für für RSTN und IRQ. Falls sich wirklich jemand das Board mal anschaut, an dieser Stelle
-
Thread
Verschlüsselungsalgo und AVR schaft er das?
was habt ihr nur alle mit RSA? was bring RSA für den sweck für ein Vorteil gegenüber AES?
und Doppel-CBC und eine 4 Bytes Signatur. Der Overhead ist 700 Taktzyklen pro Datenbyte. Nutzt du AES in Software ist es nochmals langsammer, du findest bei Atmel ein AppNote die AES implementiert. Gruß Hagen
-
Thread
PCF8583
****************************************************************** ' Variablendeklaration Dim ss As Byte , mm As Byte , hh As Byte , day As Byte , month As Byte Dim Wm As Byte , Yd As Byte Dim sDatumZeit as String * 16 Dim sStatus as string * 16 ' ***********************************************
************************ ' Subroutinendeklaration ' Setzen Uhrzeit/Datum Declare Sub Settime(ss As Byte , mm As Byte , hh As Byte , day As Byte , month As Byte) ' Auslesen Uhrzeit/datum Declare Sub Gettime ' ****************************************************************************** ' Hauptprogramm
-
Thread
Serialport in Visual Baisc 2005 Express
gewünschten Event auswählst - sieht dann so aus: Private Sub mySerialport_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mySerialport.DataReceived Dim data As String ' musst du natürlich global anlegen, sonst sind die Daten gleich wieder weg
Effekt, der sich durch senden von unerwünschten nullen äußert. Mein Sourceauschnitt: Dim rs232 As New System.IO.Ports.SerialPort Dim i As Integer, comS$(8) Const genadr = 1 Dim RS232Port As String comS$(1) = "COM1" : comS$(2) = "COM2" : comS$(3) = "COM3" : comS
-
Thread
VB.net: Dynamisch Objekte zur Laufzeit generiern
[code] Dim car_counter As Integer = 0 Dim auto(8) As PictureBox Private Sub ausfahrt_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseDown
langer Zeit bin ich wieder an dem Thema dran [code]Public Class Form1 Dim car_moving As Integer = 0 Dim random_car As Integer = 0 Dim car_color As Bitmap Dim car_counter As Integer = 0 Dim auto(8) As PictureBox Private Sub Timer1_Tick
-
Thread
DS18B20 mit 2 Nachkommastellen? (Bascom)
' DS18B20 Config 1wire = Portc.0 ' DS18S20 port Dim B As Byte Dim Wirect As Word Dim Dg As Integer Dim Dsid1(8) As Byte ' Dallas ID 64 bits incl CRC Dim Sc(9) As Byte ' Scratchpad 0-8 72 bits incl CRC, explanations for DS18b20 Declare Sub Ds18b20() As Integer Declare Function Decigrades(byval Sc(9) As Byte) As Integer ' DS18B20 Sub Ds18b20() Wirect = 1wirecount() Dsid1(1) = 1wsearchfirst() Letzter_isttemp = Isttemp
-
Thread
ESP8266 NodeMCU 1.0 and PCF8574 - Call PCF Object by Reference
PS: I use a different header file for the button in this one called "input.h" which works the same as "input_pcf.h" but only takes a pin as an argument. Best regards!
your µC than anything else. The PCF library also inhibits any write commands to your output pins as soon as you declare them as inputs. That's why you don't see any HIGH output on pin 0. [c]pcf.pinMode(btn, INPUT); pcf.digitalWrite(btn, HIGH); pcf.begin();[/c] This can't work as stated
-
Thread
Lightweight WS2811/WS2812 Library
lesen. Aber eine Frage zum letzten Satz: "A '1' can be encoded with pulses of almost arbitrary length as long as they are longer than ~625 µs (minimum on WS2812B)." Das sollen eher 625ns sein, oder? Axel
Aber eine Frage zum letzten Satz: "A > '1' can be encoded with pulses of almost arbitrary length as long as > they are longer than ~625 µs (minimum on WS2812B)." > > Das sollen eher 625ns sein, oder? Oh ja, danke für den Hinweis!
-
Thread
USB Stick Drive etc. verschlüsseln?
wie der Haustürschlüssel unter > dem Abtreter (aber besser als garnicht). zip veschlüsselt mit AES - hast du etwas mal schnell eine möglichkeit gefunden die Daten zu entschlüsseln?
Peter II schrieb im Beitrag #2162269: > zip veschlüsselt mit AES Das nützt aber nichts, wenn durch Implementierungsfehler der Schlüssel ruckzuck zu ermitteln ist.
-
Thread
english question^^
what does it actually mean .. has joined the company as CEO? I was looking for it on google but without success
No, present perfect implies it was completed just recently. But it doesn't seem a good example as you don't usually join a company as CEO gradually. There is no such thing as being half a CEO.
-
Thread
DDS normal ?
r16 ; clear all PORTB bits ser r16 ; out DDRD,r16 ; set all PORTD bits as output out DDRB,r16 ; set all PORTB bits as output ; TWI INITIALISIERUNG rcall TWI_INI ; STARTWERTE clr DATA clr ADRESS ; alle Interrupts
den ersten DDS Generator gebaut. Rein mit TTL ICs. 24Bit Phasenauflösung / 8 Bit Amplitude. Mit 74AS Addierer bin ich bis 4MHz gekommen. Ausgangstiefpass war ein 7 poliges Cauerfilter. 1. Oberwelle 48db unter der Grundwelle.
-
Thread
Schaltnetzteil Audiomischpult
Hi, I am guessing you're facing the exact same failure mode as described in the first post. Marcellus schrieb im Beitrag #6746144: > Can anyone help to confirm whether a solution to this was found in the > end, The TO did not show up again after his two
follow-up - very much appreciated. I had already checked all of the components which you circled (as well as others) in the pic that you attached. My suspicion has turned to the large (560uF 400V) filter capacitor on the 'live' side (which is not shown in the schematic diagram which you attached)
-
Thread
Rechenproblem mit Counter
.0 = Output Config Pinb.1 = Input Frequenz Alias Pinb.1 Kontrolle Alias Portb.0 Dim Minuten As Byte Config Timer1 = Counter , Edge = Rising , Clear Timer = 1 Ocr1a = 6 On Ocr1a Plusminute Enable Timer1 Enable Interrupts Minuten = 0 Do Loop End Plusminute: Toggle Kontrolle
100 $swstack = 100 $framesize = 100 Const Preset = 59536 'Const Preset = 65533 Dim Minuten As Byte Dim X As Byte Config Portd.6 = Output Config Pinb.1 = Input Frequenz Alias Pinb.1 Config Timer1 = Counter , Edge = Rising On Timer1 Plusminute Timer1 = Preset Enable Timer1 Enable
-
Thread
Serielle Schnittstelle
As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim EinzelPort As String Debug.WriteLine("INFO: Folgende Ports wurden auf dem
Debug.WriteLine("Port Open: " & SerialPort1.IsOpen) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Anzeigen() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
-
Thread
ESP8266 instabil / schickt UART obwohl nicht vorgesehen?
<gpio.h> #define DELAY 50000 /* microseconds */ void user_init(void) { // Configure pin as a GPIO PIN_FUNC_SELECT(PERIPHS_IO_MUX_MTDI_U, FUNC_GPIO12); for(;;) { GPIO_OUTPUT_SET(12, 1); os_delay_us(DELAY); GPIO_OUTPUT_SET(12, 0); os_delay_us(DELAY); } } [
verstehe (Punkt "system_adc_read"): >The 107th byte in esp_init_data_default.bin(0〜~127byte) is named as >"vdd33_const", >and when wire TOUT pin to external circuitry, the vdd33_const must be set as >real power >voltage of VDD3P3 pin 3 and 4. Ab was ist nun 'real power'? Vielleicht hängt das damit
-
Thread
Letzter Hilferuf AT91SAM7S - PWM oder PCK
Configure PA17 to be driven by peripheral AT91C_BASE_PIOA->PIO_OER = 1 << 17; // Configure PA17 as output AT91C_BASE_PIOA->PIO_PPUDR = 1 << 17; // Disable pull-up on PA17 AT91C_BASE_PIOA->PIO_BSR = 1 << 17; // Assign PA17 to peripheral B function AT91C_BASE_PMC->PMC_SCER |= 0x00000200;
Configure PA17 to be driven by peripheral AT91C_BASE_PIOA->PIO_OER = 1 << 17; // Configure PA17 as output AT91C_BASE_PIOA->PIO_PPUDR = 1 << 17; // Disable pull-up on PA17 AT91C_BASE_PIOA->PIO_BSR = 1 << 17; // Assign PA17 to peripheral B function AT91C_BASE_PMC->PMC_SCER |= 0x00000200;
-
Thread
Interrupt reagiert nicht richtig
Countinput Declare Sub Schieber_auf Declare Sub Materiallaufzeit Declare Sub Schieber_zu Dim A As Byte , B As Byte Config Pinb.0 = Input 'Schieber offen Config Pinb.1 = Input 'Schieber geschlossen Config Pind.4 = Input
Countinput Declare Sub Schieber_auf Declare Sub Materiallaufzeit Declare Sub Schieber_zu Dim A As Byte , B As Byte , Modus As Byte Config Pinb.0 = Input 'Schieber offen Config Pinb.1 = Input 'Schieber geschlossen Config Pind.4 = Input '
-
Thread
c++ std::vector at(i) or [i]
steht. [pre] Note that this flag changes the sizes and behavior of standard class templates such as std::vector, and therefore you can only link code compiled with debug mode and code compiled without debug mode if no instantiation of a container is passed between the two translation units. [/pre]
ja frei, das so zu machen. Wie ich zitierte Al Fine schrieb im Beitrag #6451695: > "... left as a library vendor quality-of-implementation feature ..." Wenn er die "Qualität: unbenutzbar" anstrebt, kann er das ja gerne machen. Kann std-konform sein....
-
Thread
Uhr mit Wochentag und Datum
'jahresziffer Dim Jhz As Byte 'jahrhunderziffer Dim Wt As Byte 'wochentag:0=so, 1=mo etc Dim Hr As Byte Dim Minu As Byte Dim Seco As Byte Dim Jahrstring As String * 5 Dim Jzh1 As Byte 'hilfbyte1 ( letzten beiden stellen) Dim Jzh2 As Byte '
-
Thread
Programm Excel Listen auslesen
OpenFileDlg = BrowseDir.items().Item().Path End Function Sub GetCells() Dim strPath As String Dim FS As Object Dim Folder As Object Dim File As Object Dim objExcel As Excel.Application Dim objCell As Object Dim i As Long Dim j As Long Dim strString As String Dim rngCell As Range Dim wkbOrig As Workbook Dim wkbTarg As Workbook strPath = OpenFileDlg() If strPath <> "
-
Thread
Drahtlose RS232 Verbindung zu einem Windows XP PC über Bluetooth oder 433 MHz Modul?
Code. Leider nur Vb-2010. Dürfte aber wenig Unterschied machen. Public Class hp Dim S_Port As New IO.Ports.SerialPort Private Sub hp_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load hp_l_com_port.SelectedIndex = 10 ' ein Pulldown zu Auswahl End Sub Private Sub hp_b_senden_Click(sender As System.Object, e As System.EventArgs) Handles hp_b_senden.Click If S_Port.IsOpen Then S_Port.Close() End If S_Port.PortName = "COM10" S_Port.BaudRate = 9600 S_Port.Open
-
Thread
Erfahrungen mit Platinen von JLCPCB / EasyEDA
W202005230411126,since you put them in the outline layer rather than dril layer. Our engineer will make it as non-plated through slots. If you want to make them as plated through slots please kindly put them in the drill layer.
Andreas S. schrieb im Beitrag #7382465: > as Video ist nicht für den asiatischen Raum bestimmt, Für mich ist die grundlegende Frage, warum es überhaupt gedreht wurde / werden musste...#
-
Thread
Timer/Counter Eingang am Board
myservo.write(throttle_value); if (digitalRead(switch_AS)==LOW) //Aktionen für Tastendruck auf Taste AS { switch_AS_state++; lcd.clear();delay(50); } switch(
ggf. korrigieren oder umdrehen myservo.write(throttle_value); if (digitalRead(switch_AS)==LOW) //Aktionen für Tastendruck auf Taste AS { switch_AS_state++; lcd.clear();delay(50); } switch(switch_AS_state%3) {case
-
Thread
VB2010 Semikolon Problem
Button1.Click Const APP_NAME As String = Chr(34) & "c:\test\main.exe" Const APP_SEM As String = Chr(34) & " , " & Chr(34) Const APP_PARAM As String = "\test\ -vga" & Chr(34) Const APP As String = APP_NAME
Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal Parameters As String, ByVal p As System.Windows.Forms.Panel) Try Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start
-
Thread
Python: Problem: Funktion aus anderer Pythondatei aufrufen
Max A. schrieb im Beitrag #5945660: >gui.py: > >from tkinter import * >import Functions as fts > Functions.py: > > from config import * > import gui Du hast eine Zirkelbezug gebaut!
die Config drauf zu. Dafür ist sie da. Beispiel config.py: [c]import Functions as fts [/c] Beispiel in gui.py [c]import config config.fts.moveforward() #Funktionsaufruf ueber config [/c]
-
Thread
BASCOM array auf einmal füllen
Man könnte dafür auch eine SUB deklarieren: [code] declare sub fillarray(byval a1 as byte, byval a2 as byte, ... ) do irgendwas call fillarray(&H00, &H01, hier_kann_auch_ne_variable_stehen, ...) loop end sub fillarray(byval a1 as byte, byval a2 as byte, ... ) werte
Siehe oben: dim werte(10) as Byte
-
Thread
Problem mit Firewall für VPN auf OpenWRT
,aes128-sha1-modp1024,aes128-sha1-modp1536,aes128-sha1-modp2048,aes128-sha256,aes128-sha256-ecp256,aes128-sha256-modp1024,aes128-sha256-modp1536,aes128-sha256-modp2048,aes128gcm12-aes128gcm16-aes256gcm12-aes256gcm16-modp2048-modp4096-modp1024,aes128gcm16,aes128gcm16-ecp256,aes256-sha1,aes256-sha256,aes256-sha256-modp1024,aes256-sha256-modp1536,aes256-sha256-modp2048,aes256-sha256-modp4096,aes256-sha384,
-
Thread
Zeit / wegmessung in Bascom verwirklichen
Meldezeit = 100 '1 Sekunde lan an den PC melden Dim Zeit As Word 'reicht für 65 Sekunden Dim Maxzeit As Word Dim Dummy As Eram Byte 'Byte 0 nutze ich nicht. Dim Emaxzeit As Eram
'1 Sekunde lan an den PC melden Const Ohnepullups = 1 Dim Zeit As Word 'reicht für 65 Sekunden Dim Maxzeit As Word Dim Dummy As Eram Byte 'Byte 0 nutze ich nicht. Dim Emaxzeit As Eram
-
Thread
Widerstand / Verstärkung per Spannung regeln
also so (Analogschalter="AS") ? Pin3----+-----+-----+ | | | | | | \ 300R 100nF AS \ | | | | | | | | Pin12---+-----+-----+
@Aufnehmer (Gast) > also so (Analogschalter="AS") ? > > Pin3----+-----+-----+ > | | > 300R | > | 100nF > \ | > AS \ | > | | > Pin12---+-
-
Thread
GCC C, falsche Umrechnung der ADC-Werte
zu jeder Variable gehört auch eine Einheit! Welche Einheit hat deine Variable Kapazität? Ah? mAh mAs? Sowas gehört UNBEDINGT in die Kommentare, penible Menschen packen das sogar in den Variablennamen, wie z.b. unsigned long Kapazitaet_mAs Wenn man die Kapazität in mAs mißt und speichert, kommt man mit 32 Bit VERDAMMT weit, denn ~4e9 mAs sind 1,1e6 mAh. Eine große Monozelle (D) hat um die 20000 mAh, ein mittlerer Autoakku ca. 50000 mAh. Ergo 32 Bit mit mAs reichen.
-
Thread
Bit im PC-Arbeitsspeicher beim Programmieren gekippt?
von der Höhe abhängt (mehr kosmische Strahlung) >>Error rates rise with altitude: SER is 5 times as high at 2600 feet as >>at sea level, and 10 times as high in >>Denver (5280 feet) as at sea level [26]. “SRAM tested at 10,000 feet >>above sea level will record SERs >>that are 14 times the rate tested
material, but research [6] has shown that the majority of one-off ("soft") errors in DRAM chips occur as a result of background radiation, chiefly neutrons from cosmic ray secondaries which may change the contents of one or more memory cells, or interfere with the circuitry used to read/write them.
-
Thread
Wieso ist der Wellenwiderstand einer Koax-Leitung reel?
and watch the display. Vary the frequency until you see that the capacitive reactance is the same as the inductive reactance (the 'dots' on the CRT will be exactly vertically aligned) as you switch from short to open. Then read the reactance and you have the answer. For example I have found rolls of RG58 as low as 42 ohm and as high as 62 ohm. It is a lesson to never pay attention to "RG" numbers ever again.
-
Thread
PALCE22V10- wie programmieren?
widerständen oder wenn sein muss bus treibern. Wie schon einmal oben erwähnt, die Atmel ATF1502AS, ATF1504AS, ATF1508AS CPLDs können auch 5V VCC und i/o. Die software ist for free (winCUPL), programmierung über LPT oder USB ISP kabel (der nix anderes als ein FTDI IC ist) auch unter Win7. Nachteile
für 15EUR und die 35EUR dann für CPLDs reinstecken. Davon bekommst du schon fast 10stk von ATF1504AS, die sind wie EPM7064S oder EPM3064A. Kannst auch 11stk von ATF1502AS nehmen, die sind wie EPM7032S oder EPM3032A, und mit versand (mouser sammelbestellung hier im forum) hast dann 35EUR ausgegeben.
-
Thread
Timer0 Atmega644
Config Timer0 = Timer , Prescale = 8 On Timer0 Stoppuhr Enable Timer0 Start Timer0 Dim Mycnt As Integer Dim Millisekunden As Integer Dim Sekunden As Integer Dim Minuten As Integer Do Do Waitms 20 Print Minuten ; ":" ; Sekunden ; ":" ; Millisekunden Loop Loop End
Prescale = 256 Timer0 = 6 On Timer0 Stoppuhr Enable Timer0 Start Timer0 Dim Millisekunden As Integer Dim Sekunden As Integer Dim Minuten As Integer Do Do Waitms 10 Print Minuten ; ":" ; Sekunden ; ":" ; Millisekunden Loop Loop End Stoppuhr: Timer0
-
Thread
if if else if - ohne geschweifte Klammern
| ^~ indentation.c:7:9: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the ‘if’ [/Code]
[/c] Oder - kurz und knackig - eine Null-Pointer-feste Variante von strlen(): [c] INT length(as) STRING as; { REG STRING s; IF s=as THEN WHILE *s++ DONE FI return(s-as); } [/c] Bourne hat sich da sehr von Algol68 inspirieren lassen ;-) Kompletter Source: https://www.tuhs.org
-
Thread
Elektor Vorschau 15 W verstärker nur aus OPV´s
!!! Ein NE5532 kann 600R Lasten treiben. 10Veff and 600R ergibt einen Spitzenstrom von rund 24mAs. Wenn ein NE5532 600R Lasten treiben kann, dann braucht man rund 600R/8R = 75 Stück um eine 8R Last treiben zu können. Kai Klaas
> 38mA, bei hohen Sperrschichttemperaturen wahrscheinlich deutlich unter > 30mA. 64 x 30mA ist 1,9As, also 1,3Aeff. An einem Impedanzdip von 3R > können also maximal 5W umgesetzt werden. Bei einer rein ohmschen Last > von 8R und geschönten Verhältnissen sind es dagegen rein rechnerisch > 24W.
-
Thread
GNUBLIN www.gnublin.org
Hallo, die Spannungen werden von AS1324 erzeugt. Ich glaub 0,6V höher muss die Spannung sein. Für die 1,8V und 1,2V ist das kein Problem. Mit etwas weg löten und Brücken einbauen kann man auch mit 3,3V die Schaltung versorgen.
.: enabled Wieso wird eigentlich /dev/video0 verwendet und nicht input: UVC Camera (046d:0825) as /devices/platform/lpc-ehci.0/usb1/1-1/1-1:1.0/input/input0 ? Das Device habe ich neulich nach der Anleitung von Phil J. angelegt. Gruß Rudi
-
Thread
Embedded / Hardware - Raum München
Wüll mal in älteren Forumsthread: https://www.google.de/search?hl=de&as_q=Embedded+Firmen+M%C3%BCnchen&as_epq=&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all&as_sitesearch=mikrocontroller.net&as_occt=any&safe=images&as_filetype=&as_rights=#hl=de&as_qdr=all&q=Suche+Firmen
-
Thread
Seltsames Verhalten einer HD
and with larger timing/positioning margins than ordinary user data. The drive then uses those marks as its position reference for the rest of its life. 2. **There is massive spatial redundancy.** The head does not rely on one “servo block.” It sees servo wedges many times per revolution, on every
describe rewriting or correcting servo sectors under controlled conditions, but this is not the same as a user-level refresh and is not generally exposed to the OS. ([Google Patente][5]) The important difference from user data is this: **user data can be read, ECC-corrected, and rewritten elsewhere;
-
Thread
Habe Timer Problem
Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5 Config Lcd = 24 * 2 Initlcd Cursor Off Dim Minuten As Byte Dim Sekunden As Byte Dim Zeit1 As Byte Dim Zeit2 As Byte Config Timer1 = Timer , Prescale = 256 Const Timervorgabe = 3036 On Timer1 Timer_irq Enable Interrupts Minuten = 0 Sekunden
hwstack = 32 $swstack = 20 $framesize = 40 $baud = 9600 Config Portb.3 = Input Dim Minuten As Byte Dim Sekunden As Byte Sekunden = 0 Config Timer1 = Timer , Prescale = 256 Const Timervorgabe = 3036 Timer1 = Timervorgabe On Timer1 Timer_irq Enable Interrupts Do If Pinb.3 = 1 Then
-
Thread
Picoamperemeter Elektor
vom AATIS sehr zufrieden. Und der Preis passt ins Hobbybudget. https://www.aatis.de/content/bausatz/AS608_pA-Messverst%C3%A4rker
im aati-Dokument viel besser aus. Siehe hier: http://dl3hrt.darc.de/AATiS-Praxisheft_28-Dateien/AS608-Aufbauhinweise.pdf Und Flussmittelreste sieht man auch noch bei Dir. Gründlichst! abwaschen und dann die Platien mindestens über Nacht auf einen Heizkörper trocknen lassen. Du bist zufrieden
-
Thread
Ohne Passwort Windows Dateien einsehen.
für einfache Office-Rechner älteren Datums akzeptabel schnell. Manche Mikrocontroller haben ja sogar AES-Beschleunigung :)
Zahlenreihen liefert Es ging ja um die Beschleunigungsfunktionen für die HDD-Verschlüsselung, also die AES-NI Befehle. Da spielen Zufallszahlen keine Rolle, das Ergebnis der AES-Verschlüsselung ist deterministisch, man kann also Prüfen, ob die CPU dasselbe Ergebnis wie eine andere oder eine Software-Implementation
-
Thread
2 Eingänge 2 Ausgänge
warten am ausgang geht nicht... [c] $regfile "m8def.dat" $crystal = 8000000 Dim Status_taste_auf As Byte Dim Status_taste_zu As Byte Dim Zaehler As Word ' Pinkonfiguration ************************************************************* Eingang_auf Alias Pind.0 Eingang_zu Alias Pind.1 Ausgang_auf
eine optimale lösung ist...? [c] $regfile "m8def.dat" $crystal = 8000000 Dim Status_taste_auf As Byte Dim Status_taste_zu As Byte Dim Zaehler As Long ' Pinkonfiguration ************************************************************* Eingang_auf Alias Pind.0 Eingang_zu Alias Pind.1 Ausgang_auf
-
Thread
bascom uhr-datum
Alias Portd.2 Led2 Alias Portd.3 On Timer1 Timer_irq Const Timervorgabe = 3036 Dim Ijahr As Integer Dim Imonat As Integer Dim Itag As Integer Dim Istunde As Integer Dim Iminute As Integer Dim Isekunde As Integer Ijahr = 2008 Imonat = 9 Itag = 25 Istunde = 10 Iminute = 7 Isekunde
Alias Portd.2 Led2 Alias Portd.3 On Timer1 Timer_irq Const Timervorgabe = 3036 Dim Ijahr As Word Dim Imonat As Byte Dim Itag As Byte Dim Istunde As Byte Dim Iminute As Byte Dim Isekunde As Byte , Letzte_sekunde As Byte Dim Monat_array(12) As Byte Monat_array(1) = 31 Monat_array(2)
-
Thread
LED-Blitzer mit Bascom und ATtiny13
Config Print0 = Portb. 0 , Mode = Set Config Pinb. 0 = Output 'set the direction yourself Dim Resp As String * 10 [/pre] Aber im Zweifel: DDRD = &H20 oder DDRD = &B00100000
500000 $hwstack = 32 $swstack = 10 $framesize = 40 Config PortD = Output Dim Warten as Byte Dim Zuwarten as Byte Warten = 150 Zuwarten = 250 Do PortD = &B0010000 Waitms Warten PortD = &B0000000 Waitms Zuwarten . Loop End
-
Thread
Font von 6x8 auf 12x16 ändern in bascom / S65
Zeichen gespeichert. Hier der Code zum auslesen eines Zeichens: [pre] Sub S65_zeichen(byval Lx As Byte , Byval Ly As Byte , Byval Bcol As Word , Byval Fcol As Word , Byval Lcd_text As String * 1) Local R As Integer Local A As Byte Local B As Byte Local C As Long Local D As Byte Local E As
pset) Ausserdem läufts bei mir mit Hard-SPI. Gruss Gerhard Sub S65_big_zeichen(byval Lx As Byte , Byval Ly As Byte , Byval Bcol As Word , Byval Fcol As Word , Byval Lcd_text As String * 1) Local A As Byte Local B As Byte Local D As Byte Local E As Byte Local Ee As Byte Local F As Byte
-
Thread
Code from 328pdef to Attiny45
the chip Start Adc 'With STOP ADC, you can remove the power from the chip 'Stop Adc Dim W As Word , Channel As Byte Config Portb.5 = Output Dim X As Integer Dim Y As Integer Dim Z As Integer Dim T As Integer X = 0 Y = 0 Z = 0 'now read A/D value from channel 0 Do Z = 0
[pre] Dim W As Word , Channel As Byte Config Portb.5 = Output Dim X As Integer Dim Y As Integer Dim Z As Integer Dim T As Integer X = 0 Y = 0 Z = 0 'now read A/D value from channel 0 Do Z = 0
-
Thread
Bascom GETKBD Routine ändern
so ist, dann mußt Du das Byte, in das GETKBD seine Werte hinein- schmeißt, umdrehen. Dim Erwin as Byte Dim Erwin_umgedreht as Byte Erwin=Getkbd() Erwin_umgedreht.0 = Erwin.7 Erwin_umgedreht.1 = Erwin.6 . . . Erwin_umgedreht.7 = Erwin.0 Print "MfG Paul"
riesen Problem wäre da ne kleine Funktion dazwischen zu klabustern ... funktion get_keyboard () as byte local z as byte local y as byte Portx =0 portx.4 = 1 z=pinx and &B11101111 y=0 if z=0 portx.4 = 0 portx.5 = 1 z=pinx and &B11011111 y=1 endif if z=0 portx.5 = 0 portx.6 = 1
-
Thread
Aufwandschätzung für Cross-Assembler
Du koenntest Dir den "Macroassembler AS" anschauen (lass Dich nicht durch den generischen Namen taeuschen): http://john.ccac.rwth-aachen.de:8000/as/ Der unterstuetzt bereits so um die verschiedene 50 Prozessoren, vielleicht ist Deiner
Ich würde http://john.ccac.rwth-aachen.de:8000/as/cpulist.html verwenden und eine Woche Urlaub machen. Robert